Cone net

2π r

Cone

Net

h

r

VirSTEM

l

A = Intersect(yAxis, zAxis)
B = Point(zAxis)
a, c, b = Cone(A, B, 2)
C = Intersect(xAxis, c, 2)
α = Angle(B, C, A)
f = Line(C, yAxis)
d = 1 (slider from 0 to 1, step 0.01)
B' = Rotate(B, (d * α), f)
g = OrthogonalLine(B', xOyPlane)
D = Intersect(g, xOyPlane)
l = Distance(C, D)
β: ((2 * π) * 2 / l)
C' = Rotate(C, (0.5 * β), g)
C'_1 = Rotate(C, (-0.5 * β), g)
h = Distance(B', D)
e = CurveCartesian(((l - (l * cos(((v * 0.5) * β)))) * cos((π * d))) - 2, (l * sin(((v * 0.5) * β))), ((l - (l * cos(((v * 0.5) * β)))) * sin((π * d))), v, -1, 1)
F = Point(e)
k: c
i = Surface(((1 - u) * (((l - (l * cos(((v * 0.5) * β)))) * cos((π * d))) - 2)) - ((u * d) * (l + 2)), (((1 - u) * l) * sin(((v * 0.5) * β))), (((1 - u) * (l - (l * cos(((v * 0.5) * β))))) * sin((π * d))) + (u * h), u, 0, 1, v, -1, 1)
G = Intersect(yAxis, xAxis)
H = Intersect(zAxis, b, 1)
j = Segment(G, H)
I = Point(k)
m = Segment(I, G)
n = Segment(B, I)