1  Flocon de von Koch (2)
  2  %@GIAC:
  3  flocong(A,B,a,n):={
  4      local h,t;
  5      if (n==0) {print(segment(A,B));return 0;}
  6      t:=acos((0.5-a)/a);
  7      h:=(B-A)*a;
  8      flocong(A,A+h,a,n-1);
  9      flocong(A+h,A+h*(1+exp(i*t)),a,n-1);
 10      flocong(A+h*(1+exp(i*t)),B-h,a,n-1);
 11      flocong(B-h,B,a,n-1);
 12  };
 13  flocong(-2.0,2.0,0.45,4);
 14  %@STYLE:
 15  global: grille=0 unite=3cm c=(0.4,0.6,0.9)