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}]