13

8

1

7

7

11

6

6

3

7

8

2

2

4

4

4

9

8

4

liste1 = Join({Sequence[Segment[(i, 0.0), (i, 8.0)], i, 0.0, 13.0], Sequence[Segment[(0.0, k), (13.0, k)], k, 0.0, 8.0]})
poly1, a, b, c, d = Polygon((0.0, 0.0), (13.0, 0.0), (13.0, 8.0), (0.0, 8.0))
liste4: {Polygon[(1.0, 3.0), (3.0, 3.0), (3.0, 4.0), (1.0, 4.0)], Polygon[(9.0, 3.0), (9.0, 1.0), (10.0, 1.0), (10.0, 0.0), (11.0, 0.0), (11.0, 1.0), (12.0, 1.0), (12.0, 3.0), (11.0, 3.0), (11.0, 2.0), (10.0, 2.0), (10.0, 3.0)]}
h_1 = Sequence(Polygon[(i, 7.0), (i + 1.0, 7.0), 4.0], i, 0.0, 12.0)
v_1 = Sequence(Polygon[(0.0, i), (1.0, i), 4.0], i, 0.0, 6.0)
h_2 = Sequence(Polygon[(i, 6.0), (i + 1.0, 6.0), 4.0], i, 1.0, 12.0)
v_4 = Sequence(Polygon[(3.0, i), (4.0, i), 4.0], i, 0.0, 5.0)
v_8 = Sequence(Polygon[(7.0, i), (8.0, i), 4.0], i, 0.0, 5.0)
h_4 = Join({Sequence[Polygon[(i, 4.0), (i + 1.0, 4.0), 4.0], i, 1.0, 2.0], Sequence[Polygon[(i, 4.0), (i + 1.0, 4.0), 4.0], i, 4.0, 6.0], Sequence[Polygon[(i, 4.0), (i + 1.0, 4.0), 4.0], i, 8.0, 12.0]})
v_9 = Join({Sequence[Polygon[(8.0, i), (9.0, i), 4.0], i, 0.0, 3.0], {Polygon[(8.0, 5.0), (9.0, 5.0), 4.0]}})
v_{13} = Join({Sequence[Polygon[(12.0, i), (13.0, i), 4.0], i, 0.0, 3.0], {Polygon[(12.0, 5.0), (13.0, 5.0), 4.0]}})
h_5 = Join({Sequence[Polygon[(i, 3.0), (i + 1.0, 3.0), 4.0], i, 4.0, 6.0], Sequence[Polygon[(i, 3.0), (i + 1.0, 3.0), 4.0], i, 9.0, 11.0]})
h_7 = Join({Sequence[Polygon[(i, 1.0), (i + 1.0, 1.0), 4.0], i, 1.0, 2.0], Sequence[Polygon[(i, 1.0), (i + 1.0, 1.0), 4.0], i, 4.0, 6.0]})
v_2: {Polygon[(1.0, 0.0), (2.0, 0.0), 4.0], Polygon[(1.0, 2.0), (2.0, 2.0), 4.0], Polygon[(1.0, 5.0), (2.0, 5.0), 4.0]}
v_3: {Polygon[(2.0, 0.0), (3.0, 0.0), 4.0], Polygon[(2.0, 2.0), (3.0, 2.0), 4.0], Polygon[(2.0, 5.0), (3.0, 5.0), 4.0]}
h_3 = Join({Sequence[Polygon[(i, 5.0), (i + 1.0, 5.0), 4.0], i, 4.0, 6.0], Sequence[Polygon[(i, 5.0), (i + 1.0, 5.0), 4.0], i, 9.0, 11.0]})
v_{10}: {Polygon[(9.0, 0.0), (10.0, 0.0), 4.0]}
v_{11}: {Polygon[(10.0, 2.0), (11.0, 2.0), 4.0]}
v_{12}: {Polygon[(11.0, 0.0), (12.0, 0.0), 4.0]}
h_8 = Sequence(Polygon[(i, 0.0), (i + 1.0, 0.0), 4.0], i, 4.0, 6.0)
v_5: {Polygon[(4.0, 2.0), (5.0, 2.0), 4.0]}
h_6 = Sequence(Polygon[(i, 2.0), (i + 1.0, 2.0), 4.0], i, 5.0, 6.0)
e = 0 (slider from 0 to 20, step 1)
p_1, f, g, h, i = Polygon((0.0, 7.0), (13.0, 7.0), (13.0, 8.0), (0.0, 8.0))
p_2, j, k, l, m = Polygon((0.0, 0.0), (1.0, 0.0), (1.0, 8.0), (0.0, 8.0))
p_3, n, p, q, r = Polygon((0.0, 6.0), (13.0, 6.0), (13.0, 7.0), (0.0, 7.0))
p_4, s, t, a_1, b_1 = Polygon((3.0, 0.0), (4.0, 0.0), (4.0, 8.0), (3.0, 8.0))
p_5, c_1, d_1, e_1, f_1 = Polygon((7.0, 0.0), (8.0, 0.0), (8.0, 8.0), (7.0, 8.0))
p_6, g_1, i_1, j_1, k_1 = Polygon((0.0, 4.0), (13.0, 4.0), (13.0, 5.0), (0.0, 5.0))
p_7, l_1, m_1, n_1, q_1 = Polygon((8.0, 0.0), (9.0, 0.0), (9.0, 8.0), (8.0, 8.0))
p_8, r_1, s_1, t_1, a_2 = Polygon((12.0, 0.0), (13.0, 0.0), (13.0, 8.0), (12.0, 8.0))
p_9, b_2, c_2, d_2, e_2 = Polygon((0.0, 3.0), (13.0, 3.0), (13.0, 4.0), (0.0, 4.0))
p_{10}, f_2, g_2, i_2, j_2 = Polygon((0.0, 1.0), (13.0, 1.0), (13.0, 2.0), (0.0, 2.0))
p_{11}, k_2, l_2, m_2, n_2 = Polygon((1.0, 0.0), (2.0, 0.0), (2.0, 8.0), (1.0, 8.0))
p_{12}, q_2, r_2, s_2, t_2 = Polygon((2.0, 0.0), (3.0, 0.0), (3.0, 8.0), (2.0, 8.0))
p_{13}, a_3, b_3, c_3, d_3 = Polygon((0.0, 5.0), (13.0, 5.0), (13.0, 6.0), (0.0, 6.0))
p_{14}, e_3, f_3, g_3, i_3 = Polygon((9.0, 0.0), (10.0, 0.0), (10.0, 8.0), (9.0, 8.0))
p_{15}, j_3, k_3, l_3, m_3 = Polygon((10.0, 0.0), (11.0, 0.0), (11.0, 8.0), (10.0, 8.0))
p_{16}, n_3, q_3, r_3, s_3 = Polygon((11.0, 0.0), (12.0, 0.0), (12.0, 8.0), (11.0, 8.0))
p_{17}, t_3, a_4, b_4, c_4 = Polygon((0.0, 0.0), (13.0, 0.0), (13.0, 1.0), (0.0, 1.0))
p_{18}, d_4, e_4, f_4, g_4 = Polygon((4.0, 0.0), (5.0, 0.0), (5.0, 8.0), (4.0, 8.0))
p_{19}, i_4, j_4, k_4, l_4 = Polygon((0.0, 2.0), (13.0, 2.0), (13.0, 3.0), (0.0, 3.0))