Netlogo olympic logo

Just a little olympic netlogo-ing to de-stress
:P

to setup

clear-all

ask patches[

set pcolor white

]

create-turtles 5[

set ycor 0

]

ask turtle 0[

set xcor -12

set ycor 3

set heading 180

set color blue

]

ask turtle 1[

set xcor 0

set ycor 0

set heading 0

set color yellow

]

ask turtle 2[

set xcor -3

set ycor 3

set heading 180

set color black

]

ask turtle 3[

set xcor 9

set ycor 0

set heading 0

set color green

]

ask turtle 4[

set xcor 6

set ycor 3

set heading 180

set color red

]

ask turtles [set pen-mode "down"]

end

to move-turtles

;call forever

ask turtles[

lt 16

fd 1

]

end