Show trace

A = Intersect(xAxis, yAxis)
c = Circle(A, 1.0)
α = 1.8151424220741026 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B = (1, 0)
B' = Rotate(B, α, A)
β = Angle(B, A, B')
a = Segment(A, B')
C: (α, y(B'))
C': C
ShowTrace = true
b = Segment(B', C')