H = (7.2284, 1.2762)
A_1 = (8.56, 3.92)
A_2 = (8.42, -1.26)
a = Segment(H, A_1)
b = OrthogonalLine(A_1, a)
c = Segment(H, A_2)
d = OrthogonalLine(A_2, c)
e = Circle(A_2, Segment[H, A_2])
A, E_2 = Intersect(e, d)
f = Circle(A_1, Segment[H, A_1])
E_1, C = Intersect(f, b)
T = Midpoint(E_1, E_2)
g = Segment(E_1, A_1)
h = Segment(A_2, E_2)