A = (4, 0)
B = Intersect(xAxis, yAxis)
d = Segment(B, A)
c = Circle(B, d)
Q = Point(c)
a = Line(A, Q)
e = OrthogonalLine(A, xAxis)
f = OrthogonalLine(Q, yAxis)
D = Intersect(f, yAxis)
u = Vector(D, Q)
E = Intersect(f, e)
E' = Translate(E, u)
v = Vector(E, E')
g = OrthogonalLine(E', xAxis)
P = Intersect(a, g)
Ortslinie2 = Locus(P, Q)
b = OrthogonalLine(Q, xAxis)