%epitrochoïde
input mp-solid

%2"
figureespace(-10u,-10u,10u,10u);
Initialisation(5,80,50,30);
r:=2;
R:=4;
d:=4;
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);
finespace;
end