3D Tube Transformations

TPP[k_]:=Table[{-3k*Cos[t]-k*Cos[4t]+5k*Sin[2t],
-5k*Cos[2t]+3k*Sin[t]-k*Sin[4t],7k*Cos[3t]},
{t,0,2Pi+.3,.3}]
Graphics3D[Table[{Hue[i/20],Opacity[.4],
Tube[TPP[i],1]},{i,20}],
Boxed->False,ImageSize->500]