r = 8 (slider from 4 to 8, step 4)
M = (-3, 0)
F = (3, 0)
c = Circle(M, r)
Q = Point(c)
a = Segment(F, Q)
b = LineBisector(F, Q)
d = Ray(M, Q)
P = Intersect(d, b)
e_1 = Segment(P, Q)
f = Segment(P, F)
e = Ellipse(M, F, P)
h = Hyperbola(M, F, P)