
// include the dotmove procedure...
include dotmove

set moonmode = buttonchoice "" "Single moon|Many moons"
message "Orbiter" "Stop"
logo backcolor = "purple"
logo circrotate -30

// draw a 100 point ellipse and capture the points
pointlist startcapture
  logo circpoints 100
  ellipse 300 100
pointlist endcapture
set npts = pointlist size

// draw the blue planet..
moveto middle; pd; circle 40
logo fillcolor = "powderblue"; fillshape; pu

logo fillcolor = "red"
// now animate the dots..  parameters:    ndots spacing   offcolor  dotsize   wait
if :moonmode = "single moon"    [ dotmove   1     99     backcolor    18       2 ]
elseif :moonmode = "many moons" [ dotmove  20      5     backcolor     8       5 ]
