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);
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);
  );
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);
  );
etape3=image(
  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;
  );
trace etape3;
fin;
figure(0,0,12u,15.5u);
trace etape3;
fin;
end