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_1 = Point(c_1)
e = Line(B, Q_1)
E = Intersect(e, d)
u = Vector(Q_1, E)
P = Translate(B, u)
v = Vector(B, P)
Ortslinie1 = Locus(P, Q_1)
Ortslinie2 = Locus(P, Q_1)
b = OrthogonalLine(M, xAxis)
Q' = Mirror(Q_1, b)
w = Vector(Q_1, Q')
f = Vector(Q', P)
g = OrthogonalLine(E, yAxis)
Q = Intersect(g, yAxis)
Vieleck1, b_1, c_2, e_1, q = Polygon(B, C, E, Q)
h = OrthogonalLine(Q, e)
D, F = Intersect(c_1, e)
i = Segment(D, A)
j = Segment(Q, P)