Animer S, R, Q, A, puis T, U, V, W

A_2 = (-1, -3)
B = (3, -3)
D = (4.9564, 3.7916)
a = Segment(D, A_2)
b = Segment(A_2, B)
D_1 = Midpoint(D, B)
C = Mirror(A_2, D_1)
c = Segment(D, C)
d = Segment(C, B)
E = Midpoint(a)
F = Midpoint(a)
G = Midpoint(a)
H = Midpoint(d)
e = Segment(D, G)
f = Segment(G, A_2)
g = Segment(B, H)
h = Segment(H, C)
I = Midpoint(e)
J = Midpoint(f)
K = Midpoint(h)
L = Midpoint(g)
i = Line(J, L)
j = Line(G, H)
k = Line(I, K)
l = Line(A_2, B)
m = Line(D, C)
n = OrthogonalLine(D, k)
p = OrthogonalLine(I, j)
q = OrthogonalLine(G, i)
r = OrthogonalLine(J, l)
M = Intersect(k, n)
N = Intersect(j, p)
O = Intersect(i, q)
P_1 = Intersect(b, r)
poly1, j_1, a_1, p_1 = Polygon(A_2, P_1, J)
poly2, g_1, j_2, o = Polygon(J, O, G)
poly3, i_1, g_2, n_1 = Polygon(G, N, I)
poly4, c_1, i_2, m_1 = Polygon(I, M, D)
u = Vector(A_2, P_1)
v = Vector(P_1, J)
A = Point(b)
Q'_1 = Translate(A, u)
Q''_1 = Translate(Q'_1, v)
poly5, q'', q_1, q' = Polygon(A, Q'_1, Q''_1)
s_2 = Segment(J, Q''_1)
t = Segment(G, H)
b_1 = Segment(I, K)
Q_1 = Point(s_2)
R'_1 = Translate(Q_1, u)
R''_1 = Translate(R'_1, v)
poly6, r', r'', r_1 = Polygon(R''_1, Q_1, R'_1)
R = Point(t)
R' = Translate(R, u)
R'' = Translate(R', v)
poly7, r_2, r'_1, r''_1 = Polygon(R', R'', R)
S = Point(b_1)
S' = Translate(S, u)
S'' = Translate(S', v)
poly8, s', s'', s_1 = Polygon(S'', S, S')
w = Vector(D, C)
D' = Translate(C, u)
d_1 = OrthogonalLine(D', j)
T_1 = Intersect(k, d_1)
U_1 = Intersect(j, d_1)
V_1 = Intersect(i, d_1)
A' = Intersect(l, d_1)
e_1 = Segment(P_1, A')
f_1 = Segment(O, V_1)
h_1 = Segment(N, U_1)
k_1 = Segment(M, T_1)
l_1 = Segment(D, D')
T = Point(e_1)
Z'_1 = Translate(T, w)
Z'' = Translate(Z'_1, v)
Z'_2 = Translate(T, v)
poly9, z', z, z'_1, z'' = Polygon(Z'_2, T, Z'_1, Z'')
B' = Translate(A', w)
C' = Translate(D', w)
poly10, d', d'', w', w_1 = Polygon(D', C', B', A')
U = Point(f_1)
Z'_3 = Translate(U, w)
Z'_4 = Translate(U, v)
A_1 = Translate(Z'_3, v)
poly11, z'_2, z_1, z'_3, a_2 = Polygon(Z'_4, U, Z'_3, A_1)
V = Point(h_1)
Z'_5 = Translate(V, w)
Z'_6 = Translate(V, v)
B_1 = Translate(Z'_5, v)
poly12, z'_4, z_2, z'_5, b_2 = Polygon(Z'_6, V, Z'_5, B_1)
W = Point(k_1)
Z'_7 = Translate(W, w)
C'_1 = Translate(W, v)
D'_2 = Translate(Z'_7, v)
poly13, z'_6, w_2, z'_7, c_2 = Polygon(C'_1, W, Z'_7, D'_2)
Z = (-1, -4)
C_1 = Point(Circle[Z, b])
unité = Segment(Z, C_1)
Q_2 = Point(s_2)
Q' = Translate(Q_2, u)
Q'' = Translate(Q', v)
poly14, q'_1, q''_1, q_2 = Polygon(Q'', Q_2, Q')
a1 = Line(Q''_1, b)
A1 = Intersect(a1, g)
s = Segment(Q''_1, A1)
Q = Point(s)
B1 = Translate(Q, u)
C1 = Translate(B1, v)
poly15, b1, c1, q_3 = Polygon(C1, Q, B1)