mreža kocke

n = 0 (slider from 0 to 3, step 0.05)
drs1 = If(n < 1, 0, n - 1)
drs2 = If(drs1 < 1, 0, drs1 - 1)
alfa: 324 ° + 36 ° drs2
beta = If(drs1 < 1, 20 ° + 70 ° drs1, 90°)
gama = If(n < 1, 180 ° n, 180°)
yE4 = 0
yH4 = 1
v2: cos(alfa)
w2: sin(alfa) sin(beta)
D: (v2, w2)
A = Intersect(xAxis, yAxis)
w3: cos(beta)
zE4 = If(gama < 90 °, 1, sin(gama))
xE4 = If(gama < 90 °, 0, cos(gama))
w1: -cos(alfa) sin(beta)
wE4: xE4 w1 + yE4 w2 + zE4 w3
zH4 = If(gama < 90 °, 1, sin(gama))
xH4 = If(gama < 90 °, 0, cos(gama))
wH4: xH4 w1 + yH4 w2 + zH4 w3
v3 = 0
v1: sin(alfa)
vE4: xE4 v1 + yE4 v2 + zE4 v3
E4: (vE4, wE4)
vH4: xH4 v1 + yH4 v2 + zH4 v3
H4: (vH4, wH4)
xH3 = 0
xG3 = 1
zH3 = If(gama < 90 °, 1, sin(gama))
yH3 = If(gama < 90 °, 1, 1 - cos(gama))
zG3 = If(gama < 90 °, 1, sin(gama))
yG3 = If(gama < 90 °, 1, 1 - cos(gama))
wH3: xH3 w1 + yH3 w2 + zH3 w3
wG3: xG3 w1 + yG3 w2 + zG3 w3
c = Ray(A, D)
vH3: xH3 v1 + yH3 v2 + zH3 v3
H3: (vH3, wH3)
vG3: xG3 v1 + yG3 v2 + zG3 v3
G3: (vG3, wG3)
B: (v1, w1)
b = Ray(A, B)
e = Line(D, b)
f = Line(B, c)
C = Intersect(e, f)
yG2 = 1
yF2 = 0
zG2 = If(gama < 90 °, 1, sin(gama))
xG2 = If(gama < 90 °, 1, 1 - cos(gama))
wG2: xG2 w1 + yG2 w2 + zG2 w3
zF2 = If(gama < 90 °, 1, sin(gama))
xF2 = If(gama < 90 °, 1, 1 - cos(gama))
wF2: xF2 w1 + yF2 w2 + zF2 w3
vG2: xG2 v1 + yG2 v2 + zG2 v3
G2: (vG2, wG2)
vF2: xF2 v1 + yF2 v2 + zF2 v3
F2: (vF2, wF2)
xE = 0
xF = 1
zE = If(gama < 90 °, 1, sin(gama))
yE = If(gama < 90 °, 0, cos(gama))
zF = If(gama < 90 °, 1, sin(gama))
yF = If(gama < 90 °, 0, cos(gama))
vE: xE v1 + yE v2 + zE v3
vF: xF v1 + yF v2 + zF v3
wE: xE w1 + yE w2 + zE w3
E1: (vE, wE)
wF: xF w1 + yF w2 + zF w3
F1: (vF, wF)
E: (v3, w3)
d = Ray(A, E)
g = Line(B, d)
h = Line(D, d)
i = Line(E, c)
j = Line(E, b)
k = Line(C, d)
F = Intersect(g, j)
l = Line(F, i)
G = Intersect(k, l)
H = Intersect(h, i)
P, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
xG1 = 1
yG1 = If(gama < 90 °, cos(gama), 2 cos(gama))
zG1 = If(gama < 90 °, 1 + sin(gama), 2 sin(gama))
vG1: xG1 v1 + yG1 v2 + zG1 v3
wG1: xG1 w1 + yG1 w2 + zG1 w3
G1: (vG1, wG1)
xH1 = 0
yH1 = If(gama < 90 °, cos(gama), 2 cos(gama))
zH1 = If(gama < 90 °, 1 + sin(gama), 2 sin(gama))
vH1: xH1 v1 + yH1 v2 + zH1 v3
wH1: xH1 w1 + yH1 w2 + zH1 w3
H1: (vH1, wH1)
U, a, m, n_2, p = Polygon(F1, E1, H1, G1)
Q, a, m_1, n_1, p_1 = Polygon(F1, B, A, E1)
S, q, r, s, t = Polygon(B, C, G2, F2)
T, e_1, f_1, g_1, i_1 = Polygon(G3, C, D, H3)
R, h_1, j_1, k_1, l_1 = Polygon(A, D, H4, E4)