Flying Lotus released a brilliant and beautiful album the other week,
but I still can’t get over how good the last release “Cosmogramma” was.
This animation in an interpretation of that album cover.

Mathematica code:

rr[n_] := (SeedRandom[n]; RandomReal[])

Rays[Q_, h_, a_, b_, N_, s_, PR_] :=
 Graphics[
   Table[
    {AbsoluteThickness[h],
     Line[
      {{a*Cos[(n + s*rr[Q*n])*2 Pi/N], a*Sin[(n + s*rr[Q*n])*2 Pi/N]},
        {b*Cos[(n + s*rr[Q*n])*2 Pi/N], b*Sin[(n + s*rr[Q*n])*2 Pi/N]}}
           ]},
  {n, 1, N, 1}],
  PlotRange -> PR, ImageSize -> 500]

Spheres[U_, R_, op_, z_, p_, w_, D_, PR_] :=
 Graphics[
  Table[
   {Opacity[op],
    Disk[ 
     Mod[z + R*rr[3*U*d], R]*{Cos[2 Pi*rr[U*d]], Sin[2 Pi*rr[U*d]]},
     Mod[z + R*rr[3*U*d], R]^p*w]},
  {d, 1, D, 1}],
 PlotRange -> PR, ImageSize->500]

Manipulate[
 Show[
  Rays[t, 1.75, .1, 3, 225, 1, 1],
  Spheres[18, 1.3, 1, 1.3 t/12, 1.5, .11, 15, 1]],
 {t, 1, 12, 1}]