Una flor y sus pétalos. Un ejercicio de programación en WinLogo (Logo)

; --------------------------------------
; Una flor, amb els seus pètals --------
;     © Joan Aranes Clua, 1999 
;---------------------------------------


procediment flor :n :color
id
repeteix :n [petal :color gd 360 / :n]
fi

procediment petal :color
repeteix 2 [repeteix 90 [av 1 gd 1] gd 90]
no.llapis gd 45 av 50 llapis fes.color :color pinta
no.llapis centre ge 45 llapis
fes.color 1
fi

flor 15 10 ;demo