Limpia rastro

Valor(T, T + 0.02 v)
Valor(v, v + 0.02 g)

g = k / d² VectorUnitario(Vector(T, S))

k: 80
S = (2.0702557316363634, -1.4444502899999814)
T = (-8.146682652614988, -4.2948164676481175)
v = (-0.5366334713994763, 2.355112201657986)
anima = 0.96 (slider from 0 to 1, step 0.01)
d = Distance(T, S)
g: (k / d^(2) * UnitVector[Vector[T, S]])
T': T