Fichier ex12.mp (figure 1) — Modifié le 3 Août 2008 à 07 h 09

ex12.mp (figure 1)
Source

input mp-solid

arcenciel:=true;

%17"
figureespace(-10u,-10u,10u,10u);
Initialisation(1000,45,-10,55);
draw Tuben("(1.3*(1-cos(2.5*t))*cos(6*t),1.3*(1-cos(2.5*t))*sin(6*t),t)","(3.25*sin(2.5*t)*cos(6*t)-7.8*(1-cos(2.5*t))*sin(6*t),3.25*sin(2.5*t)*sin(6*t)+7.8*(1-cos(2.5*t))*cos(6*t),1)",0.15,0,270,0.04);
finespace;
end