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)
D = Point(k_1)
p = Tangent(D, k_1)
a = 0 (slider from 0 to 6, step 1)
A = (2.1701859999999984, 3.7041320000000004)
ω = Circle(D, A)
c = Mirror(k_1, ω)
L = (9.356273153540513, 2.8734343929596236)
k_2 = Circle(S_2, L)
d = Mirror(k_2, ω)
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])
l, m = Tangent(p, d)
k_{5} = Mirror(q, ω)
k_{3} = Mirror(r, ω)
k_4 = Mirror(l, ω)
S_{3} = Center(k_{3})
S_{5} = Center(k_{5})
S_4 = Center(k_4)
k_6 = Mirror(m, ω)
S_6 = Center(k_6)