input mp-solid % figureespace(-20u,-20u,20u,20u); Initialisation(5000,-25,30,20); eclairage:=false; outcolor:=blanc; drawoptions(withcolor gris); Objetgrille1("am=-5","an=5","bm=-5","bn=5"); AffichageObjet1; drawoptions(); eclairage:=true; creux:=true; nb:=1; subh:=5; incolor:=0.5[vert,blanc]; outcolor:=0.5[marron,blanc]; ObjetPrisme1("axe=(0,0,1)","h=8")(for t=0 step 5 until 355:(4*(cosd(t)**3),4*(sind(t)**3),0), endfor (4,0,0)); AffichageObjet1; TraceAxesD(6,6,10); finespace; end