Monaca

I primi quattro livelli di frammentazione.
La costruzione della monaca
Zumata infinita dell'occhio di dio di una monaca Un occhio di dio per tre monache
Procedura ricorsiva per generare una serie di segmenti  con lunghezze decrescenti in modo che  il segmento precedente sia  il doppio di quello seguente.

Il parametro :x è la lunghezza del primo segmento.
Al parametro :s possono essere assegnati due soli valori, 1 per destra e -1 per sinistra. Quando s è -1 si ha
left -120 equivalente a right 120.

  

to segmonaca :x :s
if :x<.1 [stop]
forward :x left 120*:s
segmonaca :x/2 -:s
end

 

 
Salva la posizione della tartaruga nelle variabili memp e memh to ricordapostarta
make "memp pos
make "memh heading
end
Rimette la tartaruga nella posizione memorizzata dalle variabili memp e memh to rimettipostarta
penup
setpos :memp
setheading :memh
pendown
end
Procedura per ottenere la monaca usando le precedenti

 

 to monaca :x :s
ricordapostarta
segmonaca :x :s
rimettipostarta
left 60*:s forward :x right 60*:s
segmonaca :x/2 -:s
rimettipostarta
end

 
Nota: Per il logo italiano pos,setpos sono pos,aspos; heading e setheading corrispondono a direzione e asdir;
penup e pendown sono  sulapenna e pennagiu; foward,back sono avanti e indietro; left e right sono sinistra e destra; if è se; make è as; to è per ;end è fine