Potencias de 2

a3: {33, 49, 27, 17, 21, 55, 61, 39, 3, 0, 31, 51, 63, 43, 0, 13, 15, 7, 1, 19, 15, 23, 59, 41, 57, 0, 29, 9, 0, 35, 0, 51, 53, 5, 47, 25, 45, 33, 11, 37}
a4: {11, 38, 62, 51, 43, 26, 55, 15, 10, 0, 63, 35, 31, 19, 0, 46, 14, 3, 0, 59, 27, 7, 58, 18, 26, 0, 6, 47, 2, 39, 0, 22, 54, 23, 50, 30, 35, 42, 11, 34}
a1: {5, 47, 28, 53, 61, 13, 20, 52, 37, 0, 44, 30, 46, 55, 4, 7, 22, 63, 0, 12, 62, 14, 60, 31, 23, 0, 29, 54, 0, 15, 0, 6, 45, 36, 39, 21, 47, 28, 63, 38}
a5: {45, 63, 27, 10, 58, 9, 61, 42, 29, 8, 11, 57, 30, 59, 0, 62, 13, 24, 0, 60, 40, 47, 14, 56, 46, 0, 12, 44, 0, 25, 0, 27, 43, 15, 41, 31, 26, 62, 12, 28}
a2: {54, 23, 18, 58, 63, 31, 26, 51, 29, 0, 61, 50, 20, 27, 0, 52, 56, 28, 0, 17, 59, 48, 21, 60, 31, 0, 19, 55, 0, 30, 16, 53, 62, 49, 24, 57, 22, 52, 27, 25}
a6: {39, 63, 54, 38, 45, 61, 49, 33, 53, 0, 57, 46, 43, 41, 0, 62, 34, 40, 0, 55, 42, 51, 59, 35, 60, 32, 44, 59, 0, 58, 0, 58, 36, 48, 50, 56, 52, 47, 42, 37}
Z1 = (-6, 8.16)
Z2 = (-1.5, 7.68)
Z3 = (3, 7.199999999999999)
Z4 = (-6, 3.84)
Z5 = (-1.5, 3.36)
Z6 = (3, 2.88)
B = (2.5, 1.92)
m = 0.48
n = 0.5
polígono1, b_1, a, f, g, h, i, j, k, l, p, q, r, s, t, a_1, c_1, d_1, e_1, f_1, g_1 = Polygon(B, B - (2 * n, 0), B - (2 * n, m), B - (n, m), B - (n, 2 * m), B - (2 * n, 2 * m), B - (2 * n, 3 * m), B - (n, 3 * m), B - (n, 4 * m), B - (7 * n, 4 * m), B - (7 * n, 3 * m), B - (6 * n, 3 * m), B - (6 * n, 2 * m), B - (7 * n, 2 * m), B - (7 * n, m), B - (6 * n, m), B - (6 * n, 0), B - (8 * n, 0), B - (8 * n, 5 * m), B - (0, 5 * m))
polígono2, h_1, i_1, j_1, k_1, l_1, m_1, n_1, p_1, q_1, r_1, s_1, t_1 = Polygon(B - (2 * n, 0), B - (2 * n, 4 * m), B - (3 * n, 4 * m), B - (3 * n, 3 * m), B - (4 * n, 3 * m), B - (4 * n, 4 * m), B - (6 * n, 4 * m), B - (6 * n, 3 * m), B - (5 * n, 3 * m), B - (5 * n, 2 * m), B - (6 * n, 2 * m), B - (6 * n, 0))
A1 = 1
A2 = 10
A3 = 11
A4 = 100
A5 = 101
A6 = 110
A7 = 111
A8 = 1000
A9 = 1001
A10 = 1010
A11 = 1011
A12 = 1100
A13 = 1101
A14 = 1110
A15 = 1111
A16 = 10000
A17 = 10001
A18 = 10010
A19 = 10011
A20 = 10100
A21 = 10101
A22 = 10110
A23 = 10111
A24 = 11000
A25 = 11001
A26 = 11010
A27 = 11011
A28 = 11100
A29 = 11101
A30 = 11110
A31 = 11111
A32 = 100000
A33 = 100001
A34 = 100010
A35 = 100011
A36 = 100100
A37 = 100101
A38 = 100110
A39 = 100111
A40 = 101000
A41 = 101001
A42 = 101010
A43 = 101011
A44 = 101100
A45 = 101101
A46 = 101110
A47 = 101111
A48 = 110000
A49 = 110001
A50 = 110010
A51 = 110011
A52 = 110100
A53 = 110101
A54 = 110110
A55 = 110111
A56 = 111000
A57 = 111001
A58 = 111010
A59 = 111011
A60 = 111100
A61 = 111101
A62 = 111110
A63 = 111111
A64 = 1000000
tar1, z1, e, a_2, b_2 = Polygon(Z1, Z1 + (8 * n, 0), Z1 + (8 * n, -5 * m), Z1 + (0, -5 * m))
tar2, c_2, d_2, e_2, f_2 = Polygon(Z2 + (0, m), Z2 + (8 * n, m), Z2 + (8 * n, -4 * m), Z2 + (0, -4 * m))
tar3, g_2, h_2, i_2, j_2 = Polygon(Z3 + (0, 2 * m), Z3 + (8 * n, 2 * m), Z3 + (8 * n, -3 * m), Z3 + (0, -3 * m))
tar4, k_2, l_2, m_2, n_2 = Polygon(Z4 + (0, 3 * m), Z4 + (8 * n, 3 * m), Z4 + (8 * n, -2 * m), Z4 + (0, -2 * m))
tar5, p_2, q_2, r_2, s_2 = Polygon(Z5 + (0, 4 * m), Z5 + (8 * n, 4 * m), Z5 + (8 * n, -m), Z5 + (0, -m))
tar6, t_2, a_3, b_3, z6 = Polygon(Z6 + (0, 5 * m), Z6 + (8 * n, 5 * m), Z6 + (8 * n, 0), Z6)
b1 = Sequence(Segment[Z1 + ((s - 1) * n, 0), Z1 + ((s - 1) * n, -5 * m)], s, 1, 9)
b2 = Sequence(Segment[Z2 + ((s - 1) * n, m), Z2 + ((s - 1) * n, -4 * m)], s, 1, 9)
b3 = Sequence(Segment[Z3 + ((s - 1) * n, 2 * m), Z3 + ((s - 1) * n, -3 * m)], s, 1, 9)
b4 = Sequence(Segment[Z4 + ((s - 1) * n, 3 * m), Z4 + ((s - 1) * n, -2 * m)], s, 1, 9)
b5 = Sequence(Segment[Z5 + ((s - 1) * n, 4 * m), Z5 + ((s - 1) * n, -m)], s, 1, 9)
b6 = Sequence(Segment[Z6 + ((s - 1) * n, 5 * m), Z6 + ((s - 1) * n, 0)], s, 1, 9)
c1 = Sequence(Segment[Z1 + (0, (1 - s) * m), Z1 + (8 * n, (1 - s) * m)], s, 1, 6)
c2 = Sequence(Segment[Z2 + (0, (2 - s) * m), Z2 + (8 * n, (2 - s) * m)], s, 1, 6)
c3 = Sequence(Segment[Z3 + (0, (3 - s) * m), Z3 + (8 * n, (3 - s) * m)], s, 1, 6)
c4 = Sequence(Segment[Z4 + (0, (4 - s) * m), Z4 + (8 * n, (4 - s) * m)], s, 1, 6)
c5 = Sequence(Segment[Z5 + (0, (5 - s) * m), Z5 + (8 * n, (5 - s) * m)], s, 1, 6)
c6 = Sequence(Segment[Z6 + (0, (6 - s) * m), Z6 + (8 * n, (6 - s) * m)], s, 1, 6)
d1 = Sequence(Text[If[Element[a1, s] ≟ 0, " ", If[Element[a1, s] < 10, " " + (Element[a1, s]), "" + (Element[a1, s])]], Z1 + (0.15 + 1.06 * Mod[s - 1, 8], 1 - 1.75 - floor((s - 1) / 8)) * m], s, 1, 40)
d2 = Sequence(Text[If[Element[a2, s] ≟ 0, " ", If[Element[a2, s] < 10, " " + (Element[a2, s]), "" + (Element[a2, s])]], Z2 + (0.15 + 1.06 * Mod[s - 1, 8], 2 - 1.75 - floor((s - 1) / 8)) * m], s, 1, 40)
d3 = Sequence(Text[If[Element[a3, s] ≟ 0, " ", If[Element[a3, s] < 10, " " + (Element[a3, s]), "" + (Element[a3, s])]], Z3 + (0.15 + 1.06 * Mod[s - 1, 8], 3 - 1.75 - floor((s - 1) / 8)) * m], s, 1, 40)
d4 = Sequence(Text[If[Element[a4, s] ≟ 0, " ", If[Element[a4, s] < 10, " " + (Element[a4, s]), "" + (Element[a4, s])]], Z4 + (0.15 + 1.06 * Mod[s - 1, 8], 4 - 1.75 - floor((s - 1) / 8)) * m], s, 1, 40)
d5 = Sequence(Text[If[Element[a5, s] ≟ 0, " ", If[Element[a5, s] < 10, " " + (Element[a5, s]), "" + (Element[a5, s])]], Z5 + (0.15 + 1.06 * Mod[s - 1, 8], 5 - 1.75 - floor((s - 1) / 8)) * m], s, 1, 40)
d6 = Sequence(Text[If[Element[a6, s] ≟ 0, " ", If[Element[a6, s] < 10, " " + (Element[a6, s]), "" + (Element[a6, s])]], Z6 + (0.15 + 1.06 * Mod[s - 1, 8], 6 - 1.75 - floor((s - 1) / 8)) * m], s, 1, 40)