D: (0, 0, 0)
zD: z(D)
yD: y(D)
xD: x(D)
a: 4
α = 0.7853981633974483 rad (slider from 0 to 90°, step 0.017453292519943295)
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
q1, r, s, t, b = Polygon(A, B, C, D)
q2, e, f, g, h = Polygon(E, F, G, H)
q3, a_2, b_1, f_1, e_1 = Polygon(A, B, F, E)
q4, b_2, f_2, g_1, c_1 = Polygon(B, F, G, C)
q5, m, n, p, q = Polygon(C, G, H, D)
q6, i, j, k, 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
q7, a1, b1, c, d = Polygon(A1, B1, C, D)
q8, e1, f1, g1, h1 = Polygon(E1, F1, G1, H1)
q9, h_1, i_1, j_1, k_1 = Polygon(A1, B1, F1, E1)
q10, l_1, c_2, m_1, n_1 = Polygon(B1, C, G1, F1)
q11, c_3, d_1, p_1, q_1 = Polygon(C, D, H1, G1)
q12, d_2, r_1, s_1, t_1 = Polygon(D, A1, E1, H1)
β = 1.5707963267948966 rad (slider from 0 to 180°, step 0.017453292519943295)
H2 = Rotate(H, β, j)
D2 = Rotate(D, β, j)
q13, a_1, e_2, h', d' = Polygon(A, E, H2, D2)
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
q14, b2, c2, g2, f2 = Polygon(B2, C2, G2, F2)
q15, a_3, e_3, g_2, h_2 = Polygon(A, E, F2, B2)
q16, e_4, h2, i_2, j_2 = Polygon(E, H2, G2, F2)
q17, k_2, d2, l_2, m_2 = Polygon(H2, D2, C2, G2)
q18, n_2, a_4, p_2, q_2 = Polygon(D2, A, B2, C2)
γ = 1.5707963267948966 rad (slider from 0 to 180°, step 0.017453292519943295)
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) / 4
A4: E4 + u4
D4: H4 + u4
C4: G + u4
B4: F + u4
q19, r_2, t_3, b_3, d_3 = Polygon(A4, B4, F, E4)
q20, d4, c4, g_3, h4 = Polygon(D4, C4, G, H4)
q21, s_2, t_2, f_3, h_3 = Polygon(A4, B4, C4, D4)
q24, p_3, q_3, r_3, s_3 = Polygon(A4, D4, H4, E4)
H5 = Rotate(H2, γ, i_2)
u'5 = Vector(H5, G2)
q22, g_4, f_4, e4, i_3 = Polygon(G, F, E4, H4)
q23, b4, j_3, g_5, f_5 = Polygon(B4, C4, G, F)
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
q25, e5, k_3, l_3, h5 = Polygon(E5, F2, G2, H5)
q26, a5, b5, c5, d5 = Polygon(A5, B5, C5, D5)
q27, m_3, n_3, h_4, i_4 = Polygon(E5, H5, D5, A5)
q28, j_4, k_4, l_4, m_4 = Polygon(H5, G2, C5, D5)
q29, n_4, p_4, q_4, r_4 = Polygon(G2, F2, B5, C5)
q30, s_4, t_4, b_4, c_4 = Polygon(F2, E5, A5, B5)
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
q31, d_4, h_5, h6, d6 = Polygon(A1, E1, H6, D6)
q32, b6, f6, g6, c6 = Polygon(B6, F6, G6, C6)
q33, i_5, j_5, k_5, l_5 = Polygon(A1, B6, C6, D6)
q34, m_5, n_5, p_5, q_5 = Polygon(C6, D6, H6, G6)
q35, r_5, s_5, t_5, a_5 = Polygon(G6, H6, E1, F6)
q36, b_5, c_5, d_5, e_5 = Polygon(E1, F6, B6, A1)
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
q37, e7, f_6, g_6, h7 = Polygon(E7, F1, G1, H7)
q38, a7, b7, c7, d7 = Polygon(A7, B7, C7, D7)
q39, h_6, i_6, j_6, k_6 = Polygon(A7, B7, F1, E7)
q40, l_6, m_6, n_6, p_6 = Polygon(B7, F1, G1, C7)
q41, q_6, r_6, s_6, t_6 = Polygon(C7, D7, H7, G1)
q42, a_6, b_6, c_6, d_6 = Polygon(A7, E7, H7, D7)
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
q43, e8, e_6, f_7, h8 = Polygon(E8, F6, G6, H8)
q44, a8, b8, c8, d8 = Polygon(A8, B8, C8, D8)
q45, g_7, h_7, i_7, j_7 = Polygon(A8, B8, F6, E8)
q46, k_7, l_7, m_7, n_7 = Polygon(B8, F6, G6, C8)
q47, p_7, q_7, r_7, s_7 = Polygon(C8, D8, H8, G6)
q48, t_7, a_7, b_7, c_7 = Polygon(A8, D8, H8, E8)