A = Intersect(xAxis, yAxis)
B = (1, 0)
c = Circle(A, B)
α = 1.1344640137963142 rad (slider from 0 to 6.283185307179586, step 0.08726646259971647)
D = Rotate(B, α, A)
β = Angle(B, A, D)
a = Ray(A, D)
b = 1 (slider from 0 to Radius[c], step 0.1)
d = Circle(D, b)
C = Intersect(d, a, 2)
e = Circle(C, b)
E = Intersect(e, a, 2)
P = Rotate(E, (1 / b * α), C)
γ = Angle(E, C, P)
f = Segment(C, P)
luogo1 = Locus(P, α)