A = Point(xAxis)
B = Point(xAxis)
M = Point(xAxis)
c = Circle(M, B)
P = Point(c)
a = Segment(A, P)
E = Intersect(a, yAxis)
b = OrthogonalLine(E, yAxis)
d = OrthogonalLine(P, xAxis)
F = Intersect(b, d)
Ortslinie1 = Locus(F, P)