Programmed and Designed by
Billy Bryan

return to the graphics pages press CONTROL F

to running
cg
pd
repeat 4 [ fd 90 rt 90 ]
lt 90 pu fd 90 pd
repeat 90 [ repeat 35 [ fd 5 ] rt 178 setc random 255 wait 0.01]
end

to starysky
cg
setc 9
pd
fill
ht
seth 225
repeat 2000 [ pd setc 0 fd 1 pu fd random 100 ]
end

to makeangry
tto [ shapeshifter ]
melody1
repeat 50 [ fd 10 wait 0.1 ]
setsh 54
end

to calm
tto [ shapeshifter ]
melody2
setsh 0
end

to slideshow
wait 30
page2
wait 30
page3
wait 30
page4
wait 30
page6
wait 30
page7
wait 30
page5
end

to contents
page5
end

to swim
tto[t1 t2 t3 t4]
repeat 100 [ fd 1 rt 2 wait 0.1]
end

to drown
tto[ t2 t3 t4]
swim
tto[t1]
repeat 100 [ fd 1 rt 2 wait 0.1]
setsh 61
tto[t5]
repeat 150 [ fd 1 wait 0.01]
tto[t1]
setsh 45
tto[t5]
repeat 150 [ bk 1 wait 0.01]
end

to dancingnotes
tto [ t1 t2 t3 t4 t5 t6 ]
seth 0
repeat 5
[
seth 45 wait 5 fd 10
seth 90 wait 5 fd 10
seth 135 wait 5 fd 10
seth 180 wait 5 fd 10
seth 225 wait 5 fd 10
seth 270 wait 5 fd 10
seth 315 wait 5 fd 10
seth 360 wait 5 fd 10

seth 45 wait 2 fd 10
seth 90 wait 2 fd 10
seth 135 wait 2 fd 10
seth 180 wait 2 fd 10
seth 225 wait 2 fd 10
seth 270 wait 2 fd 10
seth 315 wait 2 fd 10
seth 360 wait 2 fd 10

seth 45 wait 0.5 fd 10
seth 90 wait 0.5 fd 10
seth 135 wait 0.5 fd 10
seth 180 wait 0.5 fd 10
seth 225 wait 0.5 fd 10
seth 270 wait 0.5 fd 10
seth 315 wait 0.5 fd 10
seth 360 wait 0.5 fd 10
]
end