input mp-solid

figureespace(-10u,-10u,10u,10u);
Initialisation(500,60,30,25);
Lumiere:=Oeil;
outcolor:=blanc;
creux:=false;
subh:=10;
Objetgrille1("am=-5","an=5","bm=-5","bn=5");
AffichageObjet1;
outcolor:=vert;
incolor:=orange;
nb:=1;
subh:=5;
creux:=true;
ObjetPrisme2("axe=(0,0,1)","h=6",for k=0 step 5 until 175:(12*sind(k)*(cosd(k)**3),12*(sind(k)**2)*(cosd(k)**2),0),endfor (0,0,0));
AffichageObjet2;
TraceAxes;
finespace;
end