ONZO

intothecontinuum:


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

intothecontinuum:

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

(via surrealtree)