a = 2
M: (0, a)
O = (0, 0)
c = Circle(M, O)
Q = Point(c)
b = Line(O, Q)
d: y = (2 * a)
f = OrthogonalLine(Q, yAxis)
E = Intersect(d, b)
g = OrthogonalLine(E, xAxis)
P = Intersect(g, f)
Ortslinie1 = Locus(P, Q)
e = Segment(Q, P)
h = Segment(P, E)
i = OrthogonalLine(Q, xAxis)
A = Intersect(i, xAxis)
j = Segment(Q, A)