A = (-9, -13)
F = Point(Segment[A, (x(A) + 5, y(A))])
c = Circle(A, F)
B = Point(c)
B' = Point(c)
B'' = Rotate(B', 30°, A)
r = CircleArc(A, B', B'')
A_1 = Point(Segment[(x(F) + Distance[A, F], y(A)), (x(F) + Distance[A, F] + 5, y(A))])
c_1 = Circle(A_1, Distance[A, F])
B_1 = Point(c_1)
δ = Angle(B, A, B')
E = Point(r)
D = Rotate(B_1, δ, A_1)
d = CircleArc(A_1, D, B_1)
q = CircleArc(A, E, B)
C = Point(q)
f = Segment(B, C)
C_1 = Point(d)
f_1 = Segment(B_1, C_1)
i = Segment(B, A)
k = Segment(E, C)
l = Segment(E, A)
j = Segment(A, B')
g = Segment(B', C)
α = Angle(B', C, B)
h = CircleArc(A, B, B')
β = Angle(B_1, A_1, D)
g_1 = Segment(D, C_1)
e = CircleArc(A_1, B_1, D)
m = Segment(B_1, A_1)
n = Segment(A_1, D)
ε = Angle(B_1, C_1, D)
p = CircleArc(A, B', E)
ζ = Angle(E, A, B')
η = Angle(E, C, B')
G = (-13.064338984276311, -17.525503791377023)