Design and Program by Leslie Meng
The Lakeview School 2002

to boat

tto [ t1 t2 t18 t19 t20 t21 t22 t23 ]
seth 90
repeat 90 [ fd 25 wait 3 rt 3 lt 4 rt 7 lt 6 ]

end

to bird

tto [ t3 t4 t5 t13 t14 t15 t16 t17 ]
seth 270
repeat 100 [ fd 25 setsh 10 wait 2 fd 25 setsh 9 wait 2]

end

to bee

tto [ t6 t7 t8 t9 t10 t11 t12 ]
seth 90
repeat 100 [ fd 25 setsh 11 wait 2 fd 25 setsh 12 wait 2]

end

to fish
tto [ t1 t2 t3 t4 t5 t6 t7 t8]
seth 270
repeat 120 [ fd 15 wait 3]
end

to weeds
tto [ t9 t10 t11 t12 t13 t14 t15 t16 t17]
seth 270
repeat 100 [ fd 2 wait 2 seth 90 fd 2 wait 2 seth 270]
end

to snake
tto [ t18 t19 t20 t21 t22]
seth 90
repeat 75 [ fd 25 setsh 23 wait 2 fd 25 setsh 22 wait 2]
end

to fishies

tto [t7]
setpos [ -345 -143 ]
tto [t3]
setpos [-350 -199]
tto [ t6]
setpos [ -305 -179]
tto [t5]
setpos [-253 -157]
tto [t1]
setpos [ -239 -196]
tto [ t2]
setpos [ -186 -160]
tto [t4]
setpos [ -160 -199]
tto [ t1 t2 t3 t4 t5 t6 t7 ]
seth 270
repeat 100 [ fd 10 wait 4 bk 10 wait 5]
end

to cars
tto [ t1 t2 t3 t4]
seth 90
repeat 350 [ fd 90 wait 1]
end

to walking

tto [t5]

seth 90

repeat 99 [ fd 15 wait 2 setsh 43 fd 15 wait 2 setsh 44 fd 15 wait 2 setsh 42]
end

to crazy
tto [t2]
seth 45
tto [t3]
seth 90
tto [t4]
seth 135
tto [t5]
seth 180
tto [t6]
seth 225
tto [t7]
seth 270
tto [t8]
seth 315
tto [ t1 t2 t3 t4 t5 t6 t7 t8]
setpos [ 7 15]
repeat 70 [ fd 10 wait 2]

end

to stars

tto [t2]
seth 45
tto [t3]
seth 90
tto [t4]
seth 135
tto [t5]
seth 180
tto [t6]
seth 225
tto [t7]
seth 270
tto [t8]
seth 315

tto [ t1 t2 t3 t4 t5 t6 t7 t8]
setpos [ 7 15]
repeat 100 [ fd 25 wait 2]
end

to abstract
tto [ t1]
seth 360
tto [t2]
seth 45
tto [t3]
seth 90
tto [t4]
seth 135
tto [t5]
seth 180
tto [t6]
seth 225
tto [t7]
seth 270
tto [t8]
seth 315

tto [ t1 t2 t3 t4 t5 t6 t7 t8]
setpos [ 6 15]
repeat 100 [ fd 35 wait 1.5 rt 20 wait 1.5]
end

to Bye
tto [t1]
setpos [ 6 15]
seth 90
setsh 47
repeat 10 [ fd 15 wait 9]
setsh 62
end