intothecontinuum:

High-Res (750x750)

Mathematica code:

 Animate[
   Graphics[
     Table[
       Circle[{10*Cos[i*Pi/10], 10*Sin[i*Pi/10]},
       t + (20 - n) (1 + Sign[20 - n])/2],
     {n, 0, 100, 1}, {i, 0, 19, 1}],
   PlotRange -> 15, ImageSize -> 750],
{t, 0, 1, .1}]