Inspired by Intermodular Distortion by Volume2a.
Mathematica code:
ListAnimate[
Table[
Graphics[
Table[
Table[
{Red,
Disk[{(1 + 2 n) .5/N + Mod[((-1)^N) t/N, ((-1)^N) 1],
If[N == 3, 0, Sum[.5/j, {j, 3, N - 1}]]}, .5/N, {0, Pi}]},
{n, -1, N, 1}],
{N, 3, 35}],
PlotRange -> {{0, 1}, {0, 1.33}}, ImageSize -> {500, 652},
Background -> Blue],
{t, 0, .95, .05}]