β = 1.413716694115407 rad (slider from 0 to 150°)
A = (-0.02, -2.1)
B = Point(Circle[A, 1])
α = 6.178465552059927 rad (slider from 0 to 6.283185307179586)
B' = Rotate(B, α, A)
G = Point(Circle[B', 6.59])
D = Point(Circle[G, 15])
i = Segment(G, D)
k = Circle(G, 5)
C = Intersect(k, i)
c = Circle(A, 1)
f = Segment(A, B)
g = Segment(B', A)
h = Segment(B', G)
e = Circle(G, 15)
p = Circle(D, 5)
E = Intersect(p, i)
E' = Rotate(E, 180° + β, D)
F = (24.912015077957967, 17.36759702759389)
C' = Rotate(C, β, G)
j = Segment(G, C')
l = Segment(D, E')