>         with(plots):    

Warning, the name changecoords has been redefined

>    srdce:= plot( [ (1+cos(t))*cos(t),(1+cos(t))*sin(t), t=0..2*Pi]):
animate( pointplot, [ [(1+cos(t))*cos(t),(1+cos(t))*sin(t)],symbol=circle, symbolsize=20],
         t=0..2*Pi, frames=60, background=srdce );

[Maple Plot]

>    animatecurve([1+cos(x),x,x=0..2*Pi],coords=polar,numpoints=100,frames=100);

[Maple Plot]

>