prologues:=2; input geometriesyr16 %etape1 %1 u:=0.5cm; figure(0,0,22u,21u); trace grille(0.5) withcolor orange; origine((11,11)); pair A,A',B,C,D,D',E,E',F,G,H,I,O; path cc[]; O=pp(0,0); A=pp(2,0); A'=symetrie(A,O); cc1=cercles(A,4u); cc2=cercles(A',4u); B=cc1 intersectionpoint cc2; C=symetrie(B,A,A'); cc3=cercles(B,4u); cc4=cercles(C,4u); D=symetrie(cc3 intersectionpoint cc1,A,B); D'=symetrie(D,O,B); E=cc4 intersectionpoint cc1; E'=symetrie(E,O,B); F=cc3 intersectionpoint droite(O,B); G=symetrie(F,B); H=cc4 intersectionpoint droite(O,C); I=symetrie(H,C); cc5=cercles(D,F); cc6=cercles(D',G); cc7=cercles(A,9.5u); cc8=cercles(A',9.5u); marque_p:="plein"; pointe(A,A'); drawoptions(withcolor violet); trace cc1; trace cc2; drawoptions(); fin; %2 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(A,A',B,C); trace cc1; trace cc2; drawoptions(withcolor violet); trace cc3; trace cc4; drawoptions(); fin; %3 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(A,A',B,C,D,D'); trace cc1; trace cc2; trace cc3; trace cc4; drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc5;trace cc6;trace cc7;trace cc8; drawoptions(); fin; %4 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(A,A',B,C,D,D'); trace cc1; trace cc2; trace cc3; trace cc4; drawoptions(withcolor violet); trace cc5 cutbefore (subpath(0.2*length cc7,length cc7/4) of cc7) cutafter segment(F,F); drawoptions(dashed evenly withcolor gris); trace cc6;trace cc7;trace cc8; drawoptions(); fin; %5 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(A,A',B,C,D,D'); trace cc1; trace cc2; trace cc3; trace cc4; trace cc5 cutbefore (subpath(0.2*length cc7,length cc7/4) of cc7) cutafter segment(F,F); drawoptions(withcolor violet); trace symetrie(cc5 cutbefore (subpath(0.2*length cc7,length cc7/4) of cc7) cutafter segment(F,F),O,B); drawoptions(dashed evenly withcolor gris); trace cc7;trace cc8; drawoptions(); fin; %6 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(A,A',B,C,D,D'); trace cc1; trace cc2; trace cc3; trace cc4; trace cc5 cutbefore (subpath(0.2*length cc7,length cc7/4) of cc7) cutafter segment(F,F); trace symetrie(cc5 cutbefore (subpath(0.2*length cc7,length cc7/4) of cc7) cutafter segment(F,F),O,B); drawoptions(withcolor violet); trace cc7 cutbefore (subpath(0.2*length cc5,length cc5/4) of cc5) cutafter (subpath(0,length cc8/4) of cc8); drawoptions(dashed evenly withcolor gris); trace cc8; drawoptions(); fin; %7 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(A,A',B,C,D,D'); trace cc1; trace cc2; trace cc3; trace cc4; trace cc5 cutbefore (subpath(0.2*length cc7,length cc7/4) of cc7) cutafter segment(F,F); trace symetrie(cc5 cutbefore (subpath(0.2*length cc7,length cc7/4) of cc7) cutafter segment(F,F),O,B); trace cc7 cutbefore (subpath(0.2*length cc5,length cc5/4) of cc5) cutafter (subpath(0,length cc8/4) of cc8); drawoptions(withcolor violet); trace symetrie(cc7 cutbefore (subpath(0.2*length cc5,length cc5/4) of cc5) cutafter (subpath(0,length cc8/4) of cc8),O,B); drawoptions(dashed evenly withcolor gris); drawoptions(); picture etape[]; etape1=image( trace cc1; trace cc2; trace cc3; trace cc4; trace cc5 cutbefore (subpath(0.2*length cc7,length cc7/4) of cc7) cutafter segment(F,F); trace symetrie(cc5 cutbefore (subpath(0.2*length cc7,length cc7/4) of cc7) cutafter segment(F,F),O,B); trace cc7 cutbefore (subpath(0.2*length cc5,length cc5/4) of cc5) cutafter (subpath(0,length cc8/4) of cc8); trace symetrie(cc7 cutbefore (subpath(0.2*length cc5,length cc5/4) of cc5) cutafter (subpath(0,length cc8/4) of cc8),O,B); ); fin; %etape2 %8 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; origine((11,11)); pair K,K',L,L'; K=pp(5.5,4.5); K'=pp(-5.5,4.5); L=pp(5.5,4); L'=pp(-5.5,4); cc9=cercles(K,2.5u); cc10=cercles(K',2.5u); pointe(K,K'); trace etape1; drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc9;trace cc10; drawoptions(); fin; %9 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(K,K'); trace etape1; drawoptions(withcolor violet); trace cc9 cutafter (subpath(0,length cc3/4) of cc3); trace cc9 cutbefore (subpath(0,length cc1/8) of cc1); trace symetrie(cc9 cutafter (subpath(0,length cc3/4) of cc3),O,B); trace symetrie(cc9 cutbefore (subpath(0,length cc1/8) of cc1),O,B); drawoptions(dashed evenly withcolor gris); drawoptions(); fin; %10 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; cc11=cercles(L,2u);cc12=cercles(L',2u); pointe(L,L'); trace etape1; trace cc9 cutafter (subpath(0,length cc3/4) of cc3); trace cc9 cutbefore (subpath(0,length cc1/8) of cc1); trace symetrie(cc9 cutafter (subpath(0,length cc3/4) of cc3),O,B); trace symetrie(cc9 cutbefore (subpath(0,length cc1/8) of cc1),O,B); drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc11;trace cc12; drawoptions(); fin; %11 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(L,L'); trace etape1; trace cc9 cutafter (subpath(0,length cc3/4) of cc3); trace cc9 cutbefore (subpath(0,length cc1/8) of cc1); trace symetrie(cc9 cutafter (subpath(0,length cc3/4) of cc3),O,B); trace symetrie(cc9 cutbefore (subpath(0,length cc1/8) of cc1),O,B); drawoptions(withcolor violet); trace cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2);trace symetrie(cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2),O,B); drawoptions(dashed evenly withcolor gris); drawoptions(); fin; %12 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(K,K',D,D',O); cc13=cercles(K,3.5u);cc14=cercles(K',3.5u);cc15=cercles(D,O);cc16=cercles(D',O); trace etape1; trace cc9 cutafter (subpath(0,length cc3/4) of cc3); trace cc9 cutbefore (subpath(0,length cc1/8) of cc1); trace symetrie(cc9 cutafter (subpath(0,length cc3/4) of cc3),O,B); trace symetrie(cc9 cutbefore (subpath(0,length cc1/8) of cc1),O,B); trace cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2);trace symetrie(cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2),O,B); drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc13;trace cc14;trace cc15;trace cc16; drawoptions(); fin; %13 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(K,K',D,D',O); trace etape1; trace cc9 cutafter (subpath(0,length cc3/4) of cc3); trace cc9 cutbefore (subpath(0,length cc1/8) of cc1); trace symetrie(cc9 cutafter (subpath(0,length cc3/4) of cc3),O,B); trace symetrie(cc9 cutbefore (subpath(0,length cc1/8) of cc1),O,B); trace cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2);trace symetrie(cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2),O,B); drawoptions(withcolor violet); trace cc14 cutbefore cc3 cutafter demidroite(D',K'); trace symetrie(cc14 cutbefore cc3 cutafter demidroite(D',K'),O,B); drawoptions(dashed evenly withcolor gris); trace cc15;trace cc16; drawoptions(); fin; %14 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(K,K',D,D',O); trace etape1; trace symetrie(cc7 cutbefore (subpath(0.2*length cc5,length cc5/4) of cc5) cutafter (subpath(0,length cc8/4) of cc8),O,B); trace cc9 cutafter (subpath(0,length cc3/4) of cc3); trace cc9 cutbefore (subpath(0,length cc1/8) of cc1); trace symetrie(cc9 cutafter (subpath(0,length cc3/4) of cc3),O,B); trace symetrie(cc9 cutbefore (subpath(0,length cc1/8) of cc1),O,B); trace cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2);trace symetrie(cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2),O,B); trace cc14 cutbefore cc3 cutafter demidroite(D',K'); trace symetrie(cc14 cutbefore cc3 cutafter demidroite(D',K'),O,B); drawoptions(withcolor violet); trace cc16 cutbefore cc3 cutafter demidroite(D',K'); trace symetrie(cc16 cutbefore cc3 cutafter demidroite(D',K'),O,B); drawoptions(dashed evenly withcolor gris); drawoptions(); fin; %15 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; cc17=cercles(D,4u);cc18=cercles(D',4u); pointe(D,D'); trace etape1; trace symetrie(cc7 cutbefore (subpath(0.2*length cc5,length cc5/4) of cc5) cutafter (subpath(0,length cc8/4) of cc8),O,B); trace cc9 cutafter (subpath(0,length cc3/4) of cc3); trace cc9 cutbefore (subpath(0,length cc1/8) of cc1); trace symetrie(cc9 cutafter (subpath(0,length cc3/4) of cc3),O,B); trace symetrie(cc9 cutbefore (subpath(0,length cc1/8) of cc1),O,B); trace cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2);trace symetrie(cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2),O,B); trace cc14 cutbefore cc3 cutafter demidroite(D',K'); trace symetrie(cc14 cutbefore cc3 cutafter demidroite(D',K'),O,B); trace cc16 cutbefore cc3 cutafter demidroite(D',K'); trace symetrie(cc16 cutbefore cc3 cutafter demidroite(D',K'),O,B); drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc17;trace cc18; drawoptions(); fin; %16 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(D,D'); trace etape1; trace cc9 cutafter (subpath(0,length cc3/4) of cc3); trace cc9 cutbefore (subpath(0,length cc1/8) of cc1); trace symetrie(cc9 cutafter (subpath(0,length cc3/4) of cc3),O,B); trace symetrie(cc9 cutbefore (subpath(0,length cc1/8) of cc1),O,B); trace cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2);trace symetrie(cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2),O,B); trace cc14 cutbefore cc3 cutafter demidroite(D',K'); trace symetrie(cc14 cutbefore cc3 cutafter demidroite(D',K'),O,B); trace cc16 cutbefore cc3 cutafter demidroite(D',K'); trace symetrie(cc16 cutbefore cc3 cutafter demidroite(D',K'),O,B); drawoptions(withcolor violet); trace cc18 cutbefore cc14 cutafter (subpath(length cc10/4,3*length cc10/8) of cc10); trace symetrie(cc18 cutbefore cc14 cutafter (subpath(length cc10/4,3*length cc10/8) of cc10),O,B); drawoptions(dashed evenly withcolor gris); drawoptions(); etape2=image( trace etape1; %oreilles trace cc9 cutafter (subpath(0,length cc3/4) of cc3); trace cc9 cutbefore (subpath(0,length cc1/8) of cc1); trace symetrie(cc9 cutafter (subpath(0,length cc3/4) of cc3),O,B); trace symetrie(cc9 cutbefore (subpath(0,length cc1/8) of cc1),O,B); trace cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2);trace symetrie(cc12 cutbefore cc3 cutafter (subpath(3*length cc2/8,length cc2/2) of cc2),O,B); %crinière trace cc14 cutbefore cc3 cutafter demidroite(D',K'); trace symetrie(cc14 cutbefore cc3 cutafter demidroite(D',K'),O,B); trace cc16 cutbefore cc3 cutafter demidroite(D',K'); trace symetrie(cc16 cutbefore cc3 cutafter demidroite(D',K'),O,B); trace cc18 cutbefore cc14 cutafter (subpath(length cc10/4,3*length cc10/8) of cc10); trace symetrie(cc18 cutbefore cc14 cutafter (subpath(length cc10/4,3*length cc10/8) of cc10),O,B); ); fin; %etape3 %17 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; origine((11,11)); pair J,J',M,R; J=pp(1.5,-3);J'=pp(-1.5,-3);M=pp(0,-1.5);R=pp(0,-2.5); pointe(M,J,J',R,K,H); cc19=cercles(M,K);cc20=cercles(J,8u);cc21=cercles(J',8u);cc22=cercles(R,7.3u);cc23=cercles(H,7.3u); trace etape2; drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); trace cc19;trace cc20;trace cc21;trace cc22;trace cc23; drawoptions(); fin; %18 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(M,J,J',R,K,H); trace etape2; drawoptions(withcolor violet); trace cc20 cutbefore (subpath(3*length cc2/8,5*length cc2/8) of cc2) cutafter droite(O,B); trace symetrie(cc20 cutbefore (subpath(3*length cc2/8,5*length cc2/8) of cc2) cutafter droite(O,B),O,B); drawoptions(dashed evenly withcolor gris); trace cc19;trace cc22;trace cc23; drawoptions(); fin; %19 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(M,J,J',R,K,H); trace etape2; %joues trace cc20 cutbefore (subpath(3*length cc2/8,5*length cc2/8) of cc2) cutafter droite(O,B); trace symetrie(cc20 cutbefore (subpath(3*length cc2/8,5*length cc2/8) of cc2) cutafter droite(O,B),O,B); drawoptions(withcolor violet); trace cc22 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter cc20; trace symetrie(cc22 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter cc20,O,B); drawoptions(dashed evenly withcolor gris); trace cc19;trace cc23; drawoptions(); fin; %20 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(M,J,J',R,K,H); trace etape2; %joues trace cc20 cutbefore (subpath(3*length cc2/8,5*length cc2/8) of cc2) cutafter droite(O,B); trace symetrie(cc20 cutbefore (subpath(3*length cc2/8,5*length cc2/8) of cc2) cutafter droite(O,B),O,B); trace cc22 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter cc20; trace symetrie(cc22 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter cc20,O,B); drawoptions(withcolor violet); trace cc19 cutbefore (subpath(length cc10/2,3*length cc10/4) of cc10) cutafter cc20; trace symetrie(cc19 cutbefore (subpath(length cc10/2,3*length cc10/4) of cc10) cutafter cc20,O,B); drawoptions(dashed evenly withcolor gris); trace cc23; drawoptions(); fin; %21 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(M,J,J',R,K,H); trace etape2; %joues trace cc20 cutbefore (subpath(3*length cc2/8,5*length cc2/8) of cc2) cutafter droite(O,B); trace symetrie(cc20 cutbefore (subpath(3*length cc2/8,5*length cc2/8) of cc2) cutafter droite(O,B),O,B); trace cc22 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter cc20; trace symetrie(cc22 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter cc20,O,B); trace cc19 cutbefore (subpath(length cc10/2,3*length cc10/4) of cc10) cutafter cc20; trace symetrie(cc19 cutbefore (subpath(length cc10/2,3*length cc10/4) of cc10) cutafter cc20,O,B); drawoptions(withcolor violet); trace cc23 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter (subpath(length cc22/4,3*length cc22/4) of cc22); trace symetrie(cc23 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter (subpath(length cc22/4,3*length cc22/4) of cc22),O,B); drawoptions(dashed evenly withcolor gris); drawoptions(); etape3=image( trace etape2; %joues trace cc20 cutbefore (subpath(3*length cc2/8,5*length cc2/8) of cc2) cutafter droite(O,B); trace symetrie(cc20 cutbefore (subpath(3*length cc2/8,5*length cc2/8) of cc2) cutafter droite(O,B),O,B); trace cc22 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter cc20; trace symetrie(cc22 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter cc20,O,B); trace cc19 cutbefore (subpath(length cc10/2,3*length cc10/4) of cc10) cutafter cc20; trace symetrie(cc19 cutbefore (subpath(length cc10/2,3*length cc10/4) of cc10) cutafter cc20,O,B); trace cc23 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter (subpath(length cc22/4,3*length cc22/4) of cc22); trace symetrie(cc23 cutbefore (subpath(2*length cc10/4,3*length cc10/4) of cc10) cutafter (subpath(length cc22/4,3*length cc22/4) of cc22),O,B); ); fin; %etape4 %22 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; origine((11,11)); pair N,N',P,Q,S,S'; N=pp(3,-0.5); N'=pp(-3,-0.5); P=pp(0,5); Q=pp(0,4); S=pp(2,3); S'=pp(-2,3); pointe(N,N',P,Q,S,S'); cc24=cercles(N,4u);cc25=cercles(N',4u); cc26=cercles(Q,abs(S-K)); cc28=cercles(P,4u); cc30=cercles(S,0.9u); cc31=cercles(S',0.9u); cc32=cercles(S,0.4u); cc33=cercles(S',0.4u); cc34=cercles(S,0.2u); cc35=cercles(S',0.2u); trace etape3; drawoptions(withcolor violet); trace cc34;trace cc35; drawoptions(dashed evenly withcolor gris); trace cc24;trace cc25;trace cc26;trace cc28; for k=30 upto 33: trace cc[k]; endfor; drawoptions(); fin; %23 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(N,N',P,Q,S,S'); trace etape3; %yeux trace cc34;trace cc35; drawoptions(withcolor violet); trace cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25); trace symetrie(cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25),O,B); drawoptions(dashed evenly withcolor gris); trace cc24;trace cc25;trace cc26;trace cc28; for k=32 upto 33: trace cc[k]; endfor; drawoptions(); fin; %24 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(N,N',P,Q,S,S'); trace etape3; %yeux trace cc34;trace cc35; trace cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25); trace symetrie(cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25),O,B); drawoptions(withcolor violet); trace cc33 cutafter (subpath(length cc25/8,0.2*length cc25) of cc25); trace cc33 cutbefore(subpath(0.2*length cc25,length cc25/4) of cc25); trace symetrie(cc33 cutafter (subpath(length cc25/8,0.2*length cc25) of cc25),O,B); trace symetrie(cc33 cutbefore(subpath(0.2*length cc25,length cc25/4) of cc25),O,B); drawoptions(dashed evenly withcolor gris); trace cc24;trace cc25;trace cc26;trace cc28; drawoptions(); fin; %25 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(N,N',P,Q,S,S'); trace etape3; %yeux trace cc34;trace cc35; trace cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25); trace symetrie(cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25),O,B); trace cc33 cutafter (subpath(length cc25/8,0.2*length cc25) of cc25); trace cc33 cutbefore(subpath(0.2*length cc25,length cc25/4) of cc25); trace symetrie(cc33 cutafter (subpath(length cc25/8,0.2*length cc25) of cc25),O,B); trace symetrie(cc33 cutbefore(subpath(0.2*length cc25,length cc25/4) of cc25),O,B); drawoptions(withcolor violet); trace cc25 cutbefore cc1 cutafter cc3; trace symetrie(cc25 cutbefore cc1 cutafter cc3,O,B); drawoptions(dashed evenly withcolor gris); trace cc26;trace cc28; drawoptions(); fin; %26 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(N,N',P,Q,S,S'); trace etape3; %yeux trace cc34;trace cc35; trace cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25); trace symetrie(cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25),O,B); trace cc33 cutafter (subpath(length cc25/8,0.2*length cc25) of cc25); trace cc33 cutbefore(subpath(0.2*length cc25,length cc25/4) of cc25); trace symetrie(cc33 cutafter (subpath(length cc25/8,0.2*length cc25) of cc25),O,B); trace symetrie(cc33 cutbefore(subpath(0.2*length cc25,length cc25/4) of cc25),O,B); trace cc25 cutbefore cc1 cutafter cc3; trace symetrie(cc25 cutbefore cc1 cutafter cc3,O,B); drawoptions(withcolor violet); trace cc26 cutbefore cc25 cutafter (subpath(length cc1/4,length cc1/2) of cc1); trace symetrie(cc26 cutbefore cc25 cutafter (subpath(length cc1/4,length cc1/2) of cc1),O,B); drawoptions(dashed evenly withcolor gris); trace cc28; drawoptions(); fin; %27 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; pointe(N,N',P,Q,S,S'); trace etape3; %yeux trace cc34;trace cc35; trace cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25); trace symetrie(cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25),O,B); trace cc33 cutafter (subpath(length cc25/8,0.2*length cc25) of cc25); trace cc33 cutbefore(subpath(0.2*length cc25,length cc25/4) of cc25); trace symetrie(cc33 cutafter (subpath(length cc25/8,0.2*length cc25) of cc25),O,B); trace symetrie(cc33 cutbefore(subpath(0.2*length cc25,length cc25/4) of cc25),O,B); trace cc25 cutbefore cc1 cutafter cc3; trace symetrie(cc25 cutbefore cc1 cutafter cc3,O,B); trace cc26 cutbefore cc25 cutafter (subpath(length cc1/4,length cc1/2) of cc1); trace symetrie(cc26 cutbefore cc25 cutafter (subpath(length cc1/4,length cc1/2) of cc1),O,B); drawoptions(withcolor violet); trace cc28 cutbefore cc25 cutafter (subpath(length cc1/4,length cc1/2) of cc1); trace symetrie(cc28 cutbefore cc25 cutafter (subpath(length cc1/4,length cc1/2) of cc1),O,B); drawoptions(dashed evenly withcolor gris); drawoptions(); etape4=image( trace etape3; %yeux trace cc34;trace cc35; trace cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25); trace symetrie(cc31 cutbefore (subpath(0.22*length cc25,length cc25/4) of cc25),O,B); trace cc33 cutafter (subpath(length cc25/8,0.2*length cc25) of cc25); trace cc33 cutbefore(subpath(0.2*length cc25,length cc25/4) of cc25); trace symetrie(cc33 cutafter (subpath(length cc25/8,0.2*length cc25) of cc25),O,B); trace symetrie(cc33 cutbefore(subpath(0.2*length cc25,length cc25/4) of cc25),O,B); trace cc25 cutbefore cc1 cutafter cc3; trace symetrie(cc25 cutbefore cc1 cutafter cc3,O,B); trace cc26 cutbefore cc25 cutafter (subpath(length cc1/4,length cc1/2) of cc1); trace symetrie(cc26 cutbefore cc25 cutafter (subpath(length cc1/4,length cc1/2) of cc1),O,B); trace cc28 cutbefore cc25 cutafter (subpath(length cc1/4,length cc1/2) of cc1); trace symetrie(cc28 cutbefore cc25 cutafter (subpath(length cc1/4,length cc1/2) of cc1),O,B); ); fin; %etape5 %28 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; origine((11,11)); pair T,U,U',V,V',W,W'; T=pp(0,-9.5); U=pp(1,-9.5); U'=symetrie(U,O,B); V=pp(2,-9.5); V'=symetrie(V,O,B); W=pp(1.5,0); W'=symetrie(W,O,B); cc36=cercles(T,7.5u); cc37=cercles(U,8u); cc38=cercles(V,8.5u); cc39=cercles(U',8u); cc40=cercles(V',8.5u); cc41=cercles(W,E); cc42=cercles(W',E'); pointe(T,U,U',V,V',W,W'); trace etape4; drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); for k=36 upto 42: trace cc[k]; endfor; drawoptions(); fin; %29 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; origine((11,11)); pointe(T,U,U',V,V',W,W'); trace etape4; drawoptions(withcolor violet); trace cc36 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace (subpath(0,length cc36/2) of cc36) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); drawoptions(dashed evenly withcolor gris); for k=37 upto 42: trace cc[k]; endfor; drawoptions(); fin; %30 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; origine((11,11)); pointe(T,U,U',V,V',W,W'); trace etape4; %moustaches et bouche trace cc36 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace (subpath(0,length cc36/2) of cc36) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); drawoptions(withcolor violet); trace cc37 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace cc38 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); drawoptions(dashed evenly withcolor gris); for k=39 upto 42: trace cc[k]; endfor; drawoptions(); fin; %31 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; origine((11,11)); pointe(T,U,U',V,V',W,W'); trace etape4; %moustaches et bouche trace cc36 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace (subpath(0,length cc36/2) of cc36) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); trace cc37 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace cc38 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); drawoptions(withcolor violet); trace (subpath(0,length cc39/2) of cc39) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); trace (subpath(0,length cc40/2) of cc40) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); drawoptions(dashed evenly withcolor gris); for k=41 upto 42: trace cc[k]; endfor; drawoptions(); fin; %32 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; origine((11,11)); pointe(T,U,U',V,V',W,W'); trace etape4; %moustaches et bouche trace cc36 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace (subpath(0,length cc36/2) of cc36) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); trace cc37 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace cc38 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace (subpath(0,length cc39/2) of cc39) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); trace (subpath(0,length cc40/2) of cc40) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); drawoptions(withcolor violet); trace cc42 cutbefore segment(E',E') cutafter droite(O,B); trace symetrie(cc42 cutbefore segment(E',E') cutafter droite(O,B),O,B); drawoptions(dashed evenly withcolor gris); drawoptions(); fin; %33 figure(0,0,22u,21u); trace grille(0.5) withcolor orange; origine((11,11)); trace etape4; %moustaches et bouche trace cc36 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace (subpath(0,length cc36/2) of cc36) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); trace cc37 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace cc38 cutafter demidroite(pp(2.5,-11),pp(2.5,1)); trace (subpath(0,length cc39/2) of cc39) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); trace (subpath(0,length cc40/2) of cc40) cutbefore demidroite(pp(-2.5,-11),pp(-2.5,1)); trace cc42 cutbefore segment(E',E') cutafter droite(O,B); trace symetrie(cc42 cutbefore segment(E',E') cutafter droite(O,B),O,B); drawoptions(withcolor violet); drawoptions(dashed evenly withcolor gris); drawoptions(); etape5=currentpicture; fin; %34 for k=1 upto 5: figure(0,0,22u,21u); trace etape5; fin; endfor; end