Diseño 1

Diseño 2

Diseño 3

n = 3 (slider from 3 to 19, step 1)
lista1 = Sequence(Polygon[(k - 4.0, 1.0), (k - 4.0, 1.0 + 1.0 / sqrt(3.0)), 6.0], k, 1.0, n)
lista2 = Sequence(Polygon[(k - 4.0 + 0.5, 1.0 + sqrt(3.0) / 2.0), (k - 4.0 + 0.5, 1.0 + sqrt(3.0) / 2.0 + 1.0 / sqrt(3.0)), 6.0], k, 1.0, n - 1.0)
lista3 = Sequence(Polygon[(k - 4.0 + 0.5, 1.0 - sqrt(3.0) / 2.0), (k - 4.0 + 0.5, 1.0 - sqrt(3.0) / 2.0 + 1.0 / sqrt(3.0)), 6.0], k, 1.0, n - 1.0)
lista4 = Sequence(Polygon[(k - 4.0, 1.0), (k - 4.0, 1.0 + 1.0 / sqrt(3.0)), 6.0], k, 2.0, n, 2.0)
lista5 = Sequence(Polygon[(k - 4.0, 1.0), (k - 4.0, 1.0 + 1.0 / sqrt(3.0)), 6.0], k, 2.0, n - 1.0)
a = false
b = false
lista1negra = Sequence(Polygon[(k - 4.0, 1.0), (k - 4.0, 1.0 + 1.0 / sqrt(3.0)), 6.0], k, 1.0, n)
lista2negra = Sequence(Polygon[(k - 4.0 + 0.5, 1.0 + sqrt(3.0) / 2.0), (k - 4.0 + 0.5, 1.0 + sqrt(3.0) / 2.0 + 1.0 / sqrt(3.0)), 6.0], k, 1.0, n - 1.0)
lista3negra = Sequence(Polygon[(k - 4.0 + 0.5, 1.0 - sqrt(3.0) / 2.0), (k - 4.0 + 0.5, 1.0 - sqrt(3.0) / 2.0 + 1.0 / sqrt(3.0)), 6.0], k, 1.0, n - 1.0)
L01b = Sequence(Polygon[(k - 4.75, -(3.0)), (k - 4.75 + 1.0 / sqrt(3.0), -(3.0)), 6.0], k, 1.0, n, 1.73205)
L02b = Sequence(Polygon[(k - 4.75 + 1.0 / sqrt(3.0), -(3.0)), (k - 4.75 + 1.0 / sqrt(3.0) - 1.0 / sqrt(3.0), -(3.0)), 6.0], k, 1.0, n, 1.73205)
L12b = Sequence(Polygon[(k - 4.75 + 0.75 * 2.0 / sqrt(3.0), -(3.0) + 0.5), (k - 4.75 + 1.25 * 2.0 / sqrt(3.0), -(3.0) + 0.5), 6.0], k, 1.0, n - 1.0, 1.73205)
L13b = Sequence(Polygon[(k - 4.75 + 0.75 * 2.0 / sqrt(3.0), -(3.0) - 0.5), (k - 4.75 + 1.25 * 2.0 / sqrt(3.0), -(3.0) - 0.5), 6.0], k, 1.0, n - 1.0, 1.73205)
L14b = Sequence(Polygon[(k - 4.75 + 0.75 * 2.0 / sqrt(3.0), -(3.0) - 1.5), (k - 4.75 + 1.25 * 2.0 / sqrt(3.0), -(3.0) - 1.5), 6.0], k, 1.0, n - 1.0, 1.73205)
L01bnegra = Sequence(Polygon[(k - 4.75, -(3.0)), (k - 4.75 + 1.0 / sqrt(3.0), -(3.0)), 6.0], k, 1.0, n, 1.73205)
L02bnegra = Sequence(Polygon[(k - 4.75 + 1.0 / sqrt(3.0), -(3.0)), (k - 4.75 + 1.0 / sqrt(3.0) - 1.0 / sqrt(3.0), -(3.0)), 6.0], k, 1.0, n, 1.73205)
L13bnegra = Sequence(Polygon[(k - 4.75 + 0.75 * 2.0 / sqrt(3.0), -(3.0) - 0.5), (k - 4.75 + 1.25 * 2.0 / sqrt(3.0), -(3.0) - 0.5), 6.0], k, 1.0, n - 1.0, 1.73205)
L14bnegra = Sequence(Polygon[(k - 4.75 + 0.75 * 2.0 / sqrt(3.0), -(3.0) - 1.5), (k - 4.75 + 1.25 * 2.0 / sqrt(3.0), -(3.0) - 1.5), 6.0], k, 1.0, n - 1.0, 1.73205)
L12bnegra = Sequence(Polygon[(k - 4.75 + 0.75 * 2.0 / sqrt(3.0), -(3.0) + 0.5), (k - 4.75 + 1.25 * 2.0 / sqrt(3.0), -(3.0) + 0.5), 6.0], k, 1.0, n - 1.0, 1.73205)
c = false
A = (0.6, -3.64)
texto1: "Longitud: " + (round(n))