doc/figures/fusionphan.mp

   1 input mp-solid
   2
   3 outcolor:=blanc;
   4 incolor:=0.5[vert,blanc];
   5
   6 %30''
   7 figureespace(-10u,-10u,10u,10u);
   8 Initialisation(500,60,40,50);
   9 nb:=18; subh:=24;
  10 angy:=90; TR:=(-1,0,0);
  11 Objetcylindre1("r=0.5","h=7");
  12 TR:=(0,0,0);
  13 nb:=12;
  14 Ferme2:=false;
  15 ObjetTube2("(sin(t),cos(t),t/5)","(cos(t),-sin(t),1/5)",0.25,-5,165,0.2);
  16 nbobj:=2;
  17 DessineFusion;
  18 finespace;
  19 end