prologues:=2;
input mp-solid
figureespace(-10u,-10u,10u,10u);
Initialisation(1500,-15,20,100);
color O,A,B,C,D,E,F,G,H,N[],L[],K[],S[],V[],W[];
B=(0,0,0);
C=(0,1,0);
angz:=60;
A=RotZ(C);
O=(A+B+C)/3;
N0=A;
N1=2/5[A,C];
N2=1/4[A,1/2[B,C]];
N3=1/8[N2,B];
N4=1/4[N2,C];
N5=2/5[N3,C];
draw Projette(A)--Projette(B)--Projette(C)--cycle dashed evenly;
TR:=O;
angz:=120;
N6=O;
N7=Image(N5-O);
N8=Image(N4-O);
N9=Image(N3-O);
N10=Image(N2-O);
N11=Image(N1-O);
N12=2[N10,ProjectionsurPlan(N10,B,A,(0,0,1))];
N13=2[N9,ProjectionsurPlan(N9,B,A,(0,0,1))];
N14=2[N8,ProjectionsurPlan(N8,B,A,(0,0,1))];
N15=2[N7,ProjectionsurPlan(N7,B,A,(0,0,1))];
N16=2[O,ProjectionsurPlan(O,B,A,(0,0,1))];
N17=2[N5,ProjectionsurPlan(N5,B,A,(0,0,1))];
N18=2[N4,ProjectionsurPlan(N4,B,A,(0,0,1))];
N19=2[N3,ProjectionsurPlan(N3,B,A,(0,0,1))];
N20=2[N2,ProjectionsurPlan(N2,B,A,(0,0,1))];
N21=2[N1,ProjectionsurPlan(N1,B,A,(0,0,1))];
TR:=A;
angz:=120;
for k=0 upto 21:
  L[k]=Image(N[k]-A);
endfor;
angz:=-120;
for k=0 upto 21:
  K[k]=Image(N[k]-A);
endfor;
angz:=0;
TR:=C-A;
for k=0 upto 21:
  S[k]=Image(K[k]);
endfor;
TR:=B-A;
for k=0 upto 21:
  V[k]=Image(L[k]);
endfor;
TR:=C-B;
for k=0 upto 21:
  W[k]=Image(N[k]);
endfor;
path demichinois[];
for l=-3 upto 2:
  for k=-2 upto 2:
    demichinois1:=Projette(N0+k*(A-B)+l*(C-B))--Projette(N1+k*(A-B)+l*(C-B))--Projette(N2+k*(A-B)+l*(C-B))--Projette(N3+k*(A-B)+l*(C-B))--Projette(N4+k*(A-B)+l*(C-B))--Projette(N5+k*(A-B)+l*(C-B))--Projette(N6+k*(A-B)+l*(C-B))--Projette(N7+k*(A-B)+l*(C-B))--Projette(N8+k*(A-B)+l*(C-B))--Projette(N9+k*(A-B)+l*(C-B))--Projette(N10+k*(A-B)+l*(C-B))--Projette(N11+k*(A-B)+l*(C-B))--Projette(N12+k*(A-B)+l*(C-B))--Projette(N13+k*(A-B)+l*(C-B))--Projette(N14+k*(A-B)+l*(C-B))--Projette(N15+k*(A-B)+l*(C-B))--Projette(N16+k*(A-B)+l*(C-B))--Projette(N17+k*(A-B)+l*(C-B))--Projette(N18+k*(A-B)+l*(C-B))--Projette(N19+k*(A-B)+l*(C-B))--Projette(N20+k*(A-B)+l*(C-B))--Projette(N21+k*(A-B)+l*(C-B))--cycle;
    fill demichinois1 withcolor violet;
    draw demichinois1;
  endfor;
endfor;
%
for l=-2 upto 4:
  for k=-2 upto 4:
    demichinois2:=Projette(L0+k*(B-C)+l*(C-A))--Projette(L1+k*(B-C)+l*(C-A))--Projette(L2+k*(B-C)+l*(C-A))--Projette(L3+k*(B-C)+l*(C-A))--Projette(L4+k*(B-C)+l*(C-A))--Projette(L5+k*(B-C)+l*(C-A))--Projette(L6+k*(B-C)+l*(C-A))--Projette(L7+k*(B-C)+l*(C-A))--Projette(L8+k*(B-C)+l*(C-A))--Projette(L9+k*(B-C)+l*(C-A))--Projette(L10+k*(B-C)+l*(C-A))--Projette(L11+k*(B-C)+l*(C-A))--Projette(L12+k*(B-C)+l*(C-A))--Projette(L13+k*(B-C)+l*(C-A))--Projette(L14+k*(B-C)+l*(C-A))--Projette(L15+k*(B-C)+l*(C-A))--Projette(L16+k*(B-C)+l*(C-A))--Projette(L17+k*(B-C)+l*(C-A))--Projette(L18+k*(B-C)+l*(C-A))--Projette(L19+k*(B-C)+l*(C-A))--Projette(L20+k*(B-C)+l*(C-A))--Projette(L21+k*(B-C)+l*(C-A))--cycle;
    fill demichinois2 withcolor rouge;
    draw demichinois2;
  endfor;
endfor;
%
for l=-1 upto 3:
  for k=-1 upto 3:
    demichinois3:=Projette(K0+k*(C-A)+l*(B-A))--Projette(K1+k*(C-A)+l*(B-A))--Projette(K2+k*(C-A)+l*(B-A))--Projette(K3+k*(C-A)+l*(B-A))--Projette(K4+k*(C-A)+l*(B-A))--Projette(K5+k*(C-A)+l*(B-A))--Projette(K6+k*(C-A)+l*(B-A))--Projette(K7+k*(C-A)+l*(B-A))--Projette(K8+k*(C-A)+l*(B-A))--Projette(K9+k*(C-A)+l*(B-A))--Projette(K10+k*(C-A)+l*(B-A))--Projette(K11+k*(C-A)+l*(B-A))--Projette(K12+k*(C-A)+l*(B-A))--Projette(K13+k*(C-A)+l*(B-A))--Projette(K14+k*(C-A)+l*(B-A))--Projette(K15+k*(C-A)+l*(B-A))--Projette(K16+k*(C-A)+l*(B-A))--Projette(K17+k*(C-A)+l*(B-A))--Projette(K18+k*(C-A)+l*(B-A))--Projette(K19+k*(C-A)+l*(B-A))--Projette(K20+k*(C-A)+l*(B-A))--Projette(K21+k*(C-A)+l*(B-A))--cycle;
    fill demichinois3 withcolor vert;
  endfor;
endfor;
%
%demichinois4:=Projette(S0)--Projette(S1)--Projette(S2)--Projette(S3)--Projette(S4)--Projette(S5)--Projette(S6)--Projette(S7)--Projette(S8)--Projette(S9)--Projette(S10)--Projette(S11)--Projette(S12)--Projette(S13)--Projette(S14)--Projette(S15)--Projette(S16)--Projette(S17)--Projette(S18)--Projette(S19)--Projette(S20)--Projette(S21)--cycle;
%fill demichinois4 withcolor orange;
%
%demichinois5:=Projette(V0)--Projette(V1)--Projette(V2)--Projette(V3)--Projette(V4)--Projette(V5)--Projette(V6)--Projette(V7)--Projette(V8)--Projette(V9)--Projette(V10)--Projette(V11)--Projette(V12)--Projette(V13)--Projette(V14)--Projette(V15)--Projette(V16)--Projette(V17)--Projette(V18)--Projette(V19)--Projette(V20)--Projette(V21)--cycle;
%fill demichinois5 withcolor ciel;
%
%demichinois6:=Projette(W0)--Projette(W1)--Projette(W2)--Projette(W3)--Projette(W4)--Projette(W5)--Projette(W6)--Projette(W7)--Projette(W8)--Projette(W9)--Projette(W10)--Projette(W11)--Projette(W12)--Projette(W13)--Projette(W14)--Projette(W15)--Projette(W16)--Projette(W17)--Projette(W18)--Projette(W19)--Projette(W20)--Projette(W21)--cycle;
%fill demichinois6 withcolor rose;
%
TR:=(2,0,0);
outcolor:=jaune;
Objettetraedre1("a=1/2");
%AffichageObjet1;
TR:=2*(cosd(60),sind(60),0);
subh:=1;nb:=1;
Objetcube2("a=1/2");
%AffichageObjet2;
TR:=2*(cosd(120),sind(120),0);
Objetoctaedre3("a=1/2");
TR:=2*(cosd(180),sind(180),0);
Objeticosaedre4("a=1/2");
%AffichageObjet3;
TR:=2*(cosd(240),sind(240),0);
Objetdodecaedre5("a=1/2");
nbobj:=5;
DessineFusion;
%TraceAxesD(2,2,2);
finespace;
end