A = (-4, -1)
M = Point(Segment[A, (x(A) + 7, y(A))])
f = Segment(A, M)
g = OrthogonalLine(A, f)
c = Circle(A, M)
C, D = Intersect(c, g)
N = Point(Segment[A, D])
h = Segment(A, D)
i = Segment(A, C)
E = Point(h)
F = Point(i)
G: (x(A) + 1, y(A) + 1)
j = Line(A, G)
k = OrthogonalLine(A, j)
d = Circle(A, N)
H, I = Intersect(d, k)
J, K = Intersect(d, j)
e = Ellipse(J, K, D)
p = Ellipse(I, H, C)
L = (-12.544608645969587, -5.024814445203795)