>    with(plots):  

>    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]

>