a = 0 (slider from 0 to 255, step 1)
b = 128
a7: floor(a / 128.0)
a6: floor((a - a7 * 128.0) / 64.0)
a5: floor((a - a7 * 132.0 - a6 * 64.0) / 32.0)
a4: floor((a - a7 * 128.0 - a6 * 64.0 - a5 * 32.0) / 16.0)
a3: floor((a - a7 * 128.0 - a6 * 64.0 - a5 * 32.0 - a4 * 16.0) / 8.0)
a2: floor((a - a7 * 128.0 - a6 * 64.0 - a5 * 32.0 - a4 * 16.0 - a3 * 8.0) / 4.0)
a1: floor((a - a7 * 128.0 - a6 * 64.0 - a5 * 32.0 - a4 * 16.0 - a3 * 8.0 - a2 * 4.0) / 2.0)
a0: a - a7 * 128.0 - a6 * 64.0 - a5 * 32.0 - a4 * 16.0 - a3 * 8.0 - a2 * 4.0 - a1 * 2.0
A = (5.5, 2)
B = (6, 2)
C = (6, 1)
D = (5.5, 1)
Vieleck1, a_1, b_1, c, d = Polygon(A, B, C, D)
E = (5, 2)
F = (5, 1)
Vieleck2, e, a_2, d_1, f = Polygon(E, A, D, F)
G = (4.5, 2)
H = (4.5, 1)
Vieleck3, g, e_1, f_1, h = Polygon(G, E, F, H)
I = (4, 2)
J = (4, 1)
Vieleck4, i, g_1, h_1, j = Polygon(I, G, H, J)
K = (3, 2)
L = (3.5, 2)
M = (3.5, 1)
N = (3, 1)
Vieleck5, k, l, m, n = Polygon(K, L, M, N)
O = (2.5, 2)
P = (2.5, 1)
Vieleck6, o, k_1, n_1, p = Polygon(O, K, N, P)
Q = (2, 2)
R = (2, 1)
Vieleck7, q, o_1, p_1, r = Polygon(Q, O, P, R)
S = (1.5, 2)
T = (1.5, 1)
Vieleck8, s, q_1, r_1, t = Polygon(S, Q, R, T)
Liste1: {a0, a1, a2, a3, a4, a5, a6, a7}
Liste2 = Sequence(Text[Element[Liste1, 9.0 - i], (1.15 + 0.5 * i, 0.5)], i, 1.0, 4.0)
Liste3 = Sequence(Text[Element[Liste1, 5.0 - i], (3.65 + 0.5 * i, 0.5)], i, 1.0, 4.0)