r = 2 (slider from -5 to 5, step 0.01)
a = 2 (slider from -5 to 5, step 0.01)
M: (a, 0)
c = 4 (slider from -5 to 15, step 0.01)
C: (c, 0)
B = (0, 0)
A: ((2 * a), 0)
c_1 = Circle(M, r)
ms = 0 (slider from -5 to 5, step 0.1)
d: x = (ms * y) + c
Q = Point(c_1)
e = Line(B, Q)
E = Intersect(e, d)
u = Vector(Q, E)
P = Translate(B, u)
v = Vector(B, P)
Ortslinie1 = Locus(P, Q)
Ortslinie2 = Locus(P, Q)
b = OrthogonalLine(M, xAxis)
Q' = Mirror(Q, b)
w = Vector(Q, Q')
f = Vector(Q', P)
D: Q'