doc/figures/revolution2.mp

   1 input mp-solid
   2
   3 r=3;R=8;h=6;
   4
   5 path pp;
   6 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;
   7
   8 incolor:=0.5[jaune,white];
   9 outcolor:=0.8[bleu,white];
  10
  11 figureespace(-10u,-10u,10u,10u);
  12 Initialisation(500,30,20,25);
  13 draw Revolution("pp",0,length pp,0.25,0,2*pi,pi/12);
  14 finespace;
  15 end