ybc: 10
xbc0: 3
t = 0 (slider from 0 to 20, step 1)
vbc: 1
xbc: xbc0 + (vbc * t)
B: (xbc, ybc)
Lst: {-3, -2, 0, 2, 3, 2, 0, -2}
xab: Lst(Mod[t, 8] + 1)
xac: xab + xbc
Lbraccio: 9
A: (xac, y(B) - Lbraccio)
u = Vector(B, A)