doc/figures/exfusion.mp

   1 input ../../newjpv
   2 input objets
   3
   4 outcolor:=0.5[rouge,blanc];
   5 incolor:=0.5[vert,blanc];
   6
   7 figureespace(-10u,-10u,10u,10u);
   8 Initialisation(500,40,20,100);
   9 Lumiere:=Oeil;
  10 nb:=10;
  11 Ferme1:=true;
  12 ObjetTube1("(cos(t),sin(t),0.25)","(-sin(t),cos(t),0)",0.15,0,50,0.12566);
  13 angx:=90;
  14 TR:=(-1,-0.1,0.5);
  15 Ferme2:=true;
  16 ObjetTube2("(cos(t),sin(t),0.25)","(-sin(t),cos(t),0)",0.15,0,50,0.12566);
  17 nbobj=2;
  18 DessineFusion;
  19 finespace;
  20 end