%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