@options;
  aimante();

@figure;
  A = point( 0 , 7 )  { sansnom , i };
  O = point( 0 , 0 )  { sansnom , i };
  r_O = rotation( O , 90 );
  B = image( r_O , A )  { sansnom , i };
  C = image( r_O , B )  { sansnom , i };
  D = image( r_O , C )  { sansnom , i };
  sAC = segment( A , C )  { grisfonce };
  sBD = segment( B , D )  { grisfonce };
  x = reel( 5 , 1 , 6 , 1 )  { noir , anime , (4.71,-5.97) , i };
  var a = 2^(x) { 32 };
  for i = 0 to 64 do;
  var p = [i]/a;
  var q=[i+1]/a;
  varsi z[i]=[[i]<a,1,0];
  A[i]=µ(z[i])pointsur(A,O,p) { sansnom , i};
  B[i]=µ(z[i])pointsur(O,B,q){ sansnom , i};
  C[i]=µ(z[i])pointsur(C,O,p) { sansnom , i};
  D[i]=µ(z[i])pointsur(O,D,q){ sansnom , i};
  s[i]=µ(z[i])segment(A[i],B[i]);
  t[i]=µ(z[i])segment(B[i],C[i]){rouge};
  u[i]=µ(z[i])segment(C[i],D[i]){vert};
  v[i]=µ(z[i])segment(D[i],A[i]){violet};
  end;


@config;
boutons=animation