A1 = (2.25, 1.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 = (3.75, 1.5)
A3 = (3, 0.75)
A4 = (3, 0)
B2 = Point(Circle[A2, 0.55])
B3 = Point(Circle[A3, 0.55])
B4 = Point(Circle[A4, 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)
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)
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]}