t = 0.4822 (slider from 0 to 2, step 1.0E-4)
A = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Semicircle(A, B)
E = Point(c)
s: (1 / 2 * (t - sin(((2 * π) * t)) / 2 / π))
Vieleck1, f, g, h, i, C, D = Polygon(B, A, 4)
Vieleck2, j, k, l, m, F, G = Polygon(E, B, 4)
Vieleck3, n, p, q, r, H, I = Polygon(A, E, 4)
J = Midpoint(A, H)
a = Line(J, f)
b = Line(J, g)
K = Intersect(a, r)
L = Intersect(b, q)
M = Intersect(p, a)
N = Intersect(n, b)
v1, n_1, j_1, k_1, a_1 = Polygon(N, J, K, A)
v2, j_2, m_1, e, n_2 = Polygon(J, M, E, N)
v3, j_3, l_1, h_1, m_2 = Polygon(J, L, H, M)
v4, j_4, l_2, i_1, k_2 = Polygon(J, L, I, K)
u = Vector(J, A)
J' = Translate(J, Vector[(s * u)])
M' = Translate(M, Vector[(s * u)])
E' = Translate(E, Vector[(s * u)])
N' = Translate(N, Vector[(s * u)])
v2', j', m', e', n' = Polygon(J', M', E', N')
v = Vector(E, E')
Vieleck2' = Translate(Vieleck2, v)
Vieleck2'' = Rotate(Vieleck2', (((-s) * 90))°, E')
J'_1 = Translate(J, v)
L' = Translate(L, v)
H' = Translate(H, v)
M'_1 = Translate(M, v)
v3', j'_1, l', h', m'_1 = Polygon(J'_1, L', H', M'_1)
O = Rotate(J'_1, ((s * 180))°, M')
L'' = Rotate(L', ((s * 180))°, M')
H'' = Rotate(H', ((s * 180))°, M')
P = Rotate(M'_1, ((s * 180))°, M')
N'_1 = Translate(N, v)
J'_2 = Translate(J, v)
K' = Translate(K, v)
A' = Translate(A, v)
v1', n'_1, j'_2, k', a' = Polygon(N'_1, J'_2, K', A')
Q = Rotate(N'_1, ((s * 180))°, J')
R = Rotate(J'_2, ((s * 180))°, J')
K'' = Rotate(K', ((s * 180))°, J')
A'' = Rotate(A', ((s * 180))°, J')
S = Rotate(J'_1, ((s * 180))°, M')
L''_1 = Rotate(L', ((s * 180))°, M')
H''_1 = Rotate(H', ((s * 180))°, M')
T = Rotate(M'_1, ((s * 180))°, M')
v3'', s_1, l''_1, h''_1, t_1 = Polygon(S, L''_1, H''_1, T)
U = Rotate(N'_1, ((s * 180))°, N')
V = Rotate(J'_2, ((s * 180))°, N')
K''_1 = Rotate(K', ((s * 180))°, N')
A''_1 = Rotate(A', ((s * 180))°, N')
v1'', u_1, v_1, k''_1, a''_1 = Polygon(U, V, K''_1, A''_1)
w = Vector(K, K''_1)
J'_3 = Translate(J, w)
L'_1 = Translate(L, w)
I' = Translate(I, w)
K'_1 = Translate(K, w)
v4', j'_3, l'_1, i', k'_1 = Polygon(J'_3, L'_1, I', K'_1)
Vieleck4, d, f_1, g_1, p_1, W, Z = Polygon(E, B, 4)