Setup

n: 6
t = 0.39 (slider from 0 to 2, step 0.01)
A: ((2 * 0.87), 0)
u = Vector((0, 0), A)
B: (-0.87, 1.5)
v = Vector((0, 0), B)
size: 5
Pts = Sequence(Rotate[(cos(((i / n * 2) * π)), sin(((i / n * 2) * π))), π / 6, (0, 0)], i, 1, n)
PtsC = Sequence(Rotate[(((t - 1) * cos(((i / n * 2) * π))), ((t - 1) * sin(((i / n * 2) * π)))), π / 6, (0, 0)], i, 1, n)
C1, f, g, h, i, j = Polygon(Element[Pts, 2], Element[Pts, 3], Element[Pts, 4], (0, 0), Element[Pts, 2])
L1 = Rotate(C1, (2 * π / 3), (0, 0))
L2 = Rotate(C1, ((2 * 2) * π / 3), (0, 0))
L3 = Rotate(C1, ((3 * 2) * π / 3), (0, 0))
C2, k, l, m, p, q = Polygon(Element[PtsC, 2], Element[PtsC, 3], Element[PtsC, 4], (0, 0), Element[PtsC, 2])
M1 = Rotate(C2, (2 * π / 3), (0, 0))
M2 = Rotate(C2, ((2 * 2) * π / 3), (0, 0))
M3 = Rotate(C2, ((3 * 2) * π / 3), (0, 0))
C3, r, s, a, b, c = Polygon(Element[PtsC, 2], Element[PtsC, 3], Element[PtsC, 4], (0, 0), Element[PtsC, 2])
N1 = Rotate(C3, (2 * π / 3), (0, 0))
N2 = Rotate(C3, ((2 * 2) * π / 3), (0, 0))
N3 = Rotate(C3, ((3 * 2) * π / 3), (0, 0))
l_1 = Sequence(Sequence[Translate[L1, Vector[(i * u) + (j * v)]], i, 1, size], j, 1, size)
l_2 = Sequence(Sequence[Translate[L2, Vector[(i * u) + (j * v)]], i, 1, size], j, 1, size)
l_3 = Sequence(Sequence[Translate[L3, Vector[(i * u) + (j * v)]], i, 1, size], j, 1, size)
n_1 = Sequence(Sequence[Translate[N1, Vector[(i * u) + (j * v)]], i, 1, size], j, 1, size)
n_2 = Sequence(Sequence[Translate[N2, Vector[(i * u) + (j * v)]], i, 1, size], j, 1, size)
n_3 = Sequence(Sequence[Translate[N3, Vector[(i * u) + (j * v)]], i, 1, size], j, 1, size)
C = (0, 1)
w = Vector((0, 0), C)
m_1 = Sequence(Sequence[Translate[Translate[M1, Vector[(i * u) + (j * v)]], Vector[(0, 0), C]], i, 1, size], j, 1, size)
m_2 = Sequence(Sequence[Translate[Translate[M2, Vector[(i * u) + (j * v)]], Vector[(0, 0), C]], i, 1, size], j, 1, size)
m_3 = Sequence(Sequence[Translate[Translate[M3, Vector[(i * u) + (j * v)]], Vector[(0, 0), C]], i, 1, size], j, 1, size)