
logo linethick 0.5
logo circpoints 100

pointlist startcapture
ellipse 300 80
pointlist endcapture
set npts = pointlist size

pu; fd 300
set top = turtlepos

set i = 0
repeat :npts [ 
  logo linecolor = "red"
  pu; moveto :top
  pd; moveto point :i
  fd 50  // do a bit of overhang.. 
  pd; moveto point :i
  logo linecolor = "blue"
  logo turtledir 180
  fd 200
  incr i by 1
  ]
