---

b1 := tubeplot([cos(t), sin(t), t], t=0..2*Pi, radius=t^(1/2)/8, style=patch):
b2 := pointplot3d([0.9, -0.1, 6.2], symbol=solidsphere, symbolsize=22):
b3 := display(b1, b2):
b4 := seq(rotate(b3, 0, Pi/5, w), w=0..5):
b5 := translate(b1, -1, 0, -5):
b := translate(display(b4, b5), 0, 0, 5):
c1 := seq(rotate(b, 0, Pi/5, w), w=0..5):
c2 := translate(b1, -1, 0, -6):
c := translate(display(c1, c2), 0, 0, 6);
[Length of output exceeds limit of 1000000]
e1 := seq(rotate(c, 0, Pi/5, w), w=0..5):
e2 := translate(b1, -1, 0, -6):
translate(display(e1, e2), 0, 0, 6);