Question: Animation points

Hello,
I have animation trajectory of motion. I have displayed as line it. But I need displayed as point, which will move.

How to do it?
Thank you. I am sorry for my  English language.
with(DEtools):with(plots):
vx := diff(x(t), t) = -(x(t)-y(t))/sqrt(x(t)^2+y(t)^2): vy := diff(y(t), t) = -(x(t)+y(t))/sqrt(x(t)^2+y(t)^2):
sys := {vx, vy}:
init := [[x(0) = 1, y(0) = 1], [x(0) = 1, y(0) = -1], [x(0) = -1, y(0) = -1], [x(0) = -1, y(0) = 1]]:
animate(DEplot, [sys, [x(t), y(t)], t = 0 .. T, x = -1 .. 1, y = -1 .. 1, init, stepsize = 0.1e-1, thickness = 1, arrows = none, title = "Animation", linecolor = [red, blue, gold, black]], T = 0.1e-2 .. sqrt(2));

Please Wait...