XLogo

# Commande principale: demarrer pour new # set defaults, screen, pen et tortue init ftd [400 400] fcfg noir fcc vert levecrayon cachetortue fin pour spiral :angle # rose curve donne "radius 40 + 150*sin(6*:angle) retourne p2r :radius :angle fin pour p2r :radius :angle donne "x :radius * cos :angle donne "y :radius * sin :angle retourne liste :x :y fin pour demarrer new fcc jaune repetepour [angle 0 360] [ fpos spiral :angle baissecrayon] fin

A la ligne donne "Radius 40 + 150*Sin(6*:Angle), modifier le 6 en 2, 7 ou 8 par exemple. En rajoutant la primitive absolue, on voit même apparaître de petits pétales:
donne "Radius absolue 40 + 150*Sin(6*:Angle)

ou encore....
donne "Radius 40 + absolue 150*Sin(6*:Angle)

ou encore....
donne "Radius 90 * (1+Sin :Angle)

ou encore....
donne "Radius 60*(1+2*Sin :Angle)