Mathematica code: Animate[ Graphics[ Table[ {Thickness[.02], Circle[{40*Cos[i*2Pi/5], 40*Sin[i*2Pi/5]},   t+ (53 - n) (1 + Sign[53 - n])/2]}, {n, 0, 50, 1}, {i, 0, 10, 1}], PlotRange -> 10, ImageSize -> 500],{t, 1, 0}]