# 宵のころ、東の空からひときわ明るい星が姿を見せるようになってきている。その血のように赤い輝きからも人びとの話題になっているが、これが10月30日に地球に最接近となる火星だ。前回の2003年8月27日の接近よりは地球との間に距離があり、見かけの大きさも20.2秒角といくぶん小さい。しかし、これでも火星の大きさとしてはかなり大きい方なので、小望遠鏡でも表面のようすが思いのほかよく見え、観測の興味もわいてくることだろう。 # 火星が地球と最接近 $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) Location.Solar = Solar(-0.000000, -0.000000, 2.004764) Star.Catalog.Switch = False View.Projection = SolarSystem View.Coordinate = ECLIPTIC Time.Timezone = +9 Time = LST(2005,08,01,00,00,00) View.Angle = 110deg 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,"2005年8月1日の太陽系",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.Earth.Date.Visible = True Solar.Planet.Mars.Visible = True Solar.Planet.Mars.Orbit.Visible = True Star.Brightness = 0.5 FadeIn Sky,0.5sec FadeIn Line(#1,Solar.Planet.Earth, Solar.Planet.Mars),0.5sec FadeOut String(#9),0.5sec View.Trace = True View.Trace.InTheAnimationOnly = False Solar.Planet.Orbit.Visible = False Solar.Sun.Visible = False Star.Visible = False MilkyWay.Visible = False DeepSkyObject.Image.Visible = False Solar.Moon.Visible = False Time = LST(2005,09,01,00,00,00) FadeIn Sky,0.5sec Time = LST(2005,10,01,00,00,00) FadeIn Sky,0.5sec Time = LST(2005,10,30,00,00,00) FadeIn Sky,0.5sec Solar.Planet.Earth.Visible = False Solar.Planet.Mars.Visible = False String.#2.Align = Align(TopLeft) String.#2.Margin.x = 10 String.#2.Margin.y = 10 String.#2.Size = 14 FadeIn String(#2,"最接近",Solar.Planet.Mars),0.5sec Time = LST(2005,12,1,00,00,00) Solar.Planet.Earth.Visible = True Solar.Planet.Mars.Visible = True FadeOut String(#2),0.5sec Time = LST(2006,01,1,00,00,00) FadeIn Sky,0.5sec Time = LST(2006,02,1,00,00,00) FadeIn Sky,0.5sec sleep 3sec # ---------- View.Trace = False String.Visible = False View.Projection = Zenithal View.Coordinate = Horizon View.Angle = 90 View.Center = Solar.Planet.Mars Time = LST(2005,10,30,22,00,00) Solar.Moon.Visible = True Solar.Planet.Visible = True Solar.Planet.Mars.Date.Visible = False Solar.Planet.Earth.Date.Visible = False Solar.Planet.Mars.Name.Visible = False Solar.Planet.Earth.Name.Visible = False Star.Visible = True MilkyWay.Visible = True DeepSkyObject.Image.Visible = True Star.Brightness = 1.0 View.StraightTheHorizon = True CoordinatesLine.AltAzimuthGrid.Visible = 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,"2005年10月30日22時",VIEW(0%,0%)),0.5sec Solar.Planet.Mars.Name.Visible = True FadeIn Sky,0.5sec Constellation.Ori.Line.Visible = True Constellation.Tau.Line.Visible = True Constellation.Ori.Name.Visible = True Constellation.Tau.Name.Visible = True Star.alphaTau.Name.Visible = True DeepSkyObject.M45.Name.Visible = True FadeIn Sky,0.5sec sleep 2sec Solar.Planet.Mars.Name.Visible = False Constellation.Ori.Line.Visible = False Constellation.Tau.Line.Visible = False Constellation.Ori.Name.Visible = False Constellation.Tau.Name.Visible = False Star.alphaTau.Name.Visible = False DeepSkyObject.M45.Name.Visible = False CoordinatesLine.AltAzimuthGrid.Visible = False FadeIn Sky,0.5sec Motion.Zoom = True Motion.Zoom.Goal = 0.05 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 Solar.Planet.Mars.Satellite.Name.Visible = True FadeIn Sky,0.5sec return