A = Intersect(xAxis, yAxis)
B = (1, 0)
c = Circle(A, B)
α = 0.7853981633974483 rad (slider from 0 to 6.283185307179586, step 0.08726646259971647)
C = Rotate(B, α, A)
β = Angle(B, A, C)
a = Segment(A, C)
b = OrthogonalLine(C, a)
D = Intersect(c, xAxis, 1)
P = Mirror(D, b)
luogo1 = Locus(P, α)
d = Segment(D, P)
M = Intersect(d, b)