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


