to big
make "size 150
end

to black
setpencolor 16
setfloodcolor 16
end

to blue
setpencolor 1
setfloodcolor 1
end

to brown
setpencolor 9
setfloodcolor 9
end

to circle
lt 90 pd
repeat 360[fd :size/100 rt 1]
pu rt 90 fd 10 fill bk 10 
end

to green
setpencolor 2
setfloodcolor 2
end

to hexagon
lt 90 pd fd :size*0.3 rt 60 repeat 5[fd :size*0.6 rt 60] fd :size*0.3 rt 90 pu fd 10 fill bk 10
end

to octagon
lt 90 pd fd :size*0.2 rt 45 repeat 7[fd :size*0.4 rt 45]
fd :size*0.2 rt 90 pu fd 10 fill bk 10
end

to pentagon
lt 90 pd fd :size*0.4 rt 72 repeat 4[fd :size*0.8 rt 72]
fd :size*0.4 rt 90 pu fd 10 fill bk 10
end

to pink
setpencolor 12
setfloodcolor 12
end

to purple
setpencolor 5
setfloodcolor 5
end

to rain
cs lt 90 fd 200 rt 90 
setpensize [30 30]
setpencolor 0 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 1 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 2 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 3 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 4 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 5 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 6 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 7 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 8 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 9 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 10 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 11 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 12 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 13 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 14 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 15 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 16 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 17 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd
setpencolor 18 fd 100 pu bk 100 rt 90 fd 30 lt 90 pd


end

to rectangle
pd lt 90 fd :size*0.8 rt 90 fd :size rt 90 fd :size*1.6 rt 90 fd :size rt 90 fd :size*0.8 rt 90 pu fd 10 fill bk 10
end

to red
setpencolor 4
setfloodcolor 4
end

to small
make "size 75

end

to square
pd lt 90 fd :size/2 rt 90
repeat 3[fd :size rt 90]
fd :size/2 rt 90
pu fd 10 fill bk 10

end

to triangle
lt 90 pd fd :size/2 rt 120 fd :size rt 120 fd :size rt 120 fd :size/2 rt 90 pu fd 10 fill bk 10
end

to white
setpencolor 16
setfloodcolor 7
end

to yellow
setpencolor 6
setfloodcolor 6
end

Make "size 75