3D Tube Transformations 2

TPP2[k_]:=Table[{-k*Cos[t]-k*Cos[4t]+5k*Sin[2t],
-5k*Cos[2t]+k*Sin[t]-k*Sin[4t],5k*Cos[4t]},
{t,0,2Pi+.1,.1}];
PV[p_,a_,w_,v_]:=RotationTransform[a,w,v]/@p;
Graphics3D[Table[{Hue[Cos[i*Pi/6]^2],Opacity[.5],
Tube[PV[TPP2[1],i*Pi/6,{0,0,1},{12,12,12}],
.3]},{i,12}],Boxed->False,ImageSize->600]