doc/figures/hypotube.mp

   1 input mp-solid
   2
   3 figureespace(-10u,-10u,10u,10u);
   4
   5 nb:=16;
   6 unit:=0.8;
   7 Initialisation(1000,20,45,37.5);
   8 for k=-5 upto 5:
   9   draw Projette((k,-5,0))--Projette((k,5,0));
  10   draw Projette((-5,k,0))--Projette((5,k,0));
  11 endfor;
  12 eclairage:=false;
  13 outcolor:=blanc;
  14 draw Tuben("(4*cos(t)+cos(4*t)/2,4*sin(t)-sin(4*t)/2,1)","(-4*sin(t)-2*sin(4*t),4*cos(t)-2*cos(4*t),0)",1,0,102,0.06283);
  15
  16 finespace;
  17 end