pianta
Questa procedura non è una primitiva fornita con MSWLogo.
Il disegno è tratto dal Mindstorms di Seymour Papert. Nel dialogo tra bambini viene usata senza parametro. Questa è la versione parametrica.
 
-Primitive nell'esempio: cs, pu, pd, fd, setsc, setactivearea, gifsave, gifload   - vedi dialogo tra bambini tratto dal Mindstorms 

to qcerchio :lunghezza
 repeat 90 [forward :lunghezza/90  right 1]
end
to petalo :misura
qcerchio :misura right 90
qcerchio :misura right 90
end
to fiorenuovo :misura
 repeat 10 [petalo :misura right 36]
end
to pianta :alta
forward :alta/2
petalo :alta
forward :alta*2
fiorenuovo :alta
back :alta*2
back :alta/2
end		 - copiate e incollate il codice sull'editor del vostro MSWLOGO
per sperimentare direttamente.