# 今年の十五夜は10月6日で、中秋の名月を楽しめる。 # 中秋の名月 $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,10,06,21,00,00) View.Angle = 100deg Solar.Moon.Name.Visible = True View.Center = Solar.Moon 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年10月6日21時",VIEW(0%,0%)),0.5sec sleep 2sec Constellation.Line.Visible = True Constellation.Name.Visible = True FadeIn Sky,0.5sec sleep 2sec Constellation.Line.Visible = False Constellation.Name.Visible = False Solar.Moon.Name.Visible = False FadeIn Sky,0.5sec sleep 0.5sec Motion.Zoom = True Motion.Zoom.Goal = 1 Motion.Zoom.Speed = 1.5 Motion.Zoom.ViewCenter = True Motion.Zoom.ViewCenter.Goal = Solar.Moon Play Sky WaitFor (Motion.Stop) Stop Sky Motion.Zoom = False Motion.Zoom.ViewCenter = False String.#9.Visible = False return