A = (6.14954545454544, 5.092727272727264)
B = (0.3813636363636257, -2.7004545454545736)
C = (8.97227272727271, -2.516363636363664)
a = Segment(B, C)
b = Segment(C, A)
c = Segment(A, B)
k = Line(A, B)
i = Line(B, C)
j = Line(C, A)
A_3 = Barycenter({A, B, C}, {(2 * a), (-((b * csc(π / 6 + Angle[A, C, B] / 3)))), (-((c * csc(π / 6 + Angle[C, B, A] / 3))))})
B_3 = Barycenter({A, B, C}, {(-((a * csc(π / 6 + Angle[A, C, B] / 3)))), (2 * b), (-((c * csc(π / 6 + Angle[B, A, C] / 3))))})
C_3 = Barycenter({A, B, C}, {(-((a * csc(π / 6 + Angle[C, B, A] / 3)))), (-((b * csc(π / 6 + Angle[B, A, C] / 3)))), (2 * c)})
f = Segment(B_3, C_3)
g = Segment(C_3, A_3)
h = Segment(A_3, B_3)
A_b = Barycenter({A, B, C}, {0, sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * (a^(2) + b^(2) - c^(2) - ((a * b) * csc(π / 6 + Angle[A, C, B] / 3)))), (-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * (a^(2) - b^(2) + c^(2) - ((a * c) * csc(π / 6 + Angle[C, B, A] / 3))))})
A_c = Barycenter({A, B, C}, {0, (-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * (a^(2) + b^(2) - c^(2) - ((a * b) * csc(π / 6 + Angle[A, C, B] / 3)))), sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * (a^(2) - b^(2) + c^(2) - ((a * c) * csc(π / 6 + Angle[C, B, A] / 3))))})
l = Segment(A_3, A_b)
m = Segment(A_b, A_c)
n = Segment(A_c, A_3)
B_c = Barycenter({A, B, C}, {(-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * (a^(2) + b^(2) - c^(2) - ((a * b) * csc(π / 6 + Angle[A, C, B] / 3)))), 0, sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * ((-a^(2)) + b^(2) + c^(2) - ((b * c) * csc(π / 6 + Angle[B, A, C] / 3))))})
B_a = Barycenter({A, B, C}, {sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * (a^(2) + b^(2) - c^(2) - ((a * b) * csc(π / 6 + Angle[A, C, B] / 3)))), 0, (-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * ((-a^(2)) + b^(2) + c^(2) - ((b * c) * csc(π / 6 + Angle[B, A, C] / 3))))})
p = Segment(B_3, B_c)
q = Segment(B_c, B_a)
r = Segment(B_a, B_3)
C_a = Barycenter({A, B, C}, {sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * (a^(2) - b^(2) + c^(2) - ((a * c) * csc(π / 6 + Angle[C, B, A] / 3)))), (-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * ((-a^(2)) + b^(2) + c^(2) - ((b * c) * csc(π / 6 + Angle[B, A, C] / 3)))), 0})
C_b = Barycenter({A, B, C}, {(-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * (a^(2) - b^(2) + c^(2) - ((a * c) * csc(π / 6 + Angle[C, B, A] / 3)))), sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * ((-a^(2)) + b^(2) + c^(2) - ((b * c) * csc(π / 6 + Angle[B, A, C] / 3)))), 0})
s = Segment(C_3, C_a)
t = Segment(C_a, C_b)
d = Segment(C_b, C_3)
D = Midpoint(C_a, B_a)
E = Midpoint(A_b, C_b)
F = Midpoint(B_c, A_c)
e = Segment(D, E)
f_1 = Segment(E, F)
g_1 = Segment(F, D)
h_1 = Line(A, D)
i_1 = Line(F, C)
j_1 = Line(B, E)
X16841 = Intersect(j_1, i_1)
text1 = Text("A_3B_3C_3 is the 3rd Morley Adjunct triangle
A_3A_bA_c form an equilateral triangle on BC
D is the midpoint of BaCa.")
k_1 = Segment(C_b, A_b)
l_1 = Segment(B_c, A_c)
m_1 = Segment(C_a, B_a)