//script correct avec 4 couleurs;

@options;
  aimante();

@figure;
  A0 = point( -5 , 5 )  { sansnom , i };
  B0 = point( -5 , -5 )  { sansnom , i };
  sA0B0 = segment( A0 , B0 )  { grisfonce };
  r_A0 = rotation( A0 , 90 );
  r_B0 = rotation( B0 , -90 );
  C0 = image( r_B0 , A0 )  { sansnom , i };
  D0 = image( r_A0 , B0 )  { sansnom , i };
  sD0C0 = segment( D0 , C0 )  { grisfonce };
  sD0A0 = segment( D0 , A0 )  { grisfonce };
  sC0B0 = segment( C0 , B0 )  { grisfonce };
  x = reel( 1 , 1 , 6 , 1 )  { noir , anime , (4.71,-5.97) , i };
  var a = 2^(x) { 4 };
  for i = 0 to 64 do ;
  var p = ([i+1])/a ;
  varsi z[i]=[[i]<a,1,0];
  A[i+1]=µ(z[i]) pointsur(A0,B0,p) {sansnom,i};
  B[i+1]=µ(z[i])pointsur(B0,C0,p) {sansnom,i};
  C[i+1]=µ(z[i])pointsur(C0,D0,p){sansnom,i} ;
  D[i+1]=µ(z[i])pointsur(D0,A0,p) {sansnom,i};
  s[i+1]=µ(z[i])segment(A[i],B[i+1]);
  t[i+1]=segment(B[i],C[i+1]){rouge};
  u[i+1]=segment(C[i],D[i+1]){vert};
  v[i+1]=segment(D[i],A[i+1]){violet};
  end ;


@config;
boutons=animation