A = (-1.72, 0.6)
B = (2.54, 2.8000000000000003)
C = (4.7, -0.64)
polígono1, c, a, b = Polygon(A, B, C)
polígono2 = Morley(polígono1)
d, e = Trisecar1(C, A, B)
f, g = Trisecar1(A, B, C)
h, i = Trisecar1(B, C, A)

Tool: Incentro
Triángulo
Input: polígono1
Output: I

A = (7.9, -2.38)
B = (11.04857454740204, 0.49067505737437944)
C = (13.52, -2.22)
polígono1, c, a, b = Polygon(A, B, C)
d_1, e_1 = AngularBisector(b, a)
h, i = AngularBisector(c, b)
I = Intersect(e_1, i)

Tool: Circuncentro
Triángulo
Input: polígono1
Output: O

A = (7.9, -2.38)
B = (11.04857454740204, 0.49067505737437944)
C = (13.52, -2.22)
polígono1, c, a, b = Polygon(A, B, C)
d = LineBisector(b)
e = LineBisector(a)
O = Intersect(e, d)

Tool: Baricentro
Triángulo
Input: polígono1
Output: G

A = (-2.82, 1.44)
B = (0.58, 4.84)
C = (2.24, 1.54)
polígono1, c, a, b = Polygon(A, B, C)
E = Midpoint(a)
F = Midpoint(b)
d = Line(B, F)
e = Line(A, E)
G = Intersect(d, e)

Tool: Ortocentro
Triángulo
Input: polígono1
Output: H

A = (7.9, -2.38)
B = (11.04857454740204, 0.49067505737437944)
C = (13.52, -2.22)
polígono1, c, a, b = Polygon(A, B, C)
d = OrthogonalLine(B, b)
f = OrthogonalLine(A, a)
H = Intersect(f, d)

Tool: Morley (triángulo) (command Morley)
Triángulo
Input: polígono1
Output: polígono2

A = (-1.72, 0.6)
B = (2.54, 2.8000000000000003)
C = (4.7, -0.64)
polígono1, c, a, b = Polygon(A, B, C)
D = Point(c)
E = Point(c)
F = Point(a)
G = Point(a)
H = Point(b)
I = Point(b)
d = Line(D, E)
e = Line(F, G)
f = Line(I, H)
A' = Intersect(f, d)
B' = Intersect(e, d)
C' = Intersect(f, e)
α = Angle(C', A', B')
β = Angle(A', B', C')
γ = Angle(B', C', A')
C'' = Rotate(C', α / 3.0, A')
g = Ray(A', C'')
J = Intersect(a, g)
C''' = Mirror(C'', b)
h = Ray(A', C''')
J' = Intersect(a, h)
JJ = If(Defined[J], J, J')
i = Segment(A', JJ)
A'' = Rotate(A', β / 3.0, B')
j = Ray(B, A'')
K = Intersect(b, j)
A''' = Mirror(A'', c)
k = Ray(B, A''')
K' = Intersect(b, k)
KK = If(Defined[K], K, K')
l = Segment(B', KK)
m = AngularBisector(JJ, A', B')
L = Intersect(m, l)
B'' = Rotate(B', γ / 3.0, C')
p = Ray(C, B'')
N = Intersect(c, p)
B''' = Mirror(B'', a)
q = Ray(C, B''')
N' = Intersect(c, q)
NN = If(Defined[N], N, N')
r = Segment(C', NN)
n = AngularBisector(KK, B', C')
O = Intersect(n, r)
t = AngularBisector(NN, C', A')
P = Intersect(t, i)
polígono2, p_1, l_1, o = Polygon(L, O, P)

Tool: Trisecar (command Trisecar1)
Puntos Origen, Vértice, Final
Input: B, A, C
Output: f, e

α = Angle(B, A, C)
a = Segment(B, C)
B' = Rotate(B, α / 3.0, A)
b = Ray(A, B')
c = Segment(A, B)
B'' = Mirror(B', c)
d = Ray(A, B'')
D = Intersect(a, b)
E = Intersect(a, d)
F = If(Defined[D], D, E)
e = AngularBisector(F, A, C)
f = Line(A, F)