intothecontinuum:
Mathematica code: Animate[ Graphics[ Table[ Circle[{0, i}, t + (16 - n) (1 + Sign[16 - n])/2], {n, 0, 100, 1}, {i, -5, 5,1}], PlotRange -> 6],{t, 0, 1, .01}]
Mathematica code:
Animate[ Graphics[ Table[ Circle[{0, i}, t + (16 - n) (1 + Sign[16 - n])/2], {n, 0, 100, 1}, {i, -5, 5,1}], PlotRange -> 6],{t, 0, 1, .01}]