δ = 0.767944870877505 rad (slider from 0 to 220°, step 0.017453292519943295)
D: (0, 0, 0)
zD: z(D)
yD: y(D)
xD: x(D)
a = 4 (slider from 0 to 5)
α = If(δ ≥ 0° ∧ δ ≤ 20°, 0°, If[δ > 20° ∧ δ ≤ 200°, (δ - 20°) / 2, 90°])
A: (xD + (a * cos(α)), yD, ((-a) * sin(α)))
xA: x(A)
zA: z(A)
yA: y(A)
B: (xA, yA + a, zA)
H: ((-zA), yA, xA)
u = Vector(D, H)
E: A + u
F: B + u
C: (xD, yD + a, zD)
G: C + u
q4, b_2, f_2, g_1, c_1 = Polygon(B, F, G, C)
q6, i, j, k_0, l = Polygon(D, A, E, H)
A1: (xD - xA, yD, (-sqrt(a^(2) - xA^(2))))
B1: (xD - xA, yA + a, zA)
u1: ((-x(u)), y(u), z(u))
H1: D + u1
E1: A1 + u1
F1: B1 + u1
G1: C + u1
q10, l_1, c_2, m_1, n_1 = Polygon(B1, C, G1, F1)
q12, d_2, r_1, s_1, t_1 = Polygon(D, A1, E1, H1)
β = If(δ ≥ 0° ∧ δ ≤ 20°, 0°, If[δ > 20° ∧ δ ≤ 200°, δ - 20°, 180°])
H2 = Rotate(H, β, j)
D2 = Rotate(D, β, j)
u'2 = Vector(E, H2)
v'2 = Vector(E, A)
u2: (u'2 ⊗ v'2) / a
F2: E + u2
B2: A + u2
G2: H2 + u2
C2: D2 + u2
q16, e_4, h2, i_2, j_2 = Polygon(E, H2, G2, F2)
γ = If(δ ≥ 0° ∧ δ ≤ 20°, 0°, If[δ > 20° ∧ δ ≤ 200°, δ - 20°, 180°])
H4 = Rotate(H, γ, f_2)
E4 = Rotate(E, γ, f_2)
u'4 = Vector(H4, E4)
v'4 = Vector(H4, G)
u4: (u'4 ⊗ v'4) / a
A4: E4 + u4
D4: H4 + u4
C4: G + u4
B4: F + u4
H5 = Rotate(H2, γ, i_2)
u'5 = Vector(H5, G2)
E5 = Rotate(E, γ, i_2)
v'5 = Vector(H5, E5)
u5: (u'5 ⊗ v'5) / a
A5: E5 + u5
B5: F2 + u5
C5: G2 + u5
D5: H5 + u5
D6 = Rotate(D, (-β), r_1)
H6 = Rotate(H1, (-β), r_1)
u'6 = Vector(E1, A1)
v'6 = Vector(E1, H6)
u6: (u'6 ⊗ v'6) / a
C6: D6 + u6
B6: A1 + u6
F6: E1 + u6
G6: H6 + u6
q35, r_5, s_5, t_5, a_5 = Polygon(G6, H6, E1, F6)
E7 = Rotate(E1, γ, m_1)
H7 = Rotate(H1, γ, m_1)
u'7 = Vector(H7, G1)
v'7 = Vector(H7, E7)
u7: (u'7 ⊗ v'7) / a
A7: E7 + u7
B7: F1 + u7
C7: G1 + u7
D7: H7 + u7
H8 = Rotate(H6, γ, a_5)
E8 = Rotate(E1, γ, a_5)
u'8 = Vector(E8, F6)
v'8 = Vector(E8, H8)
u8: (u'8 ⊗ v'8) / a
A8: E8 + u8
B8: F6 + u8
C8: G6 + u8
D8: H8 + u8
k = 0.5 (slider from 0 to 1)
D5': ((1 - k) * D5) + (k * A5)
D5'': ((1 - k) * D5) + (k * C5)
E5': ((1 - k) * E5) + (k * A5)
E5'': ((1 - k) * E5) + (k * F2)
G2': ((1 - k) * G2) + (k * C5)
G2'': ((1 - k) * G2) + (k * F2)
poly1, b5, a5, d5', d5'', c5 = Polygon(B5, A5, D5', D5'', C5)
poly2, n_4, p_4, e5'', e5', q_4 = Polygon(B5, F2, E5'', E5', A5)
poly3, r_4, s_4, g2', g2'', t_4 = Polygon(B5, C5, G2', G2'', F2)
poly4, b_4, c_4, d_7, e_7, f_8, g_8 = Polygon(D5', D5'', G2', G2'', E5'', E5')
t1, k_3, l_3, m_3 = Polygon(C5, D5'', G2')
t2, n_3, h_4, i_4 = Polygon(A5, E5', D5')
t3, j_4, k_4, l_4 = Polygon(F2, G2'', E5'')
D4': ((1 - k) * D4) + (k * A4)
D4'': ((1 - k) * D4) + (k * C4)
E4': ((1 - k) * E4) + (k * A4)
E4'': ((1 - k) * E4) + (k * F)
G': ((1 - k) * G) + (k * C4)
G'': ((1 - k) * G) + (k * F)
poly5, m_4, h_8, d4'', d4', a4 = Polygon(B4, C4, D4'', D4', A4)
poly6, i_8, j_8, g', g'', f_9 = Polygon(B4, C4, G', G'', F)
poly7, k_8, f_{10}, e4'', e4', l_8 = Polygon(B4, F, E4'', E4', A4)
t4, r_2, f_3, s_2 = Polygon(F, G'', E4'')
t5, t_2, h_3, j_3 = Polygon(G', D4'', C4)
t6, t_3, b_3, d_3 = Polygon(A4, D4', E4')
poly8, g_3, i_3, p_3, q_3, r_3, s_3 = Polygon(D4', D4'', G', G'', E4'', E4')
E7': ((1 - k) * E7) + (k * A7)
E7'': ((1 - k) * E7) + (k * F1)
D7': ((1 - k) * D7) + (k * A7)
D7'': ((1 - k) * D7) + (k * C7)
G1': ((1 - k) * G1) + (k * C7)
G1'': ((1 - k) * G1) + (k * F1)
poly9, f_4, g_4, e7', e7'', f_5 = Polygon(B7, A7, E7', E7'', F1)
poly10, g_5, m_8, g1'', g1', n_8 = Polygon(B7, F1, G1'', G1', C7)
poly11, p_8, q_8, d7'', d7', r_8 = Polygon(B7, C7, D7'', D7', A7)
t7, h_6, c7, i_6 = Polygon(C7, G1', D7'')
t8, j_6, k_6, l_6 = Polygon(F1, G1'', E7'')
t9, m_6, a7, n_6 = Polygon(A7, D7', E7')
poly12, f_6, g_6, p_6, q_6, r_6, s_6 = Polygon(E7', E7'', G1'', G1', D7'', D7')
E8': ((1 - k) * E8) + (k * A8)
E8'': ((1 - k) * E8) + (k * F6)
D8': ((1 - k) * D8) + (k * A8)
D8'': ((1 - k) * D8) + (k * C8)
G6': ((1 - k) * G6) + (k * C8)
G6'': ((1 - k) * G6) + (k * F6)
poly13, b8, c8, g6', g6'', t_6 = Polygon(B8, C8, G6', G6'', F6)
poly14, a_6, b_6, e8'', e8', a8 = Polygon(B8, F6, E8'', E8', A8)
poly15, c_6, d_6, d8', d8'', g_7 = Polygon(B8, A8, D8', D8'', C8)
t10, h_7, i_7, j_7 = Polygon(A8, D8', E8')
t11, k_7, l_7, m_7 = Polygon(F6, E8'', G6'')
t12, n_7, s_8, t_8 = Polygon(C8, D8'', G6')
poly16, e_6, f_7, p_7, q_7, r_7, s_7 = Polygon(D8'', D8', E8', E8'', G6'', G6')
G2''': ((1 - k) * G2) + (k * C2)
D2': ((1 - k) * D2) + (k * C2)
D2'': ((1 - k) * D2) + (k * A)
E': ((1 - k) * E) + (k * F2)
E'': ((1 - k) * E) + (k * A)
poly17, b2, f2, e', e'', a_3 = Polygon(B2, F2, E', E'', A)
poly18, g_2, a_4, d2'', d2', c2 = Polygon(B2, A, D2'', D2', C2)
poly19, h_2, n_2, g2''', p_2, q_2 = Polygon(B2, C2, G2''', G2'', F2)
t13, e_3, t_7, a_7 = Polygon(C2, G2''', D2')
t14, b_7, a_8, c_7 = Polygon(A, D2'', E'')
t15, c_5, b_8, c_8 = Polygon(F2, E', G2'')
poly20, d_8, e_8, g_9, h_9, j_9, k_9 = Polygon(G2''', D2', D2'', E'', E', G2'')
D6': ((1 - k) * D6) + (k * A1)
D6'': ((1 - k) * D6) + (k * C6)
G6''': ((1 - k) * G6) + (k * C6)
E1': ((1 - k) * E1) + (k * A1)
E1'': ((1 - k) * E1) + (k * F6)
poly24, d_5, e_5, l_9, m_9, n_9, p_9 = Polygon(E1'', G6'', G6''', D6'', D6', E1')
poly23, m_2, e_2, d6', d6'', d_4 = Polygon(B6, A1, D6', D6'', C6)
poly21, b6, f6, a_1, g6''', c6 = Polygon(B6, F6, G6'', G6''', C6)
poly22, k_2, l_2, e1'', e1', h_5 = Polygon(B6, F6, E1'', E1', A1)
t16, i_5, j_5, k_5 = Polygon(F6, E1'', G6'')
t17, l_5, m_5, n_5 = Polygon(C6, G6''', D6'')
t18, p_5, q_5, b_5 = Polygon(A1, D6', E1')
E''': ((1 - k) * E) + (k * F)
G''': ((1 - k) * G) + (k * C)
D': ((1 - k) * D) + (k * C)
D'': ((1 - k) * D) + (k * A)
D''': ((1 - k) * D) + (k * A1)
E1''': ((1 - k) * E1) + (k * F1)
G1''': ((1 - k) * G1) + (k * C)
poly25, b_9, f_{11}, i_9, g''', c_9 = Polygon(B, F, G'', G''', C)
poly26, b_{10}, f_{12}, e''', q_9, a_9 = Polygon(B, F, E''', E'', A)
poly27, b_{11}, a_{10}, d'', d', c_{10} = Polygon(B, A, D'', D', C)
poly28, r, s, t, b, f_1, b_1 = Polygon(E''', E'', D'', D', G''', G'')
t19, c_{11}, f, g = Polygon(G''', D', C)
t20, h, m, f_{13} = Polygon(G'', F, E''')
t21, a_2, n, p = Polygon(D'', E'', A)
poly29, b1, c, g1''', q, d = Polygon(B1, C, G1''', G1'', F1)
poly30, e, c_{12}, h_1, d''', a1 = Polygon(B1, C, D', D''', A1)
poly31, i_1, j_1, k_1, e1''', e_1 = Polygon(B1, A1, E1', E1''', F1)
poly32, r_9, s_9, t_9, d_9, e_9, g_{10} = Polygon(G1''', D', D''', E1', E1''', G1'')
t22, p_1, q_1, f1 = Polygon(E1''', F1, G1'')
t23, c_3, d_1, h_{10} = Polygon(D', G1''', C)
t24, i_{10}, j_{10}, k_{10} = Polygon(D''', A1, E1')
oc = 1 (slider from 0 to 1)
oh = 1 (slider from 0 to 1)