A_1 = (1.76, 5.52)
B_1 = (6.36, 0.64)
t_1 = Line(A_1, B_1)
C_1 = (-3.18, 0.02)
D = (4.8, 5.96)
t_2 = Line(C_1, D)
E = (-2.56, -0.54)
F = (5.94, -0.78)
t = Line(E, F)
P_1 = Point(t_1)
P_2 = Point(t_2)
B = Intersect(t_1, t)
A = Intersect(t_2, t)
C = Intersect(t_1, t_2)
a = Line(A, P_1)
b = Line(B, P_2)
W = Intersect(a, b)
c = Line(C, W)
P = Intersect(c, t)
d = ConicaPtPtP(P, t_1, P_1, t_2, P_2)

Tool: Punto en Conica:  P, tangente en Q, tangente en R y punto en QR. (command PuntoenConicaPtPtP)
Dar un punto P, una tangente en Q, una tangente R y un punto en QR.
Input: P, t_1, P_1, t_2, P_2, E
Output: X

P_2 = Point(t_2)
P_1 = Point(t_1)
a = Line(P_2, P_1)
E = Point(a)
b = Line(P, P_1)
c = Line(P, E)
F = Intersect(t_2, b)
RectaPascal = Line(F, E)
G = Intersect(t_1, RectaPascal)
e = Line(G, P_2)
X = Intersect(c, e)

Tool: Conica PtPtP (command ConicaPtPtP)
Dar P, tangente en Q y tangente en R.
Input: P, t_1, P_1, t_2, P_2
Output: d

P_2 = Point(t_2)
P_1 = Point(t_1)
H = Mirror(P_1, P_2)
I = Mirror(P_2, P_1)
J = PuntoenConicaPtPtP(P, t_1, P_1, t_2, P_2, H)
K = PuntoenConicaPtPtP(P, t_1, P_1, t_2, P_2, I)
d = Conic(P_2, P_1, P, K, J)

Tool: conica: tres tagentes y puntos de tangencia en dos de ellas (command t_Pt)
Dar tres tangentes y dos puntos de tangencia
Input: t, t_1, t_2, P_1, P_2
Output: d

P_1 = Point(t_1)
P_2 = Point(t_2)
B = Intersect(t_1, t)
A = Intersect(t_2, t)
C = Intersect(t_1, t_2)
a = Line(A, P_1)
b = Line(B, P_2)
W = Intersect(a, b)
c = Line(C, W)
P = Intersect(c, t)
d = ConicaPtPtP(P, t_1, P_1, t_2, P_2)