Fichier flocon01.mp (figure 1) — Modifié le 1 Juillet 2011 à 01 h 23

flocon01.mp (figure 1)
Source
  1  Flocon de von Koch (1)
  2  %@GIAC:
  3  flocon(A,B):={
  4      if (longueur2(A,B)<0.01) {print(segment(A,B));return 0;}
  5      flocon(A,A+(B-A)/3);
  6      flocon(A+(B-A)/3,A+(B-A)/3*(1+exp(i*pi/3)));
  7      flocon(A+(B-A)/3*(1+exp(i*pi/3)),A+2*(B-A)/3);
  8      flocon(A+2*(B-A)/3,B);
  9  };
 10  flocon(-1.0,1.0);
 11  %@STYLE:
 12  global: grille=0 unite=3cm c=(0.8,0.6,0.2)