doc/figures/fusionsolidescreux.mp

   1 input mp-solid
   2
   3 outcolor:=0.5[jaune,white];
   4 incolor:=0.5[vert,white];
   5
   6 nb:=12; subh:=36;
   7
   8 figureespace(-10u,-10u,10u,10u);
   9 Initialisation(1500,20,20,50);
  10 creux:=true;
  11 Objetanneau1("R=4","r=3","h=1.5");
  12 ObjetEnleve1(135,136,137,138,139,140,150,151,152,153,154,155);
  13 angx:=90;
  14 TR:=(0,0,2);
  15 outcolor:=0.5[bleu,white];
  16 incolor:=0.5[rouge,white];
  17 Objetsphere2("R=2");
  18 ObjetEnleve2(232,233,234,235,236,237,238,239);
  19 nbobj:=2;
  20 DessineFusion;
  21 finespace;
  22 end