M = (-3, 0)
c = Circle(M, 7.0)
F = (3, 0)
Q = Point(c)
a = Segment(F, Q)
b = LineBisector(F, Q)
d = Segment(M, Q)
P = Intersect(d, b)
e = Segment(P, Q)
f = Segment(P, F)
h = Ellipse(M, F, P)
g = OrthogonalLine(P, yAxis)
A, P_1 = Intersect(h, g)
i = OrthogonalLine(P_1, xAxis)
j = OrthogonalLine(P, xAxis)
C = Intersect(xAxis, i)
D = Intersect(j, xAxis)
k = Segment(P_1, C)
l = Segment(P, D)
m = Segment(P_1, P)