1  Fleur
  2  %@GIAC:
  3  fleur(x,y):={
  4    if (abs(x-y)<0.5) {
  5      print(segment(x,y));
  6      print(cercle(y,(y-x)*0.3)); 
  7      return 0;
  8    }
  9    print(segment(x,y));
 10    print(cercle(y,(y-x)*0.3));
 11    print(cercle(y,(y-x)*0.2));
 12    fleur(x,x+(y-x)*0.5*exp(i*0.5));
 13    fleur(x,x+(y-x)*0.5*exp(-i*0.5));
 14  };
 15  fleur(0,2*i);
 16  %@STYLE:
 17  global: grille=0 e=0.6 unite=2cm c=LimeGreen
 18  %@EOF: