Fichier crocorond2.mp (figure 1) — Modifié le 21 Mars 2008 à 22 h 19
prologues:=2;
input geometriesyr16
%1
figure(0,0,16u,17.5u);
trace grille(0.5) withcolor blanc;
origine((16,16));
pair A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,inter[];
path cc[];
A=pp(0,0);
B=pp(-6,1);
C=pp(-1,-5);
E=pp(-7,6);
F=pp(5,3);
G=pp(-1.5,3);
H=pp(-1,9);
I=pp(-1,7.5);
J=pp(-0.5,11);
K=pp(3.5,8.5);
L=pp(5,11);
M=pp(7.5,21);
N=pp(11,19);%11,19
O=pp(12.5,17);%12.5,17
P=pp(7,10);
Q=pp(12.5,9.5);
R=pp(13,11.5);
S=pp(5.5,13);%6,12.5
cc1=cercles(A,2.75u);
cc3=cercles(C,5u);
cc4=cercles(A,7u);
cc5=cercles(E,1.5u);
inter1=cc5 intersectionpoint cc3;
inter2=symetrie(cc1 intersectionpoint cc3,A,C);
cc2=cercles(B,inter1);
cc6=cercles(F,I);
cc7=cercles(G,1.5u);
cc8=cercles(H,I);
cc9=cercles(I,inter2);
cc10=cercles(J,2.75u);
cc11=cercles(K,2.75u);
cc12=cercles(L,1.5u);
inter3=symetrie(cc12 intersectionpoint cc10,L,J);
cc13=cercles(M,inter3);
cc14=cercles(N,L);
cc15=cercles(O,2.75u);
cc16=cercles(P,1.75u);
cc17=cercles(Q,1.25u);
cc18=cercles(R,0.5u);
cc181=cercles(R,0.4u);
cc19=cercles(S,0.75u);
cc191=cercles(S,0.65u);
cc200=cercles(F,S);
picture etape[];
etape1=image(
trace cc1;
trace cc3 cutbefore (subpath(length cc1/4,length cc1/2) of cc1) cutafter (subpath(length cc4/2,3*length cc4/4) of cc4);
trace cc2 cutbefore cc1 cutafter segment(inter1,inter1);
trace cc5 cutafter (subpath(length cc2/4,length cc2/2) of cc2);
trace cc5 cutbefore segment(symetrie(inter1,E,C),symetrie(inter1,E,C));
);
etape2=image(
trace etape1;
trace cc6 cutbefore cc8 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
trace cc7 cutbefore cc1 cutafter cc9;
trace cc8 cutafter demidroite(iso(I,H),H);
trace cc8 cutbefore cc6;
trace cc9 cutbefore demidroite(iso(I,H),H) cutafter segment(inter2,inter2);
);
etape3=image(
trace etape2;
trace cc4 cutbefore (subpath(length cc11/4,length cc11/2) of cc11) cutafter (subpath(length cc3/2,3*length cc3/4) of cc3);
trace cc10 cutbefore (subpath(0,length cc7/4) of cc7) cutafter cc12;
trace cc11 cutbefore (subpath(length cc12/4,length cc12/2) of cc12) cutafter cc4;
trace cc12 cutbefore (subpath(length cc11/8, length cc11/4) of cc11) cutafter cc10;
);
etape4=image(
trace etape3;
trace cc13 cutbefore segment(inter3,inter3) cutafter (subpath(3*length cc14/4,0.85*length cc14) of cc14);
trace cc14 cutbefore cc12 cutafter cc17;
);
etape5=image(
trace etape4;
trace cc17 cutbefore cc14 cutafter (subpath(3*length cc18/4,length cc18) of cc18);
trace cc18;trace cc181;
trace cc19;trace cc191;
trace cc15 cutbefore (subpath(0.15*length cc16,length cc16/4) of cc16) cutafter (subpath(length cc18/4,3*length cc18/4) of cc18);
trace cc16 cutbefore (subpath(length cc15/2,0.65*length cc15) of cc15) cutafter (subpath(0,length cc19/4) of cc19);
trace cc200 cutbefore cc191 cutafter cc191;
);
remplis cc1 withcolor rouge;
trace etape5;
trace symetrie(etape5,A);
remplis symetrie(buildcycle(cc3,cc4,demidroite(inter1,inter1+u*(-1,0))),A) withcolor blanc;
trace symetrie(etape5,A);
remplis buildcycle(cc3,cc4,demidroite(inter1,inter1+u*(-1,0))) withcolor blanc;
trace cc3 cutbefore (subpath(length cc1/4,length cc1/2) of cc1) cutafter (subpath(length cc4/2,3*length cc4/4) of cc4);
trace cc4 cutbefore (subpath(length cc11/4,length cc11/2) of cc11) cutafter (subpath(length cc3/2,3*length cc3/4) of cc3);
fin;
end