j = 0 (slider from 0 to 17, step 0.1)
A = (0, 0)
B = (1, 0)
A_1 = Rotate(A, 270°, B)
C = If(j < 1, Dilate[A_1, j, B], A_1)
poly1, c, a_1, b = Polygon(A, B, C)
D = Next(A_1, A)
E = Next(D, A)
F = Next(E, A)
G = Next(F, A)
H = Next(G, A)
I = Next(H, A)
J = Next(I, A)
K = Next(J, A)
L = Next(K, A)
M = Next(L, A)
N = Next(M, A)
O = Next(N, A)
P = Next(O, A)
Q = Next(P, A)
R = Next(Q, A)
S = Next(R, A)
D_1 = If(j < 2, Dilate[D, j - 1, A_1], D)
poly2, d_1, a_2, a_3 = Polygon(A, A_1, D_1)
E_1 = If(j < 3, Dilate[E, j - 2, D], E)
poly3, e_1, a_4, d = Polygon(A, D, E_1)
F_1 = If(j < 4, Dilate[F, j - 3, E], F)
poly4, f_1, a_5, e = Polygon(A, E, F_1)
G_1 = If(j < 5, Dilate[G, j - 4, F], G)
poly5, g_1, a_6, f = Polygon(A, F, G_1)
H_1 = If(j < 6, Dilate[H, j - 5, G], H)
poly6, h_1, a_7, g = Polygon(A, G, H_1)
I_1 = If(j < 7, Dilate[I, j - 6, H], I)
poly7, i_1, a_8, h = Polygon(A, H, I_1)
J_1 = If(j < 8, Dilate[J, j - 7, I], J)
poly8, j_1, a_9, i = Polygon(A, I, J_1)
K_1 = If(j < 9, Dilate[K, j - 8, J], K)
poly9, k_1, a_{10}, j_2 = Polygon(A, J, K_1)
L_1 = If(j < 10, Dilate[L, j - 9, K], L)
poly10, l_1, a_{11}, k = Polygon(A, K, L_1)
M_1 = If(j < 11, Dilate[M, j - 10, L], M)
poly11, m_1, a_{12}, l = Polygon(A, L, M_1)
N_1 = If(j < 12, Dilate[N, j - 11, M], N)
poly12, n_1, a_{13}, m = Polygon(A, M, N_1)
O_1 = If(j < 13, Dilate[O, j - 12, N], O)
poly13, o_1, a_{14}, n = Polygon(A, N, O_1)
P_1 = If(j < 14, Dilate[P, j - 13, O], P)
poly14, p_1, a_{15}, o = Polygon(A, O, P_1)
Q_1 = If(j < 15, Dilate[Q, j - 14, P], Q)
poly15, q_1, a_{16}, p = Polygon(A, P, Q_1)
R_1 = If(j < 16, Dilate[R, j - 15, Q], R)
poly16, r_1, a_{17}, q = Polygon(A, Q, R_1)
S_1 = If(j < 17, Dilate[S, j - 16, R], S)
poly17, s_1, a_{18}, r = Polygon(A, R, S_1)

Tool: Next
Input: A_1, A
Output: A_2

A'_2 = Rotate(A, 270°, A_1)
A_2 = Dilate(A'_2, 1 / Distance[A_1, A'_2], A_1)