doc/figures/fusionhorop.mp

   1 input mp-solid
   2
   3 %27''
   4 figureespace(-20u,-20u,20u,20u);
   5 Initialisation(500,60,20,30);
   6 creux:=true;
   7 nb:=16;%16
   8 subh:=18;%18
   9 outcolor:=blanc;
  10 incolor:=0.5[vert,white];
  11 angx:=90;
  12 TR:=(2,9,0);
  13 Objetcylindre1("r=1","h=18");
  14 outcolor:=0.5[jaune,blanc];
  15 incolor:=0.5[violet,blanc];
  16 angx:=0;
  17 TR:=(0,0,0);
  18 ObjetTube2("(2*(1+cos(t)),2*tan(t/2),2*sin(t))","(-2*sin(t),2/((cos(t/2))**2),2*cos(t))",1,-2.7468,71,0.0763);
  19 nbobj:=2;
  20 DessineFusion;
  21 finespace;
  22 end