smoot

intothecontinuum:

Mathematica code:

 Animate[
   Graphics[
     Table[
      {Thickness[.003],
       Circle[{40*Cos[i*Pi/8], 40*Sin[i*Pi/8]},
        t + (100 - n) (1 + Sign[100 - n])/2]},
     {n, 0, 100, 1}, {i, 0, 16, 1}],
   PlotRange -> 10],
{t, 0, 1, .05}]