Triple Trefoil

cols = RGBColor /@ {"#2537b5", "#ff3804", "#ffffff", "#000000"};

Manipulate[
     Graphics3D[
      Table[{cols[[i]],
        Sphere[{(2 + Cos[3*2 \[Pi] u]) Cos[
            2*2 \[Pi] u + 2/9 t i \[Pi]], (2 + Cos[3*2 \[Pi] u]) Sin[
            2*2 \[Pi] u + 2/9 t i \[Pi]],
          Sin[3*2 \[Pi] u]}, .07]}, {i, 1, 3}, {u, i/297, 1, 1/99}],
      Background -> Black, Lighting -> "Neutral", Boxed -> False,
      ImageSize -> {540, 540}, PlotRange -> 3.1], {t, 3, 6}]