Retour

Source : singe.mp

Animation flash


singe.mp
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