O = (10.180432496479732, 1.228762660675234)
O_1: (7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0)
c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
p: floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
H: O + x(I) * u
J: O + x(I) * v
K: O + x(I) * w
L: H + x(I) * w
M: J + x(I) * w
N: J + x(I) * u
polígono1, o, h_1, n, j = Polygon(O, H, N, J)
polígono2, o_1, j_1, m, k = Polygon(O, J, M, K)
polígono3, o_2, k_1, l, h_2 = Polygon(O, K, L, H)
i = Segment(O, H)
q = Segment(O, J)
r = Segment(O, K)
P: (x(O) - x(O), x(O) - x(O))
Q: (x(O) - x(O), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
R: (0.1 * p^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
S: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
T: (1.4 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
U: (-1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
V: (-1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
W: (-1.4 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
s = Segment(P, I)
t = Segment(Q, R)
a_1 = Segment(T, S)
b_1 = Segment(U, I)
c_1 = Segment(V, W)
Z: (0, 1.3 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
A_3: (0, -1.3 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
d_1 = Segment(Z, A_3)
K_1 = (1.0236871799956035, -2.179839656797691)
L_1 = (1.5349775276165447, -1.1417653146582096)
M_1 = (2.3561408131895716, -0.800905082910917)
N_1 = (2.9294057484009297, -1.3121954305318557)
P_1 = (2.9913803359913467, -2.241814244388108)
Q_1 = (2.294166225599154, -2.7840918858042554)
polígono4, k_2, l_2, m_1, n_1, p_1, q_1 = Polygon(K_1, L_1, M_1, N_1, P_1, Q_1)
r_1 = OrthogonalLine(K_1, xAxis)
s_1 = OrthogonalLine(L_1, xAxis)
t_1 = OrthogonalLine(M_1, xAxis)
a_2 = OrthogonalLine(N_1, xAxis)
b_2 = OrthogonalLine(P_1, xAxis)
c_2 = OrthogonalLine(Q_1, xAxis)
R_1 = Intersect(r_1, xAxis)
S_1 = Intersect(s_1, xAxis)
T_1 = Intersect(xAxis, t_1)
U_1 = Intersect(a_2, xAxis)
V_1 = Intersect(b_2, xAxis)
W_1 = Intersect(c_2, xAxis)
d_2 = Segment(R_1, S_1)
e_2 = Segment(S_1, T_1)
f_2 = Segment(T_1, U_1)
g_2 = Segment(U_1, V_1)
i_2 = Segment(V_1, W_1)
j_2 = Segment(W_1, R_1)
Z_1 = (4.9409706218686775, -1.8537995170210606)
m_2 = OrthogonalLine(Z_1, xAxis)
H_2 = Point(m_2)
t_2 = Line(H_2, xAxis)
a_3 = Segment(R_1, H_2)
t_3 = Segment(K_1, Z_1)
N_2, O_2 = ProyAxonométricadeAenPH(K_1, O)
P_2, Q_2 = ProyAxonométricadeAenPH(L_1, O)
R_2, S_2 = ProyAxonométricadeAenPH(M_1, O)
T_2, U_2 = ProyAxonométricadeAenPH(N_1, O)
V_2, W_2 = ProyAxonométricadeAenPH(P_1, O)
Z_2, B_3 = ProyAxonométricadeAenPH(Q_1, O)
polígono5, n_4, p_4, r_4, t_4, v_2, z_2 = Polygon(N_2, P_2, R_2, T_2, V_2, Z_2)
C_3, D_3, E_3, F_3 = ProyAxonométricaSimplificadadeA(Z_1, H_2, O)
f_4 = Segment(O_2, E_3)
q_4 = Segment(O_2, Q_2)
a_5 = Segment(Q_2, S_2)
b_5 = Segment(S_2, U_2)
d_5 = Segment(U_2, W_2)
e_5 = Segment(W_2, B_3)
f_5 = Segment(B_3, O_2)
m_5 = Segment(N_2, C_3)
b_6 = Segment(N_2, D_3)
e_1 = Segment(P_2, D_3)
f_1 = Segment(R_2, D_3)
g_1 = Segment(T_2, D_3)
i_1 = Segment(V_2, D_3)
l_1 = Segment(Z_2, D_3)
n_2 = Segment(Q_2, E_3)
p_2 = Segment(S_2, E_3)
q_2 = Segment(U_2, E_3)
r_2 = Segment(W_2, E_3)
s_2 = Segment(B_3, E_3)
b_3 = Segment(P_2, C_3)
c_3 = Segment(R_2, C_3)
d_3 = Segment(T_2, C_3)
e_3 = Segment(V_2, C_3)
f_3 = Segment(Z_2, C_3)
g_3 = Segment(S_1, H_2)
h_3 = Segment(T_1, H_2)
i_3 = Segment(U_1, H_2)
j_3 = Segment(V_1, H_2)
k_3 = Segment(W_1, H_2)
l_3 = Segment(L_1, Z_1)
m_3 = Segment(M_1, Z_1)
n_3 = Segment(N_1, Z_1)
p_3 = Segment(P_1, Z_1)
q_3 = Segment(Q_1, Z_1)

Tool: Perpendicular a LT (command PerpendicularaLT)
Punto.
Input: B_1
Output: e_1

e_1 = OrthogonalLine(B_1, xAxis)

Tool: Espacio Diédrico (command EspacioDiédrico)
Seleccionar un punto renombrado a O.
Input: O
Output: s, t, a_1, i, q, r, c, polígono1, polígono2

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
p: floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
H: O + x(I) * u
J: O + x(I) * v
K: O + x(I) * w
M: J + x(I) * w
N: J + x(I) * u
polígono1, o, h_1, n, j = Polygon(O, H, N, J)
polígono2, o_1, j_1, m, k = Polygon(O, J, M, K)
i = Segment(O, H)
q = Segment(O, J)
r = Segment(O, K)
P: (x(O) - x(O), x(O) - x(O))
Q: (x(O) - x(O), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
R: (0.1 * p^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
S: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
T: (1.4 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
s = Segment(P, I)
t = Segment(Q, R)
a_1 = Segment(T, S)

Tool: Espacio Axonométrico (command EspacioAxonométrico)
Seleccionar un punto renombrado a O.
Input: O
Output: b_1, c_1, a_1, i, q, r, c, polígono1, polígono2, polígono3, d_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
H: O + x(I) * u
J: O + x(I) * v
K: O + x(I) * w
L: H + x(I) * w
M: J + x(I) * w
N: J + x(I) * u
polígono1, o, h_1, n, j = Polygon(O, H, N, J)
polígono2, o_1, j_1, m, k = Polygon(O, J, M, K)
polígono3, o_2, k_1, l, h_2 = Polygon(O, K, L, H)
i = Segment(O, H)
q = Segment(O, J)
r = Segment(O, K)
S: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
T: (1.4 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
U: (-1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
V: (-1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
W: (-1.4 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
a_1 = Segment(T, S)
b_1 = Segment(U, I)
c_1 = Segment(V, W)
Z: (0, 1.3 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
A_1: (0, -1.3 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
d_1 = Segment(Z, A_1)

Tool: Proy Axonométrica de A (command ProyAxonométricadeA)
A_1, A_2 y O
Input: A_1, A_2, O
Output: E_1, C_1, D_1, B_1, f_1, g_1, i_1, l_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
e_1 = OrthogonalLine(A_1, xAxis)
B_1: O + x(A_1) * v
C_1: O + x(A_1) * v - y(A_1) * u
D_1: O + x(A_1) * v + y(A_2) * w
E_1: O + x(A_1) * v - y(A_1) * u + y(A_2) * w
f_1 = Segment(C_1, E_1)
g_1 = Segment(E_1, D_1)
i_1 = Segment(D_1, B_1)
l_1 = Segment(B_1, C_1)

Tool: Proy Axonométrica Simplificada de A (command ProyAxonométricaSimplificadadeA)
A_1, A_2 y O
Input: A_1, A_2, O
Output: E_1, C_1, D_1, B_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
e_1 = OrthogonalLine(A_1, xAxis)
B_1: O + x(A_1) * v
C_1: O + x(A_1) * v - y(A_1) * u
D_1: O + x(A_1) * v + y(A_2) * w
E_1: O + x(A_1) * v - y(A_1) * u + y(A_2) * w

Tool: Proy Axonométrica de A en PH (command ProyAxonométricadeAenPH)
A_1 y O
Input: A_1, O
Output: C_1, B_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
B_1: O + x(A_1) * v
C_1: O + x(A_1) * v - y(A_1) * u

Tool: Proy Axonométrica de A en LT (command ProyAxonométricadeAenLT)
A_1=A_2 y O
Input: F_1, O
Output: G_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
B = Intersect(c, xAxis, 2)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
f = Ray(C, B)
v' = UnitVector(f)
E: C + v'
h = OrthogonalLine(E, xAxis)
G = Intersect(h, b)
v = Vector(O, G)
G_1: O + x(F_1) * v

Tool: Proy Axonométrica de A en PV (command ProyAxonométricadeAenPV)
A_2 y O
Input: H_1, O
Output: I_1, J_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
I_1: O + x(H_1) * v + y(H_1) * w
J_1: O + x(H_1) * v

Tool: Prisma hexagonal* (command Prismahexagonal)
Vértices de la base, vértice superior y O
Input: K_1, L_1, M_1, N_1, P_1, Q_1, Z_1, H_2, O
Output: polígono4, polígono4', polígono5, polígono6, polígono7, q_1, p_1, n_1, m_1, l_2, k_2, d_2, e_2, f_2, g_2, i_2, j_2, g_3, f_3, e_3, d_3, c_3, b_3, a_3, h_3, i_3, j_3, k_3, l_3, m_3, n_3, p_3, q_3, r_3, s_3, t_3, a_4, b_4, c_4, d_4, e_4, z_2, v_2, t_4, r_4, p_4, n_4, w_3, s_4, o_3, k_4, g_4, c_5, f_4, h_4, i_4, j_4, l_4, m_4, q_4, a_5, b_5, d_5, e_5, f_5, g_5, h_5, i_5, j_5, k_5, l_5, z_3, t_5, p_5, l_6, h_6, d_6, m_5, n_5, q_5, r_5, s_5, a_6, e_1, f_1, g_1, i_1, l_1, b_6, R_1, S_1, T_1, U_1, V_1, W_1, C_2, D_2, E_2, F_2, G_2, I_2, J_2, K_2, L_2, M_2, O_2, N_2, Q_2, P_2, S_2, R_2, U_2, T_2, W_2, V_2, B_3, Z_2, E_3, D_3, C_3, I_3, H_3, G_3, M_3, L_3, K_3, Q_3, P_3, O_3, U_3, T_3, S_3, A_4, Z_3, W_3

polígono4, k_2, l_2, m_1, n_1, p_1, q_1 = Polygon(K_1, L_1, M_1, N_1, P_1, Q_1)
r_1 = OrthogonalLine(K_1, xAxis)
s_1 = OrthogonalLine(L_1, xAxis)
t_1 = OrthogonalLine(M_1, xAxis)
a_2 = OrthogonalLine(N_1, xAxis)
b_2 = OrthogonalLine(P_1, xAxis)
c_2 = OrthogonalLine(Q_1, xAxis)
R_1 = Intersect(r_1, xAxis)
S_1 = Intersect(s_1, xAxis)
T_1 = Intersect(xAxis, t_1)
U_1 = Intersect(a_2, xAxis)
V_1 = Intersect(b_2, xAxis)
W_1 = Intersect(c_2, xAxis)
d_2 = Segment(R_1, S_1)
e_2 = Segment(S_1, T_1)
f_2 = Segment(T_1, U_1)
g_2 = Segment(U_1, V_1)
i_2 = Segment(V_1, W_1)
j_2 = Segment(W_1, R_1)
m_2 = OrthogonalLine(Z_1, xAxis)
z = Vector(K_1, Z_1)
B_2 = Translate(K_1, z)
C_2 = Translate(L_1, z)
D_2 = Translate(M_1, z)
E_2 = Translate(N_1, z)
F_2 = Translate(P_1, z)
G_2 = Translate(Q_1, z)
polígono4', b_3, c_3, d_3, e_3, f_3, g_3 = Polygon(B_2, C_2, D_2, E_2, F_2, G_2)
n_2 = OrthogonalLine(C_2, xAxis)
p_2 = OrthogonalLine(D_2, xAxis)
q_2 = OrthogonalLine(E_2, xAxis)
r_2 = OrthogonalLine(F_2, xAxis)
s_2 = OrthogonalLine(G_2, xAxis)
t_2 = Line(H_2, xAxis)
I_2 = Intersect(n_2, t_2)
J_2 = Intersect(p_2, t_2)
K_2 = Intersect(q_2, t_2)
L_2 = Intersect(r_2, t_2)
M_2 = Intersect(s_2, t_2)
a_3 = Segment(R_1, H_2)
h_3 = Segment(S_1, I_2)
i_3 = Segment(T_1, J_2)
j_3 = Segment(U_1, K_2)
k_3 = Segment(V_1, L_2)
l_3 = Segment(W_1, M_2)
m_3 = Segment(H_2, I_2)
n_3 = Segment(I_2, J_2)
p_3 = Segment(J_2, K_2)
q_3 = Segment(K_2, L_2)
r_3 = Segment(L_2, M_2)
s_3 = Segment(M_2, H_2)
t_3 = Segment(K_1, Z_1)
a_4 = Segment(L_1, C_2)
b_4 = Segment(M_1, D_2)
c_4 = Segment(N_1, E_2)
d_4 = Segment(P_1, F_2)
e_4 = Segment(Q_1, G_2)
N_2, O_2 = ProyAxonométricadeAenPH(K_1, O)
P_2, Q_2 = ProyAxonométricadeAenPH(L_1, O)
R_2, S_2 = ProyAxonométricadeAenPH(M_1, O)
T_2, U_2 = ProyAxonométricadeAenPH(N_1, O)
V_2, W_2 = ProyAxonométricadeAenPH(P_1, O)
Z_2, B_3 = ProyAxonométricadeAenPH(Q_1, O)
polígono5, n_4, p_4, r_4, t_4, v_2, z_2 = Polygon(N_2, P_2, R_2, T_2, V_2, Z_2)
C_3, D_3, E_3, F_3 = ProyAxonométricaSimplificadadeA(Z_1, H_2, O)
G_3, H_3, I_3, J_3 = ProyAxonométricaSimplificadadeA(C_2, I_2, O)
K_3, L_3, M_3, N_3 = ProyAxonométricaSimplificadadeA(D_2, J_2, O)
O_3, P_3, Q_3, R_3 = ProyAxonométricaSimplificadadeA(E_2, K_2, O)
S_3, T_3, U_3, V_3 = ProyAxonométricaSimplificadadeA(F_2, L_2, O)
W_3, Z_3, A_4, B_4 = ProyAxonométricaSimplificadadeA(G_2, M_2, O)
polígono6, c_5, g_4, k_4, o_3, s_4, w_3 = Polygon(C_3, G_3, K_3, O_3, S_3, W_3)
f_4 = Segment(O_2, E_3)
h_4 = Segment(Q_2, I_3)
i_4 = Segment(S_2, M_3)
j_4 = Segment(U_2, Q_3)
l_4 = Segment(W_2, U_3)
m_4 = Segment(B_3, A_4)
q_4 = Segment(O_2, Q_2)
a_5 = Segment(Q_2, S_2)
b_5 = Segment(S_2, U_2)
d_5 = Segment(U_2, W_2)
e_5 = Segment(W_2, B_3)
f_5 = Segment(B_3, O_2)
g_5 = Segment(E_3, I_3)
h_5 = Segment(I_3, M_3)
i_5 = Segment(M_3, Q_3)
j_5 = Segment(Q_3, U_3)
k_5 = Segment(U_3, A_4)
l_5 = Segment(A_4, E_3)
polígono7, d_6, h_6, l_6, p_5, t_5, z_3 = Polygon(D_3, H_3, L_3, P_3, T_3, Z_3)
m_5 = Segment(N_2, C_3)
n_5 = Segment(P_2, G_3)
q_5 = Segment(R_2, K_3)
r_5 = Segment(T_2, O_3)
s_5 = Segment(V_2, S_3)
a_6 = Segment(Z_2, W_3)
e_1 = Segment(Z_2, Z_3)
f_1 = Segment(V_2, T_3)
g_1 = Segment(T_2, P_3)
i_1 = Segment(R_2, L_3)
l_1 = Segment(P_2, H_3)
b_6 = Segment(N_2, D_3)

Tool: Pirámide hexagonal* (command Pirámidehexagonal)
Vértices de la base, vértice superior y O
Input: K_1, L_1, M_1, N_1, P_1, Q_1, Z_1, H_2, O
Output: polígono4, polígono5, q_1, p_1, n_1, m_1, l_2, k_2, d_2, e_2, f_2, g_2, i_2, j_2, a_3, t_3, z_2, v_2, t_4, r_4, p_4, n_4, f_4, q_4, a_5, b_5, d_5, e_5, f_5, m_5, b_6, e_1, f_1, g_1, i_1, l_1, n_2, p_2, q_2, r_2, s_2, b_3, c_3, d_3, e_3, f_3, g_3, h_3, i_3, j_3, k_3, l_3, m_3, n_3, p_3, q_3, R_1, S_1, T_1, U_1, V_1, W_1, O_2, N_2, Q_2, P_2, S_2, R_2, U_2, T_2, W_2, V_2, B_3, Z_2, E_3, D_3, C_3

polígono4, k_2, l_2, m_1, n_1, p_1, q_1 = Polygon(K_1, L_1, M_1, N_1, P_1, Q_1)
r_1 = OrthogonalLine(K_1, xAxis)
s_1 = OrthogonalLine(L_1, xAxis)
t_1 = OrthogonalLine(M_1, xAxis)
a_2 = OrthogonalLine(N_1, xAxis)
b_2 = OrthogonalLine(P_1, xAxis)
c_2 = OrthogonalLine(Q_1, xAxis)
R_1 = Intersect(r_1, xAxis)
S_1 = Intersect(s_1, xAxis)
T_1 = Intersect(xAxis, t_1)
U_1 = Intersect(a_2, xAxis)
V_1 = Intersect(b_2, xAxis)
W_1 = Intersect(c_2, xAxis)
d_2 = Segment(R_1, S_1)
e_2 = Segment(S_1, T_1)
f_2 = Segment(T_1, U_1)
g_2 = Segment(U_1, V_1)
i_2 = Segment(V_1, W_1)
j_2 = Segment(W_1, R_1)
m_2 = OrthogonalLine(Z_1, xAxis)
a_3 = Segment(R_1, H_2)
t_3 = Segment(K_1, Z_1)
N_2, O_2 = ProyAxonométricadeAenPH(K_1, O)
P_2, Q_2 = ProyAxonométricadeAenPH(L_1, O)
R_2, S_2 = ProyAxonométricadeAenPH(M_1, O)
T_2, U_2 = ProyAxonométricadeAenPH(N_1, O)
V_2, W_2 = ProyAxonométricadeAenPH(P_1, O)
Z_2, B_3 = ProyAxonométricadeAenPH(Q_1, O)
polígono5, n_4, p_4, r_4, t_4, v_2, z_2 = Polygon(N_2, P_2, R_2, T_2, V_2, Z_2)
C_3, D_3, E_3, F_3 = ProyAxonométricaSimplificadadeA(Z_1, H_2, O)
f_4 = Segment(O_2, E_3)
q_4 = Segment(O_2, Q_2)
a_5 = Segment(Q_2, S_2)
b_5 = Segment(S_2, U_2)
d_5 = Segment(U_2, W_2)
e_5 = Segment(W_2, B_3)
f_5 = Segment(B_3, O_2)
m_5 = Segment(N_2, C_3)
b_6 = Segment(N_2, D_3)
e_1 = Segment(P_2, D_3)
f_1 = Segment(R_2, D_3)
g_1 = Segment(T_2, D_3)
i_1 = Segment(V_2, D_3)
l_1 = Segment(Z_2, D_3)
n_2 = Segment(Q_2, E_3)
p_2 = Segment(S_2, E_3)
q_2 = Segment(U_2, E_3)
r_2 = Segment(W_2, E_3)
s_2 = Segment(B_3, E_3)
b_3 = Segment(P_2, C_3)
c_3 = Segment(R_2, C_3)
d_3 = Segment(T_2, C_3)
e_3 = Segment(V_2, C_3)
f_3 = Segment(Z_2, C_3)
g_3 = Segment(S_1, H_2)
h_3 = Segment(T_1, H_2)
i_3 = Segment(U_1, H_2)
j_3 = Segment(V_1, H_2)
k_3 = Segment(W_1, H_2)
l_3 = Segment(L_1, Z_1)
m_3 = Segment(M_1, Z_1)
n_3 = Segment(N_1, Z_1)
p_3 = Segment(P_1, Z_1)
q_3 = Segment(Q_1, Z_1)