doc/figures/objettube.mp

   1 input mp-solid
   2
   3 %27''
   4 figureespace(-20u,-20u,20u,20u);
   5 Initialisation(1500,60,20,30);
   6 nb:=16;%16
   7 subh:=18;%18
   8 outcolor:=0.5[jaune,blanc];
   9 incolor:=0.5[violet,blanc];
  10 ObjetTube1("(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);
  11 AffichageObjet1;
  12 finespace;
  13
  14 figureespace(-20u,-20u,20u,20u);
  15 Initialisation(1500,60,20,30);
  16 nb:=16;%16
  17 subh:=18;%18
  18 outcolor:=0.5[jaune,blanc];
  19 incolor:=0.5[violet,blanc];
  20 creux:=true;
  21 ObjetTube1("(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);
  22 AffichageObjet1;
  23 finespace;
  24 end