# 2月26日の月の出は東京で19時32分だが、その月の出間もない月齢17.6の月に、おとめ座の4.0等のη星が隠され出てくるところが沖縄方面をのぞく各地で見られる。 # 白昼のプレアデス星団食、その後夕方に接近した様子を見ることができる $Lng = Location.Longitude $Lat = Location.Latitude $Hgt = Location.Height Init Sky View.FixedOnScreen = False View.FixedAspectRatio = True View.FixedAspectRatio.AspectRatio = 1.3333 Star.Catalog.Switch = False Location = Location(139.733333, 35.650000, 0.000000) # Location = Location(139.695000, 35.686000, 50.000000) Time.Timezone = +9 Time = LST(2006,02,06,14,00,00) View.Angle = 3.2deg View.Center = DeepSkyObject.M45 Solar.Moon.Disk.MinimumSize = 7 FadeIn Sky,0.5sec $Mag = Star.AutoMagnitudeLimit.Minimum Star.AutoMagnitudeLimit.Minimum = 7.0 FadeIn Sky,0.5sec #--------------------------------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年2月6日14時(東京)",VIEW(0%,0%)),0.5sec Solar.Moon.Name.Visible = True String.#2.Align = Align(bottomRight) String.#2.Margin.x = -5 String.#2.Margin.y = -15 String.#2.Size = DeepSkyObject.OpenCluster.Name.Size String.#2.Color = DeepSkyObject.OpenCluster.Name.Color FadeIn String(#2,"プレアデス星団(すばる)",Star.23Tau),0.5sec sleep 3sec Solar.Moon.Name.Visible = False String.Visible = False FadeIn Sky,0.5sec View.Center = DeepSkyObject.M45 View.Center.Track = True Motion.Time = True Motion.Time.Realtime = False Motion.Time.Speed.Step = False Motion.Time.Speed = 600 Motion.Time.Goal = LST(2006,02,06,18,00,00) Play Sky WaitFor (Motion.Stop) Stop Sky Motion.Time = False FadeIn String(#9,"2006年2月6日18時(東京)",VIEW(0%,0%)),0.5sec Solar.Moon.Name.Visible = True String.#2.Align = Align(bottomLeft) String.#2.Margin.x = 5 String.#2.Margin.y = -15 FadeIn String(#2,"プレアデス星団(すばる)",Star.23Tau),0.5sec sleep 3sec # ---------- View.Center.Track = False Star.AutoMagnitudeLimit.Minimum = $Mag Time = LST(2006,02,06,14,00,00) Time = JD( Solar.Sun.Jd.Set.BelowTheHorizon.18 ) View.Angle = 120deg View.Center = DeepSkyObject.M45 Constellation.Tau.Name.Visible = True Constellation.Ori.Name.Visible = True Constellation.Tau.Line.Visible = True Constellation.Ori.Line.Visible = True Star.alphaTau.Name.Visible = True Star.alphaOri.Name.Visible = True Solar.Planet.Mars.Name.Visible = True CoordinatesLine.AltAzimuthGrid.Visible = True String.Visible = False View.StraightTheHorizon = True FadeIn Sky,0.5sec View.StraightTheHorizon = False 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年2月6日薄明終了時刻(東京)",VIEW(0%,0%)),0.5sec sleep 3sec Constellation.Tau.Name.Visible = False Constellation.Ori.Name.Visible = False Constellation.Tau.Line.Visible = False Constellation.Ori.Line.Visible = False Star.alphaTau.Name.Visible = False Star.alphaOri.Name.Visible = False Solar.Planet.Mars.Name.Visible = False Solar.Moon.Name.Visible = False CoordinatesLine.AltAzimuthGrid.Visible = False FadeIn Sky,0.5sec Motion.Zoom = True Motion.Zoom.Goal = 11deg Motion.Zoom.Speed = 1.5 Motion.Zoom.ViewCenter = True Motion.Zoom.ViewCenter.Goal = DeepSkyObject.M45 Play Sky WaitFor ( Motion.Stop ) Stop Sky Motion.Zoom = False FieldOfView.Angle = 7.0 FieldOfView.Position = DeepSkyObject.M45 FieldOfView.Visible = True String.#1.Align = Align(TopLeft) String.#1.Margin.x = 5 String.#1.Margin.y = 5 String.#1.Size = 14 $RA = DeepSkyObject.M45.Position.RA + 0.34 $Dec = DeepSkyObject.M45.Position.Dec + 0.2 FadeIn String(#1,"視野7°",EQT($RA, $Dec)),0.5sec sleep 3sec FieldOfView.Visible = False FadeOut String(#1),0.5sec Motion.Zoom = True Motion.Zoom.Goal = 3deg Motion.Zoom.Speed = 1.5 Motion.Zoom.ViewCenter = True Motion.Zoom.ViewCenter.Goal = DeepSkyObject.M45 Play Sky WaitFor ( Motion.Stop ) Stop Sky Motion.Zoom = False Solar.Moon.Name.Visible = True String.#2.Align = Align(TopLeft) String.#2.Margin.x = 5 String.#2.Margin.y = 15 FadeIn String(#2,"プレアデス星団(すばる)",Star.23Tau),0.5sec String.#9.Visible = False return