Daniel's Program Code

Program and Design by Daniel Wessels
@ The Lakeview School
Denville NJ 07834-3419

to tri
setpensize 1
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 15
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 25
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 35
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 45
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 55
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 65
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 75
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 85
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 95
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 105
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 115
seth 45 pd fd 45 repeat 70 [ rt 120 fd 70]
setc 125
repeat 9999 [ fd 198 rt 121 setc random 9999]
setc 135

end

to moo
setpensize 99
repeat 99 [tri]
end

to floyd
seth 90 fd 100 repeat 5 [rt 90 ]
end

to doit
pd
repeat 90 [ fd 50 rt 80]
pu
fd 60
setc 15
pd
repeat 90 [ fd 50 rt 80]
pu
fd 60
pd
setc 25
repeat 90 [ fd 50 rt 80]
pu
fd 60
pd
setc 35
repeat 90 [ fd 50 rt 80]
pu
fd 60
pd
setc 45
repeat 90 [ fd 50 rt 80]
pu
fd 60
pd
setc 55
repeat 90 [ fd 50 rt 80]
pu
fd 60
pd
setc 55
repeat 90 [ fd 50 rt 80]
pu
fd 60
pd
setc 65
end

to moit

setpensize 1
doit
repeat 99 [ rt 50 bk 99 fd 99 ]
rt 34
page1
repeat 99 [ rt 50 bk 99 fd 99 ]
rt 34
page2
repeat 99 [ rt 50 bk 99 fd 99 ]
rt 34
page1
repeat 99 [ rt 50 bk 99 fd 99 ]
rt 34
page2
end

to countby2
show 0 + 0
wait 10
show 0 + 2
wait 10
show 2 + 2
wait 10
show 4 + 2
wait 10
show 6 + 2
wait 10
show 8 + 2
wait 10
show 10 + 2
wait 10
show 12 + 2
wait 10
show 14 + 2
wait 10
show 16 + 2
wait 10
show 18 + 2
wait 10
show 20 + 2
wait 10
show 22 + 2
wait 10
show 24 + 2
wait 10
show 26 + 2
wait 10
show 28 + 2
wait 10
show 30 + 2
wait 10
show 32 + 2
wait 10
show 34 + 2
wait 10
show 36 + 2
wait 10
show 38 + 2
wait 10
show 40 + 2
wait 10
show 42 + 2
wait 10
show 44 + 2
wait 10
show 46 + 2
wait 10
show 48 + 2
end

to miricale
pd
setc 9
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 15
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 25
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 35
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 45
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 55
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 65
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 75
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 85
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 95
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 105
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 115
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 125
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 135
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 145
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 155
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 165
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 175
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 185
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 195
repeat 99 [ rt 50 bk 99 fd 99 ]
end

to ha
pd
setc 9
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 15
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 25
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 35
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 45
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 55
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 65
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 75
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 85
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 95
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 105
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 115
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 125
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 135
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 145
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 155
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 165
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 175
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 185
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 195
repeat 99 [ rt 50 bk 99 fd 99 ]
setc 9
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 15
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 25
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 35
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 45
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 55
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 65
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 75
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 85
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 95
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 105
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 115
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 125
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 135
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 145
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 155
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 165
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 175
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 185
repeat 99 [ rt 50 bk 99 fd 99 ]
wait 3
setc 195
repeat 99 [ rt 50 bk 99 fd 99 ]
end

to hi
pd
setc 85
rt 120
fd 90
bk 90
setc 25
rt 120
fd 90
bk 90
setc 45
rt 120
fd 90
bk 90
end

to by
repeat 10 [hi pu rt 90 fd 50]
end

to hello

by pu seth 90 fd 100

end

to me
repeat 10 [hi pu seth 90 fd 50]
end

to ce
cg
repeat 40 [me]
end

to hen
cg
pd
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
repeat 7[hello]
miricale
end

to hib
cg
end

to nib
setc 9
end

to rib
cc
end

to lib
setpensize 1
end

to all
hib rib nib
ce hi ha hello by me miricale countby2 hen col
end

to riber
hib nib rib lib pd
end

to col
setpensize 50
hen
end

to fly
repeat 10
[
glide 80 1
rt random 150
glide 80 1
lt random 150
]
end

to fli
fly
setc 15
fly
setc 25
fly
setc 35
fly
setc 45
fly
setc 55
fly
setc 65
fly
setc 75
fly
setc 85
fly
setc 95
fly
setc 105
fly
setc 115
fly
setc 125
fly
setc 135
fly
setc 145
fly
setc 155
fly
setc 165
fly
setc 175
fly
setc 185
fly
setc 195
end

to ide
glide 800 1
rt 50
glide 800 1
rt 50
glide 800 1
rt 50
glide 800 1
rt 50 glide 800 1
rt 50 glide 800 1
rt 60 glide 800 1
rt 60 glide 800 1
rt 60 glide 800 1
end

to jump
ide setc 9
ide setc 15
ide setc 25
ide setc 35
ide setc 45
ide setc 55
ide setc 65
ide setc 75
ide setc 85
ide setc 95
ide setc 105
end

to pump
setpensize 50
jump
end

to dayandnight
tto[t3]
setpos [-328 -177]
tto[t15]
setpos [311 62]
tto[t15] r4epeat 100[ fd 10]
end

to wildstuff

pd
setpensize 100

fd 546 rt 72 fd 546 lt 72

setc random 99
fd 546 rt 72 fd 546 lt 72

setc random 99

end

to awsome
wait 10
wildstuff wait 10
wildstuff wait 10
wildstuff wait 10
wildstuff wait 10
wildstuff wait 10
end

to goforit
cg
setpensize 10
repeat 20
[
fly
setc random 139
]
end

to fle
repeat 10
[
glide 80 1
rt random 150
glide 80 1

]
end

to goforin
cg
setpensize 10
repeat 20
[
fle
setc random 139
]
end

to scrible
goforin
end

to scribler

goforit

end

to race
tto [t1 t2 t3 t4]
seth 90
repeat 90 [fd 10 wait 2]
tto [t1 t2 t4 ]
repeat 80 [fd 10 wait 2]
tto [t3 ]
repeat 90 [fd 10 wait 1]
end

to songs
repeat 10 [the final song]
end