to banner
setturtle 1
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
ht pu lt 90 fd 150 rt 90 bk 10
label "www.numeracysoftware.com
setpc 0
setturtle 0
end

to bannergone
setturtle 1
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 7
ht pu
label "www.numeracysoftware.com
setpc 0
setturtle 0
end

to blue
setfloodcolor 1
fill
end

to green
setfloodcolor 2
fill
end

to hg
repeat 6[fd 50 rt 60]
pu rt 30 fd 20 green bk 20 lt 30 pd
wait 15
end

to hr
repeat 6[fd 50 rt 60]
pu rt 30 fd 20 red bk 20 lt 30 pd
wait 15
end

to hy
repeat 6[fd 50 rt 60]
pu rt 30 fd 20 yellow bk 20 lt 30 pd
wait 15
end

to link
pu rt 120 fd 50 lt 60 fd 50 lt 60 pd
end

to octblue
repeat 8[fd 30 rt 45]
pu rt 45 fd 20 blue bk 20 rt 90 repeat 3[fd 30 lt 45] pd
wait 15
end

to octred
repeat 8[fd 30 rt 45]
pu rt 45 fd 20 red bk 20 rt 90 repeat 3[fd 30 lt 45] pd
wait 15
end

to octreturn
pu lt 135 fd 30 rt 45 fd 827 lt 45 fd 30 lt 45 fd 30 rt 180 pd
end

to octrow1
repeat 6[octred octblue]
end

to octrow2
repeat 6[octblue octred]
end

to pavereturn
fd 50 lt 90 repeat 8[fd 75 rt 90 fd 75 lt 90] fd 25 lt 90 fd 75 rt 180
end

to paverow1
repeat 4[recy rt 90 recb fd 100 rt 90 recg fd 75 rt 90 fd 25 rt 180 recr fd 75 rt 90 fd 75 rt 180]
end

to paverow2
repeat 4[recg rt 90 recr fd 100 rt 90 recy fd 75 rt 90 fd 25 rt 180 recb fd 75 rt 90 fd 75 rt 180]
end

to pentb
repeat 5[fd 40 rt 72]
pu rt 36 fd 20 blue bk 20 lt 36 pd
wait 10
end

to pentg
repeat 5[fd 40 rt 72]
pu rt 36 fd 20 green bk 20 lt 36 pd
wait 10
end

to pentrow1
repeat 4[pentb pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd penty pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd pentg pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd]
pentb pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd
end

to pentrow2
repeat 4[penty pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd pentb pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd pentg pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd]
penty pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd
end

to pentrow3
repeat 4[pentg pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd pentb pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd penty pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd]
pentg pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd
end

to pentrow4
repeat 4[pentb pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd pentg pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd penty pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd]
pentb pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd
end

to pentrow5
repeat 4[penty pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd pentg pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd pentb pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd]
penty pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd
end

to pentrow6
repeat 4[pentg pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd penty pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd pentb pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd]
pentg pu repeat 2[lt 72 bk 40] lt 36 fd 40 rt 180 pd
end

to penty
repeat 5[fd 40 rt 72]
pu rt 36 fd 20 yellow bk 20 lt 36 pd
wait 10
end

to recb
pd repeat 2[fd 75 rt 90 fd 25 rt 90]
pu rt 45 fd 10 blue bk 10 lt 45
wait 10
end

to recg
pd repeat 2[fd 75 rt 90 fd 25 rt 90]
pu rt 45 fd 10 green bk 10 lt 45
wait 10
end

to recr
pd repeat 2[fd 75 rt 90 fd 25 rt 90]
pu rt 45 fd 10 red bk 10 lt 45
wait 10
end

to recy
pd repeat 2[fd 75 rt 90 fd 25 rt 90]
pu rt 45 fd 10 yellow bk 10 lt 45
wait 10
end

to red
setfloodcolor 4
fill
end

to return
pu lt 120
repeat 10[fd 50 rt 60 fd 50 lt 60]
fd 50 lt 60 fd 50 rt 180 pd
end

to row1
repeat 3[hr link hy link hg link] hr link
end

to row2
repeat 3[hy link hg link hr link] hy link
end

to slideshow
repeat 50[tess1 tess2 tess3 tess4 tess5 tess6]
end

to star
pd repeat 6[fd 30 rt 120 fd 30 lt 60]
pu rt 60 fd 20 red bk 20 lt 60 pd
wait 20
end

to starrow
repeat 5[star pu bk 180 pd] pu fd 180 pd
end

to tess1
cs banner ht pu lt 90 fd 390 rt 90 fd 240 lt 45 pd
repeat 3 [paverow1 pu pavereturn paverow2 pu pavereturn]
bannergone
repeat 5 [paverow1 pu pavereturn paverow2 pu pavereturn]
st pd
end

to tess2
cs banner ht pu lt 90 fd 390 rt 90 fd 200 pd
repeat 2[trirow trireturn1 trirow trireturn2]
bannergone
repeat 2[trirow trireturn1 trirow trireturn2]
lt 30 pe fd 75 rt 30 ppt st
end

to tess3
cs banner ht pu lt 90 fd 390 rt 90 fd 240 pd
repeat 2[row1 return row2 return pu rt 120 fd 50 lt 60 fd 50 lt 60 pd]
bannergone
repeat 2[row1 return row2 return pu rt 120 fd 50 lt 60 fd 50 lt 60 pd]
st
end

to tess4
cs banner ht pu lt 90 fd 435 rt 90 fd 240 pd
repeat 2[octrow1 octreturn octrow2 octreturn]
bannergone
repeat 2[octrow1 octreturn octrow2 octreturn]
pd st
end

to tess5
cs banner ht pu lt 90 fd 410 rt 90 fd 215 lt 18 pd
pentrow1 pu fd 40 rt 36 bk 40 lt 216 pd pentrow2 pu fd 40 rt 72 fd 40 lt 72 fd 40 rt 180 pd
pentrow3 pu fd 40 rt 36 bk 40 lt 216 pd pentrow4 pu fd 40 lt 36 fd 40 rt 36 fd 40 rt 180 pd
pentrow3 pu fd 40 rt 36 bk 40 lt 216 bannergone pd pentrow4 pu fd 40 rt 72 fd 40 lt 72 fd 40 rt 180 pd
pentrow5 pu fd 40 rt 36 bk 40 lt 216 pd pentrow6 pu fd 40 lt 36 fd 40 rt 36 fd 40 rt 180 pd
pentrow5 pu fd 40 rt 36 bk 40 lt 216 pd pentrow6 pu fd 40 rt 72 fd 40 lt 72 fd 40 rt 180 pd
pentrow1
pd st
end

to tess6
cs banner ht pu lt 90 fd 375 rt 90 fd 225 lt 90 pd
repeat 2[starrow pu fd 600 lt 60 fd 60 rt 60 starrow pu fd 780 lt 60 fd 60 rt 60]
bannergone
repeat 3[starrow pu fd 600 lt 60 fd 60 rt 60 starrow pu fd 780 lt 60 fd 60 rt 60]
starrow pu fd 600 lt 60 fd 60 rt 60 
st
end

to triblue
pd rt 30 repeat 3 [fd 75 rt 120] lt 30
pu fd 20 rt 90 fd 40 blue rt 90 fd 20 lt 90 fd 35 lt 90
wait 10
end

to trireturn1
pu lt 90 fd 825 lt 60 fd 75 rt 150 pd
end

to trireturn2
pd rt 30 fd 75 bk 75 lt 30 lt 90 fd 825 pd lt 120 fd 75 lt 150
end

to trirow
repeat 11[triblue]
end

to yellow
setfloodcolor 6
fill
end