A = (-5, -1)
B = (3, -7)
a = Segment(A, B)
c = Circle(A, B)
d = Circle(B, A)
C = Intersect(c, d, 2)
b = Segment(B, C)
e = Segment(C, A)
f = OrthogonalLine(C, a)
D = Intersect(a, f)
h = Segment(D, C)