Recta de Pascal

P = (3.4493695363674064, 3.817274312412657)
A = (5.610037891371515, 4.488833395724743)
t = Line(P, A)
P_1 = (4.792487702991582, -1.8471805642197232)
B = (-4.57708238111504, -2.076039001307032)
C = (-1.71704711326211, -3.3546430034059855)
u = Vector(B, C)
D = (-2.9956511153610665, 0.6830538453275513)
v = Vector(B, D)
M = Point(t)
δ = Line(P_1, M)
c = Line(P_1, u)
E = Intersect(t, c)
d = Line(P, v)
F = Intersect(δ, d)
e = Line(E, F)
f = Line(P, e)
X = Intersect(δ, f)
M' = Mirror(M, P)
g = Line(P_1, M')
h = Line(P, v)
H = Intersect(d, g)
i = Line(E, H)
j = Line(P, i)
I = Intersect(j, g)
k = OrthogonalLine(P_1, δ)
J = Intersect(t, k)
K = Intersect(d, h)
L = Intersect(d, h)
N = Intersect(k, d)
l = Line(E, N)
m = Line(P, l)
O = Intersect(k, m)
p = Conic(P, P_1, X, O, I)

Tool: TrianguloETC
Dar el vértice A
Input: A_{etc}
Output: B_{etc}, C_{etc}, a, polígono1

c = Circle(A_{etc}, 13)
B_{etc} = Point(c)
d = Circle(A_{etc}, 9)
e = Circle(B_{etc}, 6)
C_{etc} = Intersect(d, e, 1)
polígono1, c_{etc}, a_{etc}, b_{etc} = Polygon(A_{etc}, B_{etc}, C_{etc})
a = Line(B_{etc}, C_{etc})

Tool: Coordenadas Trilineales (command CoordenadasTrilineales)
Dar los vértices de ABC y un  punto P
Input: A, B, C, P
Output: texto2, CoordTrilineales

q_1 = Segment(B, P)
e = Line(A, C)
E_1 = Intersect(e, q_1)
d = Line(C, B)
p_1 = Segment(A, P)
D_1 = Intersect(d, p_1)
ABC, c, a, b = Polygon(A, B, C)
e_1 = OrthogonalLine(P, a)
D = Intersect(e_1, d)
p = Segment(P, D)
α = If(Defined[D_1], -p, p)
f_1 = OrthogonalLine(P, b)
g = OrthogonalLine(P, c)
f = Line(A, B)
E = Intersect(f_1, e)
F = Intersect(g, f)
r_1 = Segment(P, C)
q = Segment(P, E)
r = Segment(P, F)
F_1 = Intersect(f, r_1)
β = If(Defined[E_1], -q, q)
γ = If(Defined[F_1], -r, r)
CoordTrilineales: {α, β, γ}
texto2: "" + CoordTrilineales + ""

Tool: Coordenadas Baricentrias (command CoordenadasBaricentrias)
Dar los vértices ABC y un punto P
Input: A, B, C, P
Output: texto2, CoordBaricentricas

q_1 = Segment(B, P)
APB, b_2, a_2, p_4 = Polygon(A, P, B)
e = Line(A, C)
E_1 = Intersect(e, q_1)
CPA, a_1, c_2, p_3 = Polygon(C, P, A)
BPC, c_1, b_1, p_2 = Polygon(B, P, C)
d = Line(C, B)
p_1 = Segment(A, P)
D_1 = Intersect(d, p_1)
f = Line(A, B)
r_1 = Segment(P, C)
F_1 = Intersect(f, r_1)
xx = If(Defined[D_1], -BPC, BPC)
yy = If(Defined[E_1], -CPA, CPA)
zz = If(Defined[F_1], -APB, APB)
CoordBaricentricas: {xx, yy, zz}
texto2: "" + CoordBaricentricas + ""

Tool: IIPt_P
Dar un punto, la tangente en otro punto y las direcciones de las asíntotas
Input: P_1, P, t, u, v
Output: p, X, I, O

Recta de Pascal

M = Point(t)
b = Line(P_1, M)
c = Line(P_1, u)
E = Intersect(t, c)
d = Line(P, v)
F = Intersect(b, d)
e = Line(E, F)
f = Line(P, e)
X = Intersect(b, f)
M' = Mirror(M, P)
g = Line(P_1, M')
H = Intersect(d, g)
i = Line(E, H)
j = Line(P, i)
I = Intersect(j, g)
k = OrthogonalLine(P_1, b)
N = Intersect(k, d)
l = Line(E, N)
m = Line(P, l)
O = Intersect(k, m)
p = Conic(P, P_1, X, O, I)