A = (-0.48, 0.34)
B = (5.72, 0.24)
a = Segment(A, B)
C = Midpoint(a)
b = OrthogonalLine(B, a)
c = Circle(B, C)
D = Intersect(c, b, 2)
d = Circle(D, B)
e = Segment(A, D)
E = Intersect(d, e)
f = Circle(A, E)
X = Intersect(f, a, 1)
g = Segment(A, X)