C = (17.069772619188775, 3.9994275399405033)
T = (7.4719569846428415, -1.8)
S_2 = (19.881987267758774, -1.465216833985288)
k_2 = Circle(S_2, T)
f = Line(T, S_2)
S_1 = Point(f)
k_1 = Circle(S_1, T)
S_3 = (28.1588462902546, 3.0726749852981214)
E = (21.831363330972085, 1.6346106763702817)
k_3 = Circle(S_3, E)
F = Intersect(k_1, f, 2)
G = Midpoint(F, S_1)
ω = Circle(T, C)
c = Mirror(k_1, ω)
d = Mirror(k_2, ω)
e = Mirror(k_3, ω)
A = Intersect(c, f, 1)
B = Intersect(d, f, 1)
g = OrthogonalLine(A, f)
h = OrthogonalLine(B, f)
a = 0 (slider from 0 to 6, step 1)
i, j = Tangent(h, e)
k_5 = Mirror(i, ω)
k_4 = Mirror(j, ω)
S_4 = Center(k_4)
S_5 = Center(k_5)
D = Center(e)
k = OrthogonalLine(D, g)
H = Intersect(g, k)
I = Intersect(e, k, 2)
p = Circle(I, Segment[D, H])
J = Intersect(p, k, 1)
K = Intersect(p, k, 2)
L = Intersect(h, k)
M = Midpoint(H, L)
l = OrthogonalLine(M, k)
q = Circle(I, Segment[M, H])
N, O = Intersect(q, k)
r = Circle(D, N)
s = Circle(D, O)
P, Q = Intersect(r, l)
R, S = Intersect(s, l)
t = Circle(P, Radius[q])
c_1 = Circle(R, Radius[t])
d_1 = Circle(Q, Radius[t])
e_1 = Circle(S, Radius[d_1])
k_{11} = Mirror(c_1, ω)
k_9 = Mirror(t, ω)
k_8 = Mirror(d_1, ω)
k_{10} = Mirror(e_1, ω)
S_7 = (17.277841531777327, 5.7729137999001265)
S_6 = (20.96401487662636, -7.491063305809247)
m = OrthogonalLine(R, l)
U = Intersect(g, m)
f_1 = Circle(R, U)
g_1 = Circle(S, Radius[f_1])
k_7 = Mirror(f_1, ω)
k_6 = Mirror(g_1, ω)
V = Center(k_7)
W = Center(k_6)