TO CIRCLE :RADIUS :COLOUR
HT
SETPC :COLOUR
SETPENWIDTH 2
PU
SETHEADING 2
FD :RADIUS RT 90
PD
REPEAT 36 [RT 180 / 36 FD 2 * PI * :RADIUS / 36 RT 180 / 36]
PU
LT 90
BK :RADIUS
PD
FILL
END


