To circle :RADIUS :COLOUR :POS
HT
SetPC :COLOUR
SetPenWidth 2
PU
SetHeading 2
SetPos :POS
Fd :RADIUS Rt 90
PD
Repeat 36 [RT 180 / 36 FD 2 * PI * :RADIUS / 36 RT 180 / 36]
PU
Lt 90
Bk :RADIUS
PD
End

TO DAISY :LRADIUS :LCOLOUR :LPOS
IF EMPTY? :LRADIUS [STOP]
CIRCLE FIRST :LRADIUS FIRST :LCOLOUR FIRST :LPOS
DAISY BUTFIRST :LRADIUS BF :LCOLOUR BF :LPOS
END

Make "data1 [10 40 40 40 40]
Make "data2 [53 42 56 99 129]
Make "data3 [[0 0][0 60][60 0][0 -60][-60 0]]

DAISY :DATA1 :DATA2 :DATA3
