A = Intersect(yAxis, zAxis)
r = 2.5 (slider from 1 to 3, step 0.1)
c = Circle(A, r, xOyPlane)
h = 5 (slider from 1 to 5, step 0.1)
T: (0, 0, h)
B = Intersect(xAxis, c, 2)
a = Segment(T, B)
b = OrthogonalPlane(B, xAxis)
d = Circle(B, a, yAxis)
C, D = Intersect(b, d)
e = Segment(T, C)
E = Midpoint(e)
f = Line(B, E)
F, G = Intersect(f, d)
g = CircumcircleArc(T, F, C)
i = Circumference(d)
AçKapa = 0 (slider from 0 to ((2 * π) * g / i) - 0.001, step 1.0E-6)
j = Line(B, yAxis)
T' = Rotate(T, (-AçKapa), j)
k = Plane(T', j)
l = Segment(T', B)
c' = Rotate(c, (-AçKapa), j)
A' = Rotate(A, (-AçKapa), j)
m = Segment(T', A')
B'_1 = Rotate(B, 15*°, m)
p = Circle(l, B'_1)
H, I = Intersect(k, p)
J = Midpoint(B'_1, H)
n = Plane(J, l)
K, L = Intersect(n, p)
q = CircumcircleArc(B'_1, K, H)
o = Circumference(p)
M = Rotate(B'_1, (-((((AçKapa * q) * i)) / ((o * g)))), l)
çokgen1, t', m_1, b_1 = Polygon(M, B, T')
s = Plane(xAxis, zAxis)
çokgen1' = Mirror(çokgen1, s)
M' = Mirror(M, s)
N = Midpoint(t')
t = OrthogonalPlane(N, t')
çokgen1'' = Mirror(çokgen1', t)
M'' = Mirror(M', t)
çokgen1''' = Mirror(çokgen1'', s)
O = Midpoint(M'', M)
a_1 = Segment(M'', M)
u = OrthogonalPlane(O, a_1)
çokgen1'_1 = Mirror(çokgen1, u)
B'_2 = Mirror(B, u)
çokgen2 = Mirror(çokgen1'_1, s)
c_1 = Segment(B'_2, M'')
Q = Midpoint(c_1)
v = OrthogonalPlane(Q, c_1)
çokgen1'''_1 = Mirror(çokgen1'', v)
M'_1 = Mirror(M, v)
çokgen3 = Mirror(çokgen1'''_1, s)
d_1 = Segment(B'_2, M'_1)
P = Midpoint(d_1)
w = OrthogonalPlane(P, d_1)
çokgen4 = Mirror(çokgen1'_1, w)
M''' = Mirror(M'', w)
çokgen4' = Mirror(çokgen4, s)
e_1 = Segment(M'_1, M''')
R = Midpoint(e_1)
f_1 = OrthogonalPlane(R, e_1)
çokgen5 = Mirror(çokgen1'''_1, f_1)
S = Mirror(B'_2, f_1)
çokgen5' = Mirror(çokgen5, s)
g_1 = Segment(M''', S)
U = Midpoint(g_1)
h_1 = OrthogonalPlane(U, g_1)
çokgen4'_1 = Mirror(çokgen4, h_1)
V = Mirror(M'_1, h_1)
çokgen6 = Mirror(çokgen4'_1, s)
i_1 = Segment(V, S)
W = Midpoint(i_1)
j_1 = OrthogonalPlane(W, i_1)
çokgen5'_1 = Mirror(çokgen5, j_1)
Z = Mirror(M''', j_1)
çokgen7 = Mirror(çokgen5'_1, s)
k_1 = Segment(Z, V)
A_1 = Midpoint(k_1)
l_1 = OrthogonalPlane(A_1, k_1)
çokgen8 = Mirror(çokgen4'_1, l_1)
S' = Mirror(S, l_1)
çokgen8' = Mirror(çokgen8, s)
n_1 = Segment(S', Z)
B_1 = Midpoint(n_1)
o_1 = OrthogonalPlane(B_1, n_1)
çokgen9 = Mirror(çokgen5'_1, o_1)
V' = Mirror(V, o_1)
çokgen9' = Mirror(çokgen9, s)
p_1 = Segment(V', S')
C_1 = Midpoint(p_1)
q_1 = OrthogonalPlane(C_1, p_1)
çokgen8'_1 = Mirror(çokgen8, q_1)
Z' = Mirror(Z, q_1)
çokgen10 = Mirror(çokgen8'_1, s)
r_1 = Segment(Z', V')
D_1 = Midpoint(r_1)
s_1 = OrthogonalPlane(D_1, r_1)
çokgen9'_1 = Mirror(çokgen9, s_1)
çokgen11 = Mirror(çokgen9'_1, s)
t_1 = Segment(A, T)
c'_1 = Rotate(c, ((AçKapa * i)) / ((4 * g)), j)