Retour

Source : rhino.mp

Animation flash


rhino.mp
prologues:=2;
input geometriesyr16
%1
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
origine((13,22));
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,A',B',C',D',E',F',G',H',I',J',K',L',M',N',O',P',inter[];
path cc[];
A=pp(0,0);
C=pp(0,1.5);
D=pp(-3,4);
E=symetrie(D,A,C);
F=pp(-9,2.5);
G=symetrie(F,A,C);
H=pp(-8.5,5);
I=symetrie(H,A,C);
J=pp(-7.5,8);
K=symetrie(J,A,C);
L=pp(-3.5,7.5);
M=symetrie(L,A,C);
N=pp(0,-7.5);
O=pp(0,-8.5);
P=pp(10,3);
Q=symetrie(P,A,C);
R=pp(-2,-7);
S=symetrie(R,A,C);
T=pp(3.5,-11);
U=symetrie(T,A,C);
V=pp(-1.5,-5);
W=symetrie(V,A,C);
X=pp(-1,-4.5);
Y=symetrie(X,A,C);
Z=pp(-3.5,-13);
A'=symetrie(Z,A,C);
B'=pp(-8.5,-20);
C'=symetrie(B',A,C);
D'=pp(1.5,-13.5);
E'=symetrie(D',A,C);
F'=pp(6,-15);
G'=symetrie(F',A,C);
H'=pp(2.5,-12.5);
I'=symetrie(H',A,C);
J'=pp(-0.5,-1.5);
K'=symetrie(J',A,C);
L'=pp(0,-1.75);
M'=pp(8,-2.5);
N'=symetrie(M',A,C);
O'=pp(-4,-4.75);
P'=symetrie(O',A,C);
cc1=cercles(A,2.75u);
cc2=cercles(A,5.5u);
cc3=cercles(C,3.5u);
cc8=cercles(H,2.25u);
inter1=cc3 intersectionpoint cc8;
cc4=cercles(D,inter1);
cc5=cercles(E,symetrie(inter1,A,C));
cc6=cercles(F,2u);
cc7=cercles(G,2u);
cc9=cercles(I,2.25u);
cc10=cercles(J,1.25u);
cc11=cercles(K,1.25u);
cc12=cercles(L,2.25u);
cc13=cercles(M,2.25u);
cc14=cercles(N,2u);
cc15=cercles(O,2u);
cc16=cercles(P,5u);
cc17=cercles(Q,5u);
cc18=cercles(R,3u);
cc19=cercles(S,3u);
cc20=cercles(T,4.25u);
cc21=cercles(U,4.25u);
cc22=cercles(V,2.5u);
cc23=cercles(W,2.5u);
cc24=cercles(X,1.75u);
cc25=cercles(Y,1.75u);
cc26=cercles(Z,0.75u);
cc27=cercles(A',0.75u);
cc28=cercles(B',4u);
cc29=cercles(C',4u);
cc30=cercles(D',2u);
cc31=cercles(E',2u);
cc32=cercles(F',1.8u);
cc33=cercles(G',1.8u);
cc34=cercles(H',0.6u);
cc35=cercles(I',0.6u);
cc36=cercles(J',u);
cc37=cercles(K',u);
cc38=cercles(L',1.25u);
inter2=symetrie(cc36 intersectionpoint cc38,J',L');
cc39=cercles(M',inter2);
cc40=cercles(N',symetrie(inter2,A,C));
marque_p:="plein";
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9;trace cc10;trace cc11;trace cc12;trace cc13;
drawoptions();
fin;
%2
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
drawoptions(withcolor violet);
trace cc11 cutbefore cc13 cutafter cc13;
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9;trace cc10;trace cc12;trace cc13;
drawoptions();
fin;
%3
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
trace cc11 cutbefore cc13 cutafter cc13;
drawoptions(withcolor violet);
trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9;trace cc12;trace cc13;
drawoptions();
fin;
%4
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
trace cc11 cutbefore cc13 cutafter cc13;
trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
drawoptions(withcolor violet);
trace cc12 cutbefore cc10 cutafter cc6;
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9;trace cc13;
drawoptions();
fin;
%5
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
trace cc11 cutbefore cc13 cutafter cc13;
trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
trace cc12 cutbefore cc10 cutafter cc6;
drawoptions(withcolor violet);
trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9;
drawoptions();
fin;
%6
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
trace cc11 cutbefore cc13 cutafter cc13;
trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
trace cc12 cutbefore cc10 cutafter cc6;
trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C);
drawoptions(withcolor violet);
trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc8;trace cc9;
drawoptions();
fin;
%7
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
trace cc11 cutbefore cc13 cutafter cc13;
trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
trace cc12 cutbefore cc10 cutafter cc6;
trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C);
trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10);
drawoptions(withcolor violet);
trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc3;trace cc4;trace cc5;trace cc6;trace cc7;trace cc9;
drawoptions();
fin;
%8
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
trace cc11 cutbefore cc13 cutafter cc13;
trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
trace cc12 cutbefore cc10 cutafter cc6;
trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C);
trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10);
trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C);
drawoptions(withcolor violet);
trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc4;trace cc5;trace cc6;trace cc7;
drawoptions();
fin;
%9
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
trace cc11 cutbefore cc13 cutafter cc13;
trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
trace cc12 cutbefore cc10 cutafter cc6;
trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C);
trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10);
trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C);
trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1);
drawoptions(withcolor violet);
trace cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc5;trace cc6;trace cc7;
drawoptions();
fin;
%10
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
trace cc11 cutbefore cc13 cutafter cc13;
trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
trace cc12 cutbefore cc10 cutafter cc6;
trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C);
trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10);
trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C);
trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1);
trace cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6);
drawoptions(withcolor violet);
trace symetrie(cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6),A,C);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc6;trace cc7;
drawoptions();
fin;
%11
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
trace cc11 cutbefore cc13 cutafter cc13;
trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
trace cc12 cutbefore cc10 cutafter cc6;
trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C);
trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10);
trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C);
trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1);
trace cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6);
trace symetrie(cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6),A,C);
drawoptions(withcolor violet);
trace cc7 cutbefore cc3 cutafter cc1;
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc6;
drawoptions();
fin;
%12
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(A,C,D,E,F,G,H,I,J,K,L,M,inter1);
trace cc11 cutbefore cc13 cutafter cc13;
trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
trace cc12 cutbefore cc10 cutafter cc6;
trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C);
trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10);
trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C);
trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1);
trace cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6);
trace symetrie(cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6),A,C);
trace cc7 cutbefore cc3 cutafter cc1;
drawoptions(withcolor violet);
trace symetrie(cc7 cutbefore cc3 cutafter cc1,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;
drawoptions();
picture etape[];
etape1=image(
  trace cc11 cutbefore cc13 cutafter cc13;
  trace symetrie(cc11 cutbefore cc13 cutafter cc13,A,C);
  trace cc12 cutbefore cc10 cutafter cc6;
  trace symetrie(cc12 cutbefore cc10 cutafter cc6,A,C);
  trace cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10);
  trace symetrie(cc8 cutbefore cc3 cutafter (subpath(3*length cc10/4,length cc10) of cc10),A,C);
  trace cc3 cutbefore segment(symetrie(inter1,A,C),symetrie(inter1,A,C)) cutafter segment(inter1,inter1);
  trace cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6);
  trace symetrie(cc4 cutbefore segment(inter1,inter1) cutafter (subpath(0,length cc6/4) of cc6),A,C);
  trace cc7 cutbefore cc3 cutafter cc1;
  trace symetrie(cc7 cutbefore cc3 cutafter cc1,A,C);
);
fin;
%13
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(N,O,P,Q,R,S,T,U);
trace etape1;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc2;trace cc14;trace cc15;trace cc16;trace cc17;trace cc18;trace cc19;trace cc20;trace cc21;
drawoptions();
fin;
%14
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(N,O,P,Q,R,S,T,U);
trace etape1;
drawoptions(withcolor violet);
trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10);
trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20);
trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc14;trace cc15;trace cc16;trace cc17;trace cc18;trace cc19;trace cc20;trace cc21;
drawoptions();
fin;
%15
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(N,O,P,Q,R,S,T,U);
trace etape1;
trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10);
trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20);
trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C);
drawoptions(withcolor violet);
trace cc17 cutbefore cc19;
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc14;trace cc15;trace cc16;trace cc18;trace cc19;trace cc20;trace cc21;
drawoptions();
fin;
%16
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(N,O,P,Q,R,S,T,U);
trace etape1;
trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10);
trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20);
trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C);
trace cc17 cutbefore cc19;
drawoptions(withcolor violet);
trace symetrie(cc17 cutbefore cc19,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc14;trace cc15;trace cc18;trace cc19;trace cc20;trace cc21;
drawoptions();
fin;
%17
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(N,O,P,Q,R,S,T,U);
trace etape1;
trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10);
trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20);
trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C);
trace cc17 cutbefore cc19;
trace symetrie(cc17 cutbefore cc19,A,C);
drawoptions(withcolor violet);
trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14;
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc14;trace cc15;trace cc18;trace cc20;trace cc21;
drawoptions();
fin;
%18
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(N,O,P,Q,R,S,T,U);
trace etape1;
trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10);
trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20);
trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C);
trace cc17 cutbefore cc19;
trace symetrie(cc17 cutbefore cc19,A,C);
trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14;
drawoptions(withcolor violet);
trace symetrie(cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc14;trace cc15;trace cc20;trace cc21;
drawoptions();
fin;
%19
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(N,O,P,Q,R,S,T,U);
trace etape1;
trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10);
trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20);
trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C);
trace cc17 cutbefore cc19;
trace symetrie(cc17 cutbefore cc19,A,C);
trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14;
trace symetrie(cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14,A,C);
drawoptions(withcolor violet);
trace cc14 cutafter demidroite(R,S);
trace cc14 cutbefore cc19 cutafter (subpath(0.95*length cc18,length cc18) of cc18);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc15;trace cc20;trace cc21;
drawoptions();
fin;
%20
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(N,O,P,Q,R,S,T,U);
trace etape1;
trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10);
trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20);
trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C);
trace cc17 cutbefore cc19;
trace symetrie(cc17 cutbefore cc19,A,C);
trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14;
trace symetrie(cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14,A,C);
trace cc14 cutafter demidroite(R,S);
trace cc14 cutbefore cc19 cutafter (subpath(0.95*length cc18,length cc18) of cc18);
drawoptions(withcolor violet);
trace cc15 cutbefore (subpath(length cc14/2,3*length cc14/4) of cc14);
trace cc15 cutafter (subpath(3*length cc14/4,5*length cc14/4) of cc14);
drawoptions(dashed evenly withcolor gris);
trace cc1;trace cc20;trace cc21;
drawoptions();
fin;
%21
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(N,O,P,Q,R,S,T,U);
trace etape1;
trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10);
trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20);
trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C);
trace cc17 cutbefore cc19;
trace symetrie(cc17 cutbefore cc19,A,C);
trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14;
trace symetrie(cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14,A,C);
trace cc14 cutafter demidroite(R,S);
trace cc14 cutbefore cc19 cutafter (subpath(0.95*length cc18,length cc18) of cc18);
trace cc15 cutbefore (subpath(length cc14/2,3*length cc14/4) of cc14);
trace cc15 cutafter (subpath(3*length cc14/4,5*length cc14/4) of cc14);
drawoptions(withcolor violet);
trace cc1 cutbefore (subpath(3*length cc6/4,0.95*length cc6) of cc6) cutafter cc17;
trace symetrie(cc1 cutbefore (subpath(3*length cc6/4,0.95*length cc6) of cc6) cutafter cc17,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc20;trace cc21;
drawoptions();
etape2=image(
  trace etape1;
  trace cc2 cutbefore (subpath(length cc11/4,3*length cc11/4) of cc11) cutafter (subpath(0,length cc10/4) of cc10);
  trace cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20);
  trace symetrie(cc2 cutbefore (subpath(length cc12/4,3*length cc12/4) of cc12) cutafter (subpath(length cc20/4,3*length cc20/4) of cc20),A,C);
  trace cc17 cutbefore cc19;
  trace symetrie(cc17 cutbefore cc19,A,C);
  trace cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14;
  trace symetrie(cc19 cutbefore (subpath(3*length cc17/4,0.9*length cc17) of cc17) cutafter cc14,A,C);
  trace cc14 cutafter demidroite(R,S);
  trace cc14 cutbefore cc19 cutafter (subpath(0.95*length cc18,length cc18) of cc18);
  trace cc15 cutbefore (subpath(length cc14/2,3*length cc14/4) of cc14);
  trace cc15 cutafter (subpath(3*length cc14/4,5*length cc14/4) of cc14);
  trace cc1 cutbefore (subpath(3*length cc6/4,0.95*length cc6) of cc6) cutafter cc17;
  trace symetrie(cc1 cutbefore (subpath(3*length cc6/4,0.95*length cc6) of cc6) cutafter cc17,A,C);
  );
fin;
%22
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc20;trace cc21;trace cc22;trace cc23;trace cc26;trace cc27;trace cc28;trace cc29;trace cc30;trace cc31;
drawoptions();
fin;
%23
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
drawoptions(withcolor violet);
trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
drawoptions(dashed evenly withcolor gris);
trace cc21;trace cc22;trace cc23;trace cc26;trace cc27;trace cc28;trace cc29;trace cc30;trace cc31;
drawoptions();
fin;
%24
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
drawoptions(withcolor violet);
trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc22;trace cc23;trace cc24;trace cc25;trace cc26;trace cc27;trace cc28;trace cc29;trace cc30;trace cc31;
drawoptions();
fin;
%25
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C);
drawoptions(withcolor violet);
trace cc26 cutafter cc28;
drawoptions(dashed evenly withcolor gris);
trace cc22;trace cc23;trace cc27;trace cc28;trace cc29;trace cc30;trace cc31;
drawoptions();
fin;
%26
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C);
trace cc26 cutafter cc28;
drawoptions(withcolor violet);
trace symetrie(cc26 cutafter cc28,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc22;trace cc23;trace cc28;trace cc29;trace cc30;trace cc31;
drawoptions();
fin;
%27
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C);
trace cc26 cutafter cc28;
trace symetrie(cc26 cutafter cc28,A,C);
drawoptions(withcolor violet);
trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26);
drawoptions(dashed evenly withcolor gris);
trace cc22;trace cc23;trace cc24;trace cc25;trace cc29;trace cc30;trace cc31;
drawoptions();
fin;
%28
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C);
trace cc26 cutafter cc28;
trace symetrie(cc26 cutafter cc28,A,C);
trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26);
drawoptions(withcolor violet);
trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C);
drawoptions(dashed evenly withcolor gris);
trace cc22;trace cc23;trace cc30;trace cc31;
drawoptions();
fin;
%29
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C);
trace cc26 cutafter cc28;
trace symetrie(cc26 cutafter cc28,A,C);
trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26);
trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C);
drawoptions(withcolor violet);
trace cc30 cutbefore cc28 cutafter cc31;
drawoptions(dashed evenly withcolor gris);
trace cc22;trace cc23;trace cc31;
drawoptions();
fin;
%30
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C);
trace cc26 cutafter cc28;
trace symetrie(cc26 cutafter cc28,A,C);
trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26);
trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C);
trace cc30 cutbefore cc28 cutafter cc31;
drawoptions(withcolor violet);
trace symetrie(cc30 cutbefore cc28 cutafter cc31,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc22;trace cc23;
drawoptions();
fin;
%31
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C);
trace cc26 cutafter cc28;
trace symetrie(cc26 cutafter cc28,A,C);
trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26);
trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C);
trace cc30 cutbefore cc28 cutafter cc31;
trace symetrie(cc30 cutbefore cc28 cutafter cc31,A,C);
drawoptions(withcolor violet);
trace cc22 cutbefore (subpath(length cc1/4,3*length cc1/4) of cc1) cutafter cc20;
drawoptions(dashed evenly withcolor gris);
trace cc23;
drawoptions();
fin;
%32
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(T,U,V,W,Z,A',B',C',D',E');
trace etape2;
trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C);
trace cc26 cutafter cc28;
trace symetrie(cc26 cutafter cc28,A,C);
trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26);
trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C);
trace cc30 cutbefore cc28 cutafter cc31;
trace symetrie(cc30 cutbefore cc28 cutafter cc31,A,C);
trace cc22 cutbefore (subpath(length cc1/4,3*length cc1/4) of cc1) cutafter cc20;
drawoptions(withcolor violet);
trace symetrie(cc22 cutbefore (subpath(length cc1/4,3*length cc1/4) of cc1) cutafter cc20,A,C);
drawoptions(dashed evenly withcolor gris);
drawoptions();
etape3=image(
  trace etape2;
  trace cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26;
  trace symetrie(cc20 cutbefore (subpath(3*length cc14/8,length cc14) of cc14) cutafter cc26,A,C);
  trace cc26 cutafter cc28;
  trace symetrie(cc26 cutafter cc28,A,C);
  trace cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26);
  trace symetrie(cc28 cutbefore (subpath(length cc30/2,0.6*length cc30) of cc30) cutafter (subpath(3*length cc26/4,length cc26) of cc26),A,C);
  trace cc30 cutbefore cc28 cutafter cc31;
  trace symetrie(cc30 cutbefore cc28 cutafter cc31,A,C);
  trace cc22 cutbefore (subpath(length cc1/4,3*length cc1/4) of cc1) cutafter cc20;
  trace symetrie(cc22 cutbefore (subpath(length cc1/4,3*length cc1/4) of cc1) cutafter cc20,A,C);
  );
fin;
%33
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
drawoptions(withcolor violet);
drawoptions(dashed evenly withcolor gris);
trace cc24;trace cc25;trace cc32;trace cc33;trace cc34;trace cc35;trace cc36;trace cc37;trace cc38;trace cc39;trace cc40;
drawoptions();
fin;
%34
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
drawoptions(withcolor violet);
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
drawoptions(dashed evenly withcolor gris);
trace cc25;trace cc32;trace cc33;trace cc34;trace cc35;trace cc36;trace cc37;trace cc38;trace cc39;trace cc40;
drawoptions();
fin;
%35
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
drawoptions(withcolor violet);
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc32;trace cc33;trace cc34;trace cc35;trace cc36;trace cc37;trace cc38;trace cc39;trace cc40;
drawoptions();
fin;
%36
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
drawoptions(withcolor violet);
trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17;
trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc32;trace cc33;trace cc34;trace cc35;trace cc36;trace cc37;trace cc39;trace cc40;
drawoptions();
fin;
%37
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17;
trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C);
drawoptions(withcolor violet);
trace cc36 cutbefore cc39 cutafter cc17;
drawoptions(dashed evenly withcolor gris);
trace cc32;trace cc33;trace cc34;trace cc35;trace cc37;trace cc39;trace cc40;
drawoptions();
fin;
%38
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17;
trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C);
trace cc36 cutbefore cc39 cutafter cc17;
drawoptions(withcolor violet);
trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc32;trace cc33;trace cc34;trace cc35;trace cc39;trace cc40;
drawoptions();
fin;
%39
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17;
trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C);
trace cc36 cutbefore cc39 cutafter cc17;
trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C);
drawoptions(withcolor violet);
trace cc39 cutbefore demidroite(A,C) cutafter cc36;
drawoptions(dashed evenly withcolor gris);
trace cc32;trace cc33;trace cc34;trace cc35;trace cc40;
drawoptions();
fin;
%40
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17;
trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C);
trace cc36 cutbefore cc39 cutafter cc17;
trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C);
trace cc39 cutbefore demidroite(A,C) cutafter cc36;
drawoptions(withcolor violet);
trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc32;trace cc33;trace cc34;trace cc35;
drawoptions();
fin;
%41
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17;
trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C);
trace cc36 cutbefore cc39 cutafter cc17;
trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C);
trace cc39 cutbefore demidroite(A,C) cutafter cc36;
trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C);
drawoptions(withcolor violet);
trace cc35 cutbefore cc33 cutafter cc33;
drawoptions(dashed evenly withcolor gris);
trace cc32;trace cc33;trace cc34;
drawoptions();
fin;
%42
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17;
trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C);
trace cc36 cutbefore cc39 cutafter cc17;
trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C);
trace cc39 cutbefore demidroite(A,C) cutafter cc36;
trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C);
trace cc35 cutbefore cc33 cutafter cc33;
drawoptions(withcolor violet);
trace symetrie(cc35 cutbefore cc33 cutafter cc33,A,C);
drawoptions(dashed evenly withcolor gris);
trace cc32;trace cc33;
drawoptions();
fin;
%43
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17;
trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C);
trace cc36 cutbefore cc39 cutafter cc17;
trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C);
trace cc39 cutbefore demidroite(A,C) cutafter cc36;
trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C);
trace cc35 cutbefore cc33 cutafter cc33;
trace symetrie(cc35 cutbefore cc33 cutafter cc33,A,C);
drawoptions(withcolor violet);
trace cc33 cutbefore demidroite(G',E') cutafter demidroite(G',U);
drawoptions(dashed evenly withcolor gris);
trace cc32;trace demidroite(G',E');trace demidroite(G',U);
drawoptions();
fin;
%44
figure(0,0,13u,17u);
trace grille(0.5) withcolor orange;
pointe(X,Y,F',G',H',I',J',K',L',M',N');
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17;
trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C);
trace cc36 cutbefore cc39 cutafter cc17;
trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C);
trace cc39 cutbefore demidroite(A,C) cutafter cc36;
trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C);
trace cc35 cutbefore cc33 cutafter cc33;
trace symetrie(cc35 cutbefore cc33 cutafter cc33,A,C);
trace cc33 cutbefore demidroite(G',E') cutafter demidroite(G',U);
drawoptions(withcolor violet);
trace symetrie(cc33 cutbefore demidroite(G',E') cutafter demidroite(G',U),A,C);
drawoptions(dashed evenly withcolor gris);
trace demidroite(F',D');trace demidroite(F',T);
drawoptions();
fin;
%45
figure(0,0,13u,17u);
trace grille(0.5) withcolor blanc;
trace etape3;
trace cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19;
trace symetrie(cc24 cutbefore (subpath(length cc38/4,3*length cc38/4) of cc38) cutafter cc19,A,C);
trace cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17;
trace symetrie(cc38 cutbefore (subpath(length cc36/2,length cc36) of cc36) cutafter cc17,A,C);
trace cc36 cutbefore cc39 cutafter cc17;
trace symetrie(cc36 cutbefore cc39 cutafter cc17,A,C);
trace cc39 cutbefore demidroite(A,C) cutafter cc36;
trace symetrie(cc39 cutbefore demidroite(A,C) cutafter cc36,A,C);
trace cc35 cutbefore cc33 cutafter cc33;
trace symetrie(cc35 cutbefore cc33 cutafter cc33,A,C);
trace cc33 cutbefore demidroite(G',E') cutafter demidroite(G',U);
trace symetrie(cc33 cutbefore demidroite(G',E') cutafter demidroite(G',U),A,C);
etape4=currentpicture;
remplis buildcycle(cc1,cc24,reverse(cc19),subpath(0.8*length cc17,length cc17) of cc17);
remplis symetrie(buildcycle(cc1,cc24,reverse(cc19),subpath(0.8*length cc17,length cc17) of cc17),A,C);
remplis cercles(O',0.15u) withcolor blanc;
remplis cercles(P',0.15u) withcolor blanc;
etape4:=currentpicture;
fin;
for k=1 upto 5:
  figure(0,0,13u,17u);
  trace etape4;
  fin;
endfor;
end