November 2011
35 posts
High-Res! (780x780)
Mathematica code:
Animate[
Graphics[
Rotate[
Table[
Circle[{25*Cos[i*2Pi/25], 25*Sin[i*2Pi/25]},
t+(50 - n) (1 + Sign[50 - n])/2], {n, 0, 50, 1},
{i, 0, 24, 1}],
t*2Pi/25],
PlotRange -> 20, ImageSize ->780],
{t, 0, 1}]