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

chameau.mp (figure 1)
Source

prologues:=2;
input geometriesyr16
%1
figure(0,0,14u,11u);
trace grille(0.5) withcolor orange;
origine((14,11));
pair A,B,C,D,E,F,G,H,I,J,K,L,M,In[],N,O,P,Q,R,S,T,U,V,W;
A=pp(0,0);
B=pp(0,5);
C=pp(0,-3);
D=pp(0,-4.5);
E=pp(3,0);
F=symetrie(E,A);
G=pp(6,5);
H=symetrie(G,A,B);
I=pp(-2.5,3.5);
J=symetrie(I,A,B);
K=pp(-2.5,-4);
L=symetrie(K,A,B);
M=pp(0,-7);
N=pp(-5,6);
O=symetrie(N,A,B);
P=pp(-6,4.5);
Q=symetrie(P,A,B);
R=pp(0,10);
S=pp(-2.5,1.5);
T=symetrie(S,A,B);
U=pp(0,1.5);
V=pp(-6.5,-4.5);
W=symetrie(V,A,B);
path cc[];
cc1=cercles(E,B);
cc2=cercles(F,B);
cc3=cercles(B,2u);
cc4=cercles(G,u);
cc5=cercles(H,u);
cc6=cercles(C,A);
cc7=cercles(D,1.75u);
In1=cc3 intersectionpoint cc1;
In2=symetrie(In1,A,B);
In3=symetrie(cc2 intersectionpoint cc6,F,C);
In4=symetrie(In3,A,B);
In6=symetrie(cc7 intersectionpoint cc6,A,B);
cc8=cercles(I,In2);
cc9=cercles(J,In1);
cc10=cercles(K,In4);
cc11=cercles(L,In3);
cc12=cercles(M,1.25u);
cc13=cercles(M,1u);
cc14=cercles(N,u);
cc15=cercles(O,u);
cc16=cercles(P,u);
cc17=cercles(Q,u);
cc18=cercles(R,Q);
cc19=cercles(S,1.5u);
cc20=cercles(T,1.5u);
cc21=cercles(A,In6);
cc22=cercles(U,2.25u);
cc23=cercles(U,2u);
cc24=cercles(V,pp(0,-4));
cc25=cercles(W,pp(0,-4));
picture etape[];
etape1=image(
  trace cc3 cutbefore cc1 cutafter (subpath(length cc2/4,length cc2/2) of cc2);
  trace cc1 cutbefore segment(B,B) cutafter (subpath(length cc6/4,length cc6/2) of cc6);
  trace symetrie(cc1 cutbefore segment(B,B) cutafter (subpath(length cc6/4,length cc6/2) of cc6),A,B);
  trace cc6 cutbefore cc7 cutafter cc7;
  trace cc7 cutbefore (subpath(length cc6/4,length cc6/2) of cc6) cutafter demidroite(A,C);
  trace symetrie(cc7 cutbefore (subpath(length cc6/4,length cc6/2) of cc6) cutafter demidroite(A,C),A,C);
  );
etape2=image(
  trace etape1;
  trace cc13 cutbefore cc7 cutafter cc7;
  trace cc12 cutbefore (subpath(length cc7/2,3*length cc7/4) of cc7);
  trace cc10 cutafter segment(In4,In4);
  trace symetrie(cc10 cutafter segment(In4,In4),A,B);
  trace cc5 cutbefore cc8 cutafter (subpath(length cc14/4,length cc14/2) of cc14);
  trace symetrie(cc5 cutbefore cc8 cutafter (subpath(length cc14/4,length cc14/2) of cc14),A,B);
  trace cc14 cutbefore cc5 cutafter cc8;
  trace symetrie(cc14 cutbefore cc5 cutafter cc8,A,B);
  trace cc16 cutbefore cc8 cutafter (subpath(length cc14/4,3*length cc14/4) of cc14);
  trace symetrie(cc16 cutbefore cc8 cutafter (subpath(length cc14/4,3*length cc14/4) of cc14),A,B);
  );
etape3=image(
  trace etape2;
  trace cc21 cutbefore (subpath(length cc8/2,3*length cc8/4) of cc8) cutafter (subpath(length cc7/4,length cc7/2) of cc7);
  trace symetrie(cc21 cutbefore (subpath(length cc8/2,3*length cc8/4) of cc8) cutafter (subpath(length cc7/4,length cc7/2) of cc7),A,B);
  trace cc19 cutbefore (subpath(length cc18/2,3*length cc18/4) of cc18) cutafter cc21;
  trace symetrie(cc19 cutbefore (subpath(length cc18/2,3*length cc18/4) of cc18) cutafter cc21,A,B);
  trace cc8 cutbefore cc22 cutafter cc21;
  trace symetrie(cc8 cutbefore cc22 cutafter cc21,A,B);
  trace cc18 cutbefore cc8 cutafter (subpath(length cc19/4,length cc19/2) of cc19);
  trace symetrie(cc18 cutbefore cc8 cutafter (subpath(length cc19/4,length cc19/2) of cc19),A,B);
  trace cc22 cutbefore cc6 cutafter cc10;
  trace symetrie(cc22 cutbefore cc6 cutafter cc10,A,B);
  trace cc23 cutbefore cc6 cutafter cc10;
  trace symetrie(cc23 cutbefore cc6 cutafter cc10,A,B);
  trace cc24 cutbefore (subpath(length cc7/2,length cc7) of cc7);
  trace symetrie(cc24 cutbefore (subpath(length cc7/2,length cc7) of cc7),A,B);
  remplis buildcycle(subpath(length cc8/4,3*length cc8/4) of cc8,cc18,subpath(length cc19/4,3*length cc19/4) of cc19);
  remplis symetrie(buildcycle(subpath(length cc8/4,3*length cc8/4) of cc8,cc18,subpath(length cc19/4,3*length cc19/4) of cc19),A,B);
  );
trace etape3;
fin;
figure(0,0,14u,11u);
trace etape3;
fin;
end