Mathematica code:
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}]
Every one is welcome, follow me, i’ll follow back, http://eclectic69.tumblr.com/
this, G O O D N I G H T. follow me http://cocktaste.tumblr.com