a = 0 (slider from 0 to 4, step 1)
C = (4.74420380952381, 0.06728380952380945)
B = (9.3, 1.58)
p = Line(C, B)
g = OrthogonalLine(C, p)
h = OrthogonalLine(B, p)
S_1 = Point(g)
k_1 = Circle(S_1, C)
N = Mirror(S_1, p)
n = Line(N, p)
s = Parabola(S_1, n)
S_2 = Intersect(s, h, 1)
k_2 = Circle(S_2, B)
A = (6.1385128650808225, 5.390302590691936)
f = Line(S_1, S_2)
D = Intersect(k_1, k_2)
c = Hyperbola(S_1, S_2, D)
i = OrthogonalLine(C, p)
E = Mirror(S_1, p)
j = Line(E, p)
d = Parabola(S_1, j)
F, S_3, S_{5} = Intersect(d, c)
k = OrthogonalLine(S_3, p)
l = OrthogonalLine(S_{5}, p)
G = Intersect(k, p)
H = Intersect(l, p)
e = Circle(S_3, G)
q = Circle(S_{5}, H)
S_4 = Intersect(d, c, 1)
m = OrthogonalLine(S_4, p)
J = Intersect(p, m)
k_4 = Circle(S_4, J)