a_1 = 16.5 (slider from 0 to 20, step 0.5)
A = (-35.584757700352895, 45.72374884069041)
B = Point(Circle[A, a_1])
a = Segment(A, B)
poly1, b, c, d, e, C, D = Polygon(A, B, 4)
E = Midpoint(D, B)
f = Segment(D, E)
g = Segment(E, A)
poly2, d_1, c_1, b_1, a_2, e_1 = Polygon(D, C, B, A, E)
h = Segment(E, B)
i = OrthogonalLine(D, d_1)
k = Circle(D, A)
F = Intersect(k, i, 2)
p = Circle(F, 2)
j = Segment(F, C)
G = Intersect(p, j, 1)
poly3, g_1, c_2, d_2, f_1 = Polygon(G, C, D, F)
l = OrthogonalLine(G, d_1)
m = Line(C, F)
q = Circle(F, 5)
H = Intersect(q, m, 2)
r = Circle(G, Distance[F, H] + 0.5)
H' = Rotate(H, -90*°, G)
α = Angle(H', G, H)
n = Line(G, H')
s = Segment(F, H)
t = Segment(G, H')
h_1 = Circle(H, 10)
k_1 = Circle(H', 10)
i_1 = OrthogonalLine(H, d_1)
j_1 = OrthogonalLine(H', d_1)
I = Intersect(h_1, i_1, 2)
J = Intersect(k_1, j_1, 2)
K = Midpoint(J, H)
poly4, i_2, h_2, f_2, g_2, h', j_2, k_2 = Polygon(I, H, F, G, H', J, K)
C' = Rotate(C, -45*°, B)
β = Angle(C', B, C)
L = Midpoint(c_1)
l_1 = Line(E, L)
m_1 = Segment(C', B)
M = Intersect(l_1, m_1)
n_1 = Segment(B, M)
M' = Rotate(M, -45*°, B)
γ = Angle(M', B, M)
p_1 = Segment(B, M')
q_1 = OrthogonalLine(M, p_1)
N = Intersect(q_1, p_1)
r_1 = Segment(B, N)
s_1 = Line(M, r_1)
t_1 = Line(N, n_1)
O = Intersect(s_1, t_1)
poly5, o, n_2, b_2, m_2 = Polygon(O, N, B, M)
e_2 = Segment(K, H)
l_2 = Segment(K, G)
P = Midpoint(g_1)
Q = Midpoint(P, C)
R = Midpoint(P, G)
p_2 = Segment(R, D)
q_2 = Segment(P, D)
r_2 = Segment(Q, D)
s_2 = Segment(E, L)
t_2 = Segment(C, E)
S = Midpoint(d_1)
a_3 = Segment(S, E)
b_3 = Segment(G, D)
poly6, k_3, i_3, h_3 = Polygon(I, H, K)
poly7, h'_1, k_4, j_3 = Polygon(K, J, H')
poly8, h'_2, k_5, g_3 = Polygon(K, G, H')
poly9, h_4, k_6, g_4, f_3 = Polygon(H, K, G, F)
poly10, d_3, g_5, r_3 = Polygon(G, R, D)
poly11, d_4, r_4, p_3 = Polygon(R, P, D)
poly12, d_5, p_4, q_3 = Polygon(P, Q, D)
poly13, d_6, q_4, c_3 = Polygon(Q, C, D)
poly14, e_3, c_4, l_3 = Polygon(C, L, E)
poly15, e_4, c_5, s_3 = Polygon(C, S, E)
poly16, e_5, s_4, d_7 = Polygon(S, D, E)
poly17, a_4, e_6, b_4 = Polygon(E, B, A)
poly18, b_5, e_7, l_4 = Polygon(E, L, B)
poly19, m_3, o_1, n_3, b_6 = Polygon(M, O, N, B)
T = (-101.96275727205357, 88.06646528958215)
U = Point(Circle[T, k_3])
V = Rotate(U + (i_3, 0), Angle[K - H] + Angle[U - T] - Angle[H - I], U)
W = (-96.4517434697151, 83.20678187309055)
Z = Point(Circle[W, h'_1])
A_1 = Rotate(Z + (k_4, 0), Angle[H' - J] + Angle[Z - W] - Angle[J - K], Z)
B_1 = (-96.59206005322356, 83.20678187309053)
C_1 = Point(Circle[B_1, h'_2])
D_1 = Rotate(C_1 + (k_5, 0), Angle[H' - G] + Angle[C_1 - B_1] - Angle[G - K], C_1)
E_1 = (-101.68212410503669, 78.0664652895821)
F_1 = Point(Circle[E_1, h_4])
G_1 = Rotate(F_1 + (k_6, 0), Angle[G - K] + Angle[F_1 - E_1] - Angle[K - H], F_1)
H_1 = Rotate(G_1 + (g_4, 0), Angle[F - G] + Angle[G_1 - F_1] - Angle[G - K], G_1)
poly24, d_9, f_5, g_7 = Polygon(F, G, D)
I_1 = (-98.14659019910427, 74.39061480014126)
J_1 = Point(Circle[I_1, d_9])
K_1 = Rotate(J_1 + (f_5, 0), Angle[D - G] + Angle[J_1 - I_1] - Angle[G - F], J_1)
L_1 = (-96.4517434697151, 72.63964143734873)
M_1 = Point(Circle[L_1, d_3])
N_1 = Rotate(M_1 + (g_5, 0), Angle[D - R] + Angle[M_1 - L_1] - Angle[R - G], M_1)
O_1 = (-87.46754673461983, 63.501096460394166)
P_1 = Point(Circle[O_1, d_5])
Q_1 = Rotate(P_1 + (p_4, 0), Angle[D - Q] + Angle[P_1 - O_1] - Angle[Q - P], P_1)
R_1 = (-82.63868856665191, 58.99496643449567)
S_1 = Point(Circle[R_1, d_6])
T_1 = Rotate(S_1 + (q_4, 0), Angle[D - C] + Angle[S_1 - R_1] - Angle[C - Q], S_1)
U_1 = (-92.19724785024177, 68.09048099250774)
V_1 = Point(Circle[U_1, d_4])
W_1 = Rotate(V_1 + (r_4, 0), Angle[D - P] + Angle[V_1 - U_1] - Angle[P - R], V_1)
Z_1 = (-88.0631599325113, 54.05855390109203)
A_2 = Point(Circle[Z_1, e_5])
B_2 = Rotate(A_2 + (s_4, 0), Angle[E - D] + Angle[A_2 - Z_1] - Angle[D - S], A_2)
C_2 = (-77.7948632964431, 53.996792922427574)
D_2 = Point(Circle[C_2, e_4])
E_2 = Rotate(D_2 + (c_5, 0), Angle[E - S] + Angle[D_2 - C_2] - Angle[S - C], D_2)
F_2 = (-77.79486329644311, 53.842444680568285)
G_2 = Point(Circle[F_2, e_3])
H_2 = Rotate(G_2 + (c_4, 0), Angle[E - L] + Angle[G_2 - F_2] - Angle[L - C], G_2)
I_2 = (-87.6405150545838, 43.688096438708996)
J_2 = Point(Circle[I_2, a_4])
K_2 = Rotate(J_2 + (e_6, 0), Angle[A - B] + Angle[J_2 - I_2] - Angle[B - E], J_2)
L_2 = (-87.79486329644311, 43.84244468056829)
M_2 = Point(Circle[L_2, b_5])
N_2 = Rotate(M_2 + (e_7, 0), Angle[B - L] + Angle[M_2 - L_2] - Angle[L - E], M_2)
O_2 = (-67.48616681272452, 43.688096438708975)
P_2 = Point(Circle[O_2, m_3])
Q_2 = Rotate(P_2 + (o_1, 0), Angle[N - O] + Angle[P_2 - O_2] - Angle[O - M], P_2)
R_2 = Rotate(Q_2 + (n_3, 0), Angle[B - N] + Angle[Q_2 - P_2] - Angle[N - O], Q_2)