Animate[Show[f1, Graphics[{Red, Point[{Cos[2 t] + 6 Cos[t], -Sin[2 t] + 6 Sin[t]}]}, Axes -> True, AxesOrigin -> {0, 0}, PlotRange -> {-15, 15}]], {t, 0, 2 Pi}]
