A = Intersect(xAxis, yAxis)
B = Point(yAxis)
C = Point(xAxis)
poly1, c, b, a = Polygon(B, A, C)
poly2, a_1, b_1, d, e, D, E = Polygon(A, B, 4.0)
poly3, b_2, c_1, f, g, F, G = Polygon(B, C, 4.0)
poly4, c_2, a_2, h, i, H, I = Polygon(C, A, 4.0)
étape1 = 0 (slider from 0 to 1, step 0.02)
G' = Dilate(G, étape1, B)
u = Vector(B, G')
B'_1 = Translate(B, u)
A'_1 = Translate(A, u)
C'_1 = Translate(C, u)
poly1'_1, c', b', a' = Polygon(B'_1, A'_1, C'_1)
α_B: (étape1 * 90.0)°
J = Midpoint(B, C)
B'_2 = Rotate(B, α_B, B)
A'_2 = Rotate(A, α_B, B)
C'_2 = Rotate(C, α_B, B)
poly1'_2, c'_1, b'_1, a'_1 = Polygon(B'_2, A'_2, C'_2)
B'_3 = Rotate(B, -(α_B), C)
A'_3 = Rotate(A, -(α_B), C)
C'_3 = Rotate(C, -(α_B), C)
poly1'_3, c'_2, b'_2, a'_2 = Polygon(B'_3, A'_3, C'_3)
B'_4 = Rotate(B, 2.0 * α_B, J)
A'_4 = Rotate(A, 2.0 * α_B, J)
C'_4 = Rotate(C, 2.0 * α_B, J)
poly1', c'_3, b'_3, a'_3 = Polygon(B'_4, A'_4, C'_4)
étape2 = 0 (slider from 0 to 1, step 0.02)
K = Point(xAxis)
k = Circle(K, Segment[C, A])
L, M = Intersect(k, xAxis)
K'_1 = Dilate(K, étape2, A'_1)
v = Vector(A'_1, K'_1)
N = Translate(B'_1, v)
O = Translate(A'_1, v)
P = Translate(C'_1, v)
poly5, p, n, o = Polygon(N, O, P)
M' = Dilate(M, étape2, C)
w = Vector(C, M')
B'' = Translate(B'_4, w)
A''_1 = Translate(A'_4, w)
C'' = Translate(C'_4, w)
poly1'', c'', b'', a'' = Polygon(B'', A''_1, C'')
q = Circle(M, Segment[E, D])
Q, R = Intersect(q, xAxis)
R'_1 = Dilate(M, étape2, C)
z = Vector(C, R'_1)
S = Translate(B'_3, z)
T = Translate(A'_3, z)
U = Translate(C'_3, z)
poly6, u_1, s, t = Polygon(S, T, U)
R' = Dilate(R, étape2, A'_2)
j = Vector(A'_2, R')
V = Translate(B'_2, j)
W = Translate(A'_2, j)
Z = Translate(C'_2, j)
poly7, z_1, v_1, w_1 = Polygon(V, W, Z)
poly8, a'_4, a'_5, a'_6, a'_7 = Polygon(A'_1, A'_2, A'_4, A'_3)
A_1 = Translate(A'_1, w)
B_1 = Translate(A'_2, w)
A'' = Translate(A'_4, w)
C_1 = Translate(A'_3, w)
poly8', a_3, b_3, a''_1, c_3 = Polygon(A_1, B_1, A'', C_1)
étape3 = 0 (slider from 0 to 1, step 0.02)
K' = Dilate(K, étape3, E)
l = Vector(E, K')
A'_5 = Translate(A, l)
B' = Translate(B, l)
D' = Translate(D, l)
E' = Translate(E, l)
poly2', a'_8, b'_4, d', e' = Polygon(A'_5, B', D', E')
W' = Dilate(W, étape3, I)
m = Vector(I, W')
C' = Translate(C, m)
A' = Translate(A, m)
H' = Translate(H, m)
I' = Translate(I, m)
poly4', c'_4, a'_9, h', i' = Polygon(C', A', H', I')
r = Segment(A_1, C_1)
d_1 = Segment(C_1, A'')
e_1 = Segment(A'', B_1)
f_1 = Segment(B_1, A_1)