------------------------------------------------------------------------
to adjustRightward :amount
   pu                             HANDOUT FOR WEDNESDAY 04/11/2007
   rt 90
   fd :amount
   lt 90
   pd
end
------------------------------------------------------------------------
to spiral :legs
   repeat :legs [rt 90 fd repcount*3]
end
------------------------------------------------------------------------
to square :side
   repeat 4 [rt 90 fd :side]
end
------------------------------------------------------------------------
to square2 :side
   repeat 4 [fd :side rt 90]
end
------------------------------------------------------------------------

square2 200
adjustRightward 210

square 100
pe
square 100
penpaint

square2 100
adjustRightward 110

square2 50
adjustRightward 60

square2 25
adjustRightward 35

square2 12.5
adjustRightward 22.5

square2 6.25

pu
fd 200
fd 200
spiral 104
bk 300
adjustRightward 200
adjustRightward 100

pd 
spiral 104

pu
lt 90
fd 200
lt 90
lt 180
setpc [255 255 0]
setpensize [3 3]
spiral 52
bk 100

pd
spiral 52
ht


st
pu
fd 40
rt 90
setpensize [12 12]
setpc [0 255 0]
fd 300
bk 300
pd

fd 200
setpc [0 0 255]
setpensize [24 24]
fd 400

pu
fd 50