Setup

Play

r = 2.66 (slider from 1 to 8, step 0.01)
L_2 = Rotate(Sequence[((r * cos(k)), (r * sin(k))), k, 0, (2 * π), (2 * π / 3)], ((-π)) / 2, (0, 0))
T3 = Element(L_2, 3)
T2 = Element(L_2, 2)
T1 = Element(L_2, 1)
t = 0.58 (slider from 0 to 1, step 0.01)
d = Distance(T1, T2)
v4 = Vector(T3, (x(T3) + d / 3, y(T3)))
L_1 = Sequence((cos(k), sin(k)), k, 0, (2 * π), π / 3)
v1 = Vector((0, 0), T3)
O: (0, 0)
v3 = Vector((0, 0), (x(T3) + (2 * d / 3), y(T3)))
v2 = Vector((0, 0), (x(T3) + d / 3, y(T3)))
P1 = Element(L_1, 1)
P2 = Element(L_1, 2)
P3 = Element(L_1, 3)
P4 = Element(L_1, 4)
P5 = Element(L_1, 5)
P6 = Element(L_1, 6)
A1, o, p4, p3, p2 = Polygon(O, P4, P3, P2)
A2, o_1, p2_1, p1, p6 = Polygon(O, P2, P1, P6)
A3, o_2, P6_1, p5, p4_1 = Polygon(O, P6, P5, P4)
TA1 = Translate(Polygon[Translate[O, v1], Translate[P4, v1], Translate[P3, v1], Translate[P2, v1]], Vector[(t * v4)])
R1TA1 = Rotate(TA1, (2 * π / 3), (0, 0))
R2TA1 = Rotate(TA1, (4 * π / 3), (0, 0))
TA2 = Translate(Polygon[Translate[O, v2], Translate[P4, v2], Translate[P3, v2], Translate[P2, v2]], Vector[(t * v4)])
TA3 = Translate(Polygon[Translate[O, v3], Translate[P4, v3], Translate[P3, v3], Translate[P2, v3]], Vector[(t * v4)])
R1TA2 = Rotate(TA2, (2 * π / 3), (0, 0))
R1TA3 = Rotate(TA3, (2 * π / 3), (0, 0))
R2TA2 = Rotate(TA2, (4 * π / 3), (0, 0))
R2TA3 = Rotate(TA3, (4 * π / 3), (0, 0))
UA1 = Translate(Polygon[Translate[O, v1], Translate[P2, v1], Translate[P1, v1], Translate[P6, v1]], Vector[(t * v4)])
UA2 = Translate(Polygon[Translate[O, v2], Translate[P2, v2], Translate[P1, v2], Translate[P6, v2]], Vector[(t * v4)])
UA3 = Translate(Polygon[Translate[O, v3], Translate[P2, v3], Translate[P1, v3], Translate[P6, v3]], Vector[(t * v4)])
T1TA1 = Rotate(UA1, (2 * π / 3), (0, 0))
T1TA2 = Rotate(UA2, (2 * π / 3), (0, 0))
T1TA3 = Rotate(UA3, (2 * π / 3), (0, 0))
T2TA1 = Rotate(UA1, (4 * π / 3), (0, 0))
T2TA2 = Rotate(UA2, (4 * π / 3), (0, 0))
T2TA3 = Rotate(UA3, (4 * π / 3), (0, 0))
VA1 = Translate(Polygon[Translate[O, v1], Translate[P6, v1], Translate[P5, v1], Translate[P4, v1]], Vector[(t * v4)])
VA2 = Translate(Polygon[Translate[O, v2], Translate[P6, v2], Translate[P5, v2], Translate[P4, v2]], Vector[(t * v4)])
VA3 = Translate(Polygon[Translate[O, v3], Translate[P6, v3], Translate[P5, v3], Translate[P4, v3]], Vector[(t * v4)])
U1TA1 = Rotate(VA1, (2 * π / 3), (0, 0))
U1TA2 = Rotate(VA2, (2 * π / 3), (0, 0))
U1TA3 = Rotate(VA3, (2 * π / 3), (0, 0))
U2TA1 = Rotate(VA1, (4 * π / 3), (0, 0))
U2TA2 = Rotate(VA2, (4 * π / 3), (0, 0))
U2TA3 = Rotate(VA3, (4 * π / 3), (0, 0))
a = true
Speed = 3 (slider from 0 to 8, step 0.01)
E1: NaN
F1 = Rotate(E1, (2 * π / 3), (0, 0))
E2: NaN
F2 = Rotate(E2, (2 * π / 3), (0, 0))
E3: NaN
F3 = Rotate(E3, (2 * π / 3), (0, 0))
G1 = Rotate(E1, (4 * π / 3), (0, 0))
G2 = Rotate(E2, (4 * π / 3), (0, 0))
G3 = Rotate(E3, (4 * π / 3), (0, 0))