A = (-13.291473709461691, -3.962973608908099)
B = (17.003515402614042, -3.9847921102491686)
C = (10.716629691436953, 21.263558044664535)
polígono1, c, a, b = Polygon(A, B, C)
X_3 = TriangleCenter(A, B, C, 3)
X_4 = TriangleCenter(A, B, C, 4)
d = Line(X_3, X_4)
e = Line(B, C)
f = Line(C, A)
g = Line(A, B)
A' = Intersect(e, d)
C' = Intersect(d, g)
B' = Intersect(f, d)
h = OrthogonalLine(A', a)
i = OrthogonalLine(B', b)
j = OrthogonalLine(C', c)
A_1 = Intersect(i, j)
B_1 = Intersect(h, j)
C_1 = Intersect(h, i)
G = Point(h)
polígono2, c_1, a_1, b_1 = Polygon(A_1, B_1, C_1)
k = Circle(A_1, B_1, C_1)
X_{5502} = Center(k)
X_{1304} = centrosemejanza(B, C, B_1, C_1)
p = Circle(A, B, C)
l = Line(A, A_1)
m = Line(B_1, B)
n = Line(C, C_1)
X_{110} = Intersect(n, m)
X_{4240} = TriangleCenter(A_1, B_1, C_1, 4)
D = Midpoint(X_3, X_{5502})
q = Circle(D, X_3)

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: recta Simson Wallace (command rectaSimsonWallace)
Input: A, B, C, D
Output: j

polígono1, c, a, b = Polygon(A, B, C)
d = Circle(A, B, C)
f = OrthogonalLine(D, b)
g = OrthogonalLine(D, c)
h = Line(A, B)
i = Line(A, C)
E = Intersect(h, g)
F = Intersect(i, f)
j = Line(E, F)

Tool: centro semejanza (command centrosemejanza)
Dar dos segmentos AB y AC
Input: A, B, C, D
Output: E'

c = Line(A, B)
d = Line(C, D)
E = Intersect(c, d)
e = Circle(D, B, E)
f = Circle(C, E, A)
F = Center(f)
G = Center(e)
g = Segment(F, G)
E' = Mirror(E, g)