$t_P$

$\Gamma_M$

$\Psi$

$t_P$

$t_P$

A = (-8.568980631457334, 246.06062086602404)
B = (-8.31352368415493, -60.921128263577494)
t = Line(A, B)
C = (-45.79672584704874, 23.16480838824225)
D = (86.91241092910238, -43.76329713600221)
t_1 = Line(C, D)
P = (97.57008405803282, 107.02013812949231)
E = Intersect(t, t_1)
δ = OrthogonalLine(E, t_1)
M = Point(δ)
M' = Mirror(M, t)
N = Midpoint(M, M')
a = OrthogonalLine(P, t)
c = Segment(M, N)
Q = Intersect(a, t)
F = Midpoint(N, Q)
p = Line(P, F)
f = Circle(M, F, E)
S = Center(f)
g = OrthogonalLine(S, p)
X = Mirror(F, g)
T = Intersect(a, δ)
L = Midpoint(Q, E)
h = Line(P, L)
i = LineBisector(L, E)
K = Intersect(i, t_1)
k = Circle(K, E)
O, R = Intersect(k, h)
p_1 = Circle(P, T, R)
U, V = Intersect(p_1, t_1)
j = Line(U, P)
l = Line(P, V)
T_1 = Intersect(l, t)
V_1 = Intersect(j, t)
A_2 = Mirror(Q, T_1)
A_1 = Mirror(Q, V_1)
m = OrthogonalLine(A_2, t)
n = OrthogonalLine(A_1, t)
F_1 = Intersect(δ, n)
F_2 = Intersect(m, δ)
D_2 = Mirror(F_2, A_2)
D_1 = Mirror(F_1, A_1)
d_2 = Line(D_2, t)
d_1 = Line(D_1, t)
s = Parabola(F_2, d_2)
c_1 = Parabola(F_1, d_1)

Tool: Herramienta1
Input: P, t, t_1, M
Output: X

a = OrthogonalLine(P, t)
E = Intersect(t, t_1)
b = OrthogonalLine(E, t_1)
M = Point(b)
M' = Mirror(M, t)
N = Midpoint(M, M')
Q = Intersect(a, t)
F = Midpoint(N, Q)
e = Line(P, F)
f = Circle(E, M, F)
G = Center(f)
g = OrthogonalLine(G, e)
X = Mirror(F, g)