A = (-9, -13)
H = Point(Segment[A, (x(A) + 5, y(A))])
c = Circle(A, H)
B = Point(c)
f = Ray(B, A)
G = Intersect(c, f, 2)
d = Semicircle(G, B)
A_1 = (-1, -13)
c_1 = Circle(A_1, Distance[A, H])
B_1 = Point(c_1)
i = Segment(B, A)
F = Point(d)
δ = Angle(B, A, F)
m = Segment(B_1, A_1)
j = Segment(A, F)
h = CircleArc(A, B, F)
g = Segment(B, F)
k = Circle(B_1, g)
C, E = Intersect(k, c_1)
n = Segment(A_1, E)
e = CircleArc(A_1, B_1, E)
β = Angle(B_1, A_1, E)
l = Segment(B_1, E)
D = (-13.136775268360909, -18.467175980043283)