Fichier rhino.mp (figure 1) — Modifié le 21 Mars 2008 à 22 h 26

rhino.mp (figure 1)
Source

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));
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);
);
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);
  );
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);
  );
etape4=image(
  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);
  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;
  );
trace etape4;
fin;
figure(0,0,13u,17u);
trace etape4;
fin;
end