input mp-solid

r=2; R=8; h=3;

path pp;
pp=(R,-h/2)--((R+r)/2,h/2)--(r,-h/2)--cycle;

incolor:=0.5[jaune,white];
outcolor:=0.8[bleu,white];

figureespace(-10u,-10u,10u,10u);
Initialisation(500,30,40,25);
draw Revolution("pp",0,length pp,0.1,0,2*pi,pi/12);
finespace;

end