# Edit a code to become with combined animations

So in the following code, I would like to make the following animation. First: "t1" the blue line in the bottom together with "x,y,z" the blue lines in the top. So when "t1" finishes "z" finishes. This means "x,y,z" are 3 times faster than "t1"

Second: after that the red line "t2" in the bottom starts together with red lines "x1,y1,z1" in the top and finishes with "z1" as above.

I need also the lines to enter "b" (the second cylinder in the top) from the opposite direction. Thank you very much! x = ParametricPlot3D[{Cos[Sqrt Pi t] (3 + Cos[Pi t]), Sin[Sqrt Pi t] (3 + Cos[Pi t]), Sin[Pi t]}, {t, 0, 10},
PlotStyle -> {Blue, Opacity},MeshFunctions-> {#1 &}, Mesh -> {{0, Pi/2 - 100}}, MeshShading -> {None, Automatic, None}]

y = ParametricPlot3D[{Cos[Sqrt Pi t] (3 + Cos[Pi t]), Sin[Sqrt Pi t] (3 + Cos[Pi t]), Sin[Pi t] + 4}, {t, 0, 10},
PlotStyle -> {Blue, Opacity}, MeshFunctions -> {#1 &}, Mesh -> {{0, Pi/2 - 100}}, MeshShading -> {None, Automatic, None}]

z = ParametricPlot3D[{Cos[Sqrt Pi t] (3 + Cos[Pi t]), Sin[Sqrt Pi t] (3 + Cos[Pi t]), Sin[Pi t] + 8}, {t, 0, 10},
PlotStyle -> {Blue, Opacity}, MeshFunctions -> {#1 &},Mesh -> {{0, Pi/2 - 100}}, MeshShading -> {None, Automatic, None}]

x1 = ParametricPlot3D[{Cos[1/2 Sqrt Pi t] (3 + Cos[Pi t]),Sin[1/2 Sqrt Pi t] (3 + Cos[Pi t]), Sin[Pi t]}, {t, 0, 10}, PlotStyle -> {Red, Opacity}, MeshFunctions -> {#1 &},
Mesh -> {{0, Pi/2 - 100}}, MeshShading ->{None, Automatic, None}]

y1 = ParametricPlot3D[{Cos[1/2 Sqrt Pi t] (3 + Cos[Pi t]), Sin[1/2 Sqrt Pi t] (3 + Cos[Pi t]), Sin[Pi t] + 4}, {t, 0, 10},PlotStyle -> {Red, Opacity}, MeshFunctions -> {#1 &},
Mesh -> {{0, Pi/2 - 100}}, MeshShading -> {None, Automatic, None}]

z1 = ParametricPlot3D[{Cos[1/2 Sqrt Pi t] (3 + Cos[Pi t]),
Sin[1/2 Sqrt Pi t] (3 + Cos[Pi t]), Sin[Pi t] + 8}, {t, 0, 10},
PlotStyle -> {Red, Opacity}, MeshFunctions -> {#1 &}, Mesh -> {{0, Pi/2 - 100}}, MeshShading -> {None, Automatic, None}]

a = ParametricPlot3D[{(3 + Cos[v]) Sin[u], (3 + Cos[v]) Cos[u],Sin[v]}, {u, -Pi, Pi}, {v, 0, 2 Pi}, MeshFunctions -> {#4 &},Mesh -> {{ -3 - Pi/16, -1 + Pi/16}},MeshShading -> {None, Automatic, None}]

b = ParametricPlot3D[{(3 + Cos[v]) Sin[u], (3 + Cos[v]) Cos[u],
Sin[v] + 4}, {u, -Pi, Pi}, {v, 0, 2 Pi},MeshFunctions -> {#4 &},Mesh -> {{ -3 - Pi/16, -1 + Pi/16}}, MeshShading -> {None, Automatic, None}]

c = ParametricPlot3D[{(3 + Cos[v]) Sin[u], (3 + Cos[v]) Cos[u], Sin[v] + 8}, {u, -Pi, Pi}, {v, 0, 2 Pi}, MeshFunctions ->{#4 &},Mesh -> {{ -3 - Pi/16, -1 + Pi/16}},