intothecontinuum: Mathematica code: Animate[ DensityPlot[ Sin[100*Abs[(x + I y)^n]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 30, Mesh -> False, Frame -> False, ColorFunction -> Hue], {n, .6, .8}]

intothecontinuum:

Mathematica code:

Animate[
  DensityPlot[
    Sin[100*Abs[(x + I y)^n]], 
    {x, -2.5, 2.5}, {y, -2.5, 2.5}, 
  PlotPoints -> 30, Mesh -> False, Frame -> False, ColorFunction -> Hue],
 {n, .6, .8}]

(via proofmathisbeautiful)