α = 0.593411945678072 rad (slider from 0 to 6.283185307179586, step 2*°)
B = (1, 0)
A = Intersect(xAxis, yAxis)
C = Rotate(B, α, A)
d = OrthogonalLine(C, yAxis)
E = Intersect(d, yAxis)
a = Segment(A, C)
e = OrthogonalLine(C, a)
d' = Mirror(d, e)
c = Circle(A, B)
β = Angle(B, A, C)
b = OrthogonalLine(C, xAxis)
D = Intersect(b, xAxis)
f = Line(E, a)
G = Intersect(d', f)
luogo1 = Locus(G, α)
g = Segment(C, E)
h = Segment(C, G)
F = Intersect(d', xAxis)
γ = Angle(B, F, C)
δ = Angle(A, C, F)
k = Circle(C, E)