Cylinder net

Cylinder

Net

h

h

r

VirSTEM

a = 0.93 (slider from 0 to 1, step 0.01)
b: ((1 - a) * π)
c: (π / 2 * a)
d: π / b
e = Surface(((2 * d) * sin((b * v))), (2 * cos((b * v))), (4 * sin(u)), v, -1, 1, u, 0, 3)
A = Point(yAxis)
f = Line(A, xAxis)
e' = Rotate(e, c, f)
g = If(a < 1, e', Surface[u, v, 0, u, (-2 * π), (2 * π), v, 2, 6])
h = Circle((0, 0, 4), 2, z = 4)
i = OrthogonalLine(A, xOyPlane)
B = Intersect(i, h)
j = Line(B, xAxis)
h' = Rotate(h, (-c), j)
h'' = Rotate(h', c, f)
Cylinder = Circle((0, 0), 2, z = 0)
k = Segment(B, A)
C = Intersect(xAxis, yAxis)
D = Point(zAxis)
l = Segment(C, D)
E = Intersect(yAxis, Cylinder, 1)
m = Segment(C, E)
n, p, q, o = Cylinder(C, D, 2)