A = (-5, -15)
I = Point(Segment[A, (x(A) + 7, y(A))])
c = Circle(A, I)
C = Point(c)
B = Point(c)
f = Segment(B, C)
g = OrthogonalLine(A, f)
E = Intersect(g, f)
H = Point(Segment[A, E])
d = CircleArc(A, C, B)
F = Point(d)
e = CircleArc(H, C, B)
h = Segment(C, F)
G = Intersect(e, h, 2)
i = Segment(G, B)
j = Segment(F, B)
α = Angle(B, F, C)
β = Angle(C, G, B)
D = (-13.11866619733976, -18.521502560229216)