# 2013年2月16日の小惑星2012 DA14の接近通過を太陽系モードでアニメーション表示する。静止衛星軌道の内側を通り、日本時間午前4時半ごろに最接近する。 #Stlnav.UIStyle = Flight.Solar; Initialize Sky; Time = JST(2013, 2, 15, 22, 0, 0); Time.TimeZone = 9.0; Location.Solar = Solar(3.65932175, 3.07000262, 1.71614924); View.Solar.Arounding = True; View.Solar.Arounding.Center = Solar.Planet.Earth; View.Projection = SolarSystem; View.Coordinate = Ecliptic; View.Angle = 0.03; View.Center = Solar.Planet.Earth; Solar.Moon.Disk.Multiplier = 2.5; Solar.Moon.Orbit.Visible = True; Solar.Planet.Visible = False; Solar.Planet.Orbit.Visible = False; Solar.Planet.Earth.Visible = True; Solar.MinorPlanet.File = "2012DA14.eld"; Solar.MinorPlanet.2012DA14.Visible = True; Solar.MinorPlanet.2012DA14.Orbit.Visible = False; Solar.MinorPlanet.Brightness = 1.6; ArtificialSatellite.Visible = True; ArtificialSatellite.Magnitude = 15.0; Calc Sky; String.Visible = True; String.#1.String = "2012 DA14"; String.#1.Position = Solar.MinorPlanet.2012DA14; String.#1.Align = Align(Right); String.#1.Margin.X = -8; Arrow.Visible = True; Arrow.#1.Position = Solar.MinorPlanet.2012DA14; Arrow.#1.Direction = 90; FadeIn Sky, 2sec; Sleep 2sec; Time.To(JST(2013, 2, 16, 9, 0, 0), 20.0); Sleep 2sec; String.#1.Show(0, 1); Arrow.#1.Show(0, 1); Sleep 1sec; View.Angle.To(0.016, 10);