A = (4.96, 5.64)
B = (3.16, -3.46)
C = (14.94, -2.22)
poly1, c, a, b = Polygon(A, B, C)
f = OrthogonalLine(A, a)
g = OrthogonalLine(B, b)
h = OrthogonalLine(C, c)
Ph = Intersect(f, g)
Ea = Midpoint(A, Ph)
Eb = Midpoint(Ph, B)
Ec = Midpoint(Ph, C)
Mb = Midpoint(C, A)
Mc = Midpoint(A, B)
Ma = Midpoint(B, C)
d = Circle(Ma, Mb, Mc)
Ha = Intersect(d, f, 1)
Hb = Intersect(d, g, 1)
Hc = Intersect(d, h, 1)
j = LineBisector(Ma, Ha)
i = LineBisector(Hb, Mb)
F = Intersect(i, j)