prologues:=2; input geometriesyr16 %1 figure(0,0,16u,17.5u); trace grille(0.5) withcolor blanc; origine((16,16)); 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); 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)); ); 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); ); 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; ); 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; ); etape5=image( 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; ); remplis cc1 withcolor rouge; trace etape5; trace symetrie(etape5,A); remplis symetrie(buildcycle(cc3,cc4,demidroite(inter1,inter1+u*(-1,0))),A) withcolor blanc; trace symetrie(etape5,A); remplis buildcycle(cc3,cc4,demidroite(inter1,inter1+u*(-1,0))) withcolor blanc; trace cc3 cutbefore (subpath(length cc1/4,length cc1/2) of cc1) cutafter (subpath(length cc4/2,3*length cc4/4) of cc4); trace cc4 cutbefore (subpath(length cc11/4,length cc11/2) of cc11) cutafter (subpath(length cc3/2,3*length cc3/4) of cc3); fin; end