f = 6 (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 0.4)
C: (r, r)
c = Ellipse(A, B, C)
d = Hyperbola(A, B, C)