α = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B = (1, 1)
A = (3, 1)
A' = Rotate(A, α, B)
β = Angle(A, B, A')