Im

Re

n = 1
b = 0.2 (slider from -1 to 1, step 0.001)
O: (0, 0, 0)
A_0: (5, 0, 0)
d = CurveCartesian((5 * cos(t)), (5 * sin(t)), ((5 * b) * t), t, 0, (4 * π))
t = 1.0471975511965976 (slider from 0 to (4 * π), step π / 36)
g = Line(A_0, O)
C = Point(g)
D = Point(g)
v = Vector((0, 8, 0))
Q: ((5 * cos(t)), (5 * sin(t)), ((5 * b) * (t - π / 2)))
w = Vector(O, (0, 0, ((b * 5) * π / 2)))
F: A_0 + w
G: D + w
i: v + w
A': (6, 0, 0) + w
a = Surface((r * cos(t)), (r * sin(t)), (b * t), t, (2 * π), ((2 * 2) * π), r, 0, 5)
c = Surface((r * cos(t)), (r * sin(t)), (b * t), t, 0, (2 * π), r, 0, 5)
e = Surface((r * cos(t)), (r * sin(t)), (b * t), t, (4 * π), (6 * π), r, 0, 5)
f = Surface((r * cos(t)), (r * sin(t)), (b * t), t, (6 * π), (8 * π), r, 0, 5)
j = Surface((r * cos(t)), (r * sin(t)), (b * t), t, (-4 * π), (-2 * π), r, 0, 5)
h = Surface((r * cos(t)), (r * sin(t)), (b * t), t, (-2 * π), 0, r, 0, 5)
A_1: (5, 0, ((2 * b) * π))
A_2: (5, 0, ((4 * b) * π))
u = Vector((-8, 0, 0))
k = Segment(C, O)