prologues:=2; input geometriesyr16 %1 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; origine((13,22)); 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',J',K',L',M',N',O',P',inter[]; path cc[]; A=pp(0,0); C=pp(0,1.5); D=pp(-3,4); E=symetrie(D,A,C); F=pp(-9,2.5); G=symetrie(F,A,C); H=pp(-8.5,5); I=symetrie(H,A,C); J=pp(-7.5,8); K=symetrie(J,A,C); L=pp(-3.5,7.5); M=symetrie(L,A,C); N=pp(0,-7.5); O=pp(0,-8.5); P=pp(10,3); Q=symetrie(P,A,C); R=pp(-2,-7); S=symetrie(R,A,C); T=pp(3.5,-11); U=symetrie(T,A,C); V=pp(-1.5,-5); W=symetrie(V,A,C); X=pp(-1,-4.5); Y=symetrie(X,A,C); Z=pp(-3.5,-13); A'=symetrie(Z,A,C); B'=pp(-8.5,-20); C'=symetrie(B',A,C); D'=pp(1.5,-13.5); E'=symetrie(D',A,C); F'=pp(6,-15); G'=symetrie(F',A,C); H'=pp(2.5,-12.5); I'=symetrie(H',A,C); J'=pp(-0.5,-1.5); K'=symetrie(J',A,C); L'=pp(0,-1.75); M'=pp(8,-2.5); N'=symetrie(M',A,C); O'=pp(-4,-4.75); P'=symetrie(O',A,C); cc1=cercles(A,2.75u); cc2=cercles(A,5.5u); cc3=cercles(C,3.5u); cc8=cercles(H,2.25u); inter1=cc3 intersectionpoint cc8; cc4=cercles(D,inter1); cc5=cercles(E,symetrie(inter1,A,C)); cc6=cercles(F,2u); cc7=cercles(G,2u); cc9=cercles(I,2.25u); cc10=cercles(J,1.25u); cc11=cercles(K,1.25u); cc12=cercles(L,2.25u); cc13=cercles(M,2.25u); cc14=cercles(N,2u); cc15=cercles(O,2u); cc16=cercles(P,5u); cc17=cercles(Q,5u); cc18=cercles(R,3u); cc19=cercles(S,3u); cc20=cercles(T,4.25u); cc21=cercles(U,4.25u); cc22=cercles(V,2.5u); cc23=cercles(W,2.5u); cc24=cercles(X,1.75u); cc25=cercles(Y,1.75u); cc26=cercles(Z,0.75u); cc27=cercles(A',0.75u); cc28=cercles(B',4u); cc29=cercles(C',4u); cc30=cercles(D',2u); cc31=cercles(E',2u); cc32=cercles(F',1.8u); cc33=cercles(G',1.8u); cc34=cercles(H',0.6u); cc35=cercles(I',0.6u); cc36=cercles(J',u); cc37=cercles(K',u); cc38=cercles(L',1.25u); inter2=symetrie(cc36 intersectionpoint cc38,J',L'); cc39=cercles(M',inter2); cc40=cercles(N',symetrie(inter2,A,C)); marque_p:="plein"; pointe(A,C,D,E,F,G,H,I,J,K,L,M,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;trace cc12;trace cc13; drawoptions(); fin; %2 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); drawoptions(withcolor violet); trace cc11 cutbefore cc13 cutafter cc13; 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 cc12;trace cc13; drawoptions(); fin; %3 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); trace cc11 cutbefore cc13 cutafter cc13; drawoptions(withcolor violet); trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9;trace cc12;trace cc13; drawoptions(); fin; %4 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); trace cc11 cutbefore cc13 cutafter cc13; trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); drawoptions(withcolor violet); trace cc12 cutbefore cc10 cutafter cc6; drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9;trace cc13; drawoptions(); fin; %5 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); trace cc11 cutbefore cc13 cutafter cc13; trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); trace cc12 cutbefore cc10 cutafter cc6; drawoptions(withcolor violet); trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9; drawoptions(); fin; %6 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); trace cc11 cutbefore cc13 cutafter cc13; trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); trace cc12 cutbefore cc10 cutafter cc6; trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C); drawoptions(withcolor violet); trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9; drawoptions(); fin; %7 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); trace cc11 cutbefore cc13 cutafter cc13; trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); trace cc12 cutbefore cc10 cutafter cc6; trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C); trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10); drawoptions(withcolor violet); trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc9; drawoptions(); fin; %8 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); trace cc11 cutbefore cc13 cutafter cc13; trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); trace cc12 cutbefore cc10 cutafter cc6; trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C); trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10); trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C); drawoptions(withcolor violet); trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc4;trace cc5;trace cc6;trace cc7; drawoptions(); fin; %9 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); trace cc11 cutbefore cc13 cutafter cc13; trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); trace cc12 cutbefore cc10 cutafter cc6; trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C); trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10); trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C); trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1); drawoptions(withcolor violet); trace cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc5;trace cc6;trace cc7; drawoptions(); fin; %10 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); trace cc11 cutbefore cc13 cutafter cc13; trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); trace cc12 cutbefore cc10 cutafter cc6; trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C); trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10); trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C); trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1); trace cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6); drawoptions(withcolor violet); trace symetrie(cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6),A,C); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc6;trace cc7; drawoptions(); fin; %11 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); trace cc11 cutbefore cc13 cutafter cc13; trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); trace cc12 cutbefore cc10 cutafter cc6; trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C); trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10); trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C); trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1); trace cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6); trace symetrie(cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6),A,C); drawoptions(withcolor violet); trace cc7 cutbefore cc3 cutafter cc1; drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc6; drawoptions(); fin; %12 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1); trace cc11 cutbefore cc13 cutafter cc13; trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); trace cc12 cutbefore cc10 cutafter cc6; trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C); trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10); trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C); trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1); trace cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6); trace symetrie(cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6),A,C); trace cc7 cutbefore cc3 cutafter cc1; drawoptions(withcolor violet); trace symetrie(cc7 cutbefore cc3 cutafter cc1,A,C); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2; drawoptions(); picture etape[]; etape1=image( trace cc11 cutbefore cc13 cutafter cc13; trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C); trace cc12 cutbefore cc10 cutafter cc6; trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C); trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10); trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C); trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1); trace cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6); trace symetrie(cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6),A,C); trace cc7 cutbefore cc3 cutafter cc1; trace symetrie(cc7 cutbefore cc3 cutafter cc1,A,C); ); fin; %13 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(N,O,P,Q,R,S,T,U); trace etape1; drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc14;trace cc15;trace cc16;trace cc17;trace cc18;trace cc19;trace cc20;trace cc21; drawoptions(); fin; %14 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(N,O,P,Q,R,S,T,U); trace etape1; drawoptions(withcolor violet); trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10); trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20); trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc14;trace cc15;trace cc16;trace cc17;trace cc18;trace cc19;trace cc20;trace cc21; drawoptions(); fin; %15 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(N,O,P,Q,R,S,T,U); trace etape1; trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10); trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20); trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C); drawoptions(withcolor violet); trace cc17 cutbefore cc19; drawoptions(dashed evenly withcolor gris); trace cc1;trace cc14;trace cc15;trace cc16;trace cc18;trace cc19;trace cc20;trace cc21; drawoptions(); fin; %16 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(N,O,P,Q,R,S,T,U); trace etape1; trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10); trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20); trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C); trace cc17 cutbefore cc19; drawoptions(withcolor violet); trace symetrie(cc17 cutbefore cc19,A,C); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc14;trace cc15;trace cc18;trace cc19;trace cc20;trace cc21; drawoptions(); fin; %17 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(N,O,P,Q,R,S,T,U); trace etape1; trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10); trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20); trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C); trace cc17 cutbefore cc19; trace symetrie(cc17 cutbefore cc19,A,C); drawoptions(withcolor violet); trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14; drawoptions(dashed evenly withcolor gris); trace cc1;trace cc14;trace cc15;trace cc18;trace cc20;trace cc21; drawoptions(); fin; %18 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(N,O,P,Q,R,S,T,U); trace etape1; trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10); trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20); trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C); trace cc17 cutbefore cc19; trace symetrie(cc17 cutbefore cc19,A,C); trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14; drawoptions(withcolor violet); trace symetrie(cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14,A,C); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc14;trace cc15;trace cc20;trace cc21; drawoptions(); fin; %19 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(N,O,P,Q,R,S,T,U); trace etape1; trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10); trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20); trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C); trace cc17 cutbefore cc19; trace symetrie(cc17 cutbefore cc19,A,C); trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14; trace symetrie(cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14,A,C); drawoptions(withcolor violet); trace cc14 cutafter demidroite(R,S); trace cc14 cutbefore cc19 cutafter (subpath(0.95*length cc18,length cc18) of cc18); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc15;trace cc20;trace cc21; drawoptions(); fin; %20 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(N,O,P,Q,R,S,T,U); trace etape1; trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10); trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20); trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C); trace cc17 cutbefore cc19; trace symetrie(cc17 cutbefore cc19,A,C); trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14; trace symetrie(cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14,A,C); trace cc14 cutafter demidroite(R,S); trace cc14 cutbefore cc19 cutafter (subpath(0.95*length cc18,length cc18) of cc18); drawoptions(withcolor violet); trace cc15 cutbefore (subpath(length cc14/2,3*length cc14/4) of cc14); trace cc15 cutafter (subpath(3*length cc14/4,5*length cc14/4) of cc14); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc20;trace cc21; drawoptions(); fin; %21 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(N,O,P,Q,R,S,T,U); trace etape1; trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10); trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20); trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C); trace cc17 cutbefore cc19; trace symetrie(cc17 cutbefore cc19,A,C); trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14; trace symetrie(cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14,A,C); trace cc14 cutafter demidroite(R,S); trace cc14 cutbefore cc19 cutafter (subpath(0.95*length cc18,length cc18) of cc18); trace cc15 cutbefore (subpath(length cc14/2,3*length cc14/4) of cc14); trace cc15 cutafter (subpath(3*length cc14/4,5*length cc14/4) of cc14); drawoptions(withcolor violet); trace cc1 cutbefore (subpath(3*length cc6/4,0.95*length cc6) of cc6) cutafter cc17; trace symetrie(cc1 cutbefore (subpath(3*length cc6/4,0.95*length cc6) of cc6) cutafter cc17,A,C); drawoptions(dashed evenly withcolor gris); trace cc20;trace cc21; drawoptions(); etape2=image( trace etape1; trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10); trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20); trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C); trace cc17 cutbefore cc19; trace symetrie(cc17 cutbefore cc19,A,C); trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14; trace symetrie(cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14,A,C); trace cc14 cutafter demidroite(R,S); trace cc14 cutbefore cc19 cutafter (subpath(0.95*length cc18,length cc18) of cc18); trace cc15 cutbefore (subpath(length cc14/2,3*length cc14/4) of cc14); trace cc15 cutafter (subpath(3*length cc14/4,5*length cc14/4) of cc14); trace cc1 cutbefore (subpath(3*length cc6/4,0.95*length cc6) of cc6) cutafter cc17; trace symetrie(cc1 cutbefore (subpath(3*length cc6/4,0.95*length cc6) of cc6) cutafter cc17,A,C); ); fin; %22 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc20;trace cc21;trace cc22;trace cc23;trace cc26;trace cc27;trace cc28;trace cc29;trace cc30;trace cc31; drawoptions(); fin; %23 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; drawoptions(withcolor violet); trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; drawoptions(dashed evenly withcolor gris); trace cc21;trace cc22;trace cc23;trace cc26;trace cc27;trace cc28;trace cc29;trace cc30;trace cc31; drawoptions(); fin; %24 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; drawoptions(withcolor violet); trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C); drawoptions(dashed evenly withcolor gris); trace cc22;trace cc23;trace cc24;trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;trace cc30;trace cc31; drawoptions(); fin; %25 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C); drawoptions(withcolor violet); trace cc26 cutafter cc28; drawoptions(dashed evenly withcolor gris); trace cc22;trace cc23;trace cc27;trace cc28;trace cc29;trace cc30;trace cc31; drawoptions(); fin; %26 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C); trace cc26 cutafter cc28; drawoptions(withcolor violet); trace symetrie(cc26 cutafter cc28,A,C); drawoptions(dashed evenly withcolor gris); trace cc22;trace cc23;trace cc28;trace cc29;trace cc30;trace cc31; drawoptions(); fin; %27 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C); trace cc26 cutafter cc28; trace symetrie(cc26 cutafter cc28,A,C); drawoptions(withcolor violet); trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26); drawoptions(dashed evenly withcolor gris); trace cc22;trace cc23;trace cc24;trace cc25;trace cc29;trace cc30;trace cc31; drawoptions(); fin; %28 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C); trace cc26 cutafter cc28; trace symetrie(cc26 cutafter cc28,A,C); trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26); drawoptions(withcolor violet); trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C); drawoptions(dashed evenly withcolor gris); trace cc22;trace cc23;trace cc30;trace cc31; drawoptions(); fin; %29 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C); trace cc26 cutafter cc28; trace symetrie(cc26 cutafter cc28,A,C); trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26); trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C); drawoptions(withcolor violet); trace cc30 cutbefore cc28 cutafter cc31; drawoptions(dashed evenly withcolor gris); trace cc22;trace cc23;trace cc31; drawoptions(); fin; %30 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C); trace cc26 cutafter cc28; trace symetrie(cc26 cutafter cc28,A,C); trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26); trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C); trace cc30 cutbefore cc28 cutafter cc31; drawoptions(withcolor violet); trace symetrie(cc30 cutbefore cc28 cutafter cc31,A,C); drawoptions(dashed evenly withcolor gris); trace cc22;trace cc23; drawoptions(); fin; %31 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C); trace cc26 cutafter cc28; trace symetrie(cc26 cutafter cc28,A,C); trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26); trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C); trace cc30 cutbefore cc28 cutafter cc31; trace symetrie(cc30 cutbefore cc28 cutafter cc31,A,C); drawoptions(withcolor violet); trace cc22 cutbefore (subpath(length cc1/4,3*length cc1/4) of cc1) cutafter cc20; drawoptions(dashed evenly withcolor gris); trace cc23; drawoptions(); fin; %32 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(T,U,V,W,Z,A',B',C',D',E'); trace etape2; trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C); trace cc26 cutafter cc28; trace symetrie(cc26 cutafter cc28,A,C); trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26); trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C); trace cc30 cutbefore cc28 cutafter cc31; trace symetrie(cc30 cutbefore cc28 cutafter cc31,A,C); trace cc22 cutbefore (subpath(length cc1/4,3*length cc1/4) of cc1) cutafter cc20; drawoptions(withcolor violet); trace symetrie(cc22 cutbefore (subpath(length cc1/4,3*length cc1/4) of cc1) cutafter cc20,A,C); drawoptions(dashed evenly withcolor gris); drawoptions(); etape3=image( trace etape2; trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26; trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C); trace cc26 cutafter cc28; trace symetrie(cc26 cutafter cc28,A,C); trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26); trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C); trace cc30 cutbefore cc28 cutafter cc31; trace symetrie(cc30 cutbefore cc28 cutafter cc31,A,C); trace cc22 cutbefore (subpath(length cc1/4,3*length cc1/4) of cc1) cutafter cc20; trace symetrie(cc22 cutbefore (subpath(length cc1/4,3*length cc1/4) of cc1) cutafter cc20,A,C); ); fin; %33 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc24;trace cc25;trace cc32;trace cc33;trace cc34;trace cc35;trace cc36;trace cc37;trace cc38;trace cc39;trace cc40; drawoptions(); fin; %34 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; drawoptions(withcolor violet); trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; drawoptions(dashed evenly withcolor gris); trace cc25;trace cc32;trace cc33;trace cc34;trace cc35;trace cc36;trace cc37;trace cc38;trace cc39;trace cc40; drawoptions(); fin; %35 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; drawoptions(withcolor violet); trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); drawoptions(dashed evenly withcolor gris); trace cc32;trace cc33;trace cc34;trace cc35;trace cc36;trace cc37;trace cc38;trace cc39;trace cc40; drawoptions(); fin; %36 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); drawoptions(withcolor violet); trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17; trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C); drawoptions(dashed evenly withcolor gris); trace cc32;trace cc33;trace cc34;trace cc35;trace cc36;trace cc37;trace cc39;trace cc40; drawoptions(); fin; %37 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17; trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C); drawoptions(withcolor violet); trace cc36 cutbefore cc39 cutafter cc17; drawoptions(dashed evenly withcolor gris); trace cc32;trace cc33;trace cc34;trace cc35;trace cc37;trace cc39;trace cc40; drawoptions(); fin; %38 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17; trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C); trace cc36 cutbefore cc39 cutafter cc17; drawoptions(withcolor violet); trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C); drawoptions(dashed evenly withcolor gris); trace cc32;trace cc33;trace cc34;trace cc35;trace cc39;trace cc40; drawoptions(); fin; %39 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17; trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C); trace cc36 cutbefore cc39 cutafter cc17; trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C); drawoptions(withcolor violet); trace cc39 cutbefore demidroite(A,C) cutafter cc36; drawoptions(dashed evenly withcolor gris); trace cc32;trace cc33;trace cc34;trace cc35;trace cc40; drawoptions(); fin; %40 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17; trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C); trace cc36 cutbefore cc39 cutafter cc17; trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C); trace cc39 cutbefore demidroite(A,C) cutafter cc36; drawoptions(withcolor violet); trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C); drawoptions(dashed evenly withcolor gris); trace cc32;trace cc33;trace cc34;trace cc35; drawoptions(); fin; %41 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17; trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C); trace cc36 cutbefore cc39 cutafter cc17; trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C); trace cc39 cutbefore demidroite(A,C) cutafter cc36; trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C); drawoptions(withcolor violet); trace cc35 cutbefore cc33 cutafter cc33; drawoptions(dashed evenly withcolor gris); trace cc32;trace cc33;trace cc34; drawoptions(); fin; %42 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17; trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C); trace cc36 cutbefore cc39 cutafter cc17; trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C); trace cc39 cutbefore demidroite(A,C) cutafter cc36; trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C); trace cc35 cutbefore cc33 cutafter cc33; drawoptions(withcolor violet); trace symetrie(cc35 cutbefore cc33 cutafter cc33,A,C); drawoptions(dashed evenly withcolor gris); trace cc32;trace cc33; drawoptions(); fin; %43 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17; trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C); trace cc36 cutbefore cc39 cutafter cc17; trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C); trace cc39 cutbefore demidroite(A,C) cutafter cc36; trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C); trace cc35 cutbefore cc33 cutafter cc33; trace symetrie(cc35 cutbefore cc33 cutafter cc33,A,C); drawoptions(withcolor violet); trace cc33 cutbefore demidroite(G',E') cutafter demidroite(G',U); drawoptions(dashed evenly withcolor gris); trace cc32;trace demidroite(G',E');trace demidroite(G',U); drawoptions(); fin; %44 figure(0,0,13u,17u); trace grille(0.5) withcolor orange; pointe(X,Y,F',G',H',I',J',K',L',M',N'); trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17; trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C); trace cc36 cutbefore cc39 cutafter cc17; trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C); trace cc39 cutbefore demidroite(A,C) cutafter cc36; trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C); trace cc35 cutbefore cc33 cutafter cc33; trace symetrie(cc35 cutbefore cc33 cutafter cc33,A,C); trace cc33 cutbefore demidroite(G',E') cutafter demidroite(G',U); drawoptions(withcolor violet); trace symetrie(cc33 cutbefore demidroite(G',E') cutafter demidroite(G',U),A,C); drawoptions(dashed evenly withcolor gris); trace demidroite(F',D');trace demidroite(F',T); drawoptions(); fin; %45 figure(0,0,13u,17u); trace grille(0.5) withcolor blanc; trace etape3; trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19; trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C); trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17; trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C); trace cc36 cutbefore cc39 cutafter cc17; trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C); trace cc39 cutbefore demidroite(A,C) cutafter cc36; trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C); trace cc35 cutbefore cc33 cutafter cc33; trace symetrie(cc35 cutbefore cc33 cutafter cc33,A,C); trace cc33 cutbefore demidroite(G',E') cutafter demidroite(G',U); trace symetrie(cc33 cutbefore demidroite(G',E') cutafter demidroite(G',U),A,C); etape4=currentpicture; remplis buildcycle(cc1,cc24,reverse(cc19),subpath(0.8*length cc17,length cc17) of cc17); remplis symetrie(buildcycle(cc1,cc24,reverse(cc19),subpath(0.8*length cc17,length cc17) of cc17),A,C); remplis cercles(O',0.15u) withcolor blanc; remplis cercles(P',0.15u) withcolor blanc; etape4:=currentpicture; fin; for k=1 upto 5: figure(0,0,13u,17u); trace etape4; fin; endfor; end