Fichier sapins.mp (figure 1) — Modifié le 1 Juillet 2011 à 07 h 05

sapins.mp (figure 1)
Source
  1  Sapin
  2  %@GIAC:
  3  //Voici des sapins....sapin(0,2*i)
  4  sapin(x,y):={
  5    if (abs(x-y)<0.5) {print(segment(x,y)); return 0;}
  6    sapin(x,x+(y-x)*0.5*exp(i));
  7    sapin(x,x+(y-x)*0.5*exp(-i));
  8    segment(x,(3*x+y)/4);
  9    sapin((3*x+y)/4,y);
 10  };
 11  sapin(0,2*i);
 12  %@STYLE:
 13  global: grille=0 e=0.6 unite=2cm c=(0.1,0.7,0.1)