Retour

Source : tigre.mp

Animation flash

tigre.mp
prologues:=2;
input geometriesyr16
%1
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
origine((19,18));
pair O,A,B,C,D;
O=pp(0,0);
A=pp(-6.5,0);
B=symetrie(A,O);
C=pp(0,7);
D=symetrie(C,O);
path cc[];
cc1=cercles(A,5u);
cc2=cercles(B,5u);
cc3=cercles(C,5u);
cc4=cercles(D,5u);
marque_p:="plein";
pointe(A,B,C,D);
drawoptions(withcolor violet);
trace cc1;trace cc2;
drawoptions(dashed evenly withcolor gris);
trace cc3;trace cc4;
drawoptions();
fin;
%2
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D);
trace cc1;trace cc2;
drawoptions(withcolor violet);
trace cc3 cutafter (subpath(length cc4/4,length cc4/2) of cc4);
trace cc3 cutbefore (subpath(0,length cc4/4) of cc4);
drawoptions(dashed evenly withcolor gris);
trace cc4;
drawoptions();
fin;
%3
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,D);
trace cc1;trace cc2;
trace cc3 cutafter (subpath(length cc4/4,length cc4/2) of cc4);
trace cc3 cutbefore (subpath(0,length cc4/4) of cc4);
drawoptions(withcolor violet);
trace cc4 cutbefore cc2;
trace cc4 cutafter (subpath(0,length cc1/4) of cc1);
drawoptions(dashed evenly withcolor gris);
drawoptions();
picture etape[];
etape1=image(
trace cc1;trace cc2;
trace cc3 cutafter (subpath(length cc4/4,length cc4/2) of cc4);
trace cc3 cutbefore (subpath(0,length cc4/4) of cc4);
trace cc4 cutbefore cc2;
trace cc4 cutafter (subpath(0,length cc1/4) of cc1);
  );
fin;
%4
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
origine((19,18));
pair E,F;
E=pp(3.5,-0.5);
F=symetrie(E,C,D);
cc5=cercles(E,6.75u);
cc6=cercles(F,6.75u);
pointe(E,F);
trace etape1;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc5;trace cc6;
drawoptions();
fin;
%5
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(E,F);
trace etape1;
drawoptions(withcolor violet);
trace cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4);
drawoptions(dashed evenly withcolor gris);
trace cc5;
drawoptions();
fin;
%6
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(E,F);
trace etape1;
trace cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4);
drawoptions(withcolor violet);
trace symetrie(cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4),C,D);
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%7
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
origine((19,18));
pair G,H;
G=pp(-11,12);
H=symetrie(G,C,D);
cc7=cercles(G,3.5u);
cc8=cercles(H,3.5u);
pointe(G,H);
trace etape1;
trace cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4);
trace symetrie(cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4),C,D);
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc7;trace cc8;
drawoptions();
fin;
%8
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(G,H);
trace etape1;
trace cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4);
trace symetrie(cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4),C,D);
drawoptions(withcolor violet);
trace cc7 cutbefore cc3 cutafter cc6;
drawoptions(dashed evenly withcolor gris);
trace cc8;
drawoptions();
fin;
%9
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(G,H);
trace etape1;
trace cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4);
trace symetrie(cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4),C,D);
trace cc7 cutbefore cc3 cutafter cc6;
drawoptions(withcolor violet);
trace symetrie(cc7 cutbefore cc3 cutafter cc6,C,D);
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%10
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
origine((19,18));
pair I,J;
I=pp(-12.5,12);
J=symetrie(I,C,D);
cc9=cercles(I,3.25u);
cc10=cercles(J,3.25u);
pointe(I,J);
trace etape1;
trace cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4);
trace symetrie(cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4),C,D);
trace cc7 cutbefore cc3 cutafter cc6;
trace symetrie(cc7 cutbefore cc3 cutafter cc6,C,D);
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc9;trace cc10;
drawoptions();
fin;
%11
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(I,J);
trace etape1;
trace cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4);
trace symetrie(cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4),C,D);
trace cc7 cutbefore cc3 cutafter cc6;
trace symetrie(cc7 cutbefore cc3 cutafter cc6,C,D);
drawoptions(withcolor violet);
trace cc9 cutbefore cc3 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
drawoptions(dashed evenly withcolor gris);
trace cc10;
drawoptions();
fin;
%12
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(I,J);
trace etape1;
trace cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4);
trace symetrie(cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4),C,D);
trace cc7 cutbefore cc3 cutafter cc6;
trace symetrie(cc7 cutbefore cc3 cutafter cc6,C,D);
trace cc9 cutbefore cc3 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
drawoptions(withcolor violet);
trace symetrie(cc9 cutbefore cc3 cutafter (subpath(length cc7/4,length cc7/2) of cc7),C,D);
drawoptions(dashed evenly withcolor gris);
drawoptions();
etape2=image(
  trace etape1;
  trace cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4);
  trace symetrie(cc6 cutbefore (subpath(0,length cc3/2) of cc3) cutafter (subpath(length cc4/2,length cc4) of cc4),C,D);
  trace cc7 cutbefore cc3 cutafter cc6;
  trace symetrie(cc7 cutbefore cc3 cutafter cc6,C,D);
  trace cc9 cutbefore cc3 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
  trace symetrie(cc9 cutbefore cc3 cutafter (subpath(length cc7/4,length cc7/2) of cc7),C,D);
  );
fin;
%13
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
origine((19,18));
pair L,T,K,M,N,U,V;
L=pp(0,15);
T=pp(0,14);
K=pp(0,11);
M=pp(-6,1);
N=symetrie(M,C,D);
U=pp(-4,7);
V=symetrie(U,C,D);
cc11=cercles(K,cc2 intersectionpoint cc4);
cc12=cercles(L,5u);
cc13=cercles(M,3.75u);
cc14=cercles(N,3.75u);
cc19=cercles(T,symetrie(cc13 intersectionpoint cc12,M,L));
cc20=cercles(U,u);
cc21=cercles(V,u);
cc22=cercles(U,0.5u);
cc23=cercles(V,0.5u);
pointe(L,T,K,M,N,U,V,symetrie(cc13 intersectionpoint cc12,M,L));
trace etape2;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
for k=11 upto 14:
  trace cc[k];
endfor;
for k=19 upto 23:
  trace cc[k];
endfor;
drawoptions();
fin;
%14
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(L,T,K,M,N,U,V,symetrie(cc13 intersectionpoint cc12,M,L));
trace etape2;
drawoptions(withcolor violet);
trace cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
drawoptions(dashed evenly withcolor gris);
for k=12 upto 14:
  trace cc[k];
endfor;
for k=19 upto 23:
  trace cc[k];
endfor;
drawoptions();
fin;
%15
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(L,T,K,M,N,U,V,symetrie(cc13 intersectionpoint cc12,M,L));
trace etape2;
trace cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
drawoptions(withcolor violet);
trace cc13 cutbefore cc2 cutafter cc11;
drawoptions(dashed evenly withcolor gris);
trace cc12;trace cc14;
for k=19 upto 23:
  trace cc[k];
endfor;
drawoptions();
fin;
%16
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(L,T,K,M,N,U,V,symetrie(cc13 intersectionpoint cc12,M,L));
trace etape2;
trace cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc13 cutbefore cc2 cutafter cc11;
drawoptions(withcolor violet);
trace symetrie(cc13 cutbefore cc2 cutafter cc11,C,D);
drawoptions(dashed evenly withcolor gris);
trace cc12;
for k=19 upto 23:
  trace cc[k];
endfor;
drawoptions();
fin;
%17
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(L,T,K,M,N,U,V,symetrie(cc13 intersectionpoint cc12,M,L));
trace etape2;
trace cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc13 cutbefore cc2 cutafter cc11;
trace symetrie(cc13 cutbefore cc2 cutafter cc11,C,D);
drawoptions(withcolor violet);
trace cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
drawoptions(dashed evenly withcolor gris);
for k=19 upto 23:
  trace cc[k];
endfor;
drawoptions();
fin;
%18
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(L,T,K,M,N,U,V,symetrie(cc13 intersectionpoint cc12,M,L));
trace etape2;
trace cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc13 cutbefore cc2 cutafter cc11;
trace symetrie(cc13 cutbefore cc2 cutafter cc11,C,D);
trace cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
drawoptions(withcolor violet);
trace cc19 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc19 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
drawoptions(dashed evenly withcolor gris);
for k=20 upto 23:
  trace cc[k];
endfor;
drawoptions();
fin;
%19
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(L,T,K,M,N,U,V,symetrie(cc13 intersectionpoint cc12,M,L));
trace etape2;
trace cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc13 cutbefore cc2 cutafter cc11;
trace symetrie(cc13 cutbefore cc2 cutafter cc11,C,D);
trace cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc19 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc19 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
drawoptions(withcolor violet);
trace cc22;trace cc23;
drawoptions(dashed evenly withcolor gris);
trace cc21;trace cc20;
drawoptions();
fin;
%20
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(L,T,K,M,N,U,V,symetrie(cc13 intersectionpoint cc12,M,L));
trace etape2;
trace cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc13 cutbefore cc2 cutafter cc11;
trace symetrie(cc13 cutbefore cc2 cutafter cc11,C,D);
trace cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc19 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc19 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc22;trace cc23;
drawoptions(withcolor violet);
trace cc21 cutafter (subpath(length cc14/4,0.3*length cc14) of cc14);
trace cc21 cutbefore (subpath(0.3*length cc14,length cc14/2) of cc14) cutafter cc12;
drawoptions(dashed evenly withcolor gris);
trace cc20;
drawoptions();
fin;
%21
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(L,T,K,M,N,U,V,symetrie(cc13 intersectionpoint cc12,M,L));
trace etape2;
trace cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc13 cutbefore cc2 cutafter cc11;
trace symetrie(cc13 cutbefore cc2 cutafter cc11,C,D);
trace cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc19 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc19 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc22;trace cc23;
trace cc21 cutafter (subpath(length cc14/4,0.3*length cc14) of cc14);
trace cc21 cutbefore (subpath(0.3*length cc14,length cc14/2) of cc14) cutafter cc12;
drawoptions(withcolor violet);
trace symetrie(cc21 cutafter (subpath(length cc14/4,0.3*length cc14) of cc14),C,D);
trace symetrie(cc21 cutbefore (subpath(0.3*length cc14,length cc14/2) of cc14) cutafter cc12,C,D);
drawoptions(dashed evenly withcolor gris);
drawoptions();
etape3=image(
trace etape2;
trace cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc11 cutbefore cc1 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc13 cutbefore cc2 cutafter cc11;
trace symetrie(cc13 cutbefore cc2 cutafter cc11,C,D);
trace cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc12 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc19 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2);
trace symetrie(cc19 cutbefore cc13 cutafter (subpath(length cc2/4,3*length cc2/4) of cc2),C,D);
trace cc22;trace cc23;
trace cc21 cutafter (subpath(length cc14/4,0.3*length cc14) of cc14);
trace cc21 cutbefore (subpath(0.3*length cc14,length cc14/2) of cc14) cutafter cc12;
trace symetrie(cc21 cutafter (subpath(length cc14/4,0.3*length cc14) of cc14),C,D);
trace symetrie(cc21 cutbefore (subpath(0.3*length cc14,length cc14/2) of cc14) cutafter cc12,C,D);
  );
fin;
%22
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
origine((19,18));
pair P,Q,R,S,W,X,Y,Z,ZZ;
P=pp(5,3);
Q=symetrie(P,C,D);
R=pp(5,2);
S=symetrie(R,C,D);
W=pp(0,-13);
X=pp(0,-15);
Y=pp(0,-17);
Z=pp(10,7);
ZZ=symetrie(Z,C,D);
cc15=cercles(P,Z);
cc16=cercles(Q,ZZ);
cc17=cercles(R,Z);
cc18=cercles(S,ZZ);
cc24=cercles(W,pp(-4,-8));
cc25=cercles(X,pp(-6,-7));
cc26=cercles(Y,pp(-9,-7));
pointe(P,Q,R,S,W,X,Y,Z,ZZ);
trace etape3;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc15;trace cc16;trace cc17;trace cc18;trace cc24;trace cc25;trace cc26;
drawoptions();
fin;
%23
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(P,Q,R,S,W,X,Y,Z,ZZ);
trace etape3;
drawoptions(withcolor violet);
trace cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
drawoptions(dashed evenly withcolor gris);
trace cc15;trace cc17;trace cc18;trace cc24;trace cc25;trace cc26;
drawoptions();
fin;
%24
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(P,Q,R,S,W,X,Y,Z,ZZ);
trace etape3;
trace cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
drawoptions(withcolor violet);
trace symetrie(cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
drawoptions(dashed evenly withcolor gris);
trace cc17;trace cc18;trace cc24;trace cc25;trace cc26;
drawoptions();
fin;
%25
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(P,Q,R,S,W,X,Y,Z,ZZ);
trace etape3;
trace cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
trace symetrie(cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
drawoptions(withcolor violet);
trace cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
drawoptions(dashed evenly withcolor gris);
trace cc17;trace cc24;trace cc25;trace cc26;
drawoptions();
fin;
%26
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
pointe(P,Q,R,S,W,X,Y,Z,ZZ);
trace etape3;
trace cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
trace symetrie(cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
trace cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
drawoptions(withcolor violet);
trace symetrie(cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
drawoptions(dashed evenly withcolor gris);
trace cc24;trace cc25;trace cc26;
drawoptions();
fin;
%27
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
origine((19,18));
pointe(P,Q,R,S,W,X,Y,Z,ZZ);
trace etape3;
trace cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
trace symetrie(cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
trace cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
trace symetrie(cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
drawoptions(withcolor violet);
trace cc24 cutbefore demidroite(pp(-4,-9),pp(-4,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5));
trace symetrie(cc24 cutbefore demidroite(pp(-4,-9),pp(-4,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5)),C,D);
drawoptions(dashed evenly withcolor gris);
trace cc25;trace cc26;
drawoptions();
fin;
%28
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
origine((19,18));
pointe(P,Q,R,S,W,X,Y,Z,ZZ);
trace etape3;
trace cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
trace symetrie(cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
trace cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
trace symetrie(cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
trace cc24 cutbefore demidroite(pp(-4,-9),pp(-4,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5));
trace symetrie(cc24 cutbefore demidroite(pp(-4,-9),pp(-4,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5)),C,D);
drawoptions(withcolor violet);
trace cc25 cutbefore demidroite(pp(-6,-9),pp(-6,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5));
trace symetrie(cc25 cutbefore demidroite(pp(-6,-9),pp(-6,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5)),C,D);
drawoptions(dashed evenly withcolor gris);
trace cc26;
drawoptions();
fin;
%29
figure(0,0,19u,19u);
trace grille(0.5) withcolor orange;
origine((19,18));
pointe(P,Q,R,S,W,X,Y,Z,ZZ);
trace etape3;
trace cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
trace symetrie(cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
trace cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
trace symetrie(cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
trace cc24 cutbefore demidroite(pp(-4,-9),pp(-4,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5));
trace symetrie(cc24 cutbefore demidroite(pp(-4,-9),pp(-4,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5)),C,D);
trace cc25 cutbefore demidroite(pp(-6,-9),pp(-6,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5));
trace symetrie(cc25 cutbefore demidroite(pp(-6,-9),pp(-6,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5)),C,D);
drawoptions(withcolor violet);
trace cc26 cutbefore demidroite(pp(-9,-9),pp(-9,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5));
trace symetrie(cc26 cutbefore demidroite(pp(-9,-9),pp(-9,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5)),C,D);
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%30
figure(0,0,19u,19u);
trace grille(0.5) withcolor blanc;
origine((19,18));
trace etape3;
trace cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
trace symetrie(cc16 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
trace cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4);
trace symetrie(cc18 cutbefore cc3 cutafter (subpath(length cc4/4,length cc4) of cc4),C,D);
trace cc24 cutbefore demidroite(pp(-4,-9),pp(-4,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5));
trace symetrie(cc24 cutbefore demidroite(pp(-4,-9),pp(-4,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5)),C,D);
trace cc25 cutbefore demidroite(pp(-6,-9),pp(-6,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5));
trace symetrie(cc25 cutbefore demidroite(pp(-6,-9),pp(-6,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5)),C,D);
trace cc26 cutbefore demidroite(pp(-9,-9),pp(-9,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5));
trace symetrie(cc26 cutbefore demidroite(pp(-9,-9),pp(-9,0)) cutafter demidroite(X+u*(0,-0.5),X+u*(-1,-0.5)),C,D);
etape4=currentpicture;
fin;
for k=1 upto 5:
  figure(0,0,19u,19u);
  trace etape4;
  fin;
endfor;
end