A = (5, -1)
B = (9, -1)
c = Circle(A, B)
α = 0 rad (slider from 0 to 6.283185307179586, step 0.01°)
M = Rotate(B, α, A)
β = Angle(B, A, M)
d = Circle(M, B)
e = Circle(B, M)
C, D = Intersect(d, e)
f = Segment(D, C)
E = Midpoint(f)
g = Circle(M, E)
h = Segment(M, C)
F = Intersect(g, h, 1)
i = Line(A, F)
G = Intersect(g, i, 2)