---

a1 := tubeplot({[cos(t), sin(t), 0], [0, sin(t)-1, cos(t)]}, t=0..2*Pi, radius=t^(1/2)/8, style=patch):

a2 := translate(a1, 2, 2, 2):

a3 := display(a2, seq(rotate(a1, 0, 0, Pi/5*t), t=0..9)):

display(a2, seq(rotate(a2, 0, 0, Pi/5*t), t=0..9));