input mp-solid

figureespace(-10u,-10u,10u,10u);
%ok ressort-siège
nb:=6;
%ok nb=6 10''
invnormale:=-1;
Initialisation(1000,20,20,25);
arcenciel:=true;
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);
finespace;
end