Fichier tigre.mp (figure 2) — Modifié le 21 Mars 2008 à 23 h 07
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,E,F,G,H,I,J,L,T,K,M,N,U,V,P,Q,R,S,W,X,Y,Z,ZZ;
O=pp(0,0);
A=pp(-6.5,0);
B=symetrie(A,O);
C=pp(0,7);
D=symetrie(C,O);
E=pp(3.5,-0.5);
F=symetrie(E,C,D);
G=pp(-11,12);
H=symetrie(G,C,D);
I=pp(-12.5,12);
J=symetrie(I,C,D);
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);
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);
path cc[];
cc1=cercles(A,5u);
cc2=cercles(B,5u);
cc3=cercles(C,5u);
cc4=cercles(D,5u);
cc5=cercles(E,6.75u);
cc6=cercles(F,6.75u);
cc7=cercles(G,3.5u);
cc8=cercles(H,3.5u);
cc9=cercles(I,3.25u);
cc10=cercles(J,3.25u);
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);
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));;
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);
);
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);
);
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);
);
etape4=image(
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);
);
trace etape4;
fin;
figure(0,0,19u,19u);
trace etape4;
fin;
end