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}] Holy shit guys this is math.
 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}]

Holy shit guys this is math.

(Source: intothecontinuum)