A = (-3.52851851851852, 6.747407407407406)
B = (13.001481481481482, 9.837407407407408)
C = (7.721481481481482, -2.1325925925925953)
a = Segment(A, B)
b = Segment(C, B)
c = Segment(C, A)
d = OrthogonalLine(A, b)
e = OrthogonalLine(C, a)
f = OrthogonalLine(B, c)
H = Intersect(f, d)