a = 2
M: (0, a)
O = (0, 0)
c = Circle(M, O)
Q = Point(c)
b = Line(O, Q)
d: y = a
qs = OrthogonalLine(Q, yAxis)
E = Intersect(d, b)
g = OrthogonalLine(E, xAxis)
P = Intersect(g, qs)
Ortslinie1 = Locus(P, Q)
e = Segment(Q, P)
h = Segment(P, E)
i = OrthogonalLine(Q, xAxis)
A = Intersect(i, xAxis)
j = Segment(Q, A)
k: y = (-x) + (2 * a)
B = Intersect(k, d)
S: (0, (2 * a))
D = Midpoint(S, M)
F = Midpoint(S, D)
q = Circle(F, S)
u = Vector(O, B)
B' = Translate(B, u)
v = Vector(B, B')
B'' = Translate(B', v)
w = Vector(B', B'')
p = Circle(B'', B)
c_1 = 0