Source : crocorond.mp

prologues:=2;
input geometriesyr16
%1
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
origine((15,13));
pair A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,inter[];
path cc[];
A=pp(0,0);
B=pp(-6,1);
C=pp(-1,-5);
E=pp(-7,6);
F=pp(5,3);
G=pp(-1.5,3);
H=pp(-1,9);
I=pp(-1,7.5);
J=pp(-0.5,11);
K=pp(3.5,8.5);
L=pp(5,11);
M=pp(7.5,21);
N=pp(11,19);%11,19
O=pp(12.5,17);%12.5,17
P=pp(7,10);
Q=pp(12.5,9.5);
R=pp(13,11.5);
S=pp(5.5,13);%6,12.5
cc1=cercles(A,2.75u);
cc3=cercles(C,5u);
cc4=cercles(A,7u);
cc5=cercles(E,1.5u);
inter1=cc5 intersectionpoint cc3;
inter2=symetrie(cc1 intersectionpoint cc3,A,C);
cc2=cercles(B,inter1);
cc6=cercles(F,I);
cc7=cercles(G,1.5u);
cc8=cercles(H,I);
cc9=cercles(I,inter2);
cc10=cercles(J,2.75u);
cc11=cercles(K,2.75u);
cc12=cercles(L,1.5u);
inter3=symetrie(cc12 intersectionpoint cc10,L,J);
cc13=cercles(M,inter3);
cc14=cercles(N,L);
cc15=cercles(O,2.75u);
cc16=cercles(P,1.75u);
cc17=cercles(Q,1.25u);
cc18=cercles(R,0.5u);
cc181=cercles(R,0.4u);
cc19=cercles(S,0.75u);
cc191=cercles(S,0.65u);
cc200=cercles(F,S);
marque_p:="plein";
pointe(A,B,C,E,inter1);
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;
drawoptions();
fin;
%2
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,E,inter1);
drawoptions(withcolor violet);
trace cc1;
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;trace cc4;trace cc5;
drawoptions();
fin;
%3
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,E,inter1);
trace cc1;
drawoptions(withcolor violet);
trace cc3 cutbefore (subpath(length cc1/4,length cc1/2) of cc1) cutafter (subpath(length cc4/2,3*length cc4/4) of cc4);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc4;trace cc5;
drawoptions();
fin;
%4
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,E,inter1);
trace cc1;
trace cc3 cutbefore (subpath(length cc1/4,length cc1/2) of cc1) cutafter (subpath(length cc4/2,3*length cc4/4) of cc4);
drawoptions(withcolor violet);
trace cc2 cutbefore cc1 cutafter segment(inter1,inter1);
drawoptions(dashed evenly withcolor gris);
trace cc4;trace cc5;
drawoptions();
fin;
%5
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,E,inter1);
trace cc1;
trace cc3 cutbefore (subpath(length cc1/4,length cc1/2) of cc1) cutafter (subpath(length cc4/2,3*length cc4/4) of cc4);
trace cc2 cutbefore cc1 cutafter segment(inter1,inter1);
drawoptions(withcolor violet);
trace cc5 cutafter (subpath(length cc2/4,length cc2/2) of cc2);
trace cc5 cutbefore segment(symetrie(inter1,E,C),symetrie(inter1,E,C));
drawoptions(dashed evenly withcolor gris);
trace cc4;
drawoptions();
picture etape[];
etape1=image(
  trace cc1;
  trace cc3 cutbefore (subpath(length cc1/4,length cc1/2) of cc1) cutafter (subpath(length cc4/2,3*length cc4/4) of cc4);
  trace cc2 cutbefore cc1 cutafter segment(inter1,inter1);
  trace cc5 cutafter (subpath(length cc2/4,length cc2/2) of cc2);
  trace cc5 cutbefore segment(symetrie(inter1,E,C),symetrie(inter1,E,C));
  );
fin;
%6
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(F,G,H,I,inter2);
trace etape1;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc4;trace cc6;trace cc7;trace cc8;trace cc9;
drawoptions();
fin;
%7
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(F,G,H,I,inter2);
trace etape1;
drawoptions(withcolor violet);
trace cc6 cutbefore cc8 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
drawoptions(dashed evenly withcolor gris);
trace cc4;trace cc7;trace cc8;trace cc9;
drawoptions();
fin;
%8
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(F,G,H,I,inter2);
trace etape1;
trace cc6 cutbefore cc8 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
drawoptions(withcolor violet);
trace cc7 cutbefore cc1 cutafter cc9;
drawoptions(dashed evenly withcolor gris);
trace cc4;trace cc8;trace cc9;
drawoptions();
fin;
%9
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(F,G,H,I,inter2);
trace etape1;
trace cc6 cutbefore cc8 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
trace cc7 cutbefore cc1 cutafter cc9;
drawoptions(withcolor violet);
trace cc8 cutafter demidroite(iso(I,H),H);
trace cc8 cutbefore cc6;
drawoptions(dashed evenly withcolor gris);
trace cc4;trace cc9;
drawoptions();
fin;
%10
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(F,G,H,I,inter2);
trace etape1;
trace cc6 cutbefore cc8 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
trace cc7 cutbefore cc1 cutafter cc9;
trace cc8 cutafter demidroite(iso(I,H),H);
trace cc8 cutbefore cc6;
drawoptions(withcolor violet);
trace cc9 cutbefore demidroite(iso(I,H),H) cutafter segment(inter2,inter2);
drawoptions(dashed evenly withcolor gris);
trace cc4;
drawoptions();
etape2=image(
  trace etape1;
  trace cc6 cutbefore cc8 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
  trace cc7 cutbefore cc1 cutafter cc9;
  trace cc8 cutafter demidroite(iso(I,H),H);
  trace cc8 cutbefore cc6;
  trace cc9 cutbefore demidroite(iso(I,H),H) cutafter segment(inter2,inter2);
  );
fin;
%11
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(J,K,L);
trace etape2;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc4;trace cc10;trace cc11;trace cc12;
drawoptions();
fin;
%12
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(J,K,L);
trace etape2;
drawoptions(withcolor violet);
trace cc4 cutbefore (subpath(length cc11/4,length cc11/2) of cc11) cutafter (subpath(length cc3/2,3*length cc3/4) of cc3);
drawoptions(dashed evenly withcolor gris);
trace cc10;trace cc11;trace cc12;
drawoptions();
fin;
%13
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(J,K,L);
trace etape2;
trace cc4 cutbefore (subpath(length cc11/4,length cc11/2) of cc11) cutafter (subpath(length cc3/2,3*length cc3/4) of cc3);
drawoptions(withcolor violet);
trace cc10 cutbefore (subpath(0,length cc7/4) of cc7) cutafter cc12;
drawoptions(dashed evenly withcolor gris);
trace cc11;trace cc12;
drawoptions();
fin;
%14
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(J,K,L);
trace etape2;
trace cc4 cutbefore (subpath(length cc11/4,length cc11/2) of cc11) cutafter (subpath(length cc3/2,3*length cc3/4) of cc3);
trace cc10 cutbefore (subpath(0,length cc7/4) of cc7) cutafter cc12;
drawoptions(withcolor violet);
trace cc11 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc4;
drawoptions(dashed evenly withcolor gris);
trace cc12;
drawoptions();
fin;
%15
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(J,K,L);
trace etape2;
trace cc4 cutbefore (subpath(length cc11/4,length cc11/2) of cc11) cutafter (subpath(length cc3/2,3*length cc3/4) of cc3);
trace cc10 cutbefore (subpath(0,length cc7/4) of cc7) cutafter cc12;
trace cc11 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc4;
drawoptions(withcolor violet);
trace cc12 cutbefore (subpath(length cc11/8, length cc11/4) of cc11) cutafter cc10;
drawoptions(dashed evenly withcolor gris);
drawoptions();
etape3=image(
trace etape2;
trace cc4 cutbefore (subpath(length cc11/4,length cc11/2) of cc11) cutafter (subpath(length cc3/2,3*length cc3/4) of cc3);
trace cc10 cutbefore (subpath(0,length cc7/4) of cc7) cutafter cc12;
trace cc11 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc4;
trace cc12 cutbefore (subpath(length cc11/8, length cc11/4) of cc11) cutafter cc10;
  );
fin;
%16
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(M,N,Q,inter3);
trace etape3;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc13;trace cc14;trace cc17;
drawoptions();
fin;
%17
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(M,N,Q,inter3);
trace etape3;
drawoptions(withcolor violet);
trace cc13 cutbefore segment(inter3,inter3) cutafter (subpath(3*length cc14/4,0.85*length cc14) of cc14);
drawoptions(dashed evenly withcolor gris);
trace cc14;trace cc17;
drawoptions();
fin;
%18
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(M,N,Q,inter3);
trace etape3;
trace cc13 cutbefore segment(inter3,inter3) cutafter (subpath(3*length cc14/4,0.85*length cc14) of cc14);
drawoptions(withcolor violet);
trace cc14 cutbefore cc12 cutafter cc17;
drawoptions(dashed evenly withcolor gris);
trace cc17;
drawoptions();
etape4=image(
  trace etape3;
  trace cc13 cutbefore segment(inter3,inter3) cutafter (subpath(3*length cc14/4,0.85*length cc14) of cc14);
  trace cc14 cutbefore cc12 cutafter cc17;
  );
fin;
%19
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(O,P,R,S);
trace etape4;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc17;trace cc15;trace cc16;trace cc18;trace cc181;trace cc19;trace cc191;
drawoptions();
fin;
%20
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(O,P,R,S);
trace etape4;
drawoptions(withcolor violet);
trace cc17 cutbefore cc14 cutafter (subpath(3*length cc18/4,length cc18) of cc18);
drawoptions(dashed evenly withcolor gris);
trace cc15;trace cc16;trace cc18;trace cc181;trace cc19;trace cc191;
drawoptions();
fin;
%21
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(O,P,R,S);
trace etape4;
trace cc17 cutbefore cc14 cutafter (subpath(3*length cc18/4,length cc18) of cc18);
drawoptions(withcolor violet);
trace cc18;trace cc181;
drawoptions(dashed evenly withcolor gris);
trace cc15;trace cc16;trace cc19;trace cc191;
drawoptions();
fin;
%22
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(O,P,R,S);
trace etape4;
trace cc17 cutbefore cc14 cutafter (subpath(3*length cc18/4,length cc18) of cc18);
trace cc18;trace cc181;
drawoptions(withcolor violet);
trace cc19;trace cc191;
drawoptions(dashed evenly withcolor gris);
trace cc15;trace cc16;
drawoptions();
fin;
%23
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(O,P,R,S);
trace etape4;
trace cc17 cutbefore cc14 cutafter (subpath(3*length cc18/4,length cc18) of cc18);
trace cc18;trace cc181;
trace cc19;trace cc191;
drawoptions(withcolor violet);
trace cc15 cutbefore (subpath(0.15*length cc16,length cc16/4) of cc16) cutafter (subpath(length cc18/4,3*length cc18/4) of cc18);
drawoptions(dashed evenly withcolor gris);
trace cc16;
drawoptions();
fin;
%24
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(O,P,R,S);
trace etape4;
trace cc17 cutbefore cc14 cutafter (subpath(3*length cc18/4,length cc18) of cc18);
trace cc18;trace cc181;
trace cc19;trace cc191;
trace cc15 cutbefore (subpath(0.15*length cc16,length cc16/4) of cc16) cutafter (subpath(length cc18/4,3*length cc18/4) of cc18);
drawoptions(withcolor violet);
trace cc16 cutbefore (subpath(length cc15/2,0.65*length cc15) of cc15) cutafter (subpath(0,length cc19/4) of cc19);
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%25
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(A);
trace etape4;
trace cc17 cutbefore cc14 cutafter (subpath(3*length cc18/4,length cc18) of cc18);
trace cc18;trace cc181;
trace cc19;trace cc191;
trace cc15 cutbefore (subpath(0.15*length cc16,length cc16/4) of cc16) cutafter (subpath(length cc18/4,3*length cc18/4) of cc18);
trace cc16 cutbefore (subpath(length cc15/2,0.65*length cc15) of cc15) cutafter (subpath(0,length cc19/4) of cc19);
drawoptions(withcolor violet);
 
drawoptions(dashed evenly withcolor gris);
trace cc200;
drawoptions();
fin;
%26
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor orange;
pointe(A);
trace etape4;
trace cc17 cutbefore cc14 cutafter (subpath(3*length cc18/4,length cc18) of cc18);
trace cc18;trace cc181;
trace cc19;trace cc191;
trace cc15 cutbefore (subpath(0.15*length cc16,length cc16/4) of cc16) cutafter (subpath(length cc18/4,3*length cc18/4) of cc18);
trace cc16 cutbefore (subpath(length cc15/2,0.65*length cc15) of cc15) cutafter (subpath(0,length cc19/4) of cc19);
drawoptions(withcolor violet);
trace cc200 cutbefore cc191 cutafter cc191;
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%27
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor blanc;
trace etape4;
trace cc17 cutbefore cc14 cutafter (subpath(3*length cc18/4,length cc18) of cc18);
trace cc18;trace cc181;
trace cc19;trace cc191;
trace cc15 cutbefore (subpath(0.15*length cc16,length cc16/4) of cc16) cutafter (subpath(length cc18/4,3*length cc18/4) of cc18);
trace cc16 cutbefore (subpath(length cc15/2,0.65*length cc15) of cc15) cutafter (subpath(0,length cc19/4) of cc19);
trace cc200 cutbefore cc191 cutafter cc191;
etape5=currentpicture;
fin;
for k=1 upto 5:
  figure(0,0,16u,17.5u);
  trace etape5;
  fin;
endfor;
end