intothecontinuum:
Mathematica code: Animate[ Graphics[ Table[ {Thickness[.006], Circle[{20*Cos[i*Pi/6], 20*Sin[i*Pi/6]}, t + (32 - n) (1 + Sign[32 - n])/2]}, {n, 0, 50, 1}, {i, 0, 11, 1}], PlotRange -> 17, ImageSize -> 750],{t, 0, 1}]
Mathematica code:
Animate[ Graphics[ Table[ {Thickness[.006], Circle[{20*Cos[i*Pi/6], 20*Sin[i*Pi/6]}, t + (32 - n) (1 + Sign[32 - n])/2]}, {n, 0, 50, 1}, {i, 0, 11, 1}], PlotRange -> 17, ImageSize -> 750],{t, 0, 1}]