>   

>    with(plots):

Warning, the name changecoords has been redefined

>    sinewave := plot( sin(x)*exp(-x/5), x=0..20 ):
animate( pointplot, [ [[t, sin(t)*exp(-t/5)]], symbol=circle, symbolsize=20],
         t=0..20, frames=60, background=sinewave );

[Maple Plot]