Retour

Source : chameau.mp

Animation flash

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