How to transform torus animation

Question

How I could transform animation on this torus :

 r = 2;
pl1 = ParametricPlot3D[{Cos[v] (r + Cos[u]), Sin[v] (r + Cos[u]), 
    Sin[u]}, {v, 0, 2 Pi}, {u, 0, 2 Pi}, Mesh -> False, 
   PlotStyle -> Opacity[0.7]];

pl2 = ParametricPlot3D[
   Block[{u = 3 t, v = 4 t}, {Cos[v] (r + Cos[u]), 
     Sin[v] (r + Cos[u]), Sin[u]}], {t, 0, 2 Pi}, PlotStyle -> Thick];

Animate[Show[pl1, pl2, 
  Graphics3D[{Green, 
    Sphere[Block[{u = 3 t0, v = 4 t0}, {Cos[v] (r + Cos[u]), 
       Sin[v] (r + Cos[u]), Sin[u]}], 0.1]}]], {t0, 0, 2 Pi}]

To animation based not on Point moving on the Curve, but curve wounding on the Torus, like there curve moving on surface : Surface

score 2 · Accepted Answer · answered Jun 01 '16 at 11:12

Animate[Show[pl1, 
     ParametricPlot3D[Block[{u = 3 t, v = 4 t}, {Cos[v] (r + Cos[u]), 
        Sin[v] (r + Cos[u]), Sin[u]}], {t, 0, t0}, PlotStyle -> Thick], 
  Graphics3D[{Green, Sphere[Block[{u = 3 t0, v = 4 t0}, {Cos[v] (r + Cos[u]), 
       Sin[v] (r + Cos[u]), Sin[u]}], 0.1]}]], {t0, 0, 2 Pi}]

score 2 · Answer 2 · answered Jun 01 '16 at 11:20

Change 2 Pi in the PlotRange for the line with t0

Animate[Show[pl1, 
 ParametricPlot3D[Block[{u = 3 t, v = 4 t}, {Cos[v] (r + Cos[u]), 
 Sin[v] (r + Cos[u]), Sin[u]}], {t, 0, t0}, PlotStyle -> Thick],
 Graphics3D[{Green, Sphere[Block[{u = 3 t0, v = 4 t0}, {Cos[v] (r + Cos[u]), 
 Sin[v] (r + Cos[u]), Sin[u]}], 0.1]}]], {t0, 0, 2 Pi}]

How to transform torus animation

2 Answers2

Linked

Related