B = Point(xAxis)
A = (0.65, -0.04)
poligon1, a, b, c, d, e, f, g, h, C, D, E, F, G, H = Polygon(A, B, 8)
poligon2, i, j, k, l, I, J = Polygon(G, F, 4)
poligon3, m, n, p, q, K, L = Polygon(A, H, 4)
M = Point(g)
N = Point(c)
u = Vector(M, N)
lista1 = Sequence(Translate[poligon1, Vector[(i * u)]], i, 0, 8)
v = Vector(F, A)
lista4 = Sequence(Translate[lista1, Vector[(i * v)]], i, 1, 8)
lista2 = Sequence(Translate[poligon2, Vector[(i * u)]], i, 0, 8)
lista3 = Sequence(Translate[poligon3, Vector[(i * u)]], i, 0, 8)
lista5 = Sequence(Translate[lista2, Vector[(i * v)]], i, 2, 8)