S_1 = (14.457738091478125, -0.9481720157127623)
B = (10.757435586623133, -4.812932409672409)
c = Circle(S_1, B)
S_2 = (20.48, -8.9)
D = (14.96, -2.68)
d = Circle(S_2, D)
T = Point(d)
p = Tangent(T, d)
a = 0 (slider from 0 to 6, step 1)
A = (16.790049973326127, -5.989055495390628)
ω = Circle(T, A)
C = Intersect(d, ω, 1)
E = Intersect(d, ω, 2)
f = Line(C, E)
c' = Mirror(c, ω)
g, h = Tangent(f, c')
i = OrthogonalLine(T, p)
F = Intersect(f, i)
G = Midpoint(F, T)
j = Line(G, p)
H = Center(c')
k = Line(H, i)
I = Intersect(c', k, 2)
e = Circle(I, Segment[F, G])
J = Intersect(e, k, 2)
q = Circle(H, J)
K = Intersect(q, j, 1)
r = Circle(K, Segment[F, G])
L = Intersect(q, j, 2)
s = Circle(L, Segment[F, G])
k_4 = Mirror(r, ω)
k_6 = Mirror(s, ω)
k_3 = Mirror(h, ω)
k_5 = Mirror(g, ω)
S_3 = Center(k_3)
S_4 = Center(k_4)
S_5 = Center(k_5)
S_6 = Center(k_6)