>
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 );
>