The animation in the gif picture the point turns automatically in both sides. Is there an option to be added to make it turn only in one direction.
Clear[r];
r[t_] := 5 + Sin[10 t];
curves = ParametricPlot[r[t] {Cos[t], Sin[t]}, {t, 0, 2 Pi}];
anim = Animate[
Show[curves,
Graphics[{PointSize[0.03], Point[r[t] {Cos[t], Sin[t]}]}]], {t, 0,
2 Pi}]
Export["anim2.gif", anim, AnimationRepetitions -> Infinity]