input mp-solid;
figureespace(-10u,-10u,10u,10u);
Initialisation(1500,30,20,40);
outcolor:=0.9gris;
traits:=false;
nb:=72;
subh:=1;
Objetcylindre1("r=2","h=5");
AffichageObjet1;
drawoptions(withpen pencircle scaled5bp withcolor rouge);
draw Projette((r,0,0))--Projette((r,0,h))--Projette((-r,0,h));
draw Projette((0,-r,h))--Projette((0,r,h))--Projette((0,r,0));
draw Projette((0,0,h))..Projette((0,-r/4,h+0.5))..Projette((0,0,h+1))..Projette((0,r/8,h+0.5))..cycle;
draw Projette((0,0,h))..Projette((0,r/4,h+0.5))..Projette((0,0,h+1))..Projette((0,-r/8,h+0.5))..cycle;
%TraceAxesD(2,2,2);
finespace;
end