# 毎年恒例の天文現象のトップバッターが、しぶんぎ座流星群(りゅう座ι流星群)だ。出現は元日のころから始まり7日ごろまで続くが、この流星群はピークが鋭いという特徴があり、出現はほとんど極大の晩に集中する。 # しぶんぎ座流星群が極大 $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,01,04,02,0,0) View.Angle = 120deg View.Center = Meteor.Swarm.Quadrantids.Radiant View.StraightTheHorizon = True Constellation.Dra.Line.Visible = True Asterism.BigDipper.Visible = True Asterism.BigDipper.Name.Visible = True FadeIn Sky,0.5sec View.StraightTheHorizon = False Constellation.Dra.Name.Visible = True 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年1月4日2時",VIEW(0%,0%)),0.5sec sleep 1sec Meteor.Swarm.Quadrantids.Radiant.Visible = True FadeIn Sky,0.5sec String.#1.Align = Align(TopLeft) String.#1.Margin.x = 5 String.#1.Margin.y = 5 String.#1.Size = Meteor.Swarm.Radiant.Name.Size String.#1.Color = Meteor.Swarm.Radiant.Name.Color FadeIn String(#1,"しぶんぎ座流星群の放射点",Meteor.Swarm.Quadrantids.Radiant),0.5sec sleep 2sec String.Visible = False Meteor.Swarm.Quadrantids.Visible = True meteor.Swarm.Quadrantids.Multiplier = 50000 Constellation.Dra.Name.Visible = False Constellation.Dra.Line.Visible = False Asterism.BigDipper.Visible = False Asterism.BigDipper.Name.Visible = False FadeIn Sky,0.5sec sleep 0.5sec Motion.Time = True Motion.Time.Realtime = False Motion.Time.Speed.Step = False Motion.Time.Speed = 1000 Motion.Time.Goal = JD( Solar.Sun.Jd.Rise.BelowTheHorizon.9 ) Play Sky WaitFor (Motion.Stop) Stop Sky Motion.Time = False return