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}]
Some tasty gen art