A = (0, 0)
B = (0.8660254037844386, 0.5)
C = (0.8660254037844386, 1.5)
D = (0, 2)
E = (-0.8660254037844386, 1.5)
F = (-0.8660254037844386, 0.5)
polígono1, a, b, c, d, e, f = Polygon(A, B, C, D, E, F)
u = Vector(A, D)
v = Vector(F, C)
n = 0 (slider from 0 to 8, step 1)
lista1 = Sequence(Sequence[Polygon[Translate[A, s * u + t * v], Translate[B, s * u + t * v], Translate[C, s * u + t * v], Translate[D, s * u + t * v], Translate[E, s * u + t * v], Translate[F, s * u + t * v]], s, -1.0 * n, n], t, -1.0 * n, n)