A = (0, 0, 0)
B = (1, 0, 0)
C = (1, 1, 0)
D = (0, 1, 0)
mnogokotnik1, a, b, c, d = Polygon(A, B, C, D)
E = (-0.0035359881019899897, -0.0018246813835195441, 1)
F = (1, 0, 1)
mnogokotnik2, a_1, b_1, f, e = Polygon(A, B, F, E)
G = (1, 1, 1)
mnogokotnik3, b_2, c_1, g, f_1 = Polygon(B, C, G, F)
H = (0, 1, 1)
mnogokotnik4, c_2, g_1, h, d_1 = Polygon(C, G, H, D)
mnogokotnik5, d_2, h_1, e_1, a_2 = Polygon(D, H, E, A)
mnogokotnik6, e_2, f_2, g_2, h_2 = Polygon(E, F, G, H)
α = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
β = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
γ = 1.9896753472735358 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
matrika2: {{cos(β), 0, sin(β)}, {0, 1, 0}, {-sin(β), 0, cos(β)}}
matrika3: {{cos(γ), -sin(γ), 0}, {sin(γ), cos(γ), 0}, {0, 0, 1}}
matrika1: {{1, 0, 0}, {0, cos(α), -sin(α)}, {0, sin(α), cos(α)}}
matrika4: {{x(A)}, {y(A)}, {z(A)}}
matrika5: {{x(B)}, {y(B)}, {z(B)}}
matrika6: {{x(C)}, {y(C)}, {z(C)}}
matrika7: {{x(D)}, {y(D)}, {z(D)}}
matrika8: {{x(E)}, {y(E)}, {z(E)}}
matrika9: {{x(F)}, {y(F)}, {z(F)}}
matrika10: {{x(G)}, {y(G)}, {z(G)}}
matrika11: {{x(H)}, {y(H)}, {z(H)}}
matrika12: matrika1 * matrika2 * matrika3
matrika13: matrika12 * matrika4
matrika14: matrika12 * matrika5
matrika15: matrika12 * matrika6
matrika16: matrika12 * matrika7
matrika17: matrika12 * matrika8
matrika18: matrika12 * matrika9
matrika19: matrika12 * matrika10
matrika20: matrika12 * matrika11
A': (Element[Element[matrika13, 1], 1], Element[Element[matrika13, 2], 1], Element[Element[matrika13, 3], 1])
B': (Element[Element[matrika14, 1], 1], Element[Element[matrika14, 2], 1], Element[Element[matrika14, 3], 1])
C': (Element[Element[matrika15, 1], 1], Element[Element[matrika15, 2], 1], Element[Element[matrika15, 3], 1])
D': (Element[Element[matrika16, 1], 1], Element[Element[matrika16, 2], 1], Element[Element[matrika16, 3], 1])
E': (Element[Element[matrika17, 1], 1], Element[Element[matrika17, 2], 1], Element[Element[matrika17, 3], 1])
F': (Element[Element[matrika18, 1], 1], Element[Element[matrika18, 2], 1], Element[Element[matrika18, 3], 1])
G': (Element[Element[matrika19, 1], 1], Element[Element[matrika19, 2], 1], Element[Element[matrika19, 3], 1])
H': (Element[Element[matrika20, 1], 1], Element[Element[matrika20, 2], 1], Element[Element[matrika20, 3], 1])
mnogokotnik7, a', b', c', d' = Polygon(A', B', C', D')
mnogokotnik8, e', f', g', h' = Polygon(E', F', G', H')
mnogokotnik9, a'_1, b'_1, f'_1, e'_1 = Polygon(A', B', F', E')
mnogokotnik10, b'_2, f'_2, g'_1, c'_1 = Polygon(B', F', G', C')
mnogokotnik11, d'_1, c'_2, g'_2, h'_1 = Polygon(D', C', G', H')
mnogokotnik12, a'_2, d'_2, h'_2, e'_2 = Polygon(A', D', H', E')