@options;

@figure;
  A1 = point( -4 , 6.5 )  { i };
  B1 = point( 6 , -2.79 )  { i };
  ceA1B1 = cercle( A1 , B1 )  { i };
  ceB1A1 = cercle( B1 , A1 )  { i };
  C12 = intersection( ceA1B1 , ceB1A1 , 1 )  { i };
  C1 = intersection( ceA1B1 , ceB1A1 , 2 )  { i };
  x = reel( 0.11 , 0 , 1 , 0.01 )  { noir , anime , (4.71,-5.97) , i };
  for i = 1 to 10 do;
  A[i+1]=pointsur(A[i],B[i],x){i};
  B[i+1]=pointsur(B[i],C[i],x){i};
  C[i+1]=pointsur(C[i],A[i],x){i};
  p[i+1]=polygone(A[i+1],B[i+1],C[i+1]){rouge,plein20};
  end;


@config;
boutons=animation