r = 4
O = (0, 0)
c = Circle(O, r)
A, B = Intersect(c, xAxis)
Q = Point(c)
a = Line(A, Q)
b = Line(Q, xAxis)
C, D = Intersect(c, b)
d = OrthogonalLine(D, xAxis)
P = Intersect(d, a)
Ortslinie1 = Locus(P, Q)