To use this project, you need the free MicroWorlds Web Player, but you do not need to know anything about MicroWorlds.
This project draws interlocking Olympic rings of any size from radius 10 to 80 (pixels). The pen thickness adjusts in relation to the ring size.
If you own MicroWorlds and would like the create the project yourself from scratch, here are the procedures:
* * * * * * * * * *
procedures for OLYMPIC RINGS
Please refer to the screenshot to see the buttons, slider, and turtle needed.
* * * * * * * * * *
to rings
t1, seth 0
setc "blue
circle
seth 90
pu fd ringsize * 2
fd ringsize / 2
seth 0
setc "black
circle
seth 90
pu fd ringsize * 2
fd ringsize / 2
seth 0
setc "red
circle
pu seth 90 bk ringsize * 4
fd ringsize / 4
seth 0
bk ringsize
setc "yellow
circle
seth 90
fd ringsize * 2
fd ringsize / 2
seth 0
setc 67
circle
pu seth 90 bk ringsize * 4 fd ringsize / 4
seth 0 fd ringsize seth 80 setc "blue
repeat 10 [fd ringsize pd fd 1 bk 1 pu back ringsize rt 2]
seth 90
pu fd ringsize * 2
fd ringsize / 2
seth 80
setc "black
repeat 10 [fd ringsize pd fd 1 bk 1 pu back ringsize rt 2]
seth 185
repeat 10 [fd ringsize pd fd 1 bk 1 pu back ringsize rt 2]
seth 90
pu fd ringsize * 2
fd ringsize / 2
seth 185
setc "red
repeat 10 [fd ringsize pd fd 1 bk 1 pu back ringsize rt 2]
pu towards "t2 fd distance "t2 seth 0 setc "blue st
end
to circle
ht
setpensize round ringsize / 7
pu repeat 180 [fd ringsize pd fd 1 bk 1 pu back ringsize rt 2]
end
|
