doc/figures/fusion.mp

   1 input mp-solid
   2
   3 figureespace(-10u,-10u,20u,10u);
   4 Initialisation(500,30,20,50);
   5 Ferme1:=true;
   6 outcolor:=0.5[rouge,white];
   7 ObjetTube1("(sin(t),t/3,cos(t))","(cos(t),1/3,-sin(t))",0.1,-2,90,0.1);
   8 Ferme2:=true;
   9 outcolor:=0.5[jaune,white];
  10 ObjetTube2("(cos(t)+1,t+2,t)","(-sin(t),1,1)",0.1,-1,30,0.1);
  11 nbobj:=2;
  12 DessineFusion;
  13 finespace;
  14 end