r = 2 (slider from 0 to 3, step 0.1)
a = CurveCartesian((r * cos(t)^(2)), ((r * cos(t)) * sin(t)), (r * sin(t)), t, 0, 6.28319)
k = Sphere((0, 0, 0), r)
A: (r / 2, 0, (-r))
B: (r / 2, 0, r)
b, c, d, z = Cylinder(A, B, r / 2)