prologues:=2; input geometriesyr16; %1 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; origine((17,25)); 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,inter[],A',B',C',D',A'',B'',C'',D''; A=pp(0,0); F=pp(0,-13); B=pp(-6,0); C=pp(6,0); D=pp(-5,-7); E=symetrie(D,A,F); H=pp(0,-18); I=pp(-10,0); J=symetrie(I,A,F); K=pp(-12,-1); L=symetrie(K,A,F); M=pp(-1,1); N=symetrie(M,A,F); O=pp(11,-3); P=symetrie(O,A,F); Q=pp(-2.5,0); R=symetrie(Q,A,F); V=pp(-4,-1); U=symetrie(V,A,F); S=pp(0,3); T=pp(0,9); X=pp(-7,-8); W=symetrie(X,A,F); A'=pp(2,-13); A''=symetrie(A',A,F); B'=pp(4,-15); B''=symetrie(B',A,F); C'=pp(1,-11); C''=symetrie(C',A,F); D'=pp(1,-10); D''=symetrie(D',A,F); inter2=pp(0,-11); inter3=pp(0,-15); inter4=pp(0,-14); path cc[]; cc1=cercles(A,5.5u); cc2=cercles(B,3.5u); cc3=cercles(C,3.5u); cc4=cercles(D,4u); cc5=cercles(E,4u); cc6=cercles(F,4.5u); cc8=cercles(H,3u); cc11=cercles(K,2u); cc12=cercles(L,2u); cc13=cercles(M,5.5u); cc14=cercles(N,5.5u); cc15=cercles(O,N); cc16=cercles(P,M); cc17=cercles(Q,B); cc18=cercles(R,C); cc22=cercles(V,2u); cc21=cercles(U,2u); cc23=cercles(W,2u); cc24=cercles(X,2u); cc19=cercles(S,u); cc20=cercles(T,S); cc50=cercles(R,0.75u); cc51=cercles(Q,0.75u); cc40=cercles(A',inter2); cc41=cercles(A'',inter2); cc42=cercles(C',inter3); cc43=cercles(C'',inter3); cc44=cercles(B',inter4); cc45=cercles(B'',inter4); cc46=cercles(D',1.25u); cc47=cercles(D'',1.25u); inter1=cc11 intersectionpoint cc2; cc9=cercles(I,inter1); cc10=cercles(J,symetrie(inter1,A,F)); marque_p:="plein"; pointe(A,B,C,D,E,F,H,K,L); drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc8;trace cc11;trace cc12;trace cc13;trace cc14; drawoptions(); fin; %2 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(A,B,C,D,E,F,H,K,L); drawoptions(withcolor violet); trace cc1 cutbefore cc3 cutafter (subpath(length cc2/4,length cc2/2) of cc2); drawoptions(dashed evenly withcolor gris); trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc8;trace cc11;trace cc12;trace cc13;trace cc14; drawoptions(); fin; %3 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(A,B,C,D,E,F,H,K,L); trace cc1 cutbefore cc3 cutafter (subpath(length cc2/4,length cc2/2) of cc2); drawoptions(withcolor violet); trace cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11); drawoptions(dashed evenly withcolor gris); trace cc3;trace cc4;trace cc5;trace cc6;trace cc8;trace cc11;trace cc12;trace cc13;trace cc14; drawoptions(); fin; %4 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(A,B,C,D,E,F,H,K,L); trace cc1 cutbefore cc3 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11); drawoptions(withcolor violet); trace symetrie(cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11),A,F); drawoptions(dashed evenly withcolor gris); trace cc4;trace cc5;trace cc6;trace cc8;trace cc11;trace cc12;trace cc13;trace cc14; drawoptions(); fin; %5 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(A,B,C,D,E,F,H,K,L); trace cc1 cutbefore cc3 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11); trace symetrie(cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11),A,F); drawoptions(withcolor violet); trace cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2); drawoptions(dashed evenly withcolor gris); trace cc4;trace cc5;trace cc6;trace cc8;trace cc12;trace cc13;trace cc14; drawoptions(); fin; %6 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(A,B,C,D,E,F,H,K,L); trace cc1 cutbefore cc3 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11); trace symetrie(cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11),A,F); trace cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2); drawoptions(withcolor violet); trace symetrie(cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2),A,F); drawoptions(dashed evenly withcolor gris); trace cc4;trace cc5;trace cc6;trace cc8;trace cc13;trace cc14; drawoptions(); fin; %7 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(A,B,C,D,E,F,H,K,L); trace cc1 cutbefore cc3 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11); trace symetrie(cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11),A,F); trace cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace symetrie(cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2),A,F); drawoptions(withcolor violet); trace cc13 cutbefore cc11 cutafter (subpath(length cc4/4,length cc4/2) of cc4); drawoptions(dashed evenly withcolor gris); trace cc4;trace cc5;trace cc6;trace cc8;trace cc14; drawoptions(); fin; %8 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(A,B,C,D,E,F,H,K,L); trace cc1 cutbefore cc3 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11); trace symetrie(cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11),A,F); trace cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace symetrie(cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2),A,F); trace cc13 cutbefore cc11 cutafter (subpath(length cc4/4,length cc4/2) of cc4); drawoptions(withcolor violet); trace symetrie(cc13 cutbefore cc11 cutafter (subpath(length cc4/4,length cc4/2) of cc4),A,F); drawoptions(dashed evenly withcolor gris); trace cc4;trace cc5;trace cc6;trace cc8; drawoptions(); fin; %9 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(A,B,C,D,E,F,H,K,L); trace cc1 cutbefore cc3 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11); trace symetrie(cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11),A,F); trace cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace symetrie(cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2),A,F); trace cc13 cutbefore cc11 cutafter (subpath(length cc4/4,length cc4/2) of cc4); trace symetrie(cc13 cutbefore cc11 cutafter (subpath(length cc4/4,length cc4/2) of cc4),A,F); drawoptions(withcolor violet); trace cc8 cutbefore cc6 cutafter cc6; drawoptions(dashed evenly withcolor gris); trace cc4;trace cc5;trace cc6; drawoptions(); picture etape[]; etape1=image( trace cc1 cutbefore cc3 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11); trace symetrie(cc2 cutbefore cc3 cutafter (subpath(length cc11/4,length cc11/2) of cc11),A,F); trace cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2); trace symetrie(cc11 cutbefore cc4 cutafter (subpath(length cc2/4,length cc2/2) of cc2),A,F); trace cc13 cutbefore cc11 cutafter (subpath(length cc4/4,length cc4/2) of cc4); trace symetrie(cc13 cutbefore cc11 cutafter (subpath(length cc4/4,length cc4/2) of cc4),A,F); trace cc8 cutbefore cc6 cutafter cc6; ); fin; %10 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(I,J,U,V,D,E,F,inter1); trace etape1; drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc4;trace cc5;trace cc6;trace cc9;trace cc10;trace cc21;trace cc22; drawoptions(); fin; %11 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(I,J,U,V,D,E,F,inter1); trace etape1; drawoptions(withcolor violet); trace cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6; drawoptions(dashed evenly withcolor gris); trace cc5;trace cc6;trace cc9;trace cc10;trace cc21;trace cc22; drawoptions(); fin; %12 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(I,J,U,V,D,E,F,inter1); trace etape1; trace cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6; drawoptions(withcolor violet); trace symetrie(cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6,A,F); drawoptions(dashed evenly withcolor gris); trace cc6;trace cc9;trace cc10;trace cc21;trace cc22; drawoptions(); fin; %13 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(I,J,U,V,D,E,F,inter1); trace etape1; trace cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6; trace symetrie(cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6,A,F); drawoptions(withcolor violet); trace cc9 cutbefore cc22 cutafter segment(inter1,inter1); drawoptions(dashed evenly withcolor gris); trace cc6;trace cc10;trace cc21;trace cc22; drawoptions(); fin; %14 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(I,J,U,V,D,E,F,inter1); trace etape1; trace cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6; trace symetrie(cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6,A,F); trace cc9 cutbefore cc22 cutafter segment(inter1,inter1); drawoptions(withcolor violet); trace symetrie(cc9 cutbefore cc22 cutafter segment(inter1,inter1),A,F); drawoptions(dashed evenly withcolor gris); trace cc6;trace cc21;trace cc22; drawoptions(); fin; %15 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,F,X,W,S); trace etape1; trace cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6; trace symetrie(cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6,A,F); trace cc9 cutbefore cc22 cutafter segment(inter1,inter1); trace symetrie(cc9 cutbefore cc22 cutafter segment(inter1,inter1),A,F); drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc6;trace cc19;trace cc21;trace cc22;trace cc23;trace cc24; drawoptions(); fin; %16 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,F,X,W,S); trace etape1; trace cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6; trace symetrie(cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6,A,F); trace cc9 cutbefore cc22 cutafter segment(inter1,inter1); trace symetrie(cc9 cutbefore cc22 cutafter segment(inter1,inter1),A,F); drawoptions(withcolor violet); trace cc6 cutbefore cc24; trace cc6 cutafter cc23; drawoptions(dashed evenly withcolor gris); trace cc19;trace cc21;trace cc22;trace cc23;trace cc24; drawoptions(); fin; %17 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,F,X,W,S); trace etape1; trace cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6; trace symetrie(cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6,A,F); trace cc9 cutbefore cc22 cutafter segment(inter1,inter1); trace symetrie(cc9 cutbefore cc22 cutafter segment(inter1,inter1),A,F); trace cc6 cutbefore cc24; trace cc6 cutafter cc23; drawoptions(withcolor violet); trace cc22 cutbefore cc19 cutafter (subpath(0.23*length cc24,0.3*length cc24) of cc24); drawoptions(dashed evenly withcolor gris); trace cc19;trace cc21;trace cc23;trace cc24; drawoptions(); fin; %18 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,F,X,W,S); trace etape1; trace cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6; trace symetrie(cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6,A,F); trace cc9 cutbefore cc22 cutafter segment(inter1,inter1); trace symetrie(cc9 cutbefore cc22 cutafter segment(inter1,inter1),A,F); trace cc6 cutbefore cc24; trace cc6 cutafter cc23; trace cc22 cutbefore cc19 cutafter (subpath(0.23*length cc24,0.3*length cc24) of cc24); drawoptions(withcolor violet); trace symetrie(cc22 cutbefore cc19 cutafter (subpath(0.23*length cc24,0.3*length cc24) of cc24),A,F); drawoptions(dashed evenly withcolor gris); trace cc19;trace cc23;trace cc24; drawoptions(); fin; %19 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,F,X,W,S); trace etape1; trace cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6; trace symetrie(cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6,A,F); trace cc9 cutbefore cc22 cutafter segment(inter1,inter1); trace symetrie(cc9 cutbefore cc22 cutafter segment(inter1,inter1),A,F); trace cc6 cutbefore cc24; trace cc6 cutafter cc23; trace cc22 cutbefore cc19 cutafter (subpath(0.23*length cc24,0.3*length cc24) of cc24); trace symetrie(cc22 cutbefore cc19 cutafter (subpath(0.23*length cc24,0.3*length cc24) of cc24),A,F); drawoptions(withcolor violet); trace cc19 cutbefore (subpath(0,length cc22/8) of cc22) cutafter (subpath(3*length cc21/8,length cc21/2) of cc21); drawoptions(dashed evenly withcolor gris); trace cc23;trace cc24; drawoptions(); etape2=image( trace etape1; trace cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6; trace symetrie(cc4 cutbefore (subpath(length cc22/4,length cc22/2) of cc22) cutafter cc6,A,F); trace cc9 cutbefore cc22 cutafter segment(inter1,inter1); trace symetrie(cc9 cutbefore cc22 cutafter segment(inter1,inter1),A,F); trace cc6 cutbefore cc24; trace cc6 cutafter cc23; trace cc22 cutbefore cc19 cutafter (subpath(0.23*length cc24,0.3*length cc24) of cc24); trace symetrie(cc22 cutbefore cc19 cutafter (subpath(0.23*length cc24,0.3*length cc24) of cc24),A,F); trace cc19 cutbefore (subpath(0,length cc22/8) of cc22) cutafter (subpath(3*length cc21/8,length cc21/2) of cc21); ); fin; %20 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,X,W,O,P,A',A'',C',C''); trace etape2; drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc23;trace cc24;trace cc40;trace cc41;trace cc42;trace cc43;trace cc15;trace cc16; drawoptions(); fin; %21 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,X,W,O,P,A',A'',C',C''); trace etape2; drawoptions(withcolor violet); trace cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40); drawoptions(dashed evenly withcolor gris); trace cc23;trace cc24;trace cc40;trace cc41;trace cc42;trace cc43;trace cc16; drawoptions(); fin; %22 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,X,W,O,P,A',A'',C',C''); trace etape2; trace cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40); drawoptions(withcolor violet); trace symetrie(cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40),A,F); drawoptions(dashed evenly withcolor gris); trace cc23;trace cc24;trace cc40;trace cc41;trace cc42;trace cc43; drawoptions(); fin; %23 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,X,W,O,P,A',A'',C',C''); trace etape2; trace cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40); trace symetrie(cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40),A,F); drawoptions(withcolor violet); trace cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43); drawoptions(dashed evenly withcolor gris); trace cc23;trace cc24;trace cc40;trace cc42;trace cc43; drawoptions(); fin; %24 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,X,W,O,P,A',A'',C',C''); trace etape2; trace cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40); trace symetrie(cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40),A,F); trace cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43); drawoptions(withcolor violet); trace symetrie(cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43),A,F); drawoptions(dashed evenly withcolor gris); trace cc23;trace cc24;trace cc42;trace cc43; drawoptions(); fin; %25 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,X,W,O,P,A',A'',C',C''); trace etape2; trace cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40); trace symetrie(cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40),A,F); trace cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43); trace symetrie(cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43),A,F); drawoptions(withcolor violet); trace cc43 cutbefore (subpath(3*length cc24/4,length cc24) of cc24) cutafter segment(F,H); drawoptions(dashed evenly withcolor gris); trace cc23;trace cc24;trace cc42; drawoptions(); fin; %26 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,X,W,O,P,A',A'',C',C''); trace etape2; trace cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40); trace symetrie(cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40),A,F); trace cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43); trace symetrie(cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43),A,F); trace cc43 cutbefore (subpath(3*length cc24/4,length cc24) of cc24) cutafter segment(F,H); drawoptions(withcolor violet); trace symetrie(cc43 cutbefore (subpath(3*length cc24/4,length cc24) of cc24) cutafter segment(F,H),A,F); drawoptions(dashed evenly withcolor gris); trace cc23;trace cc24; drawoptions(); fin; %27 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,X,W,O,P,A',A'',C',C''); trace etape2; trace cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40); trace symetrie(cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40),A,F); trace cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43); trace symetrie(cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43),A,F); trace cc43 cutbefore (subpath(3*length cc24/4,length cc24) of cc24) cutafter segment(F,H); trace symetrie(cc43 cutbefore (subpath(3*length cc24/4,length cc24) of cc24) cutafter segment(F,H),A,F); drawoptions(withcolor violet); trace cc23 cutbefore cc21 cutafter cc42; drawoptions(dashed evenly withcolor gris); trace cc24; drawoptions(); fin; %28 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(U,V,X,W,O,P,A',A'',C',C''); trace etape2; trace cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40); trace symetrie(cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40),A,F); trace cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43); trace symetrie(cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43),A,F); trace cc43 cutbefore (subpath(3*length cc24/4,length cc24) of cc24) cutafter segment(F,H); trace symetrie(cc43 cutbefore (subpath(3*length cc24/4,length cc24) of cc24) cutafter segment(F,H),A,F); trace cc23 cutbefore cc21 cutafter cc42; drawoptions(withcolor violet); trace symetrie(cc23 cutbefore cc21 cutafter cc42,A,F); drawoptions(dashed evenly withcolor gris); drawoptions(); etape3=image( trace etape2; trace cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40); trace symetrie(cc15 cutbefore cc21 cutafter (subpath(length cc40/8,length cc40/4) of cc40),A,F); trace cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43); trace symetrie(cc41 cutbefore segment(A,F) cutafter (subpath(length cc43/2,3*length cc43/4) of cc43),A,F); trace cc43 cutbefore (subpath(3*length cc24/4,length cc24) of cc24) cutafter segment(F,H); trace symetrie(cc43 cutbefore (subpath(3*length cc24/4,length cc24) of cc24) cutafter segment(F,H),A,F); trace cc23 cutbefore cc21 cutafter cc42; trace symetrie(cc23 cutbefore cc21 cutafter cc42,A,F); ); fin; %29 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(Q,R,S,T,B',B'',D',D'',inter4); trace etape3; drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc44;trace cc45;trace cc46;trace cc47;trace cc17;trace cc18;trace cc20;trace cc50;trace cc51; drawoptions(); fin; %30 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(Q,R,S,T,B',B'',D',D'',inter4); trace etape3; drawoptions(withcolor violet); trace cc50;trace cc51; drawoptions(dashed evenly withcolor gris); trace cc44;trace cc45;trace cc46;trace cc47;trace cc17;trace cc18;trace cc20; drawoptions(); fin; %31 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(Q,R,S,T,B',B'',D',D'',inter4); trace etape3; trace cc50;trace cc51; drawoptions(withcolor violet); trace cc47 cutbefore cc45 cutafter cc45; drawoptions(dashed evenly withcolor gris); trace cc44;trace cc45;trace cc46;trace cc17;trace cc18;trace cc20; drawoptions(); fin; %32 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(Q,R,S,T,B',B'',D',D'',inter4); trace etape3; trace cc50;trace cc51; trace cc47 cutbefore cc45 cutafter cc45; drawoptions(withcolor violet); trace symetrie(cc47 cutbefore cc45 cutafter cc45,A,F); drawoptions(dashed evenly withcolor gris); trace cc44;trace cc45;trace cc17;trace cc18;trace cc20; drawoptions(); fin; %33 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(Q,R,S,T,B',B'',D',D'',inter4); trace etape3; trace cc50;trace cc51; trace cc47 cutbefore cc45 cutafter cc45; trace symetrie(cc47 cutbefore cc45 cutafter cc45,A,F); drawoptions(withcolor violet); trace cc45 cutbefore segment(inter4,inter4) cutafter cc41; drawoptions(dashed evenly withcolor gris); trace cc44;trace cc17;trace cc18;trace cc20; drawoptions(); fin; %34 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(Q,R,S,T,B',B'',D',D'',inter4); trace etape3; trace cc50;trace cc51; trace cc47 cutbefore cc45 cutafter cc45; trace symetrie(cc47 cutbefore cc45 cutafter cc45,A,F); trace cc45 cutbefore segment(inter4,inter4) cutafter cc41; drawoptions(withcolor violet); trace symetrie(cc45 cutbefore segment(inter4,inter4) cutafter cc41,A,F); drawoptions(dashed evenly withcolor gris); trace cc17;trace cc18;trace cc20; drawoptions(); fin; %35 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(Q,R,S,T,B',B'',D',D'',inter4); trace etape3; trace cc50;trace cc51; trace cc47 cutbefore cc45 cutafter cc45; trace symetrie(cc47 cutbefore cc45 cutafter cc45,A,F); trace cc45 cutbefore segment(inter4,inter4) cutafter cc41; trace symetrie(cc45 cutbefore segment(inter4,inter4) cutafter cc41,A,F); drawoptions(withcolor violet); trace cc18 cutbefore cc21 cutafter cc20; drawoptions(dashed evenly withcolor gris); trace cc17;trace cc20; drawoptions(); fin; %36 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(Q,R,S,T,B',B'',D',D'',inter4); trace etape3; trace cc50;trace cc51; trace cc47 cutbefore cc45 cutafter cc45; trace symetrie(cc47 cutbefore cc45 cutafter cc45,A,F); trace cc45 cutbefore segment(inter4,inter4) cutafter cc41; trace symetrie(cc45 cutbefore segment(inter4,inter4) cutafter cc41,A,F); trace cc18 cutbefore cc21 cutafter cc20; drawoptions(withcolor violet); trace symetrie(cc18 cutbefore cc21 cutafter cc20,A,F); drawoptions(dashed evenly withcolor gris); trace cc20; drawoptions(); fin; %37 figure(0,0,17u,19u); trace grille(0.5) withcolor orange; pointe(Q,R,S,T,B',B'',D',D'',inter4); trace etape3; trace cc50;trace cc51; trace cc47 cutbefore cc45 cutafter cc45; trace symetrie(cc47 cutbefore cc45 cutafter cc45,A,F); trace cc45 cutbefore segment(inter4,inter4) cutafter cc41; trace symetrie(cc45 cutbefore segment(inter4,inter4) cutafter cc41,A,F); trace cc18 cutbefore cc21 cutafter cc20; trace symetrie(cc18 cutbefore cc21 cutafter cc20,A,F); drawoptions(withcolor violet); trace cc20 cutbefore (subpath(0,0.2*length cc17) of cc17) cutafter (subpath(0.3*length cc18,length cc18/2) of cc18); drawoptions(dashed evenly withcolor gris); drawoptions(); fin; %38 figure(0,0,17u,19u); trace grille(0.5) withcolor blanc; trace etape3; trace cc50;trace cc51; trace cc47 cutbefore cc45 cutafter cc45; trace symetrie(cc47 cutbefore cc45 cutafter cc45,A,F); trace cc45 cutbefore segment(inter4,inter4) cutafter cc41; trace symetrie(cc45 cutbefore segment(inter4,inter4) cutafter cc41,A,F); trace cc18 cutbefore cc21 cutafter cc20; trace symetrie(cc18 cutbefore cc21 cutafter cc20,A,F); trace cc20 cutbefore (subpath(0,0.2*length cc17) of cc17) cutafter (subpath(0.3*length cc18,length cc18/2) of cc18); etape4=currentpicture; fin; for k=1 upto 5: figure(0,0,17u,19u); trace etape4; fin; endfor; end