Clear[x,y, phi,a , b , c]

phi = 2;

a = 1;
b = 1;
c = 1;

x[t_, φ_] := Sin[a t + φ] * Cos[b t]
y[t_, φ_] := Sin[c t]

Animate[
  ParametricPlot[
    {x[t, φ], y[t, φ]},
    {t, 0, 2 π},
    PlotStyle -> {Thickness[0.01], ColorData["Rainbow"][Mod[φ, 2 π]/(2 π)]},
    PlotRange -> 2,
    Axes -> False,
    Background -> Black
  ],
  {φ, 0, 2 π},
  AnimationRate -> 0.1,
  AnimationRunning -> True,
  AnimationRepetitions -> ∞
]

frames = Table[
  ParametricPlot[
    {x[t, φ], y[t, φ]},
    {t, 0, 2 π},
    PlotStyle -> {Thickness[0.01], ColorData["Rainbow"][Mod[φ, 2 π]/(2 π)]},
    PlotRange -> 2,
    Axes -> False,
    Background -> Black
  ],
  {φ, 0, 2 π, 2 π/60}
];

Export["ADHD_Trap.gif", frames]
