1  Triangles en spirale
  2  %@GIAC:
  3  A:=point(0);
  4  B:=point(2);
  5  C:=point(0.8+1.2*i);
  6  
  7  spirale(A,B,C,n) := {
  8    local j,k,t;
  9    print(triangle(A,B,C));
 10    k:=longueur(A,C)/longueur(A,B);
 11    t:=angle(A,B,C);
 12    for (j:=1;j<=n;j++){
 13      B:=C;
 14      C:=similitude(A,k,t,B);
 15      print(triangle(A,B,C));
 16    }
 17  };
 18  spirale(A,B,C,8);
 19  %@STYLE:
 20  global: grille=0 unite=3cm
 21  A: p=lft
 22  B: p=rt