straal = 3 (slider from 0 to 5, step 0.1)
plat = 2.4 (slider from 0 to straal, step 0.1)
A = (-7, -1)
B = Point(Circle[A, straal])
f = Segment(A, B)
c = Circle(A, B)
g = OrthogonalLine(A, f)
C, D = Intersect(c, g)
h = Segment(A, D)
i = Segment(A, C)
E = Point(h)
F = Point(i)
G = (-6, 0)
j = Line(A, G)
k = OrthogonalLine(A, j)
d = Circle(A, plat)
H, I = Intersect(d, k)
J, K = Intersect(d, j)
e = Ellipse(J, K, D)
p = Ellipse(I, H, C)