fleur(x,y):={ DispG(); if (abs(x-y)<0.5) {segment(x,y);cercle(y,(y-x)*0.3); return 0;} segment(x,y);cercle(y,(y-x)*0.3);cercle(y,(y-x)*0.2); fleur(x,x+(y-x)*0.5*exp(i*0.5)); fleur(x,x+(y-x)*0.5*exp(-i*0.5)); }