A = (0, 0)
B = (5.78, 0)
C = (0, 5.66)
u = Vector(A, B)
n = 2 (slider from 0 to 20, step 1)
v = Vector(A, C)
lista1 = Sequence(Sequence[Translate[imagen1, s * u + t * v], s, -1.0 * n, n], t, -1.0 * n, n)