Setup

A: (-1, -1)
B: (-1, -3)
C: (1, -3)
D: (1, -1)
E: (3, -1)
F: (3, 1)
G: (1, 1)
H: (1, 3)
I: (-1, 3)
J: (-1, 1)
K: (-3, 1)
L: (-3, -1)
xlocation = 0.22864493260512314 (slider from -1 to 1, step 0.01)
ylocation = 0.08323512957452721 (slider from -1 to 1, step 0.01)
xspeed: -0.3
yspeed: 0.2
n: 10
t = -0.06 (slider from -5 to 5, step 0.01)
Cen: (xlocation, ylocation)
poly1, a, b, c, d, e, f, g, h, i, j, k, l = Polygon(A, B, C, D, E, F, G, H, I, J, K, L)
A' = Dilate(A, 1 / n, Cen)
B' = Dilate(B, 1 / n, Cen)
C' = Dilate(C, 1 / n, Cen)
D' = Dilate(D, 1 / n, Cen)
E' = Dilate(E, 1 / n, Cen)
F' = Dilate(F, 1 / n, Cen)
G' = Dilate(G, 1 / n, Cen)
H' = Dilate(H, 1 / n, Cen)
I' = Dilate(I, 1 / n, Cen)
J' = Dilate(J, 1 / n, Cen)
K' = Dilate(K, 1 / n, Cen)
L' = Dilate(L, 1 / n, Cen)
A1, m, p, q, r, s, f_1, g_1, h_1, i_1, j_1, k_1, l_1 = Polygon(Dilate[A, 1 / n, Cen], Dilate[B, 1 / n, Cen], Dilate[C, 1 / n, Cen], Dilate[D, 1 / n, Cen], Dilate[E, 1 / n, Cen], Dilate[F, 1 / n, Cen], Dilate[G, 1 / n, Cen], Dilate[H, 1 / n, Cen], Dilate[I, 1 / n, Cen], Dilate[J, 1 / n, Cen], Dilate[K, 1 / n, Cen], Dilate[L, 1 / n, Cen])
A'_1 = Dilate(A, 2 / n, Cen)
B'_1 = Dilate(B, 2 / n, Cen)
C'_1 = Dilate(C, 2 / n, Cen)
D'_1 = Dilate(D, 2 / n, Cen)
E'_1 = Dilate(E, 2 / n, Cen)
F'_1 = Dilate(F, 2 / n, Cen)
G'_1 = Dilate(G, 2 / n, Cen)
H'_1 = Dilate(H, 2 / n, Cen)
I'_1 = Dilate(I, 2 / n, Cen)
J'_1 = Dilate(J, 2 / n, Cen)
K'_1 = Dilate(K, 2 / n, Cen)
L'_1 = Dilate(L, 2 / n, Cen)
A2, m_1, n_1, p_1, q_1, r_1, s_1, t_1, a_1, b_1, c_1, d_1, e_1 = Polygon(Dilate[A, 2 / n, Cen], Dilate[B, 2 / n, Cen], Dilate[C, 2 / n, Cen], Dilate[D, 2 / n, Cen], Dilate[E, 2 / n, Cen], Dilate[F, 2 / n, Cen], Dilate[G, 2 / n, Cen], Dilate[H, 2 / n, Cen], Dilate[I, 2 / n, Cen], Dilate[J, 2 / n, Cen], Dilate[K, 2 / n, Cen], Dilate[L, 2 / n, Cen])
A'_2 = Dilate(A, 3 / n, Cen)
B'_2 = Dilate(B, 3 / n, Cen)
C'_2 = Dilate(C, 3 / n, Cen)
D'_2 = Dilate(D, 3 / n, Cen)
E'_2 = Dilate(E, 3 / n, Cen)
F'_2 = Dilate(F, 3 / n, Cen)
G'_2 = Dilate(G, 3 / n, Cen)
H'_2 = Dilate(H, 3 / n, Cen)
I'_2 = Dilate(I, 3 / n, Cen)
J'_2 = Dilate(J, 3 / n, Cen)
K'_2 = Dilate(K, 3 / n, Cen)
L'_2 = Dilate(L, 3 / n, Cen)
A3, f_2, g_2, h_2, i_2, j_2, k_2, l_2, m_2, n_2, p_2, q_2, r_2 = Polygon(Dilate[A, 3 / n, Cen], Dilate[B, 3 / n, Cen], Dilate[C, 3 / n, Cen], Dilate[D, 3 / n, Cen], Dilate[E, 3 / n, Cen], Dilate[F, 3 / n, Cen], Dilate[G, 3 / n, Cen], Dilate[H, 3 / n, Cen], Dilate[I, 3 / n, Cen], Dilate[J, 3 / n, Cen], Dilate[K, 3 / n, Cen], Dilate[L, 3 / n, Cen])
A'_3 = Dilate(A, 4 / n, Cen)
B'_3 = Dilate(B, 4 / n, Cen)
C'_3 = Dilate(C, 4 / n, Cen)
D'_3 = Dilate(D, 4 / n, Cen)
E'_3 = Dilate(E, 4 / n, Cen)
F'_3 = Dilate(F, 4 / n, Cen)
G'_3 = Dilate(G, 4 / n, Cen)
H'_3 = Dilate(H, 4 / n, Cen)
I'_3 = Dilate(I, 4 / n, Cen)
J'_3 = Dilate(J, 4 / n, Cen)
K'_3 = Dilate(K, 4 / n, Cen)
L'_3 = Dilate(L, 4 / n, Cen)
A4, s_2, t_2, a_2, b_2, c_2, d_2, e_2, f_3, g_3, h_3, i_3, j_3 = Polygon(Dilate[A, 4 / n, Cen], Dilate[B, 4 / n, Cen], Dilate[C, 4 / n, Cen], Dilate[D, 4 / n, Cen], Dilate[E, 4 / n, Cen], Dilate[F, 4 / n, Cen], Dilate[G, 4 / n, Cen], Dilate[H, 4 / n, Cen], Dilate[I, 4 / n, Cen], Dilate[J, 4 / n, Cen], Dilate[K, 4 / n, Cen], Dilate[L, 4 / n, Cen])
A'_4 = Dilate(A, 5 / n, Cen)
B'_4 = Dilate(B, 5 / n, Cen)
C'_4 = Dilate(C, 5 / n, Cen)
D'_4 = Dilate(D, 5 / n, Cen)
E'_4 = Dilate(E, 5 / n, Cen)
F'_4 = Dilate(F, 5 / n, Cen)
G'_4 = Dilate(G, 5 / n, Cen)
H'_4 = Dilate(H, 5 / n, Cen)
I'_4 = Dilate(I, 5 / n, Cen)
J'_4 = Dilate(J, 5 / n, Cen)
K'_4 = Dilate(K, 5 / n, Cen)
L'_4 = Dilate(L, 5 / n, Cen)
A5, k_3, l_3, m_3, n_3, p_3, q_3, r_3, s_3, t_3, a_3, b_3, c_3 = Polygon(Dilate[A, 5 / n, Cen], Dilate[B, 5 / n, Cen], Dilate[C, 5 / n, Cen], Dilate[D, 5 / n, Cen], Dilate[E, 5 / n, Cen], Dilate[F, 5 / n, Cen], Dilate[G, 5 / n, Cen], Dilate[H, 5 / n, Cen], Dilate[I, 5 / n, Cen], Dilate[J, 5 / n, Cen], Dilate[K, 5 / n, Cen], Dilate[L, 5 / n, Cen])
A'_5 = Dilate(A, 6 / n, Cen)
B'_5 = Dilate(B, 6 / n, Cen)
C'_5 = Dilate(C, 6 / n, Cen)
D'_5 = Dilate(D, 6 / n, Cen)
E'_5 = Dilate(E, 6 / n, Cen)
F'_5 = Dilate(F, 6 / n, Cen)
G'_5 = Dilate(G, 6 / n, Cen)
H'_5 = Dilate(H, 6 / n, Cen)
I'_5 = Dilate(I, 6 / n, Cen)
J'_5 = Dilate(J, 6 / n, Cen)
K'_5 = Dilate(K, 6 / n, Cen)
L'_5 = Dilate(L, 6 / n, Cen)
A6, d_3, e_3, f_4, g_4, h_4, i_4, j_4, k_4, l_4, m_4, n_4, p_4 = Polygon(Dilate[A, 6 / n, Cen], Dilate[B, 6 / n, Cen], Dilate[C, 6 / n, Cen], Dilate[D, 6 / n, Cen], Dilate[E, 6 / n, Cen], Dilate[F, 6 / n, Cen], Dilate[G, 6 / n, Cen], Dilate[H, 6 / n, Cen], Dilate[I, 6 / n, Cen], Dilate[J, 6 / n, Cen], Dilate[K, 6 / n, Cen], Dilate[L, 6 / n, Cen])
A'_6 = Dilate(A, 7 / n, Cen)
B'_6 = Dilate(B, 7 / n, Cen)
C'_6 = Dilate(C, 7 / n, Cen)
D'_6 = Dilate(D, 7 / n, Cen)
E'_6 = Dilate(E, 7 / n, Cen)
F'_6 = Dilate(F, 7 / n, Cen)
G'_6 = Dilate(G, 7 / n, Cen)
H'_6 = Dilate(H, 7 / n, Cen)
I'_6 = Dilate(I, 7 / n, Cen)
J'_6 = Dilate(J, 7 / n, Cen)
K'_6 = Dilate(K, 7 / n, Cen)
L'_6 = Dilate(L, 7 / n, Cen)
A7, q_4, r_4, s_4, t_4, a_4, b_4, c_4, d_4, e_4, f_5, g_5, h_5 = Polygon(Dilate[A, 7 / n, Cen], Dilate[B, 7 / n, Cen], Dilate[C, 7 / n, Cen], Dilate[D, 7 / n, Cen], Dilate[E, 7 / n, Cen], Dilate[F, 7 / n, Cen], Dilate[G, 7 / n, Cen], Dilate[H, 7 / n, Cen], Dilate[I, 7 / n, Cen], Dilate[J, 7 / n, Cen], Dilate[K, 7 / n, Cen], Dilate[L, 7 / n, Cen])
A'_7 = Dilate(A, 8 / n, Cen)
B'_7 = Dilate(B, 8 / n, Cen)
C'_7 = Dilate(C, 8 / n, Cen)
D'_7 = Dilate(D, 8 / n, Cen)
E'_7 = Dilate(E, 8 / n, Cen)
F'_7 = Dilate(F, 8 / n, Cen)
G'_7 = Dilate(G, 8 / n, Cen)
H'_7 = Dilate(H, 8 / n, Cen)
I'_7 = Dilate(I, 8 / n, Cen)
J'_7 = Dilate(J, 8 / n, Cen)
K'_7 = Dilate(K, 8 / n, Cen)
L'_7 = Dilate(L, 8 / n, Cen)
A8, i_5, j_5, k_5, l_5, m_5, n_5, p_5, q_5, r_5, s_5, t_5, a_5 = Polygon(Dilate[A, 8 / n, Cen], Dilate[B, 8 / n, Cen], Dilate[C, 8 / n, Cen], Dilate[D, 8 / n, Cen], Dilate[E, 8 / n, Cen], Dilate[F, 8 / n, Cen], Dilate[G, 8 / n, Cen], Dilate[H, 8 / n, Cen], Dilate[I, 8 / n, Cen], Dilate[J, 8 / n, Cen], Dilate[K, 8 / n, Cen], Dilate[L, 8 / n, Cen])
A'_8 = Dilate(A, 9 / n, Cen)
B'_8 = Dilate(B, 9 / n, Cen)
C'_8 = Dilate(C, 9 / n, Cen)
D'_8 = Dilate(D, 9 / n, Cen)
E'_8 = Dilate(E, 9 / n, Cen)
F'_8 = Dilate(F, 9 / n, Cen)
G'_8 = Dilate(G, 9 / n, Cen)
H'_8 = Dilate(H, 9 / n, Cen)
I'_8 = Dilate(I, 9 / n, Cen)
J'_8 = Dilate(J, 9 / n, Cen)
K'_8 = Dilate(K, 9 / n, Cen)
L'_8 = Dilate(L, 9 / n, Cen)
A9, b_5, c_5, d_5, e_5, f_6, g_6, h_6, i_6, j_6, k_6, l_6, m_6 = Polygon(Dilate[A, 9 / n, Cen], Dilate[B, 9 / n, Cen], Dilate[C, 9 / n, Cen], Dilate[D, 9 / n, Cen], Dilate[E, 9 / n, Cen], Dilate[F, 9 / n, Cen], Dilate[G, 9 / n, Cen], Dilate[H, 9 / n, Cen], Dilate[I, 9 / n, Cen], Dilate[J, 9 / n, Cen], Dilate[K, 9 / n, Cen], Dilate[L, 9 / n, Cen])
A'_9 = Dilate(A, 10 / n, Cen)
B'_9 = Dilate(B, 10 / n, Cen)
C'_9 = Dilate(C, 10 / n, Cen)
D'_9 = Dilate(D, 10 / n, Cen)
E'_9 = Dilate(E, 10 / n, Cen)
F'_9 = Dilate(F, 10 / n, Cen)
G'_9 = Dilate(G, 10 / n, Cen)
H'_9 = Dilate(H, 10 / n, Cen)
I'_9 = Dilate(I, 10 / n, Cen)
J'_9 = Dilate(J, 10 / n, Cen)
K'_9 = Dilate(K, 10 / n, Cen)
L'_9 = Dilate(L, 10 / n, Cen)
A10, n_6, p_6, q_6, r_6, s_6, t_6, a_6, b_6, c_6, d_6, e_6, f_7 = Polygon(Dilate[A, 10 / n, Cen], Dilate[B, 10 / n, Cen], Dilate[C, 10 / n, Cen], Dilate[D, 10 / n, Cen], Dilate[E, 10 / n, Cen], Dilate[F, 10 / n, Cen], Dilate[G, 10 / n, Cen], Dilate[H, 10 / n, Cen], Dilate[I, 10 / n, Cen], Dilate[J, 10 / n, Cen], Dilate[K, 10 / n, Cen], Dilate[L, 10 / n, Cen])