# この頃の夜明け前の水星は、今年の内では地平からの高度も高く見やすくなるので、お目にかかりにくい水星の姿を見るにはチャンスとなる。水星の明るさは-0.1等なので、肉眼でも見つけるのは難しくないが、夜明け前の東天低いので、双眼鏡を使った方が見つけやすいだろう。 # プレアデス星団に月が接近、近くには火星もいる $Lng = Location.Longitude $Lat = Location.Latitude $Hgt = Location.Height Init Sky View.FixedOnScreen = False View.FixedAspectRatio = True View.FixedAspectRatio.AspectRatio = 1.3333 Location = Location($Lng,$Lat,Hgt) Star.Catalog.Switch = False Time.Timezone = +9 Time = LST(2006,03,05,14,00,00) Time = JD( Solar.Sun.Jd.Set.BelowTheHorizon.18 ) View.Angle = 120deg View.Center = Constellation.Tau CoordinatesLine.AltAzimuthGrid.Visible = True View.StraightTheHorizon = True FadeIn Sky,0.5sec View.StraightTheHorizon = False sleep 1sec #--------------------------------playEvent() String.#9.Align = Align(TopLeft) String.#9.Margin.x = 5 String.#9.Margin.y = 5 String.#9.Size = 14 String.#9.Color = RGB(255,255,255) FadeIn String(#9,"2006年3月5日薄明終了時刻",VIEW(0%,0%)),0.5sec Solar.Moon.Name.Visible = True Solar.Planet.Mars.Name.Visible = True Constellation.Tau.Line.Visible = True Constellation.Tau.Name.Visible = True Constellation.Tau.Picture.Visible = True Star.alphaTau.Name.Visible = True FadeIn Sky,0.5sec sleep 3sec Solar.Moon.Name.Visible = False Solar.Planet.Mars.Name.Visible = False Constellation.Tau.Line.Visible = False Constellation.Tau.Name.Visible = False Constellation.Tau.Picture.Visible = False Star.alphaTau.Name.Visible = False CoordinatesLine.AltAzimuthGrid.Visible = False FadeIn Sky,0.5sec Motion.Zoom = True Motion.Zoom.Goal = 10 Motion.Zoom.Speed = 1.5 Motion.Zoom.ViewCenter = True $daRA = DeepSkyObject.M45.Position.RA - Solar.Moon.Position.RA if ( $daRA > 24 ) if ( $DaRA > 0 ) $daRA = $daRA - 24 else $daRA = $daRA + 24 end if else end if $daDEC = DeepSkyObject.M45.Position.DEC - Solar.Moon.Position.DEC $dbRA = $daRA / 2 $dbDEC = $daDEC / 2 $dRA = Solar.Moon.Position.RA + $dbRA $dDEC = Solar.Moon.Position.DEC + $dbDEC Motion.Zoom.ViewCenter.Goal = EQT($dRA, $dDEC) Play Sky WaitFor ( Motion.Stop ) Stop Sky Motion.Zoom = False FieldOfView.Angle = 7.0 FieldOfView.Position = EQT($dRA, $dDEC) FieldOfView.Visible = True String.#1.Align = Align(TopLeft) String.#1.Margin.x = 5 String.#1.Margin.y = 5 String.#1.Size = 14 $RA = $dRA + 0.25 $DEC = $dDEC - 0.4 FadeIn String(#1,"視野7°",EQT($RA, $DEC)),0.5sec Solar.Moon.Name.Visible = True String.#2.Align = Align(BottomLeft) String.#2.Margin.x = 5 String.#2.Margin.y = -5 String.#2.Size = DeepSkyObject.OpenCluster.Name.Size String.#2.Color = DeepSkyObject.OpenCluster.Name.Color FadeIn String(#2,"プレアデス星団(すばる)",Star.20Tau),0.5sec String.#9.Visible = False return