P_p=(r-Leine;\alpha)

O = Intersect(xAxis, yAxis)
A = Point(yAxis)
g = OrthogonalLine(A, yAxis)
Q = Point(g)
Leine = 3 (slider from 0 to 5, step 0.1)
a = CurveCartesian((x(A) / sin(θ); θ), θ, 0, (2 * 3.141592653589793))
f = Line(O, Q)
B = Point(xAxis)
α = Angle(B, O, Q)
r = Segment(O, Q)
P_p: (r - Leine; α)
Ortslinie1 = Locus(P_p, Q)
h = Segment(P_p, Q)
i = Segment(O, P_p)