a: 1
M: ((2 * a), 0)
c = Circle(M, (2 * a))
Q = Point(c)
f = LineBisector(M, Q)
O = Intersect(c, xAxis, 1)
g = Line(O, Q)
P = Intersect(g, f)
d1, p, m, q = Polygon(M, Q, P)
Ortslinie1 = Locus(P, Q)