Δ = 1 (slider from -1 to 1, step 2)
C: (197 / 13, 0)
B: (0, 0)
a = Segment(B, C)
A: (342549133 / 30368338, sqrt(68143844781297815) / 30368338)
c = Segment(A, B)
b = Segment(C, A)
AB = Line(A, B)
BC = Line(B, C)
CA = Line(C, A)
S: (Δ / 2 * sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))))
Ab = Barycenter({A, B, C}, {a^(2) - b^(2) + c^(2) + (2 * S), (-a^(2)) + b^(2) + c^(2), (-2 * c^(2))})
Ac = Barycenter({A, B, C}, {a^(2) + b^(2) - c^(2) + (2 * S), (-2 * b^(2)), (-a^(2)) + b^(2) + c^(2)})
Bc = Barycenter({A, B, C}, {(-2 * a^(2)), a^(2) + b^(2) - c^(2) + (2 * S), a^(2) - b^(2) + c^(2)})
Ca = Barycenter({A, B, C}, {a^(2) + b^(2) - c^(2), (-2 * b^(2)), (-a^(2)) + b^(2) + c^(2) + (2 * S)})
Ba = Barycenter({A, B, C}, {a^(2) - b^(2) + c^(2), (-a^(2)) + b^(2) + c^(2) + (2 * S), (-2 * c^(2))})
Cb = Barycenter({A, B, C}, {(-2 * a^(2)), a^(2) + b^(2) - c^(2), a^(2) - b^(2) + c^(2) + (2 * S)})
f = Segment(Ab, Ac)
g = Segment(Bc, Ba)
h = Segment(Ca, Cb)
ma = Midpoint(f)
mb = Midpoint(g)
mc = Midpoint(h)
la = OrthogonalLine(ma, f)
lb = OrthogonalLine(mb, g)
lc = OrthogonalLine(mc, h)
P = Barycenter({A, B, C}, {(2 * a^(2)) - b^(2) - c^(2) - (2 * S), (-a^(2)) + (2 * b^(2)) - c^(2) - (2 * S), (-a^(2)) - b^(2) + (2 * c^(2)) - (2 * S)})
i = Segment(A, Ab)
j = Segment(Ab, Ba)
k = Segment(Ba, B)
l = Segment(B, Bc)
m = Segment(Bc, Cb)
n = Segment(Cb, C)
p = Segment(C, Ca)
q = Segment(Ca, Ac)
s = Segment(Ac, A)
X2 = TriangleCenter(A, B, C, 2)
X6 = TriangleCenter(A, B, C, 6)
t = Line(X6, X2)
etcPnt: 1291 - (Δ * 700)
text1: "X(" + (LaTeX[etcPnt]) + ")"