cs spiraqua 0 90 200
to spiraqua :inizio :gradi :fino
;spirale
if :inizio>:fino [stop]
fd :inizio
rt :gradi
spiraqua :inizio+2 :gradi :fino
end
____________________________________
complementi:
setactivearea [-120 -120 120 120]
attiva
gifsave "fig7-2.gif
to attiva
;disegna un rettangolo corrispondente all'area attiva
;serve per vedere l'area attiva e
make "xl item 1 activearea
make "yl (item 2 activearea)+1
make "xh (item 3 activearea)-1
make "yh item 4 activearea
pu home
fd :yh rt 90 pd
fd :xh rt 90
fd :yh-:yl rt 90
fd :xh-:xl rt 90
fd -:yl+:yh rt 90
fd -:xl
pu lt 90 bk :yh pd
end