A1 = (2.6, -0.65)
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 = (1.9500000000000002, 0)
A8 = (3.9000000000000004, 1.3)
A10 = (3.25, 0.65)
A11 = (3.25, 2.6)
A12 = (1.3, -0.65)
B2 = Point(Circle[A2, 0.55])
B8 = Point(Circle[A8, 0.55])
B10 = Point(Circle[A10, 0.55])
B11 = Point(Circle[A11, 0.55])
B12 = Point(Circle[A12, 0.55])
C2 = Rotate(A2 - (0.08, 0.65), Angle[A2 + (0, 1), A2, B2], A2)
C8 = Rotate(A8 - (0.08, 0.65), Angle[A8 + (0, 1), A8, B8], A8)
C10 = Rotate(A10 - (0.08, 0.65), Angle[A10 + (0, 1), A10, B10], A10)
C11 = Rotate(A11 - (0.08, 0.65), Angle[A11 + (0, 1), A11, B11], A11)
C12 = Rotate(A12 - (0.08, 0.65), Angle[A12 + (0, 1), A12, B12], A12)
D2 = Rotate(A2 - (-0.08, 0.65), Angle[A2 + (0, 1), A2, B2], A2)
D8 = Rotate(A8 - (-0.08, 0.65), Angle[A8 + (0, 1), A8, B8], A8)
D10 = Rotate(A10 - (-0.08, 0.65), Angle[A10 + (0, 1), A10, B10], A10)
D11 = Rotate(A11 - (-0.08, 0.65), Angle[A11 + (0, 1), A11, B11], A11)
D12 = Rotate(A12 - (-0.08, 0.65), Angle[A12 + (0, 1), A12, B12], A12)
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]}
A15 = (4.55, 2.6)