input geometriesyr16;






u:=2cm;


% 100 figures dans une boucle for

for k:=1  step -0.01 until 0  :
  figure(-100u,-100u,100u,100u)

% déclaration des objets
  
pair A,B,C,D,I[],J[],K[],L[],E,F,G,H,Ef,Gf,Hf,Ff;
path qi,qf,q[],qff;
color cl[],CL[];

% les points fixes

A:=u*(-1.82,4.18);
B:=u*(-2.34,2.72);
C:=u*(-1,2);
D:=u*(-0.3,3.72);
E:=u*(3.82,3.6);
F:=u*(6.58,2.26);
G:=u*(7,-1);
H:=u*(3.76,-0.18);
Ef:=u*(12.82,3.6);
Ff:=u*(18.58,1.26);
Gf:=u*(15,-5);
Hf:=u*(10.76,-2.18);
qi:=polygone(A,B,C,D);
qf:=polygone(E,F,G,H);
qff:=polygone(Ef,Ff,Gf,Hf);

  trace qi withcolor 0.8*blue withpen pencircle scaled 1.3bp;
  trace qff withcolor red withpen pencircle scaled 1.3bp;
  fillcolor:=orange;
  transparence qi;
  fillcolor:=bleu;
  transparence qff;

% les points mobiles définis comme barycentres 

  I[k]=k*A+(1-k)*E;
  J[k]=k*B+(1-k)*F;
  K[k]=k*C+(1-k)*G;
  L[k]=k*D+(1-k)*H;

% les couleurs "mobiles" définies comme des points 
  
  cl[k]=(1-k)*0.7white+(k)*jaune;
  CL[k]=(1-k)*0.4white+(k)*orange;

% le polygone mobile
  
  q[k]=polygone(I[k],J[k],K[k],L[k]);
  trace q[k] withcolor CL[k] withpen pencircle scaled 1.3bp;
  fillcolor:=cl[k];
  transparence q[k];
  fin;
endfor;


% un deuxième tour

for k:=1  step -0.01 until 0  :
  figure(-100u,-100u,100u,100u)

% déclaration des objets
  
pair A,B,C,D,I[],J[],K[],L[],E,F,G,H,Ai,Bi,Ci,Di;
path qi,qf,q[];
color cl[],CL[];

% les points fixes
Ai:=u*(-1.82,4.18);
Bi:=u*(-2.34,2.72);
Ci:=u*(-1,2);
Di:=u*(-0.3,3.72);
A:=u*(3.82,3.6);
B:=u*(6.58,2.26);
C:=u*(7,-1);
D:=u*(3.76,-0.18);
E:=u*(12.82,3.6);
F:=u*(18.58,1.26);
G:=u*(15,-5);
H:=u*(10.76,-2.18);
qi:=polygone(Ai,Bi,Ci,Di);
qf:=polygone(E,F,G,H);

  trace qi withcolor 0.8*blue withpen pencircle scaled 1.3bp;
  trace qf withcolor red withpen pencircle scaled 1.3bp;
  fillcolor:=orange;
  transparence qi;
  fillcolor:=bleu;
  transparence qf;

% les points mobiles définis comme barycentres 


  I[k]=k*A+(1-k)*G;
  J[k]=k*B+(1-k)*F;
  K[k]=k*C+(1-k)*E;
  L[k]=k*D+(1-k)*H;

  
% les couleurs "mobiles" définies comme des points 
  
  cl[k]=k*0.7white+(1-k)*ciel;
  CL[k]=k*0.4white+(1-k)*bleu;

% le polygone mobile
  
  q[k]=polygone(I[k],J[k],K[k],L[k]);
  trace q[k] withcolor CL[k] withpen pencircle scaled 1.3bp;
  fillcolor:=cl[k];
  transparence q[k];
  fin;
endfor;


end