maihudson:Animated GIFs (700 x 700)Mathematica code:Dashboard[z_] := RGBColor[54/255, 70/255, 93/255

maihudson:Animated GIFs (700 x 700)Mathematica code:Dashboard[z_] := RGBColor[54/255, 70/255, 93/255, z];BG = Raster[       Table[.005 ((i - 500)^2 + (j - 500)^2),       {i,1000}, {j,1000}],     {Scaled[{0, 0}], Scaled[{1, 1}]}, {1, 1000},     ColorFunction -> Dashboard];P = {{5, 8, 10}, {4.5, 12, 7}, {3, 16, 10}};Manipulate[With[{h=P[[k,1]], u=P[[k,2]], s=P[[k,3]]}, Graphics[  Table[   {AbsoluteThickness[h],    RGBColor[54/255, 70/255, 93/255],     Circle[      {s*Cos[i*2 Pi/u], s*Sin[i*2 Pi/u]},       t + (100 - n) (1 + Sign[100 - n])/2]},  {n, 0, 100, 1}, {i, 0, u - 1, 1}], PlotRange -> {{-16, 16},{-16, 16}}, ImageSize -> 700, Prolog -> BG]],{k,1,3,1}, {t, 0, 1}] -- source link

More pics about