![](editorsup.gif)
to qcerchio :lunghezza
repeat 90 [forward
:lunghezza/90
right 1]
end
to sposta :distanza
penup
right 90
forward :distanza
left 90
pendown
end
to petalo
repeat 2 [qcerchio 50
right 90]
end
to fiorenuovo
repeat 10 [petalo
right 36]
end
to pianta
fiorenuovo
back 100 petalo
back 25
forward 125
end |
![](qpiante.gif)
primitive:
to,
end, left,
right, repeat,
forward,
back,
penup,
pendown,cs,
ct
|