(0,0)

z_1=z_x / v

z_2=z_y / u

z_4=z_z / w

A_2

A_1

O = (10.540318345635441, 1.5887090738069163)
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_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)
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_5: (0, -1.3 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
d_1 = Segment(Z, A_5)
A_1 = (13.08580005620801, -0.12094538770504523)
e_1 = PerpendicularaLT(A_1)
A = Point(e_1)
f_1 = Line(A_1, i)
g_1 = Line(A, i)
A_x = Intersect(q, f_1)
i_1 = Line(A_x, r)
A_2 = Intersect(g_1, i_1)
l_1 = Line(A_2, q)
m_1 = Line(A, q)
n_1 = Line(A_1, q)
A_y = Intersect(n_1, i)
A_z = Intersect(l_1, r)
p_1 = Line(A_z, i)
A_3 = Intersect(m_1, p_1)
z_y = Vector(O, A_y)
z_x = Vector(O, A_x)
z_z = Vector(O, A_z)
z_1: z_x / v
z_2: z_y / u
z_3 = Rotate(z_2, 270*°)
z_4: z_z / w
z_5 = Rotate(z_4, 90*°)
r_1 = OrthogonalLine(z_1, xAxis)
s_1 = Line(z_3, xAxis)
t_1 = Line(z_5, xAxis)
B_1 = Intersect(r_1, t_1)
C_1 = Intersect(r_1, s_1)
a_2 = Segment(z_1, C_1)
b_2 = Segment(z_1, B_1)
q_1 = CircleArc(P, z_3, z_2)
c_2 = CircleArc(P, z_4, z_5)
d_2 = Segment(z_5, B_1)
e_2 = Segment(z_3, C_1)
f_2 = Segment(A, A_2)
g_2 = Segment(A_2, A_x)
i_2 = Segment(A_x, A_1)
j_2 = Segment(A_1, A)
k_2 = Segment(A_1, A_y)
l_2 = Segment(A_y, A_3)
m_2 = Segment(A_3, A_z)
n_2 = Segment(A_z, A_2)
p_2 = Segment(A, A_3)

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: Proy Axonométrica  de A3 (command ProyAxonométricadeA3)
A_1, A_2 y O
Input: A_1, A_2, O
Output: E_1, C_1, D_1, M_1, K_1, B_1, L_1, f_1, g_1, i_1, l_1, m_1, p_1, a_2, n_1, r_1, q_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(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)
K_1: O - y(A_1) * u
L_1: O + y(A_2) * w
M_1: O + y(A_2) * w - y(A_1) * u
m_1 = Segment(E_1, M_1)
n_1 = Segment(C_1, K_1)
p_1 = Segment(D_1, L_1)
q_1 = Segment(L_1, M_1)
r_1 = Segment(M_1, K_1)
s_1 = Segment(O, L_1)
t_1 = Segment(O, K_1)
a_2 = Segment(O, B_1)

Tool: Proy Axonométrica  Simplificada de A3 (command ProyAxonométricaSimplificadadeA3)
A_1, A_2 y O
Input: A_1, A_2, O
Output: E_1, C_1, D_1, M_1, K_1, B_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
K_1: O - y(A_1) * u
L_1: O + y(A_2) * w
M_1: O + y(A_2) * w - y(A_1) * u

Tool: Proy Diédrica de A (command ProyDiédricadeA)
A, A_1 y O
Input: A, A_1, O
Output: C_1, B_1, z_1, a_2, b_2, 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)
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
i = Segment(O, H)
q = Segment(O, J)
r = Segment(O, K)
e_1 = PerpendicularaLT(A_1)
f_1 = Line(A_1, i)
g_1 = Line(A, i)
A_x = Intersect(q, f_1)
i_1 = Line(A_x, r)
A_2 = Intersect(g_1, i_1)
l_1 = Line(A_2, q)
n_1 = Line(A_1, q)
A_y = Intersect(n_1, i)
A_z = Intersect(l_1, r)
z_y = Vector(O, A_y)
z_x = Vector(O, A_x)
z_z = Vector(O, A_z)
z_1: z_x / v
z_2: z_y / u
z_3 = Rotate(z_2, 270*°)
z_4: z_z / w
z_5 = Rotate(z_4, 90*°)
r_1 = OrthogonalLine(z_1, xAxis)
s_1 = Line(z_3, xAxis)
t_1 = Line(z_5, xAxis)
B_1 = Intersect(r_1, t_1)
C_1 = Intersect(r_1, s_1)
a_2 = Segment(z_1, C_1)
b_2 = Segment(z_1, B_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: Proy Diédrica de A en LT (command ProyDiédricadeAenLT)
A = A_1=A_2 y O
Input: D_1, O
Output: z_6

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)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
J: O + x(I) * v
q = Segment(O, J)
z = Vector(O, D_1)
z_6: z / v

Tool: Proy Diédrica de A en PV2 (command ProyDiédricadeAenPV2)
A=A_3 y O
Input: I_1, O
Output: z_{12}, z_{13}, P, m_2, l_2, J_1, R_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_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)
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
K: O + x(I) * w
i = Segment(O, H)
r = Segment(O, K)
P: (x(O) - x(O), x(O) - x(O))
i_2 = Line(I_1, i)
j_2 = Line(I_1, r)
J_1 = Intersect(j_2, i)
R_1 = Intersect(i_2, r)
w_2 = Vector(O, J_1)
k_2 = Vector(O, R_1)
z_{10}: w_2 / u
z_{11}: k_2 / w
z_{12} = Rotate(z_{11}, 90*°)
z_{13} = Rotate(z_{10}, 270*°)
l_2 = Segment(P, z_{12})
m_2 = Segment(P, z_{13})

Tool: Proy Diédrica de A en PV (command ProyDiédricadeAenPV)
A=A_2 y O
Input: E_1, O
Output: H_1, z_7, g_2, F_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_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)
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)
J: O + x(I) * v
K: O + x(I) * w
q = Segment(O, J)
r = Segment(O, K)
c_2 = Line(E_1, r)
d_2 = Line(E_1, q)
F_1 = Intersect(c_2, q)
G_1 = Intersect(d_2, r)
u_2 = Vector(O, F_1)
v_2 = Vector(O, G_1)
z_7: u_2 / v
z_8: v_2 / w
z_{9} = Rotate(z_8, 90*°)
e_2 = Line(z_{9}, xAxis)
f_2 = OrthogonalLine(z_7, xAxis)
H_1 = Intersect(e_2, f_2)
g_2 = Segment(H_1, z_7)