Source : chouette.mp

prologues:=2;
input geometriesyr16
%1
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
origine((12,17));
pair A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I',inter[];
path cc[];
A=pp(0,0);
B=pp(0,-1);
C=pp(-3,-6);
D=symetrie(C,A,B);
E=pp(-10.5,1.5);
F=symetrie(E,A,B);
G=pp(0,4);
H=pp(0,6.5);
I=pp(-2,9.5);
J=symetrie(I,A,B);
K=pp(0,8);
L=pp(3,10.5);
M=symetrie(L,A,B);
O=pp(1.5,8);
P=symetrie(O,A,B);
Q=pp(3,4);
R=symetrie(Q,A,B);
T=pp(0.5,-5.5);
U=symetrie(T,A,B);
V=pp(-0.75,-7);
W=symetrie(V,A,B);
X=pp(6.5,-8);
Y=symetrie(X,A,B);
Z=pp(0.75,-16);
A'=symetrie(Z,A,B);
B'=pp(4.5,-11.5);
C'=symetrie(B',A,B);
D'=pp(-5.5,-11);
E'=symetrie(D',A,B);
F'=pp(-3,-11.5);
G'=symetrie(F',A,B);
H'=pp(-0.5,-11);
I'=symetrie(H',A,B);
inter1=pp(4.5,11.5);
cc1=cercles(A,4.5u);
cc2=cercles(B,2.5u);
cc3=cercles(C,1.75u);
cc4=cercles(D,1.75u);
cc5=cercles(E,3.75u);
cc6=cercles(F,3.75u);
cc7=cercles(G,A);
cc8=cercles(H,inter1);
cc9=cercles(I,symetrie(inter1,A,B));
cc91=cercles(I,0.5u);
cc92=cercles(I,0.2u);
cc10=cercles(J,inter1);
cc101=cercles(J,0.5u);
cc102=cercles(J,0.2u);
cc11=cercles(K,inter1);
cc12=cercles(L,4.25u);
cc13=cercles(M,4.25u);
cc15=cercles(O,1.6u);
cc16=cercles(P,2u);
cc17=cercles(Q,G);
cc18=cercles(R,G);
cc71=cercles(G,u);
cc20=cercles(T,2u);
cc21=cercles(U,2u);
cc22=cercles(V,2u);
cc23=cercles(W,2u);
cc24=cercles(X,1.5u);
cc25=cercles(Y,1.5u);
cc26=cercles(Z,2.5u);
cc27=cercles(A',2.5u);
cc28=cercles(B',0.3u);
cc29=cercles(C',0.3u);
cc30=cercles(D',0.3u);
cc31=cercles(E',0.3u);
cc32=cercles(F',0.5u);
cc33=cercles(G',0.5u);
cc34=cercles(H',0.25u);
cc35=cercles(I',0.25u);
marque_p:="plein";
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9;trace cc10;trace cc11;
drawoptions();
fin;
%2
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
drawoptions(withcolor violet);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9;trace cc10;trace cc11;
drawoptions();
fin;
%3
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
drawoptions(withcolor violet);
trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;trace cc4;trace cc5;trace cc7;trace cc8;trace cc9;trace cc10;trace cc11;
drawoptions();
fin;
%4
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
drawoptions(withcolor violet);
trace symetrie(cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4),A,B);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;trace cc4;trace cc7;trace cc8;trace cc9;trace cc10;trace cc11;
drawoptions();
fin;
%5
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
trace symetrie(cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4),A,B);
drawoptions(withcolor violet);
trace cc3 cutbefore cc5 cutafter cc4;
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc4;trace cc7;trace cc8;trace cc9;trace cc10;trace cc11;
drawoptions();
fin;
%6
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
trace symetrie(cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4),A,B);
trace cc3 cutbefore cc5 cutafter cc4;
drawoptions(withcolor violet);
trace symetrie(cc3 cutbefore cc5 cutafter cc4,A,B);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc7;trace cc8;trace cc9;trace cc10;trace cc11;
drawoptions();
fin;
%7
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
trace symetrie(cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4),A,B);
trace cc3 cutbefore cc5 cutafter cc4;
trace symetrie(cc3 cutbefore cc5 cutafter cc4,A,B);
drawoptions(withcolor violet);
trace cc2 cutbefore cc3 cutafter cc4;
drawoptions(dashed evenly withcolor gris);
trace cc7;trace cc8;trace cc9;trace cc10;trace cc11;
drawoptions();
fin;
%8
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
trace symetrie(cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4),A,B);
trace cc3 cutbefore cc5 cutafter cc4;
trace symetrie(cc3 cutbefore cc5 cutafter cc4,A,B);
trace cc2 cutbefore cc3 cutafter cc4;
drawoptions(withcolor violet);
trace cc11 cutafter segment(inter1,inter1);
trace cc11 cutbefore segment(symetrie(inter1,A,B),symetrie(inter1,A,B)) cutafter (subpath(length cc1/4,length cc1/2) of cc1);
trace cc11 cutbefore (subpath(0,length cc1/4) of cc1);
drawoptions(dashed evenly withcolor gris);
trace cc7;trace cc8;trace cc9;trace cc10;
drawoptions();
fin;
%9
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
trace symetrie(cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4),A,B);
trace cc3 cutbefore cc5 cutafter cc4;
trace symetrie(cc3 cutbefore cc5 cutafter cc4,A,B);
trace cc2 cutbefore cc3 cutafter cc4;
trace cc11 cutafter segment(inter1,inter1);
trace cc11 cutbefore segment(symetrie(inter1,A,B),symetrie(inter1,A,B)) cutafter (subpath(length cc1/4,length cc1/2) of cc1);
trace cc11 cutbefore (subpath(0,length cc1/4) of cc1);
drawoptions(withcolor violet);
trace cc8 cutbefore (subpath(length cc10/8,length cc10/4) of cc10) cutafter cc9;
drawoptions(dashed evenly withcolor gris);
trace cc7;trace cc9;trace cc10;
drawoptions();
fin;
%10
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
trace symetrie(cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4),A,B);
trace cc3 cutbefore cc5 cutafter cc4;
trace symetrie(cc3 cutbefore cc5 cutafter cc4,A,B);
trace cc2 cutbefore cc3 cutafter cc4;
trace cc11 cutafter segment(inter1,inter1);
trace cc11 cutbefore segment(symetrie(inter1,A,B),symetrie(inter1,A,B)) cutafter (subpath(length cc1/4,length cc1/2) of cc1);
trace cc11 cutbefore (subpath(0,length cc1/4) of cc1);
trace cc8 cutbefore (subpath(length cc10/8,length cc10/4) of cc10) cutafter cc9;
drawoptions(withcolor violet);
trace cc7 cutbefore (subpath(3*length cc5/4,length cc5) of cc5) cutafter cc6;
drawoptions(dashed evenly withcolor gris);
trace cc9;trace cc10;
drawoptions();
fin;
%11
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
trace symetrie(cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4),A,B);
trace cc3 cutbefore cc5 cutafter cc4;
trace symetrie(cc3 cutbefore cc5 cutafter cc4,A,B);
trace cc2 cutbefore cc3 cutafter cc4;
trace cc11 cutafter segment(inter1,inter1);
trace cc11 cutbefore segment(symetrie(inter1,A,B),symetrie(inter1,A,B)) cutafter (subpath(length cc1/4,length cc1/2) of cc1);
trace cc11 cutbefore (subpath(0,length cc1/4) of cc1);
trace cc8 cutbefore (subpath(length cc10/8,length cc10/4) of cc10) cutafter cc9;
trace cc7 cutbefore (subpath(3*length cc5/4,length cc5) of cc5) cutafter cc6;
drawoptions(withcolor violet);
trace cc9 cutbefore cc10 cutafter cc11;
drawoptions(dashed evenly withcolor gris);
trace cc10;
drawoptions();
fin;
%12
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D,E,F,G,H,I,J,K,inter1);
trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
trace symetrie(cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4),A,B);
trace cc3 cutbefore cc5 cutafter cc4;
trace symetrie(cc3 cutbefore cc5 cutafter cc4,A,B);
trace cc2 cutbefore cc3 cutafter cc4;
trace cc11 cutafter segment(inter1,inter1);
trace cc11 cutbefore segment(symetrie(inter1,A,B),symetrie(inter1,A,B)) cutafter (subpath(length cc1/4,length cc1/2) of cc1);
trace cc11 cutbefore (subpath(0,length cc1/4) of cc1);
trace cc8 cutbefore (subpath(length cc10/8,length cc10/4) of cc10) cutafter cc9;
trace cc7 cutbefore (subpath(3*length cc5/4,length cc5) of cc5) cutafter cc6;
trace cc9 cutbefore cc10 cutafter cc11;
drawoptions(withcolor violet);
trace symetrie(cc9 cutbefore cc10 cutafter cc11,A,B);
drawoptions(dashed evenly withcolor gris);
drawoptions();
picture etape[];
etape1=image(
  trace cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3);
  trace symetrie(cc1 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(length cc3/4,3*length cc3/4) of cc3),A,B);
  trace cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4);
  trace symetrie(cc6 cutbefore cc11 cutafter (subpath(length cc4/8,length cc4/4) of cc4),A,B);
  trace cc3 cutbefore cc5 cutafter cc4;
  trace symetrie(cc3 cutbefore cc5 cutafter cc4,A,B);
  trace cc2 cutbefore cc3 cutafter cc4;
  trace cc11 cutafter segment(inter1,inter1);
  trace cc11 cutbefore segment(symetrie(inter1,A,B),symetrie(inter1,A,B)) cutafter (subpath(length cc1/4,length cc1/2) of cc1);
  trace cc11 cutbefore (subpath(0,length cc1/4) of cc1);
  trace cc8 cutbefore (subpath(length cc10/8,length cc10/4) of cc10) cutafter cc9;
  trace cc7 cutbefore (subpath(3*length cc5/4,length cc5) of cc5) cutafter cc6;
  trace cc9 cutbefore cc10 cutafter cc11;
  trace symetrie(cc9 cutbefore cc10 cutafter cc11,A,B);
  );
fin;
%13
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(I,J,inter1,L,M,O,P,Q,R);
trace etape1;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc12;trace cc13;trace cc15;trace cc16;trace cc17;trace cc18;trace cc71;trace cc91;trace cc92;trace cc101;trace cc102;
drawoptions();
fin;
%14
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(I,J,inter1,L,M,O,P,Q,R);
trace etape1;
drawoptions(withcolor violet);
trace cc91;trace cc92;trace cc101;trace cc102;
drawoptions(dashed evenly withcolor gris);
trace cc12;trace cc13;trace cc15;trace cc16;trace cc17;trace cc18;trace cc71;
drawoptions();
fin;
%15
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(I,J,inter1,L,M,O,P,Q,R);
trace etape1;
trace cc91;trace cc92;trace cc101;trace cc102;
drawoptions(withcolor violet);
trace cc12 cutbefore cc11 cutafter demidroite(H,G);
drawoptions(dashed evenly withcolor gris);
trace cc13;trace cc15;trace cc16;trace cc17;trace cc18;trace cc71;
drawoptions();
fin;
%16
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(I,J,inter1,L,M,O,P,Q,R);
trace etape1;
trace cc91;trace cc92;trace cc101;trace cc102;
trace cc12 cutbefore cc11 cutafter demidroite(H,G);
drawoptions(withcolor violet);
trace symetrie(cc12 cutbefore cc11 cutafter demidroite(H,G),A,B);
drawoptions(dashed evenly withcolor gris);
trace cc15;trace cc16;trace cc17;trace cc18;trace cc71;
drawoptions();
fin;
%17
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(I,J,inter1,L,M,O,P,Q,R);
trace etape1;
trace cc91;trace cc92;trace cc101;trace cc102;
trace cc12 cutbefore cc11 cutafter demidroite(H,G);
trace symetrie(cc12 cutbefore cc11 cutafter demidroite(H,G),A,B);
drawoptions(withcolor violet);
trace cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18);
drawoptions(dashed evenly withcolor gris);
trace cc16;trace cc17;trace cc18;trace cc71;
drawoptions();
fin;
%18
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(I,J,inter1,L,M,O,P,Q,R);
trace etape1;
trace cc91;trace cc92;trace cc101;trace cc102;
trace cc12 cutbefore cc11 cutafter demidroite(H,G);
trace symetrie(cc12 cutbefore cc11 cutafter demidroite(H,G),A,B);
trace cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18);
drawoptions(withcolor violet);
trace symetrie(cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18),A,B);
drawoptions(dashed evenly withcolor gris);
trace cc17;trace cc18;trace cc71;
drawoptions();
fin;
%19
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(I,J,inter1,L,M,O,P,Q,R);
trace etape1;
trace cc91;trace cc92;trace cc101;trace cc102;
trace cc12 cutbefore cc11 cutafter demidroite(H,G);
trace symetrie(cc12 cutbefore cc11 cutafter demidroite(H,G),A,B);
trace cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18);
trace symetrie(cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18),A,B);
drawoptions(withcolor violet);
trace cc18 cutafter cc15;
drawoptions(dashed evenly withcolor gris);
trace cc17;trace cc71;
drawoptions();
fin;
%20
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(I,J,inter1,L,M,O,P,Q,R);
trace etape1;
trace cc91;trace cc92;trace cc101;trace cc102;
trace cc12 cutbefore cc11 cutafter demidroite(H,G);
trace symetrie(cc12 cutbefore cc11 cutafter demidroite(H,G),A,B);
trace cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18);
trace symetrie(cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18),A,B);
trace cc18 cutafter cc15;
drawoptions(withcolor violet);
trace symetrie(cc18 cutafter cc15,A,B);
drawoptions(dashed evenly withcolor gris);
trace cc71;
drawoptions();
fin;
%21
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(I,J,inter1,L,M,O,P,Q,R);
trace etape1;
trace cc91;trace cc92;trace cc101;trace cc102;
trace cc12 cutbefore cc11 cutafter demidroite(H,G);
trace symetrie(cc12 cutbefore cc11 cutafter demidroite(H,G),A,B);
trace cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18);
trace symetrie(cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18),A,B);
trace cc18 cutafter cc15;
trace symetrie(cc18 cutafter cc15,A,B);
drawoptions(withcolor violet);
trace cc71 cutbefore cc17 cutafter (subpath(0,length cc18/4) of cc18);
drawoptions(dashed evenly withcolor gris);
drawoptions();
etape2=image(
  trace etape1;
  trace cc91;trace cc92;trace cc101;trace cc102;
  trace cc12 cutbefore cc11 cutafter demidroite(H,G);
  trace symetrie(cc12 cutbefore cc11 cutafter demidroite(H,G),A,B);
  trace cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18);
  trace symetrie(cc15 cutbefore (subpath(3*length cc91/4,length cc91) of cc91) cutafter (subpath(length cc18/8,length cc18/4) of cc18),A,B);
  trace cc18 cutafter cc15;
  trace symetrie(cc18 cutafter cc15,A,B);
  trace cc71 cutbefore cc17 cutafter (subpath(0,length cc18/4) of cc18);
  );
fin;
%22
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc20;trace cc21;trace cc22;trace cc23;trace cc24;trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
drawoptions();
fin;
%23
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
drawoptions(withcolor violet);
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
drawoptions(dashed evenly withcolor gris);
trace cc20;trace cc21;trace cc22;trace cc23;trace cc24;trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;
drawoptions();
fin;
%24
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
drawoptions(withcolor violet);
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
drawoptions(dashed evenly withcolor gris);
trace cc21;trace cc22;trace cc23;trace cc24;trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;
drawoptions();
fin;
%25
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
drawoptions(withcolor violet);
trace symetrie(cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21,A,B);
drawoptions(dashed evenly withcolor gris);
trace cc22;trace cc23;trace cc24;trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;
drawoptions();
fin;
%26
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
trace symetrie(cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21,A,B);
drawoptions(withcolor violet);
trace cc22 cutbefore cc35 cutafter cc4;
drawoptions(dashed evenly withcolor gris);
trace cc23;trace cc24;trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;
drawoptions();
fin;
%27
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
trace symetrie(cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21,A,B);
trace cc22 cutbefore cc35 cutafter cc4;
drawoptions(withcolor violet);
trace symetrie(cc22 cutbefore cc35 cutafter cc4,A,B);
drawoptions(dashed evenly withcolor gris);
trace cc24;trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;
drawoptions();
fin;
%28
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
trace symetrie(cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21,A,B);
trace cc22 cutbefore cc35 cutafter cc4;
trace symetrie(cc22 cutbefore cc35 cutafter cc4,A,B);
drawoptions(withcolor violet);
trace cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31);
drawoptions(dashed evenly withcolor gris);
trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;
drawoptions();
fin;
%29
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
trace symetrie(cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21,A,B);
trace cc22 cutbefore cc35 cutafter cc4;
trace symetrie(cc22 cutbefore cc35 cutafter cc4,A,B);
trace cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31);
drawoptions(withcolor violet);
trace symetrie(cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31),A,B);
drawoptions(dashed evenly withcolor gris);
trace cc26;trace cc27;trace cc28;trace cc29;
drawoptions();
fin;
%30
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
trace symetrie(cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21,A,B);
trace cc22 cutbefore cc35 cutafter cc4;
trace symetrie(cc22 cutbefore cc35 cutafter cc4,A,B);
trace cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31);
trace symetrie(cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31),A,B);
drawoptions(withcolor violet);
trace cc26 cutbefore cc33 cutafter (subpath(3*length cc35/4,length cc35) of cc35);
drawoptions(dashed evenly withcolor gris);
trace cc27;trace cc28;trace cc29;
drawoptions();
fin;
%31
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
trace symetrie(cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21,A,B);
trace cc22 cutbefore cc35 cutafter cc4;
trace symetrie(cc22 cutbefore cc35 cutafter cc4,A,B);
trace cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31);
trace symetrie(cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31),A,B);
trace cc26 cutbefore cc33 cutafter (subpath(3*length cc35/4,length cc35) of cc35);
drawoptions(withcolor violet);
trace symetrie(cc26 cutbefore cc33 cutafter (subpath(3*length cc35/4,length cc35) of cc35),A,B);
drawoptions(dashed evenly withcolor gris);
trace cc28;trace cc29;
drawoptions();
fin;
%32
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
trace symetrie(cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21,A,B);
trace cc22 cutbefore cc35 cutafter cc4;
trace symetrie(cc22 cutbefore cc35 cutafter cc4,A,B);
trace cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31);
trace symetrie(cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31),A,B);
trace cc26 cutbefore cc33 cutafter (subpath(3*length cc35/4,length cc35) of cc35);
trace symetrie(cc26 cutbefore cc33 cutafter (subpath(3*length cc35/4,length cc35) of cc35),A,B);
drawoptions(withcolor violet);
trace cc28 cutbefore (subpath(length cc31/4,5*length cc31/8) of cc31) cutafter (subpath(0,length cc33/4) of cc33);
drawoptions(dashed evenly withcolor gris);
trace cc29;
drawoptions();
fin;
%33
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,X,Y,Z,A',B',C',D',E',F',G',H',I');
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
trace symetrie(cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21,A,B);
trace cc22 cutbefore cc35 cutafter cc4;
trace symetrie(cc22 cutbefore cc35 cutafter cc4,A,B);
trace cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31);
trace symetrie(cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31),A,B);
trace cc26 cutbefore cc33 cutafter (subpath(3*length cc35/4,length cc35) of cc35);
trace symetrie(cc26 cutbefore cc33 cutafter (subpath(3*length cc35/4,length cc35) of cc35),A,B);
trace cc28 cutbefore (subpath(length cc31/4,5*length cc31/8) of cc31) cutafter (subpath(0,length cc33/4) of cc33);
drawoptions(withcolor violet);
trace symetrie(cc28 cutbefore (subpath(length cc31/4,5*length cc31/8) of cc31) cutafter (subpath(0,length cc33/4) of cc33),A,B);
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%34
figure(0,0,12u,15.5u);
trace grille(0.5) withcolor blanc;
trace etape2;
trace cc30;trace cc31;trace cc32;trace cc33;trace cc34;trace cc35;
trace cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21;
trace symetrie(cc20 cutbefore (subpath(3*length cc3/4,length cc3) of cc3) cutafter cc21,A,B);
trace cc22 cutbefore cc35 cutafter cc4;
trace symetrie(cc22 cutbefore cc35 cutafter cc4,A,B);
trace cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31);
trace symetrie(cc24 cutbefore (subpath(3*length cc4/4,length cc4) of cc4) cutafter (subpath(length cc31/4,length cc31/2) of cc31),A,B);
trace cc26 cutbefore cc33 cutafter (subpath(3*length cc35/4,length cc35) of cc35);
trace symetrie(cc26 cutbefore cc33 cutafter (subpath(3*length cc35/4,length cc35) of cc35),A,B);
trace cc28 cutbefore (subpath(length cc31/4,5*length cc31/8) of cc31) cutafter (subpath(0,length cc33/4) of cc33);
trace symetrie(cc28 cutbefore (subpath(length cc31/4,5*length cc31/8) of cc31) cutafter (subpath(0,length cc33/4) of cc33),A,B);
remplis cc91;remplis cc92 withcolor blanc;
remplis cc101;remplis cc102 withcolor blanc;
etape3=currentpicture;
fin;
for k=1 upto 5:
  figure(0,0,12u,15.5u);
  trace etape3;
  fin;
endfor;
end