
logo circpoints = 60
logo linethick = 0.5
pointlist startcapture
  circle 300
pointlist endcapture
set npts = pointlist size

repeat untilbreak [
  set jump = buttonchoice "Connect every __ points:" "10|15|18|20|25|27|30|Quit"
  if :jump = "quit" [ break ]
  set ballsize = buttonchoice "Size of circle at each tip:" "None|2|3|5|10|20|50|100"
  if :ballsize = "none" [ set ballsize = 0 ]

  clear

  set i = 1
  repeat :npts [
    pu; moveto point :i
    pd; moveto point (calc :i + :jump)
    circle :ballsize
    incr i by 1
    ]
  ]
