Fichier panthere.mp (figure 2) — Modifié le 21 Mars 2008 à 22 h 53

panthere.mp (figure 2)
Source

prologues:=2;
input geometriesyr16
%1
figure(0,0,17u,14u);
trace grille(0.5) withcolor orange;
origine((17,6));
pair A,B,C,F,D,E,K,L,I,J,O,P,G,H,M,N,Q;
A=pp(0,0);
B=pp(-2,2);
C=pp(2,2);
F=pp(0,8);
D=pp(-4,10);
E=pp(4,10);
H=pp(-11,16);
G=pp(11,16);
K=pp(-3,14);
L=pp(3,14);
I=pp(-10,9);
J=pp(10,9);
M=pp(-12,14);
N=pp(12,14);
O=pp(-3,15);
P=pp(3,15);
Q=pp(0,-6);
path cc[];
cc1=cercles(B,C);
cc2=cercles(C,B);
cc3=cercles(A,2.5u);
cc4=cercles(D,4.5u);
cc5=cercles(E,4.5u);
cc6=cercles(I,cc1 intersectionpoint demidroite(B,I));
cc7=cercles(J,cc2 intersectionpoint demidroite(C,J));
cc8=cercles(K,2.5u);
cc9=cercles(L,2.5u);
cc10=cercles(O,3u);
cc11=cercles(P,3u);
cc12=cercles(F,3.5u);
cc14=cercles(F,3.5u);
cc15=cercles(G,2.5u);
cc16=cercles(H,2.5u);
cc17=cercles(N,3u);
cc18=cercles(M,3u);
cc20=cercles(Q,2.5u);
picture etape[];
etape1=image(
  trace cc1;trace cc2;
  trace cc3 cutbefore (subpath(length cc1/2,3*length cc1/4) of cc1) cutafter cc2;
  trace cc14 cutbefore cc2 cutafter cc1;
  );
etape2=image(
  trace etape1;
  trace cc4 cutbefore (subpath(3*length cc9/4,length cc9) of cc9);
  trace cc4 cutafter (subpath(length cc1/2,3*length cc1/4) of cc1);
  trace cc5 cutafter cc8;
  trace cc5 cutbefore (subpath(3*length cc2/4,length cc2) of cc2);
  trace cc6 cutafter (subpath(length cc4/4,length cc4/2) of cc4);
  trace cc6 cutbefore segment(cc1 intersectionpoint demidroite(B,I),cc1 intersectionpoint demidroite(B,I));
  trace cc7 cutbefore cc5 cutafter segment(cc2 intersectionpoint demidroite(C,J),cc2 intersectionpoint demidroite(C,J));
  trace cc8 cutbefore cc6 cutafter cc6;
  trace symetrie(cc8 cutbefore cc6 cutafter cc6,A,A+u*(0,1));
  );
etape3=image(
  trace etape2;
  trace cc10 cutbefore cc6 cutafter cc6;
  trace symetrie(cc10 cutbefore cc6 cutafter cc6,A,A+u*(0,1));
  trace cc12 cutbefore cc9 cutafter (subpath(length cc7/4,length cc7/2) of cc7);
  trace symetrie(cc12 cutbefore cc9 cutafter (subpath(length cc7/4,length cc7/2) of cc7),A,A+u*(0,1));
  );
etape4=image(
  trace etape3;
  trace cc16 cutbefore cc4 cutafter cc4;
  trace symetrie(cc16 cutbefore cc4 cutafter cc4,A,A+u*(0,1));
  trace cc18 cutbefore cc4 cutafter cc16;
  trace symetrie(cc18 cutbefore cc4 cutafter cc16,A,A+u*(0,1));
  );
etape5=image(
  trace etape4;
  trace cc20 cutafter demidroite(pp(2,-5),pp(2,0));
  trace cc20 cutbefore demidroite(pp(-2,-5),pp(-2,0));
  );
trace etape5;
fin;
figure(0,0,17u,14u);
trace etape5;
fin;
end