A = (-10, -10)
B = (10, -10)
C = (-8.216263603647207, -6.405888314582317)
D = (8.581571579395137, -9.829812961233657)
E = (6.54882804877258, -1.893944892543427)
F = (-1.4941208138137325, -0.262306450680393)
G = (5.015197705197358, 2.1682145559070642)
H = Point(Circle[C, 16.372917632535383])
I: C + (1.26140905545667 * Vector[C, H]) + ((-0.281137964217488) * OrthogonalVector[Segment[C, H]])
J: C + (1.02324647207179 * Vector[C, H]) + (0.791788009048874 * OrthogonalVector[Segment[C, H]])
K: C + (0.475875243866234 * Vector[C, H]) + (0.106231417018463 * OrthogonalVector[Segment[C, H]])
L: C + (0.452065953738158 * Vector[C, H]) + (0.212827376413758 * OrthogonalVector[Segment[C, H]])
poli1, c, h, i, j, k, l = Polygon(C, H, I, J, K, L)
α = 1.6755160819145565 rad (slider from 0 to 6.283185307179586, step 1*°)
poli2, c_1, h_1, g, f, e, d = Polygon(C, H, G, F, E, D)
C' = Rotate(C, (-α), c)
H' = Rotate(H, (-α), c)
G' = Rotate(G, (-α), c)
F' = Rotate(F, (-α), c)
E' = Rotate(E, (-α), c)
D' = Rotate(D, (-α), c)
poli2', c', h', g', f', e', d' = Polygon(C', H', G', F', E', D')
M = Midpoint(i)
H'_1 = Mirror(H, M)
G'_1 = Mirror(G, M)
F'_1 = Mirror(F, M)
E'_1 = Mirror(E, M)
C'_1 = Mirror(C, M)
L' = Mirror(L, M)
K' = Mirror(K, M)
D'_2 = Mirror(D, M)
poli3, i_1, k', l', c'_1, h'_1, j_1 = Polygon(I, K', L', C'_1, H'_1, J)
β = 2.2165681500327987 rad (slider from 0 to 6.283185307179586, step 1*°)
γ = 2.443460952792061 rad (slider from 0 to 6.283185307179586, step 1*°)
δ = 1.5707963267948966 rad (slider from 0 to 6.283185307179586, step 1*°)
I' = Rotate(I, (-β), i)
K'' = Rotate(K', (-β), i)
L'' = Rotate(L', (-β), i)
N = Rotate(C'_1, (-β), i)
O = Rotate(H'_1, (-β), i)
J' = Rotate(J, (-β), i)
poli3', i', k'', l'', n, o, j' = Polygon(I', K'', L'', N, O, J')
poli4, h'_2, g'_1, f'_1, e'_1, d'_2, c'_2 = Polygon(H'_1, G'_1, F'_1, E'_1, D'_2, C'_1)
P = Rotate(H'_1, (-β), i)
Q = Rotate(G'_1, (-β), i)
R = Rotate(F'_1, (-β), i)
S = Rotate(E'_1, (-β), i)
T = Rotate(D'_2, (-β), i)
U = Rotate(C'_1, (-β), i)
poli5 = Rotate(Polygon[Rotate[H'_1, (-β), i], Rotate[G'_1, (-β), i], Rotate[F'_1, (-β), i], Rotate[E'_1, (-β), i], Rotate[D'_2, (-β), i], Rotate[C'_1, (-β), i]], α, Segment[O, N])
V = (-4.077081506243147, 15.33301872187966)
W = (-17.071134225622984, 14.051602892603382)
Z = (-10.980200685751289, 9.042182144462664)
A_1 = (-6.769929453655097, 5.508356906556365)
B_1 = (-13.585235707940088, 2.2345930615538383)
C_1 = (-7.10342967802014, -0.22114246575070318)
D_1 = (-9.818893361923008, -7.956853435144973)
E_1 = (-8.149586168847073, -8.556862754373848)
F_1 = (-5.873539536011126, -7.4806449764507725)
G_1 = (-3.1491531863089786, 0.26712040123591757)
H_1 = (-9.382697770230765, -1.3101467970661622)
I_1 = (-11.999098918121943, -7.025579684007239)
J_1 = (-15.51960224965952, 6.857215723442407)
K_1 = (-13.256548610030297, 7.947768034461522)
poli6, j_2, z, a_1, b_1, c_2, k_1 = Polygon(J, Z, A_1, B_1, C_1, K)
J'_1 = Rotate(J, (-γ), j)
Z' = Rotate(Z, (-γ), j)
L_1 = Rotate(A_1, (-γ), j)
M_1 = Rotate(B_1, (-γ), j)
N_1 = Rotate(C_1, (-γ), j)
K'_1 = Rotate(K, (-γ), j)
poli6', j'_1, z', l_1, m_1, n_1, k'_1 = Polygon(J'_1, Z', L_1, M_1, N_1, K'_1)
O_1 = (-13.590516593624068, 2.2343803154561446)
poli7, a_2, k_2, j_3, i_2, h_2, o_1 = Polygon(A_1, K_1, J_1, I_1, H_1, O_1)
poli8 = Rotate(Polygon[Rotate[A_1, (-γ), j], Rotate[K_1, (-γ), j], Rotate[J_1, (-γ), j], Rotate[I_1, (-γ), j], Rotate[H_1, (-γ), j], Rotate[O_1, (-γ), j]], δ, Segment[L_1, M_1])
ε = 3.9444441095071845 rad (slider from 0 to 6.283185307179586, step 1*°)
poli9, g_1, k_3, c_3, d_1, e_1, f_1 = Polygon(G_1, K, C_1, D_1, E_1, F_1)
poli10 = Rotate(Polygon[Rotate[G_1, (-γ), j], Rotate[K, (-γ), j], Rotate[C_1, (-γ), j], Rotate[D_1, (-γ), j], Rotate[E_1, (-γ), j], Rotate[F_1, (-γ), j]], ε, Segment[K'_1, N_1])