A = (-0.72, -2.9)
B = Point(Circle[A, 6])
c = Segment(A, B)
d = Circle(B, 4)
e = Circle(A, 5)
S, D = Intersect(e, d)
a = Line(B, S)
f = Circle(S, B)
C_1, C = Intersect(f, a)
b = Segment(C, A)
g = Segment(C, B)