input mp-solid

r=3;R=8;h=6;

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

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

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