da = -0.18 (slider from -5 to 5, step 0.02)
O': (0, da, 0)
k = 0.6 (slider from 0 to (5 * r), step 0.02)
p1: z = k
r = 0.5 (slider from -5 to 5, step 0.02)
F: ((-3 * r), (-r))
B: ((3 * r), r)
O = Intersect(yAxis, zAxis)
dr = 0 (slider from -5 to 5, step 0.02)
S: (0, 0, (3 * r) + dr)
pBSF = Plane(B, S, F)
i = Sphere(O, (3 * r) + dr)
s = IntersectPath(pBSF, i)
K, L = Intersect(p1, s)
k' = 1.2 (slider from 0 to (5 * r), step 0.02)
p2: z = k'
U, V = Intersect(p2, s)
j = Line(K, U)
A: ((3 * r), (-r))
C: (r, (3 * r))
D: ((-r), (3 * r))
E: ((-3 * r), r)
G: ((-r), (-3 * r))
H: (r, (-3 * r))
poly1, a, b, c, d, e, f, g, h = Polygon(A, B, C, D, E, F, G, H)
pASE = Plane(A, S, E)
pCSG = Plane(C, S, G)
pDSH = Plane(D, S, H)
t = IntersectPath(pCSG, i)
c_1 = IntersectPath(pDSH, i)
(z = z,z = ((k * 3) * r))
(z = z,z = ((k * 3) * r))
d_1 = IntersectPath(pASE, i)
I, J = Intersect(p1, d_1)
M, N = Intersect(p1, t)
P, Q = Intersect(p1, c_1)
R, T = Intersect(p2, d_1)
W, Z = Intersect(p2, t)
A_1, B_1 = Intersect(p2, c_1)
C_1 = Midpoint(A, B)
pABKI = Plane(A, B, K)
pBCMK = Plane(B, C, M)
pSRU = Plane(S, R, U)
pSUW = Plane(S, U, W)
l = OrthogonalLine(O', j, space)
pOKU = OrthogonalPlane(K, l)
D_1 = Midpoint(K, I)
E_1 = Midpoint(R, U)
m = Line(C_1, D_1)
n = Line(S, E_1)
F_1 = Intersect(n, pOKU)
G_1 = Intersect(m, pOKU)
H_1 = Midpoint(B, C)
I_1 = Midpoint(K, M)
J_1 = Midpoint(U, W)
p = Line(H_1, I_1)
q = Line(S, J_1)
K_1 = Intersect(q, pOKU)
L_1 = Intersect(p, pOKU)
poly2, k_1, l_1, f_1, u, g_1, h_1 = Polygon(K, L_1, K_1, U, F_1, G_1)
poly3, a_1, b_1, k_2, i_1, i_2 = Polygon(A, B, K, G_1, I)
poly4, b_2, c_2, m_1, j_1, k_3 = Polygon(B, C, M, L_1, K)
q1, s_1, r_1, n_1, u_1 = Polygon(S, R, F_1, U)
q2, s_2, u_2, p_1, w = Polygon(S, U, K_1, W)
q_1: y = 0
poly2' = Mirror(poly2, q_1)
k'' = 0.5 (slider from 0 to (5 * r), step 0.02)
eq1: x^(2) + y^(2) = k''^(2)
M_1, P_1 = Intersect(s_1, eq1)
N_1, Q_1 = Intersect(s_2, eq1)
O_1, R_1 = Intersect(w, eq1)
poly5, r_2, t_1, u_3, e_1, f_2 = Polygon(R, F_1, U, N_1, M_1)
poly6, u_4, g_2, w_1, o_1, h_2 = Polygon(U, K_1, W, O_1, N_1)
poly3' = Rotate(poly3, 90°, zAxis)
poly3'' = Rotate(poly3', 90°, zAxis)
poly3''' = Rotate(poly3'', 90°, zAxis)
poly4' = Rotate(poly4, 90°, zAxis)
poly4'' = Rotate(poly4', 90°, zAxis)
poly4''' = Rotate(poly4'', 90°, zAxis)
poly5' = Rotate(poly5, 90°, zAxis)
poly5'' = Rotate(poly5', 90°, zAxis)
poly5''' = Rotate(poly5'', 90°, zAxis)
poly6' = Rotate(poly6, 90°, zAxis)
poly6'' = Rotate(poly6', 90°, zAxis)
poly6''' = Rotate(poly6'', 90°, zAxis)
poly2'_{1} = Rotate(poly2, 90°, zAxis)
poly7 = Rotate(poly2'_{1}, 90°, zAxis)
poly7' = Rotate(poly7, 90°, zAxis)
poly2'' = Rotate(poly2', 90°, zAxis)
poly2''' = Rotate(poly2'', 90°, zAxis)
poly8 = Rotate(poly2''', 90°, zAxis)
j_2 = OrthogonalLine(O, q_1)