S_2 = (7.018439353675376, -1.2868152321818813)
B = (2.0879627120493764, -0.5257349452194798)
k_2 = Circle(S_2, B)
f = Line(B, S_2)
S_1 = Point(f)
k_1 = Circle(S_1, B)
D = (6.12, -5.22)
p = Line(B, D)
g = Line(S_1, S_2)
c = Hyperbola(S_1, S_2, B)
a = 0 (slider from 0 to 4, step 1)
h = OrthogonalLine(S_2, p)
A = Intersect(p, h)
d = Circle(A, Radius[k_2])
C, E = Intersect(d, h)
i = OrthogonalLine(C, h)
j = OrthogonalLine(E, h)
e = Parabola(S_2, i)
k = Parabola(S_2, j)
S_3 = Intersect(c, e, 2)
S_4 = Intersect(c, k, 4)
l = OrthogonalLine(S_4, p)
H = Intersect(p, l)
k_4 = Circle(S_4, H)
m = OrthogonalLine(S_3, p)
I = Intersect(p, m)
k_3 = Circle(S_3, I)