# 12月19日に火星と地球が最接近する。ふたご座にありマイナス1.6等で赤く輝く火星の姿を楽しみたい。 # ふたご座にいる火星が地球に最接近 $Lng = Location.Longitude $Lat = Location.Latitude $Hgt = Location.Height Init Sky View.FixedOnScreen = False View.FixedAspectRatio = True View.FixedAspectRatio.AspectRatio = 1.3334 Location = Location($Lng,$Lat,$Hgt) Location.Solar = Solar(-0.000000, -0.000000, 2.004764) Star.Catalog.Switch = False View.Projection = SolarSystem View.Coordinate = ECLIPTIC Time.Timezone = +9 Time = LST(2007,10,20,00,00,00) View.Angle = 120deg View.Center = ECLIPTIC(10.500000, -90.000000) Solar.Planet.Name.Visible = True Solar.Sun.Name.Visible = True View.StraightTheHorizon = False 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,"2007年10月20日の太陽系",VIEW(0%,0%)),0.5sec sleep 1sec Solar.Planet.Visible = False Solar.Planet.Orbit.Visible = False Solar.Planet.Earth.Visible = True Solar.Planet.Earth.Orbit.Visible = True Solar.Planet.Mars.Visible = True Solar.Planet.Mars.Orbit.Visible = True Star.Brightness = 0.5 FadeIn Sky,0.5sec FadeOut String(#9),0.5sec Motion.Time = True Motion.Time.Goal = LST(2007,12,19,08,46,00) Motion.Time.Speed = 1000000 Play Sky WaitFor ( Motion.Stop ) Stop Sky Motion.Time = False FadeIn String(#9,"2007年12月19日の太陽系",VIEW(0%,0%)),0.5sec FadeIn Line(#1,Solar.Planet.Mars, Solar.Planet.Earth),0.5sec #FadeIn Line(#1, Solar.Planet.Venus,Solar.Sun),0.5sec String.#8.Align = Align(Center) String.#8.Margin.x = 0 String.#8.Margin.y = 0 String.#8.Size = 14 FadeIn String(#8,"火星が地球に最接近",VIEW(50%,95%)),0.5sec sleep 3sec # ---------- String.Visible = False View.Projection = Zenithal View.Coordinate = Horizon View.Angle = 90 View.Center = Solar.Planet.Mars Time = LST(2007,12,19,20,00,00) $Mlt = Solar.Planet.Mars.Disk.Multiplier Solar.Planet.Mars.Disk.Multiplier = 5 Solar.Planet.Mars.Name.Visible = True View.StraightTheHorizon = True FadeOut Line(#1),1sec 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,"2007年12月19日20時",VIEW(0%,0%)),0.5sec sleep 1sec Constellation.Gem.Line.Visible = True Constellation.Gem.Name.Visible = True Star.alphaGem.Name.Visible = True Star.betaGem.Name.Visible = True FadeIn Sky,0.5sec sleep 2sec Constellation.Gem.Line.Visible = False Constellation.Gem.Name.Visible = False Star.alphaGem.Name.Visible = False Star.betaGem.Name.Visible = False Solar.Planet.Mars.Name.Visible = False FadeIn Sky,0.5sec sleep 1sec # ---------- Motion.Zoom = True Motion.Zoom.Goal = 0.1 Motion.Zoom.Speed = 1.5 Motion.Zoom.ViewCenter = True Motion.Zoom.ViewCenter.Goal = Solar.Planet.Mars Play Sky WaitFor ( Motion.Stop ) Stop Sky Motion.Zoom = False Solar.Planet.Mars.Name.Visible = True FadeIn Sky,0.5 Solar.Planet.Mars.Disk.Multiplier = $Mlt String.#9.Visible = False return