Neighborhood+procedures

to walk_dog repeat # [fd 4 setsh 19 wait .75 fd 5 setsh 20 wait .75] seth (degree) repeat above code the number of times nessasary end

to Butterfly seth 0 repeat 45[setsh 34 wait 1 fd 1 rt 90 fd 3 lt 90 setsh 35 wait 1 fd 1 rt 90 fd 3 lt 90] end

to humming repeat 800 [setsh 36 wait 1 setsh 37 wait 1] end

to startall (t1), setpos [x y] (t2), setpos [x y] (t3), setpos [x y] (t1), launch[walk_dog] (t2), launch [humming] (t3), launch [butterfly] end