A = Intersect(xAxis, yAxis)
B = (1, 0)
c = Circle(A, B)
α = 5.235987755982989 rad (slider from 0 to 6.283185307179586, step 5*°)
B' = Rotate(B, α, A)
β = Angle(B, A, B')
C = Point(xAxis)
a = Line(A, B')
b = Line(B', C)
D = Midpoint(B', C)
d = OrthogonalLine(D, b)
E = Intersect(a, d)
e = Circle(E, C)
luogo1 = Locus(E, α)