input mp-solid

figureespace(-10u,-10u,10u,10u);
Initialisation(500,10,20,50);
TR:=(0,0,-2);
nb:=16;
subh:=12;
eclairage:=false;
drawoptions(withcolor gris);
outcolor:=blanc;
Objetgrille1("am=-4","an=4","bm=-1","bn=5");
AffichageObjet1;
eclairage:=true;
drawoptions();
TR:=(0,0,0);
outcolor:=0.5[vert,blanc];
incolor:=0.5[jaune,blanc];
nb:=48;
subh:=10;
Ferme2:=false;
ObjetCylindre2("(u,0.5*(u**2),v)",3,-2,-2,2);%courbe de base (u,2*sin(u),0) axe (0,1,1)->(0,v,v)
AffichageObjet2;
finespace;
end