to spiraqua :inizio :gradi :fino
;spirale
if :inizio>:fino [stop]
fd :inizio
rt :gradi
spiraqua :inizio+2 :gradi :fino
end

to tarta :l
;visualizza una pseudotartaruga
setpensize [1 1]
rt 90
fd :l/2
rt 180
repeat 3 [fd :l rt 120]
fd :l/2
rt 90
setpensize [2 2]
fd 1
bk 1
pu
fd 4
pd
setfc [255 255 0]
fill
pu
bk 4
pd
setpensize [1 1]
end