Cylindrical Coordinates

Visualize a space curve using cylindrical coordinates

f[t_]:={(1+0.3Sin[t])Cos[t],(1-
0.3Cos[t])Sin[t],t};
r[t_]=(Sqrt[{f[t][[1]],f[t][[2]]}.{f[t][[1]],f[t][[2]]}]);

ParametricPlot3D[f[t],{t,0,4π},BoxRatios->1]

Manipulate[Show[{
Graphics3D[{PointSize[Large],Point[f[tMax]],Line[{{0,0,0},{1.5,0,0}}],Line[{{0,0,0},{0,1.5,0}}],Line[{{0,0,0},{0,0,13}}],Line[{{0,0,0},{f[tMax][[1]],f[tMax][[2]],0},f[tMax]}]}],ParametricPlot3D[{r[t]Cos[θ],r[t]Sin[θ],t},{t,0,tMax},{θ,0,((5π)/3)}],

ParametricPlot3D[{0.5Cos[t],0.5Sin[t],0},{t,0,tMax}],ParametricPlot3D[f[t],{t,0,4π}]
},
Ticks->None,PlotRange->{{-1.5,1.5},{-1.5,1.5},{0,4π}},BoxRatios->1]
,{tMax,(π/8),4π,(π/8)}]

Manipulate[Show[{
Graphics3D[{PointSize[Large],Point[f[tMax]],Line[{{0,0,0},{1.5,0,0}}],Line[{{0,0,0},{0,1.5,0}}],Line[{{0,0,0},{0,0,13}}],Line[{{0,0,0},{f[tMax][[1]],f[tMax][[2]],0},f[tMax],{0,0,tMax}}]}],ParametricPlot3D[{r[tMax]Cos[θ],r[tMax]Sin[θ],t},{t,0,tMax},{θ,0,((5π)/3)}],

ParametricPlot3D[{0.5Cos[t],0.5Sin[t],0},{t,0,tMax}],ParametricPlot3D[f[t],{t,0,4π}]
},
Ticks->None,PlotRange->{{-1.5,1.5},{-1.5,1.5},{0,4π}},BoxRatios->1]
,{tMax,(π/8),4π,(π/8)}]