A = Intersect(xAxis, yAxis)
B = Point(xAxis)
a = Segment(A, B)
α_1 = 4.642575810304916 rad (slider from 0*° to 360*°, step 0.017453292519943295)
B' = Rotate(B, α_1, A)
α = Angle(B, A, B')
b = Segment(B', A)
c = OrthogonalLine(B', a)
C = Intersect(c, a)
d = OrthogonalLine(B', xAxis)
D = Intersect(d, xAxis)
e = Segment(B', C)
f = Segment(B', D)
P: (α_1 * 180 / π, x(B'))
Q: P
g = Segment(A, C)
E = Intersect(f, xAxis)
h = Segment(A, E)
S: (α * 180 / π, y(B'))