O = (9.550628207157706, 0.926949213253476)
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_1: (0, -1.3 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
d_1 = Segment(Z, A_1)
B_1 = (2.262653375552747, -2.3568681778578444)
C_1 = (0.7811442861348504, -1.4017614322193384)
f_1 = Circle(B_1, C_1)
e_1 = OrthogonalLine(B_1, xAxis)
D_1 = Point(e_1)
g_1 = Circle(D_1, Segment[B_1, C_1])
E_1 = (3.645006344812751, -1.3915541845560235)
i_1 = OrthogonalLine(E_1, xAxis)
p_1 = Circle(B_1, E_1)
l_1 = Line(B_1, xAxis)
F_1, G_1 = Intersect(p_1, l_1)
m_1 = OrthogonalLine(G_1, xAxis)
n_1 = OrthogonalLine(F_1, xAxis)
H_1, I_1 = Intersect(g_1, n_1)
J_1, K_1 = Intersect(g_1, m_1)
q_1 = Segment(H_1, J_1)
r_1 = Segment(I_1, K_1)
L_1 = Intersect(i_1, r_1)
M_1 = Intersect(i_1, q_1)
N_1: O + x(E_1) * v - y(E_1) * u
P_1: O + x(E_1) * v + y(M_1) * w
Q_1: O + x(E_1) * v + y(L_1) * w
R_1: O + x(E_1) * v - y(E_1) * u + y(M_1) * w
S_1: O + x(E_1) * v - y(E_1) * u + y(L_1) * w
T_1: O + x(E_1) * v
s_1 = Segment(T_1, Q_1)
t_1 = Segment(Q_1, S_1)
a_2 = Segment(S_1, N_1)
b_2 = Segment(N_1, T_1)
c_2 = Segment(R_1, P_1)
d_2 = Segment(E_1, L_1)
U_1: O + x(B_1) * v - y(B_1) * u
V_1: O + x(B_1) * v + y(D_1) * w
W_1: O + x(B_1) * v - y(B_1) * u + y(D_1) * w
Z_1 = Point(f_1)
A_2: O + x(Z_1) * v - y(Z_1) * u
lugar1 = Locus(A_2, Z_1)
B_2 = Point(g_1)
C_2: O + x(B_2) * v + y(B_2) * w
lugar2 = Locus(C_2, B_2)
D_2, E_2 = Intersect(f_1, l_1)
F_2, G_2 = Intersect(f_1, e_1)
g_2 = Segment(D_2, E_2)
j_2 = Segment(F_2, G_2)
l_2 = Line(D_1, xAxis)
L_2, M_2 = Intersect(g_1, l_2)
m_2 = Segment(L_2, M_2)
q_2 = OrthogonalLine(D_1, xAxis)
Z_2 = Intersect(g_1, q_2, 2)
A_3 = Intersect(g_1, q_2, 1)
r_2 = Segment(Z_2, A_3)
H_2 = Rotate(L_2, 45*°, D_1)
I_2 = Rotate(M_2, 45*°, D_1)
e_2 = Segment(H_2, I_2)
J_2 = Rotate(L_2, 22.5*°, D_1)
K_2 = Rotate(M_2, 22.5*°, D_1)
f_2 = Segment(J_2, K_2)
N_2 = Rotate(L_2, 67.5*°, D_1)
O_2 = Rotate(M_2, 67.5*°, D_1)
i_2 = Segment(N_2, O_2)
k_2 = Line(U_1, xAxis)
P_2: O + x(E_2) * v - y(E_2) * u
Q_2: O + x(G_2) * v - y(G_2) * u
R_2 = Rotate(D_2, 45*°, B_1)
S_2: O + x(D_2) * v - y(D_2) * u
T_2: O + x(R_2) * v - y(R_2) * u
U_2: O + x(F_2) * v - y(F_2) * u
p_2 = Conic(P_2, Q_2, S_2, T_2, U_2)
V_2, W_2 = Intersect(p_2, k_2)
B_3, z_1, n_2, C_3 = ProyDiédricadeAenPH(W_2, O)
D_3, z_2, s_2, E_3 = ProyDiédricadeAenPH(V_2, O)
t_2 = Segment(B_3, D_3)
c_3 = CircleArc(B_1, D_3, B_3)
d_3 = CircleArc(B_1, B_3, D_3)
F_3 = Point(d_3)
a_3, b_3, e_3, f_3, g_3, h_3, G_3, H_3, I_3, J_3, K_3, L_3, M_3, N_3 = Puntoenesfera(F_3, B_1, D_1, C_1, O)
lugar3 = Locus(M_3, F_3)
O_3 = Point(c_3)
i_3, j_3, k_3, l_3, m_3, n_3, P_3, Q_3, R_3, S_3, T_3, U_3, V_3, W_3 = Puntoenesfera(O_3, B_1, D_1, C_1, O)
lugar4 = Locus(V_3, O_3)
p_3 = OrthogonalLine(K_2, xAxis)
Z_3 = Intersect(p_3, g_2)
q_3 = Circle(B_1, Z_3)
A_4, B_4 = Intersect(q_3, t_2)
r_3 = CircleArc(B_1, A_4, B_4)
C_4 = Point(r_3)
s_3, t_3, a_4, b_4, c_4, d_4, D_4, E_4, F_4, G_4, H_4, I_4, J_4, K_4 = Puntoenesfera(C_4, B_1, D_1, C_1, O)
lugar5 = Locus(J_4, C_4)
lugar6 = Locus(I_4, C_4)
e_4 = CircleArc(B_1, B_4, A_4)
L_4 = Point(e_4)
f_4, g_4, h_4, i_4, j_4, k_4, M_4, N_4, O_4, P_4, Q_4, R_4, S_4, T_4 = Puntoenesfera(L_4, B_1, D_1, C_1, O)
lugar7 = Locus(S_4, L_4)
lugar8 = Locus(R_4, L_4)
l_4 = OrthogonalLine(I_2, xAxis)
U_4 = Intersect(l_4, g_2)
p_4 = Circle(B_1, U_4)
V_4, W_4 = Intersect(p_4, t_2)
q_4 = CircleArc(B_1, V_4, W_4)
Z_4 = Point(q_4)
m_4, n_4, r_4, s_4, t_4, a_5, A_5, B_5, C_5, D_5, E_5, F_5, G_5, H_5 = Puntoenesfera(Z_4, B_1, D_1, C_1, O)
lugar9 = Locus(G_5, Z_4)
lugar10 = Locus(F_5, Z_4)
c_5 = CircleArc(B_1, W_4, V_4)
I_5 = Point(c_5)
b_5, d_5, e_5, f_5, g_5, h_5, J_5, K_5, L_5, M_5, N_5, O_5, P_5, Q_5 = Puntoenesfera(I_5, B_1, D_1, C_1, O)
lugar11 = Locus(O_5, I_5)
lugar12 = Locus(P_5, I_5)
i_5 = OrthogonalLine(O_2, xAxis)
R_5 = Intersect(i_5, g_2)
k_5 = Circle(B_1, R_5)
S_5, T_5 = Intersect(k_5, t_2)
p_5 = CircleArc(B_1, S_5, T_5)
U_5 = Point(p_5)
j_5, l_5, m_5, n_5, q_5, r_5, V_5, W_5, Z_5, A_6, B_6, C_6, D_6, E_6 = Puntoenesfera(U_5, B_1, D_1, C_1, O)
lugar13 = Locus(D_6, U_5)
lugar14 = Locus(C_6, U_5)
s_5 = CircleArc(B_1, T_5, S_5)
F_6 = Point(s_5)
t_5, a_6, b_6, c_6, d_6, e_6, G_6, H_6, I_6, J_6, K_6, L_6, M_6, N_6 = Puntoenesfera(F_6, B_1, D_1, C_1, O)
lugar15 = Locus(M_6, F_6)
lugar16 = Locus(L_6, F_6)
O_6 = Point(g_2)
f_6, g_6, h_6, i_6, j_6, k_6, P_6, Q_6, R_6, S_6, T_6, U_6, V_6, W_6 = Puntoenesfera(O_6, B_1, D_1, C_1, O)
lugar17 = Locus(V_6, O_6)
lugar18 = Locus(U_6, O_6)

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: Punto en esfera-(P_2) (command Puntoenesfera)
P_1, centro esfera (O_1, O_2), C_1 y O
Input: E_1, B_1, D_1, C_1, O
Output: d_2, s_1, t_1, a_2, b_2, c_2, M_1, L_1, N_1, P_1, Q_1, R_1, S_1, T_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(B_1, xAxis)
g_1 = Circle(D_1, Segment[B_1, C_1])
i_1 = OrthogonalLine(E_1, xAxis)
p_1 = Circle(B_1, E_1)
l_1 = Line(B_1, xAxis)
F_1, G_1 = Intersect(p_1, l_1)
m_1 = OrthogonalLine(G_1, xAxis)
n_1 = OrthogonalLine(F_1, xAxis)
H_1, I_1 = Intersect(g_1, n_1)
J_1, K_1 = Intersect(g_1, m_1)
q_1 = Segment(H_1, J_1)
r_1 = Segment(I_1, K_1)
L_1 = Intersect(i_1, r_1)
M_1 = Intersect(i_1, q_1)
N_1: O + x(E_1) * v - y(E_1) * u
P_1: O + x(E_1) * v + y(M_1) * w
Q_1: O + x(E_1) * v + y(L_1) * w
R_1: O + x(E_1) * v - y(E_1) * u + y(M_1) * w
S_1: O + x(E_1) * v - y(E_1) * u + y(L_1) * w
T_1: O + x(E_1) * v
s_1 = Segment(T_1, Q_1)
t_1 = Segment(Q_1, S_1)
a_2 = Segment(S_1, N_1)
b_2 = Segment(N_1, T_1)
c_2 = Segment(R_1, P_1)
d_2 = Segment(E_1, L_1)

Tool: Proy Diédrica de A en PH (command ProyDiédricadeAenPH)
A = A_1 y O
Input: A_1, O
Output: C_1, z_1, a_2, A_x

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_4 = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A_4)
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)
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
i = Segment(O, H)
q = Segment(O, J)
f_1 = Line(A_1, i)
A_x = Intersect(q, f_1)
n_1 = Line(A_1, q)
A_y = Intersect(n_1, i)
z_y = Vector(O, A_y)
z_x = Vector(O, A_x)
z_1: z_x / v
z_2: z_y / u
z_3 = Rotate(z_2, 270*°)
r_1 = OrthogonalLine(z_1, xAxis)
s_1 = Line(z_3, xAxis)
C_1 = Intersect(r_1, s_1)
a_2 = Segment(z_1, C_1)

Tool: Esfera
Centro (O_1, O_2), C_1 y O
Input: B_1, D_1, C_1, O
Output: U_1, V_1, W_1, f_1, g_1, lugar1, lugar2, lugar3, lugar4, lugar5, lugar6, lugar7, lugar8, lugar9, lugar10, lugar11, lugar12, lugar13, lugar14, lugar15, lugar16, lugar17, lugar18

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)
f_1 = Circle(B_1, C_1)
e_1 = OrthogonalLine(B_1, xAxis)
g_1 = Circle(D_1, Segment[B_1, C_1])
l_1 = Line(B_1, xAxis)
U_1: O + x(B_1) * v - y(B_1) * u
V_1: O + x(B_1) * v + y(D_1) * w
W_1: O + x(B_1) * v - y(B_1) * u + y(D_1) * w
Z_1 = Point(f_1)
A_2: O + x(Z_1) * v - y(Z_1) * u
lugar1 = Locus(A_2, Z_1)
B_2 = Point(g_1)
C_2: O + x(B_2) * v + y(B_2) * w
lugar2 = Locus(C_2, B_2)
D_2, E_2 = Intersect(f_1, l_1)
F_2, G_2 = Intersect(f_1, e_1)
g_2 = Segment(D_2, E_2)
l_2 = Line(D_1, xAxis)
L_2, M_2 = Intersect(g_1, l_2)
I_2 = Rotate(M_2, 45*°, D_1)
K_2 = Rotate(M_2, 22.5*°, D_1)
O_2 = Rotate(M_2, 67.5*°, D_1)
k_2 = Line(U_1, xAxis)
P_2: O + x(E_2) * v - y(E_2) * u
Q_2: O + x(G_2) * v - y(G_2) * u
R_2 = Rotate(D_2, 45*°, B_1)
S_2: O + x(D_2) * v - y(D_2) * u
T_2: O + x(R_2) * v - y(R_2) * u
U_2: O + x(F_2) * v - y(F_2) * u
p_2 = Conic(P_2, Q_2, S_2, T_2, U_2)
V_2, W_2 = Intersect(p_2, k_2)
B_3, z_1, n_2, C_3 = ProyDiédricadeAenPH(W_2, O)
D_3, z_2, s_2, E_3 = ProyDiédricadeAenPH(V_2, O)
t_2 = Segment(B_3, D_3)
c_3 = CircleArc(B_1, D_3, B_3)
d_3 = CircleArc(B_1, B_3, D_3)
F_3 = Point(d_3)
a_3, b_3, e_3, f_3, g_3, h_3, G_3, H_3, I_3, J_3, K_3, L_3, M_3, N_3 = Puntoenesfera(F_3, B_1, D_1, C_1, O)
lugar3 = Locus(M_3, F_3)
O_3 = Point(c_3)
i_3, j_3, k_3, l_3, m_3, n_3, P_3, Q_3, R_3, S_3, T_3, U_3, V_3, W_3 = Puntoenesfera(O_3, B_1, D_1, C_1, O)
lugar4 = Locus(V_3, O_3)
p_3 = OrthogonalLine(K_2, xAxis)
Z_3 = Intersect(p_3, g_2)
q_3 = Circle(B_1, Z_3)
A_4, B_4 = Intersect(q_3, t_2)
r_3 = CircleArc(B_1, A_4, B_4)
C_4 = Point(r_3)
s_3, t_3, a_4, b_4, c_4, d_4, D_4, E_4, F_4, G_4, H_4, I_4, J_4, K_4 = Puntoenesfera(C_4, B_1, D_1, C_1, O)
lugar5 = Locus(J_4, C_4)
lugar6 = Locus(I_4, C_4)
e_4 = CircleArc(B_1, B_4, A_4)
L_4 = Point(e_4)
f_4, g_4, h_4, i_4, j_4, k_4, M_4, N_4, O_4, P_4, Q_4, R_4, S_4, T_4 = Puntoenesfera(L_4, B_1, D_1, C_1, O)
lugar7 = Locus(S_4, L_4)
lugar8 = Locus(R_4, L_4)
l_4 = OrthogonalLine(I_2, xAxis)
U_4 = Intersect(l_4, g_2)
p_4 = Circle(B_1, U_4)
V_4, W_4 = Intersect(p_4, t_2)
q_4 = CircleArc(B_1, V_4, W_4)
Z_4 = Point(q_4)
m_4, n_4, r_4, s_4, t_4, a_5, A_5, B_5, C_5, D_5, E_5, F_5, G_5, H_5 = Puntoenesfera(Z_4, B_1, D_1, C_1, O)
lugar9 = Locus(G_5, Z_4)
lugar10 = Locus(F_5, Z_4)
c_5 = CircleArc(B_1, W_4, V_4)
I_5 = Point(c_5)
b_5, d_5, e_5, f_5, g_5, h_5, J_5, K_5, L_5, M_5, N_5, O_5, P_5, Q_5 = Puntoenesfera(I_5, B_1, D_1, C_1, O)
lugar11 = Locus(O_5, I_5)
lugar12 = Locus(P_5, I_5)
i_5 = OrthogonalLine(O_2, xAxis)
R_5 = Intersect(i_5, g_2)
k_5 = Circle(B_1, R_5)
S_5, T_5 = Intersect(k_5, t_2)
p_5 = CircleArc(B_1, S_5, T_5)
U_5 = Point(p_5)
j_5, l_5, m_5, n_5, q_5, r_5, V_5, W_5, Z_5, A_6, B_6, C_6, D_6, E_6 = Puntoenesfera(U_5, B_1, D_1, C_1, O)
lugar13 = Locus(D_6, U_5)
lugar14 = Locus(C_6, U_5)
s_5 = CircleArc(B_1, T_5, S_5)
F_6 = Point(s_5)
t_5, a_6, b_6, c_6, d_6, e_6, G_6, H_6, I_6, J_6, K_6, L_6, M_6, N_6 = Puntoenesfera(F_6, B_1, D_1, C_1, O)
lugar15 = Locus(M_6, F_6)
lugar16 = Locus(L_6, F_6)
O_6 = Point(g_2)
f_6, g_6, h_6, i_6, j_6, k_6, P_6, Q_6, R_6, S_6, T_6, U_6, V_6, W_6 = Puntoenesfera(O_6, B_1, D_1, C_1, O)
lugar17 = Locus(V_6, O_6)
lugar18 = Locus(U_6, O_6)