f = 6.2 (slider from 0 to 8, step 0.1)
A: -((f, 0.0))
B: (f, 0.0)
a = Segment(A, B)
b = LineBisector(A, B)
r = 0 (slider from 0 to 6, step 1.2)
C: (0.0, r)
c = Ellipse(A, B, C)
D: (r, 0.0)
d = Hyperbola(A, B, D)