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

ex09.mp (figure 1)
Source

%epitrochoïde
input mp-solid

invnormale:=-1;
intensite:=10;

%2"
figureespace(-10u,-10u,10u,10u);
Initialisation(5,80,50,30);
r:=5;
R:=1;
d:=1.5;
Lumiere:=2*(0,Ypart(Oeil),Zpart(Oeil));
arcenciel:=true;
draw Tuben("((R+r)*cos(t)-d*cos((R+r)*t/r),(R+r)*sin(t)-d*sin((R+r)*t/r),0.5)","(-(R+r)*sin(t)+d*(R+r)*sin((R+r)*t/r)/r,(R+r)*cos(t)-d*(R+r)*cos((R+r)*t/r)/r,0)",0.5,0,102,0.06283);
TraceAxes;
finespace;

end