A1 = (4, 0.5)
B1 = Point(Circle[A1, 0.55])
C1 = Rotate(A1 - (0.08, 0.65), Angle[A1 + (0, 1), A1, B1], A1)
D1 = Rotate(A1 - ((-0.08), 0.65), Angle[A1 + (0, 1), A1, B1], A1)
A2 = (4, -0.5)
A3 = (2, -0.5)
A4 = (3, -0.5)
A5 = (2, 0.5)
A6 = (3, 0.5)
A7 = (3, -1.5)
A8 = (3, 1.5)
B2 = Point(Circle[A2, 0.55])
B3 = Point(Circle[A3, 0.55])
B4 = Point(Circle[A4, 0.55])
B5 = Point(Circle[A5, 0.55])
B6 = Point(Circle[A6, 0.55])
B7 = Point(Circle[A7, 0.55])
B8 = Point(Circle[A8, 0.55])
C2 = Rotate(A2 - (0.08, 0.65), Angle[A2 + (0, 1), A2, B2], A2)
C3 = Rotate(A3 - (0.08, 0.65), Angle[A3 + (0, 1), A3, B3], A3)
C4 = Rotate(A4 - (0.08, 0.65), Angle[A4 + (0, 1), A4, B4], A4)
C5 = Rotate(A5 - (0.08, 0.65), Angle[A5 + (0, 1), A5, B5], A5)
C6 = Rotate(A6 - (0.08, 0.65), Angle[A6 + (0, 1), A6, B6], A6)
C7 = Rotate(A7 - (0.08, 0.65), Angle[A7 + (0, 1), A7, B7], A7)
C8 = Rotate(A8 - (0.08, 0.65), Angle[A8 + (0, 1), A8, B8], A8)
D2 = Rotate(A2 - ((-0.08), 0.65), Angle[A2 + (0, 1), A2, B2], A2)
D3 = Rotate(A3 - ((-0.08), 0.65), Angle[A3 + (0, 1), A3, B3], A3)
D4 = Rotate(A4 - ((-0.08), 0.65), Angle[A4 + (0, 1), A4, B4], A4)
D5 = Rotate(A5 - ((-0.08), 0.65), Angle[A5 + (0, 1), A5, B5], A5)
D6 = Rotate(A6 - ((-0.08), 0.65), Angle[A6 + (0, 1), A6, B6], A6)
D7 = Rotate(A7 - ((-0.08), 0.65), Angle[A7 + (0, 1), A7, B7], A7)
D8 = Rotate(A8 - ((-0.08), 0.65), Angle[A8 + (0, 1), A8, B8], A8)
lista1: {Sequence[Line[(0, (1.3 * k)), (1, (1.3 * k))], k, -8, 7], Sequence[Line[((1.3 * k), 0), ((1.3 * k), 1)], k, -5, 16]}