$ 組合 $

A = (-1.18, 1.74)
list1 = Sequence(A + (2.8 * j, 0), j, 0, 6)
list3 = Sequence(PolyLine[A + (2.8 * j, 0), A + (2.8 * j + 2.8, 0), A + (2.8 * j + 2.8, 4.5), A + (2.8 * j, 4.5), A + (2.8 * j, 0)], j, 0, 4)
list4 = Sequence(PolyLine[A + (2.8 * j, -4.8), A + (2.8 * j + 2.8, -4.8), A + (2.8 * j + 2.8, -0.3), A + (2.8 * j, -0.3), A + (2.8 * j, -4.8)], j, 0, 4)
list2 = Sequence(A + (2.8 * j, -4.8), j, 0, 6)