Rock'n G'night

intothecontinuum:

High-Res (750x750)

Mathematica code:

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

(via proofmathisbeautiful)