%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