A = (-1.1327451913111362, 6.1043227140139225)
B = (-1.196477957589173, -4.698381170113343)
d = Line(A, B)
C = (-4.797379252298263, 0.463972898407651)
D = (6.7063850608874125, 7.888840169798957)
t_1 = Line(C, D)
E = (-3.9688532906837817, 1.9616929059415196)
F_1 = (11.518208914879203, -4.411583721862177)
t_2 = Line(E, F_1)
a' = Mirror(d, t_1)
a'_1 = Mirror(d, t_2)
F = Intersect(a'_1, a')
d_1 = Parabola(F, d)
F' = Mirror(F, t_1)
F'_1 = Mirror(F, t_2)
e = OrthogonalLine(F', d)
f = OrthogonalLine(F'_1, d)
G = Intersect(e, t_1)
H = Intersect(f, t_2)

Tool: Conica Punto Tangente Tangente_Punto (command ConicaPuntoTangenteTangente_Punto)
Dar el foco, dos tangentes y el punto de contacto de la última
Input: F, t, t_P, P
Output: e, g, f, F_2

P = Point(t_P)
S_1 = Mirror(F, t)
S_2 = Mirror(F, t_P)
a = Line(S_2, P)
b = LineBisector(S_1, S_2)
F_2 = Intersect(a, b)
e = Ellipse(F, F_2, P)
f = Hyperbola(F, F_2, P)
g = Parabola(F, Line[S_1, S_2])