input mp-solid

vardef tand(expr x)=sind(x)/cosd(x)
enddef;

creux:=true;

figureespace(-10u,-10u,10u,10u);
Initialisation(2500,15,50,50);
eclairage:=false;
drawoptions(withcolor gris);
outcolor:=blanc;
nb:=10;subh:=10;
Objetgrille10("bm=-2.5","bn=2.5","am=-2.5","an=2.5");
AffichageObjet10;
drawoptions();
nb:=1;subh:=1;
eclairage:=true;
outcolor:=jaune;
Objetcube20("a=1");
TR:=(0,0,0.5);
ObjetDeplacement20(20);
angz:=0;TR:=0.5*(1+tand(45))*(cosd(0),sind(0),0);
ObjetDeplacement1(20);
angz:=90;TR:=0.5*(1+tand(45))*(cosd(90),sind(90),0);
ObjetDeplacement2(20);
angz:=2*90;TR:=0.5*(1+tand(45))*(cosd(2*90),sind(2*90),0);
ObjetDeplacement3(20);
angz:=3*90;TR:=0.5*(1+tand(45))*(cosd(3*90),sind(3*90),0);
ObjetDeplacement4(20);
nbobj:=4;
DessineFusion;
finespace;
end