input mp-solid

figureespace(-10u,-10u,10u,10u);
Initialisation(500,60,30,25);
outcolor:=blanc;
creux:=false;
subh:=10;
Objetgrille1("am=-5","an=5","bm=-5","bn=5");
AffichageObjet1;
outcolor:=jaune;
incolor:=rouge;
nb:=1; subh:=5;
angx:=90; TR:=(0,4,0);
ObjetPrisme2("axe=(0,0,1)","h=8",for k=0 step 10 until 180:(3*cosd(k),3*sind(k),0), endfor for k=180 step -10 until 0:(cosd(k),sind(k),0), endfor(3,0,0));
AffichageObjet2;
TraceAxes;
finespace;

angx:=0; TR:=(0,0,0);

figureespace(-10u,-10u,10u,10u);
Initialisation(500,60,30,25);
outcolor:=blanc;
subh:=10;
Objetgrille1("am=-5","an=5","bm=-5","bn=5");
AffichageObjet1;
outcolor:=jaune;
incolor:=rouge;
nb:=1; subh:=5;
angx:=90; TR:=(0,4,0);
creux:=true;
ObjetPrisme2("axe=(0,0,1)","h=8",for k=0 step 10 until 180:(3*cosd(k),3*sind(k),0), endfor for k=180 step -10 until 0:(cosd(k),sind(k),0), endfor(3,0,0));
AffichageObjet2;
TraceAxes;
finespace;
end