n = 4 (slider from 1 to 10, step 1)
anchura = 0.5 (slider from 0.1 to 1, step 0.1)
A = (4.58, 0.42)
B: A + (anchura, 0)
w = Vector(A, B)
polígono0, b, c, d, e, f, g, C, D, E, F = Polygon(A, B, 6)
h = Vector(C, E)
u = Vector(A, C)
v = Vector(A, E)
lista1a = Sequence(Sequence[Polygon[A - (j * v) + (i * u), A - (j * v) + (i * u) + w, 6], j, 1, n - 1], i, 0, n - 1)
lista1r = Sequence(Sequence[Polygon[A + (j * h) + (i * v), A + (j * h) + (i * v) + w, 6], i, 1 - n, 0], j, 1, n - 1)
lista1v = Sequence(Sequence[Polygon[A + (j * u) + (i * h), A + (j * u) + (i * h) + w, 6], i, 0, n - 1], j, 1, n - 1)
polígono1, i, j, k, l, m, p, G, H, I, J = Polygon(A, B, 6)
Ayuda = 0 (slider from 0 to 3, step 1)
lista0a: lista1a
lista0r: lista1r
lista0v: lista1v
lista2r = Sequence(Sequence[Polygon[A + (j * h) + (i * v), A + (j * h) + (i * v) + w, 6], i, 1 - n, -1], j, 1, n - 1)
lista2v = Sequence(Sequence[Polygon[A + (j * u) + (i * h), A + (j * u) + (i * h) + w, 6], i, 1, n - 1], j, 1, n - 1)
lista2a = Sequence(Sequence[Polygon[A - (j * v) + (i * u), A - (j * v) + (i * u) + w, 6], j, 1, n - 1], i, 1, n - 1)
lista2am1 = Sequence(Polygon[A + (i * u), A + (i * u) + w, 6], i, 1, n - 1)
lista2am2 = Sequence(Polygon[A - (i * v), A - (i * v) + w, 6], i, 1, n - 1)
lista2am3 = Sequence(Polygon[A + (i * h), A + (i * h) + w, 6], i, 1, n - 1)
lista3r = Sequence(Sequence[Polygon[A + (j * h) + (i * v), A + (j * h) + (i * v) + w, 6], i, 1 - n, -1], j, 1, n - 1)
lista3a: lista1a
lista3v = Sequence(Sequence[Polygon[A + (j * u) + (i * h), A + (j * u) + (i * h) + w, 6], i, 0, n - 1], j, 0, n - 1)