B = (-1.740000000000004, -2.085000000000002)
A = (4.5600000000000005, 4.4624999999999995)
a = Line(B, A)
C = (7.8675000000000015, -14.572500000000005)
b = Line(B, C)
c = Circle(B, Segment[A, B])
D = Intersect(c, b, 2.0)
d = Circle(A, B)
e = Circle(D, B)
E_1, E = Intersect(d, e)
f = Line(B, E)
g = Segment(A, E)
h = Segment(D, E)