S_{5} = (2.28, 0.6)
B = (6.44, 0.68)
k_{5} = Circle(S_{5}, B)
f = Line(S_{5}, B)
S_{6} = Point(f)
k_{6} = Circle(S_{6}, B)
D = Point(k_{5})
p = Tangent(D, k_{5})
a = 0 (slider from 0 to 6, step 1)
A = (2.1701859999999984, 3.7041320000000004)
ω = Circle(D, A)
c = Mirror(k_{5}, ω)
d = Mirror(k_{6}, ω)
g = OrthogonalLine(D, p)
C = Intersect(c, g, 1)
h = OrthogonalLine(C, g)
E = Midpoint(C, D)
i = Line(E, p)
F = Center(d)
j = OrthogonalLine(F, p)
G = Intersect(d, j, 2)
e = Circle(G, Segment[D, E])
H = Intersect(e, j, 2)
k = Circle(F, H)
I, J = Intersect(k, i)
q = Circle(J, Segment[E, D])
r = Circle(I, Segment[E, D])
K = Intersect(i, j)
s = Circle(K, Radius[q])
l, m = Tangent(p, d)
k_2 = Mirror(q, ω)
k_3 = Mirror(s, ω)
k_1 = Mirror(r, ω)
k_4 = Mirror(l, ω)
S_1 = Center(k_1)
S_2 = Center(k_2)
S_3 = Center(k_3)
S_4 = Center(k_4)