Author: Daniel Mentrard

Ver el sistema de referencia

Ver el cubo inicial

B = (-2.4026980979402173, -9.772472846419907)
Vista = (-0.6569345080603262, -6.598357228456468)
ya: y(Vista)
sintheta: sin(ya)
xa: x(Vista)
sinphi: sin(xa)
cosphi: cos(xa)
Zoom = 7.2 (slider from 0.1 to 10, step 0.1)
d = Circle(Vista, 0.2)
C = Point(d)
e = Ray(Vista, C)
a = OrthogonalLine(Vista, yAxis)
b = OrthogonalLine(Vista, xAxis)
c: cos(ya)
costheta: cos(ya)
Z: (x(B) + 0.0, y(B) + Zoom * costheta)
xy: -(Zoom) * cosphi * sintheta
X: (x(B) + Zoom * sinphi, y(B) + xy)
u = Vector(B, X)
Y: (x(B) + Zoom * cosphi, y(B) + Zoom * sinphi * sintheta)
v = Vector(B, Y)
w = Vector(B, Z)
O = (16, -2)
P = Translate(O, u)
Q = Translate(P, v)
R = Translate(Q, w)
S = Mirror(R, O)
T = Mirror(R, Q)
U = Mirror(T, P)
V = Mirror(R, P)
W = Mirror(U, O)
Z_1 = Mirror(T, O)
A1 = Mirror(V, O)
f = false
poly1, w_1, s, z, a1 = Polygon(W, S, Z_1, A1)
poly2, t, v_1, u_1, r = Polygon(T, V, U, R)
poly3, w_2, t_1, r_1, a1_1 = Polygon(W, T, R, A1)
poly4, s_1, v_2, u_2, z_1 = Polygon(S, V, U, Z_1)
A = Midpoint(u_2)
E = Midpoint(u_1)
F = Midpoint(v_1)
g = Segment(U, F)
h = Segment(A, U)
H = Point(h)
J = Point(g)
i = Segment(U, E)
G = Point(i)
poly5, j, h_1, g_1 = Polygon(H, G, J)
H' = Mirror(H, O)
G' = Mirror(G, O)
J' = Mirror(J, O)
poly5', j', h', g' = Polygon(H', G', J')
k = Line(G, r_1)
l = Line(H, z)
m = Line(J, u_2)
I = Intersect(m, s)
K = Intersect(k, z)
L = Intersect(r_1, l)
n = Line(A, z)
p = Mirror(l, n)
M = Intersect(u_2, p)
poly6, i_1, k_1, m_1 = Polygon(K, M, I)
K' = Mirror(K, O)
M' = Mirror(M, O)
I' = Mirror(I, O)
poly6', i', k', m' = Polygon(K', M', I')
N = Midpoint(z)
q = Line(E, r_1)
b1 = Line(G, g)
c1 = Line(I', t)
d1 = Line(H, g)
B1 = Intersect(c1, s_1)
C1 = Intersect(d1, s_1)
D1 = Intersect(b1, t)
E1 = Intersect(c1, v_1)
poly7, d1_1, e1, c1_1 = Polygon(E1, C1, D1)
E1' = Mirror(E1, O)
C1' = Mirror(C1, O)
D1' = Mirror(D1, O)
poly7', d1', e1', c1' = Polygon(E1', C1', D1')
f1 = Line(M, s)
g1 = Line(J', w_1)
h1 = Line(K, s)
F1 = Intersect(h1, w_1)
G1 = Intersect(f1, s_1)
H1 = Intersect(s, z_1)
I1 = Intersect(s, z_1)
J1 = Intersect(g1, s)
poly8, f1_1, j1, g1_1 = Polygon(J1, G1, F1)
J1' = Mirror(J1, O)
G1' = Mirror(G1, O)
F1' = Mirror(F1, O)
poly8', f1', j1', g1' = Polygon(J1', G1', F1')
poly9, k_2, m_2, h_2, g_2, f1'_1, g1'_1, c1'_1, d1'_1 = Polygon(K, M, H, G, F1', G1', C1', D1')
poly10, g_3, f1'_2, j1'_1, i'_1, k'_1, d1_2, e1_1, j_1 = Polygon(G, F1', J1', I', K', D1, E1, J)
poly11, m_3, h_3, j_2, e1_2, c1_2, g1_2, j1_1, i_2 = Polygon(M, H, J, E1, C1, G1, J1, I)
poly12, c1'_2, g1'_2, j1'_2, i'_2, m'_1, h'_1, j'_1, e1'_1 = Polygon(C1', G1', J1', I', M', H', J', E1')
poly13, d1'_2, k_3, i_3, j1_2, f1_2, g'_1, j'_2, e1'_2 = Polygon(D1', K, I, J1, F1, G', J', E1')
o = false