to wiggle [ howManyDegrees ] ; turtle procedure fd 1 rt random howManyDegrees lt random howManyDegrees end to wiggleInPlace rt random 50 lt random 50 end to danceInCircleFacingEachOther ca cro 144 ask-concurrent turtles [ fd 14 rt 180 repeat 10 [ wiggle 10 wait 0.5 ] ] ca cro 36 danceWhereYouAreAt choreographBalletMove end to danceWhereYouAreAt ca cro 36 wait 1 ask-concurrent turtles [ fd 15 wait 1 set size 3 wait 1 rt 180 wait 1 repeat 100 [ wiggleInPlace wait 0.1 ] ] end to choreographBalletMove ca cro 36 ask-concurrent turtles [ set size 1.5 fd 15 rt 180 repeat 360 [ rt 2 wait 0.01 ] wait 2 ifelse remainder who 2 = 0 [ set color green repeat 360 [ lt 4 wait 0.01 ] ] [ set color yellow repeat 360 [ rt 4 wait 0.01 ] ] ] ask-concurrent turtles [ ifelse remainder who 2 = 0 [ repeat 2 [ wait 0.1 fd 0.2 ] ] [ repeat 5 [ wait 0.2 fd 1.2 ] rt 180 ] wait 1 pd fd 4 wait 1 rt 180 pu bk 2 ] end