Una flor con WinLogo (LOGO)

; ---------------------------------------------------------
; Model d'una senzilla flor 
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------

procediment flor :n :color
  id
  repeteix :n [pètal :color gd 360 / :n]
fi

procediment pètal :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 ;un exemple