clearscreen cerchispira 15
to cerchispira :r
repeat 72*4 [rt 5 fd 2*pi*:r*(power 2 (3*repcount/288)) /72]
end
____________________________________
complementi:
setactivearea [-120 -120 120 120]
attiva
gifsave "fig7-1.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