S_1 = (2.28, 0.6)
B = (6.44, 0.68)
k_1 = Circle(S_1, B)
f = Line(S_1, B)
S_2 = Point(f)
k_2 = Circle(S_2, B)
D = Point(k_1)
p = Tangent(D, k_1)
a = 0 (slider from 0 to 6, step 1)
A = (2.1701859999999984, 2.591416000000001)
g = Line(S_1, S_2)
c = Hyperbola(S_1, S_2, B)
C = Mirror(S_1, p)
h = Line(C, p)
d = Parabola(S_1, h)
S_4 = Intersect(c, d, 3)
S_3 = Intersect(d, g, 2)
i = OrthogonalLine(D, p)
S_5 = Intersect(c, i, 1)
S_6 = Intersect(c, d, 4)
j = OrthogonalLine(S_4, p)
k = OrthogonalLine(S_3, p)
l = OrthogonalLine(S_6, p)
I = Intersect(p, l)
k_6 = Circle(S_6, I)
k_5 = Circle(S_5, D)
J = Intersect(p, j)
k_4 = Circle(S_4, J)
K = Intersect(p, k)
k_3 = Circle(S_3, K)