Retour

Source : serpent.mp

Animation flash


serpent.mp
prologues:=2;
input geometriesyr16
%1
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
origine((18,24));
pair A,B,C,D,E,F,F',P,N,P',N',L,U,V,J,Z,Z',H,M,M',G,K;
A=pp(0,0);
B=pp(17,-17);
C=pp(-17,-17);
D=pp(-9,0);
E=pp(9,0);
F=pp(0,6);
F'=pp(0,-6);
P=pp(-3,4);
N=symetrie(P,F,F');
P'=symetrie(P,F);
N'=symetrie(N,F);
L=pp(0,-9);
U=pp(-5,5);
V=symetrie(U,F,F');
J=pp(0,-2);
Z=pp(9,-5);
Z'=symetrie(Z,F,F');
H=pp(0,-17);
M=pp(-4,-3);
M'=symetrie(M,F,F');
G=pp(0,-19);
K=pp(0,-23);
path cc[];
cc1=cercles(A,F);
cc2=cercles(D,2.5u);
cc3=cercles(E,2.5u);
cc4=cercles(P,A);
cc5=cercles(N,A);
cc7=cercles(A,L);
cc8=cercles(D,P);
cc9=cercles(E,N);
cc10=cercles(N',P);
cc11=cercles(P',N);
cc50=cercles(U,0.5u);
cc51=cercles(V,0.5u);
cc12=cercles(F',A);
cc13=cercles(J,4.5u);
cc14=cercles(B,Z);
cc15=cercles(C,Z');
cc16=cercles(B,H);
cc17=cercles(C,H);
cc18=cercles(M,u);
cc19=cercles(M',u);
cc20=cercles(L,2.4u);
cc21=cercles(C,7u);
cc22=cercles(B,7u);
cc23=cercles(C,7.25u);
cc24=cercles(B,7.25u);
cc25=cercles(C,7.5u);
cc26=cercles(B,7.5u);
cc27=cercles(H,2u);
cc28=cercles(G,K);
cc29=cercles(K,G);
cc30=cercles(K,G+u*(0,0.25));
marque_p:="plein";
pointe(A,D,E,F);
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc3;
drawoptions();
fin;
%2
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,D,E,F);
drawoptions(withcolor violet);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;
drawoptions();
fin;
%3
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,D,E,F,P,P',N,N',L);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;
for k=4 upto 11:
  if k<>6:
    trace cc[k];
  fi;
endfor;
drawoptions();
fin;
%4
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,D,E,F,P,P',N,N',L);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
drawoptions(withcolor violet);
trace cc5 cutbefore cc3 cutafter cc7;
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;
for k=4 upto 11:
  if (k<>6) and (k<>5):
    trace cc[k];
  fi;
endfor;
drawoptions();
fin;
%5
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,D,E,F,P,P',N,N',L);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
trace cc5 cutbefore cc3 cutafter cc7;
drawoptions(withcolor violet);
trace symetrie(cc5 cutbefore cc3 cutafter cc7,F,F');
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;
for k=7 upto 11:
    trace cc[k];
endfor;
drawoptions();
fin;
%6
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,D,E,F,P,P',N,N',L);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
trace cc5 cutbefore cc3 cutafter cc7;
trace symetrie(cc5 cutbefore cc3 cutafter cc7,F,F');
drawoptions(withcolor violet);
trace cc7 cutbefore (subpath(length cc5/4,length cc5/2) of cc5) cutafter (subpath(0,length cc4/4) of cc4);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;
for k=8 upto 11:
    trace cc[k];
endfor;
drawoptions();
fin;
%7
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,D,E,F,P,P',N,N',L);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
trace cc5 cutbefore cc3 cutafter cc7;
trace symetrie(cc5 cutbefore cc3 cutafter cc7,F,F');
trace cc7 cutbefore (subpath(length cc5/4,length cc5/2) of cc5) cutafter (subpath(0,length cc4/4) of cc4);
drawoptions(withcolor violet);
trace cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;
for k=9 upto 11:
    trace cc[k];
endfor;
drawoptions();
fin;
%8
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,D,E,F,P,P',N,N',L);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
trace cc5 cutbefore cc3 cutafter cc7;
trace symetrie(cc5 cutbefore cc3 cutafter cc7,F,F');
trace cc7 cutbefore (subpath(length cc5/4,length cc5/2) of cc5) cutafter (subpath(0,length cc4/4) of cc4);
trace cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10);
drawoptions(withcolor violet);
trace symetrie(cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10),F,F');
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;trace cc10;trace cc11;
drawoptions();
fin;
%9
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,D,E,F,P,P',N,N',L);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
trace cc5 cutbefore cc3 cutafter cc7;
trace symetrie(cc5 cutbefore cc3 cutafter cc7,F,F');
trace cc7 cutbefore (subpath(length cc5/4,length cc5/2) of cc5) cutafter (subpath(0,length cc4/4) of cc4);
trace cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10);
trace symetrie(cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10),F,F');
drawoptions(withcolor violet);
trace cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;;trace cc11;
drawoptions();
fin;
%10
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,D,E,F,P,P',N,N',L);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
trace cc5 cutbefore cc3 cutafter cc7;
trace symetrie(cc5 cutbefore cc3 cutafter cc7,F,F');
trace cc7 cutbefore (subpath(length cc5/4,length cc5/2) of cc5) cutafter (subpath(0,length cc4/4) of cc4);
trace cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10);
trace symetrie(cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10),F,F');
trace cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1);
drawoptions(withcolor violet);
trace symetrie(cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1),F,F');
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;
drawoptions();
fin;
%11
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(U,V);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
trace cc5 cutbefore cc3 cutafter cc7;
trace symetrie(cc5 cutbefore cc3 cutafter cc7,F,F');
trace cc7 cutbefore (subpath(length cc5/4,length cc5/2) of cc5) cutafter (subpath(0,length cc4/4) of cc4);
trace cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10);
trace symetrie(cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10),F,F');
trace cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1);
trace symetrie(cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1),F,F');
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;trace cc50;trace cc51;
drawoptions();
fin;
%12
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(U,V);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
trace cc5 cutbefore cc3 cutafter cc7;
trace symetrie(cc5 cutbefore cc3 cutafter cc7,F,F');
trace cc7 cutbefore (subpath(length cc5/4,length cc5/2) of cc5) cutafter (subpath(0,length cc4/4) of cc4);
trace cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10);
trace symetrie(cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10),F,F');
trace cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1);
trace symetrie(cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1),F,F');
drawoptions(withcolor violet);
trace cc51 cutbefore cc11 cutafter (subpath(length cc9/4,0.35*length cc9) of cc9);
trace cc51 cutbefore (subpath(0.35*length cc9,length cc9/2) of cc9) cutafter cc11;
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;trace cc50;
drawoptions();
fin;
%13
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(U,V);
trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
trace cc5 cutbefore cc3 cutafter cc7;
trace symetrie(cc5 cutbefore cc3 cutafter cc7,F,F');
trace cc7 cutbefore (subpath(length cc5/4,length cc5/2) of cc5) cutafter (subpath(0,length cc4/4) of cc4);
trace cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10);
trace symetrie(cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10),F,F');
trace cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1);
trace symetrie(cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1),F,F');
trace cc51 cutbefore cc11 cutafter (subpath(length cc9/4,0.35*length cc9) of cc9);
trace cc51 cutbefore (subpath(0.35*length cc9,length cc9/2) of cc9) cutafter cc11;
drawoptions(withcolor violet);
trace symetrie(cc51 cutbefore cc11 cutafter (subpath(length cc9/4,0.35*length cc9) of cc9),F,F');
trace symetrie(cc51 cutbefore (subpath(0.35*length cc9,length cc9/2) of cc9) cutafter cc11,F,F');
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;
drawoptions();
picture etape[];
etape1=image(
  trace cc1 cutbefore cc3 cutafter (subpath(0,length cc2/2) of cc2);
trace cc5 cutbefore cc3 cutafter cc7;
trace symetrie(cc5 cutbefore cc3 cutafter cc7,F,F');
trace cc7 cutbefore (subpath(length cc5/4,length cc5/2) of cc5) cutafter (subpath(0,length cc4/4) of cc4);
trace cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10);
trace symetrie(cc8 cutbefore cc1 cutafter (subpath(length cc10/2,3*length cc10/4) of cc10),F,F');
trace cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1);
trace symetrie(cc10 cutbefore cc8 cutafter (subpath(length cc1/4,length cc1/2) of cc1),F,F');
trace cc51 cutbefore cc11 cutafter (subpath(length cc9/4,0.35*length cc9) of cc9);
trace cc51 cutbefore (subpath(0.35*length cc9,length cc9/2) of cc9) cutafter cc11;
trace symetrie(cc51 cutbefore cc11 cutafter (subpath(length cc9/4,0.35*length cc9) of cc9),F,F');
trace symetrie(cc51 cutbefore (subpath(0.35*length cc9,length cc9/2) of cc9) cutafter cc11,F,F');
);
fin;
%14
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(F',J,B,C,Z,Z',H);
trace etape1;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;trace cc12;trace cc13;trace cc14;trace cc15;trace cc16;trace cc17;
drawoptions();
fin;
%15
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(F',J,B,C,Z,Z',H);
trace etape1;
drawoptions(withcolor violet);
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;trace cc12;trace cc13;trace cc14;trace cc16;trace cc17;
drawoptions();
fin;
%16
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(F',J,B,C,Z,Z',H);
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
drawoptions(withcolor violet);
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
drawoptions(dashed evenly withcolor gris);
trace cc2;trace cc3;trace cc12;trace cc13;trace cc16;trace cc17;
drawoptions();
fin;
%17
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(F',J,B,C,Z,Z',H);
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
drawoptions(withcolor violet);
trace cc2 cutbefore cc1 cutafter cc15;
drawoptions(dashed evenly withcolor gris);
trace cc3;trace cc12;trace cc13;trace cc16;trace cc17;
drawoptions();
fin;
%18
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(F',J,B,C,Z,Z',H);
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
trace cc2 cutbefore cc1 cutafter cc15;
drawoptions(withcolor violet);
trace symetrie(cc2 cutbefore cc1 cutafter cc15,F,F');
drawoptions(dashed evenly withcolor gris);
trace cc12;trace cc13;trace cc16;trace cc17;
drawoptions();
fin;
%19
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(F',J,B,C,Z,Z',H);
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
trace cc2 cutbefore cc1 cutafter cc15;
trace symetrie(cc2 cutbefore cc1 cutafter cc15,F,F');
drawoptions(withcolor violet);
trace cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13;
drawoptions(dashed evenly withcolor gris);
trace cc12;trace cc13;trace cc16;
drawoptions();
fin;
%20
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(F',J,B,C,Z,Z',H);
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
trace cc2 cutbefore cc1 cutafter cc15;
trace symetrie(cc2 cutbefore cc1 cutafter cc15,F,F');
trace cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13;
drawoptions(withcolor violet);
trace symetrie(cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13,F,F');
drawoptions(dashed evenly withcolor gris);
trace cc12;trace cc13;
drawoptions();
fin;
%21
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(F',J,B,C,Z,Z',H);
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
trace cc2 cutbefore cc1 cutafter cc15;
trace symetrie(cc2 cutbefore cc1 cutafter cc15,F,F');
trace cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13;
trace symetrie(cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13,F,F');
drawoptions(withcolor violet);
trace cc13 cutbefore cc12 cutafter cc12;
drawoptions(dashed evenly withcolor gris);
trace cc12;
drawoptions();
fin;
%22
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(F',J,B,C,Z,Z',H);
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
trace cc2 cutbefore cc1 cutafter cc15;
trace symetrie(cc2 cutbefore cc1 cutafter cc15,F,F');
trace cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13;
trace symetrie(cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13,F,F');
trace cc13 cutbefore cc12 cutafter cc12;
drawoptions(withcolor violet);
trace cc12 cutafter (subpath(length cc13/2,3*length cc13/4) of cc13);
trace cc12 cutbefore (subpath(3*length cc13/4,length cc13) of cc13);
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%23
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,M,M');
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
trace cc2 cutbefore cc1 cutafter cc15;
trace symetrie(cc2 cutbefore cc1 cutafter cc15,F,F');
trace cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13;
trace symetrie(cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13,F,F');
trace cc13 cutbefore cc12 cutafter cc12;
trace cc12 cutafter (subpath(length cc13/2,3*length cc13/4) of cc13);
trace cc12 cutbefore (subpath(3*length cc13/4,length cc13) of cc13);
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace demidroite(A,B);
trace demidroite(A,C);
trace cc18;
trace cc19;
drawoptions();
fin;
%24
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,M,M');
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
trace cc2 cutbefore cc1 cutafter cc15;
trace symetrie(cc2 cutbefore cc1 cutafter cc15,F,F');
trace cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13;
trace symetrie(cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13,F,F');
trace cc13 cutbefore cc12 cutafter cc12;
trace cc12 cutafter (subpath(length cc13/2,3*length cc13/4) of cc13);
trace cc12 cutbefore (subpath(3*length cc13/4,length cc13) of cc13);
drawoptions(withcolor violet);
trace cc19 cutbefore demidroite(A,B) cutafter demidroite(A,B);
trace symetrie(cc19 cutbefore demidroite(A,B) cutafter demidroite(A,B),F,F');
drawoptions(dashed evenly withcolor gris);
trace demidroite(A,B);
trace demidroite(A,C);
drawoptions();
fin;
%25
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(A,B,C,M,M');
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
trace cc2 cutbefore cc1 cutafter cc15;
trace symetrie(cc2 cutbefore cc1 cutafter cc15,F,F');
trace cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13;
trace symetrie(cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13,F,F');
trace cc13 cutbefore cc12 cutafter cc12;
trace cc12 cutafter (subpath(length cc13/2,3*length cc13/4) of cc13);
trace cc12 cutbefore (subpath(3*length cc13/4,length cc13) of cc13);
trace cc19 cutbefore demidroite(A,B) cutafter demidroite(A,B);
trace symetrie(cc19 cutbefore demidroite(A,B) cutafter demidroite(A,B),F,F');
drawoptions(withcolor violet);
trace demidroite(A,C) cutbefore cc18 cutafter cc18;
trace symetrie(demidroite(A,C) cutbefore cc18 cutafter cc18,F,F');
drawoptions(dashed evenly withcolor gris);
drawoptions();
etape2=image(
trace etape1;
trace cc15 cutbefore cc12 cutafter segment(Z',Z');
trace symetrie(cc15 cutbefore cc12 cutafter segment(Z',Z'),F,F');
trace cc2 cutbefore cc1 cutafter cc15;
trace symetrie(cc2 cutbefore cc1 cutafter cc15,F,F');
trace cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13;
trace symetrie(cc17 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc13,F,F');
trace cc13 cutbefore cc12 cutafter cc12;
trace cc12 cutafter (subpath(length cc13/2,3*length cc13/4) of cc13);
trace cc12 cutbefore (subpath(3*length cc13/4,length cc13) of cc13);
trace cc19 cutbefore demidroite(A,B) cutafter demidroite(A,B);
trace symetrie(cc19 cutbefore demidroite(A,B) cutafter demidroite(A,B),F,F');
trace demidroite(A,C) cutbefore cc18 cutafter cc18;
trace symetrie(demidroite(A,C) cutbefore cc18 cutafter cc18,F,F');
  );
fin;
%26
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
for k=20 upto 30:
  trace cc[k];
endfor;
drawoptions();
fin;
%27
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
drawoptions(withcolor violet);
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
drawoptions(dashed evenly withcolor gris);
trace cc20;trace cc21;trace cc22;trace cc23;trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;trace cc30;
drawoptions();
fin;
%28
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
drawoptions(withcolor violet);
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
drawoptions(dashed evenly withcolor gris);
trace cc20;trace cc21;trace cc22;trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;trace cc30;
drawoptions();
fin;
%29
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
drawoptions(withcolor violet);
trace cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
drawoptions(dashed evenly withcolor gris);
trace cc20;trace cc21;trace cc22;trace cc25;trace cc27;trace cc28;trace cc29;trace cc30;
drawoptions();
fin;
%30
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
drawoptions(withcolor violet);
trace symetrie(cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
drawoptions(dashed evenly withcolor gris);
trace cc20;trace cc21;trace cc22;trace cc27;trace cc28;trace cc29;trace cc30;
drawoptions();
fin;
%31
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
drawoptions(withcolor violet);
trace cc20 cutbefore cc13 cutafter cc23;
trace symetrie(cc20 cutbefore cc13 cutafter cc23,F,F');
drawoptions(dashed evenly withcolor gris);
trace cc21;trace cc22;trace cc27;trace cc28;trace cc29;trace cc30;
drawoptions();
fin;
%32
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc20 cutbefore cc13 cutafter cc23;
trace symetrie(cc20 cutbefore cc13 cutafter cc23,F,F');
drawoptions(withcolor violet);
trace cc21 cutbefore cc28 cutafter cc20;
drawoptions(dashed evenly withcolor gris);
trace cc22;trace cc27;trace cc28;trace cc29;trace cc30;
drawoptions();
fin;
%33
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc20 cutbefore cc13 cutafter cc23;
trace symetrie(cc20 cutbefore cc13 cutafter cc23,F,F');
trace cc21 cutbefore cc28 cutafter cc20;
drawoptions(withcolor violet);
trace symetrie(cc21 cutbefore cc28 cutafter cc20,F,F');
drawoptions(dashed evenly withcolor gris);
trace cc27;trace cc28;trace cc29;trace cc30;
drawoptions();
fin;
%34
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc20 cutbefore cc13 cutafter cc23;
trace symetrie(cc20 cutbefore cc13 cutafter cc23,F,F');
trace cc21 cutbefore cc28 cutafter cc20;
trace symetrie(cc21 cutbefore cc28 cutafter cc20,F,F');
drawoptions(withcolor violet);
trace cc28 cutafter (subpath(length cc24/4,length cc24/2) of cc24);
trace cc28 cutbefore cc23;
drawoptions(dashed evenly withcolor gris);
trace cc27;trace cc29;trace cc30;
drawoptions();
fin;
%35
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc20 cutbefore cc13 cutafter cc23;
trace symetrie(cc20 cutbefore cc13 cutafter cc23,F,F');
trace cc21 cutbefore cc28 cutafter cc20;
trace symetrie(cc21 cutbefore cc28 cutafter cc20,F,F');
trace cc28 cutafter (subpath(length cc24/4,length cc24/2) of cc24);
trace cc28 cutbefore cc23;
drawoptions(withcolor violet);
trace cc27 cutbefore cc28 cutafter cc28;
drawoptions(dashed evenly withcolor gris);
trace cc29;trace cc30;
drawoptions();
fin;
%36
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc20 cutbefore cc13 cutafter cc23;
trace symetrie(cc20 cutbefore cc13 cutafter cc23,F,F');
trace cc21 cutbefore cc28 cutafter cc20;
trace symetrie(cc21 cutbefore cc28 cutafter cc20,F,F');
trace cc28 cutafter (subpath(length cc24/4,length cc24/2) of cc24);
trace cc28 cutbefore cc23;
trace cc27 cutbefore cc28 cutafter cc28;
drawoptions(withcolor violet);
trace cc30 cutbefore cc27 cutafter cc27;
drawoptions(dashed evenly withcolor gris);
trace cc29;
drawoptions();
fin;
%37
figure(0,0,18u,17u);
trace grille(0.5) withcolor orange;
pointe(B,C,L,H,G,K);
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc20 cutbefore cc13 cutafter cc23;
trace symetrie(cc20 cutbefore cc13 cutafter cc23,F,F');
trace cc21 cutbefore cc28 cutafter cc20;
trace symetrie(cc21 cutbefore cc28 cutafter cc20,F,F');
trace cc28 cutafter (subpath(length cc24/4,length cc24/2) of cc24);
trace cc28 cutbefore cc23;
trace cc27 cutbefore cc28 cutafter cc28;
trace cc30 cutbefore cc27 cutafter cc27;
drawoptions(withcolor violet);
trace cc29 cutbefore cc27 cutafter cc27;
drawoptions(dashed evenly withcolor gris);
drawoptions();
fin;
%38
figure(0,0,18u,17u);
trace feuillet withcolor blanc;
trace etape2;
trace cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc24 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30;
trace symetrie(cc26 cutbefore (subpath(3*length cc13/4,0.85*length cc13) of cc13) cutafter cc30,F,F');
trace cc20 cutbefore cc13 cutafter cc23;
trace symetrie(cc20 cutbefore cc13 cutafter cc23,F,F');
trace cc21 cutbefore cc28 cutafter cc20;
trace symetrie(cc21 cutbefore cc28 cutafter cc20,F,F');
trace cc28 cutafter (subpath(length cc24/4,length cc24/2) of cc24);
trace cc28 cutbefore cc23;
trace cc27 cutbefore cc28 cutafter cc28;
trace cc30 cutbefore cc27 cutafter cc27;
trace cc29 cutbefore cc27 cutafter cc27;
etape3=currentpicture;
fin;
for k=1 upto 5:
  figure(0,0,18u,17u);
  trace feuillet withcolor blanc;
  trace etape3;
  fin;
endfor;
end