Author: Daniel Mentrard

Separación

a = 0 (slider from 0 to 1, step 0.1)
O = (6.251762358923954, 1.621599421334023)
Zoom = 1.2 (slider from 0.1 to 2, step 0.1)
Vista = (2.924506477936069, -0.33929119191275575)
xa: x(Vista)
cosphi: cos(xa)
sinphi: sin(xa)
ya: y(Vista)
costheta: cos(ya)
sintheta: sin(ya)
xy: -(Zoom) * cosphi * sintheta
B = (-2, -6)
Y: (x(B) + Zoom * cosphi, y(B) + Zoom * sinphi * sintheta)
v = Vector(B, Y)
X: (x(B) + Zoom * sinphi, y(B) + xy)
u = Vector(B, X)
P = Translate(O, u)
Q = Translate(P, v)
D: (x(B) + 0.0, y(B) + Zoom * costheta)
w = Vector(B, D)
w1: u + v + w
d = Circle(Vista, 0.2)
c: cos(ya)
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 = Mirror(T, O)
A1 = Mirror(V, O)
poly1, z, u_1, r, a1 = Polygon(Z, U, R, A1)
poly2, w_1, s, v_1, t = Polygon(W, S, V, T)
A = Translate(R, Vector[a * w1])
C = Translate(A1, Vector[a * w1])
E = Translate(S, w1)
F = Translate(S, w1)
G = Translate(S, w1)
H = Translate(S, Vector[a * w1])
I = Translate(W, Vector[a * w1])
poly3, h, a_1, c_1 = Polygon(A, C, H)
poly4, h_1, c_2, i = Polygon(C, I, H)
J = Translate(T, Vector[a * w1])
poly5, a_2, j, i_1, c_3 = Polygon(A, J, I, C)
poly6, h_2, a_3, j_1 = Polygon(A, J, H)
w2: u - v + w
K = Translate(T, Vector[a * w2])
L = Translate(S, Vector[a * w2])
M = Translate(V, Vector[a * w2])
N = Translate(Z, Vector[a * w2])
B1 = Translate(U, Vector[a * w2])
poly7, b1, n, l, m = Polygon(B1, N, L, M)
poly8, m_1, b1_1, k = Polygon(B1, K, M)
poly9, l_1, n_1, k_1 = Polygon(N, K, L)
poly10, l_2, m_2, k_2 = Polygon(M, K, L)
poly11, n_2, b1_2, k_3 = Polygon(B1, K, N)
C1 = (-3.672344345125593, 7.09001637401086)
poly12, a_4, c_4, i_2, j_2 = Polygon(A, C, I, J)
D1 = Translate(Z, Vector[a * w])
E1 = Translate(A1, Vector[a * w])
F1 = Translate(U, Vector[a * w])
G1 = Translate(R, Vector[a * w])
poly13, d1, e1, g1, f1 = Polygon(D1, E1, G1, F1)
H1 = Translate(T, Vector[a * w])
poly14, g1_1, f1_1, h1 = Polygon(F1, H1, G1)
I1 = Translate(S, Vector[a * w])
J1 = Translate(W, Vector[a * w])
poly15, h1_1, g1_2, e1_1 = Polygon(G1, E1, H1)
poly16, f1_2, d1_1, h1_2 = Polygon(D1, H1, F1)
poly17, h1_3, d1_2, e1_2 = Polygon(D1, E1, H1)