next up previous contents index
suivant: Les fleurs monter: Pour s'amuser avec des précédent: Pour s'amuser avec des   Table des matières   Index

Les sapins

sapin(x,y):={
 DispG();
 if (abs(x-y)<0.5) {segment(x,y); return 0;}
 sapin(x,x+(y-x)*0.5*exp(i));
 sapin(x,x+(y-x)*0.5*exp(-i));
 segment(x,(3*x+y)/4);
 sapin((3*x+y)/4,y);
}
je voulais utiliser similitude mais je n'arrive pas a me debarasser des petites croix qui marque le point..meme en faisant nodisp(similitude(....))
sapinp(x,y):={
 DispG();
 if (abs(x-y)<0.2) {segment(x,y); return 0;}
 sapin(x,affixe(similitude(x,0.5,1.0,y)));
 sapin(x,affixe(similitude(x,0.5,-1.0,y)));
 segment(x,(3*x+y)/4);
 sapin((3*x+y)/4,y);
}


Documentation de giac écrite par Renée De Graeve