A = Point(xAxis)
B = Point(xAxis)
c = Circle(A, B)
C = Point(xAxis)
D = Point(xAxis)
d = Circle(C, D)
α = 1.0471975511965976 rad (slider from 0 to 6.283185307179586, step 5*°)
B' = Rotate(B, α, A)
β = Angle(B, A, B')
a = Line(A, B')
e = Circle(B', Segment[C, D])
E = Intersect(e, a, 2)
b = Line(E, C)
F = Midpoint(E, C)
f = OrthogonalLine(F, b)
G = Intersect(a, f)
g = Circle(G, B')
luogo2 = Locus(G, α)