 |
TO circle
REPEAT 180 [ FD 1 RT 2 ]
END
TO place
PU
RT 90
FD 60
LT 90
PD
END
CS
SETPOS [ 230 400 ]
//draw the first ring (blue)
SETPC blue
circle
place
//draw the 2d ring (black)
SETPC black
circle
place
|
//draw the 3d ring (red)
SETPC red
circle
PU
LT 90
FD 88
LT 90
FD 35
LT 180
PD
//draw the 4th ring (yellow)
SETPC yellow
circle
place
//draw the 5th ring (green)
SETPC green
circle
|
top
