a = 0 (slider from 0 to 6, 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)
S_2 = Point(h)
k_2 = Circle(S_2, B)
A = (6.340364098565759, 4.239440577260325)
ω = Circle(C, A)
D, E = Intersect(k_1, ω)
i = Line(E, D)
c = Mirror(k_2, ω)
F, G = Intersect(c, p)
f = OrthogonalLine(F, p)
H = Intersect(i, f)
I = Midpoint(H, F)
j = Line(I, p)
d = Circle(I, F)
J = Center(c)
e = Circle(F, Segment[I, F])
K = Intersect(e, f, 1)
k = Circle(J, K)
L = Intersect(k, j, 1)
q = Circle(L, Radius[d])
M = Intersect(k, j, 2)
r = Circle(M, Radius[d])
l, m = Tangent(p, c)
k_6 = Mirror(q, ω)
k_5 = Mirror(d, ω)
k_4 = Mirror(r, ω)
k_3 = Mirror(l, ω)
S_3 = Center(k_3)
S_4 = Center(k_4)
S_5 = Center(k_5)
S_6 = Center(k_6)