↶

↷

↕

b = 4.625122517784973 rad (slider from 0° to 360°, step 1°)
a = 2.478367537831948 rad (slider from 0° to 360°, step 1°)
r: 2
h = 11 (slider from 0 to 20, step 1)
abajo = -1
r1 = CurveCartesian((r * cos(a - b + ((t * 2) * π / h))), (r * sin(a - b + ((t * 2) * π / h))), t, t, 0, h)
r2 = CurveCartesian((r * cos(a - b + ((t * 2) * π / h))), (r * sin(a - b + ((t * 2) * π / h))), t + h / 4, t, ((-h)) / 4, h)
a_3, a_2, a_3, a_4 = Cylinder((0, 0, 0), (0, 0, h), r - 0.02)
b1 = CurveCartesian((r * cos(a - b + ((t * 2) * π / h))), (r * sin(a - b + ((t * 2) * π / h))), t + h / 2, t, ((-h)) / 2, h / 2)
b2 = CurveCartesian((r * cos(a - b + ((t * 2) * π / h))), (r * sin(a - b + ((t * 2) * π / h))), t + (3 * h / 4), t, (-3 * h / 4), h / 4)
a_1 = Surface((r1(t) * k) + (r2(t) * (1 - k)), t, ((-h)) / 4, h, k, 0, 1)
b_1 = Surface((b1(t) * k) + (b2(t) * (1 - k)), t, (-3 * h / 4), h / 2, k, 0, 1)
hs: 0.2
rs: r + 0.2
f, f_2, f_3, f_4 = Cylinder((0, 0, h), (0, 0, (5 * h / 4)), rs)
i, i_2, i_3, i_4 = Cylinder((0, 0, 0), (0, 0, ((-h)) / 4), rs)
re: 3
c = Surface(((re * cos(u)) * cos(v)), ((re * sin(u)) * cos(v)), (re * sin(v)) + 0.5 + h + (0.8 * re), u, 0, (2 * π), v, ((-π)) / 4, π)
j = Surface(((re * cos(u)) * cos(v)), ((re * sin(u)) * cos(v)), (re * sin(v)) - 0.5 - (0.8 * re), u, 0, (2 * π), v, (-π), π / 4)
anima = true
giro = 9
oculta = true