doc/figures/ressortgaston.mp

   1 input mp-solid
   2
   3 figureespace(-10u,-10u,10u,10u);
   4 %ok ressort-siège
   5 nb:=6;
   6 %ok nb=6 10''
   7 invnormale:=-1;
   8 Initialisation(1000,20,20,25);
   9 arcenciel:=true;
  10 draw Tuben("((t**2+3)*sin(15*t),(t**2+3)*cos(15*t),2*t)","(2*t*sin(15*t)+15*((t**2)+3)*cos(15*t),2*t*cos(15*t)-15*((t**2)+3)*sin(15*t),2)",0.2,-2,360,1/90);
  11 finespace;
  12 end