// include the dotmove procedure
include dotmove

// make some spiral settings...
logo circspiral 5 2

// draw the circle as a spiral and capture the points..
pointlist startcapture
circle 30
pointlist endcapture

// turn off spiral settings...
logo circspiral off

// fill in the spiral points to get evenly spaced dots...
pointlist startcapture
  pointlist dotfill 10
pointlist endcapture
set npts = pointlist size

// now move the dots..
pu
logo fillcolor = "dullyellow"
message "Spiral.." "Stop"
dotmove (calc :npts / 12)  12  backcolor  8  5
