intothecontinuum: (view original color function here) Mathematica code: Animate[ DensityPlot[ Sin[r*Abs[(x + I y)^1.1]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 27, Mesh -> False, Frame -> False, ColorFunction -> Hue],{r,88.5, 68.5, .5}] All I can see in this is a skeleton! Spine down the middle, hips to either side in the lower part, and… the ribs are really weird but that’s okay.

intothecontinuum:

(view original color function here)

Mathematica code:

Animate[  
  DensityPlot[
    Sin[r*Abs[(x + I y)^1.1]], 
    {x, -2.5, 2.5}, {y, -2.5, 2.5}, 
  PlotPoints -> 27, Mesh -> False, Frame -> False, ColorFunction -> Hue],
{r,88.5, 68.5, .5}]

All I can see in this is a skeleton! Spine down the middle, hips to either side in the lower part, and… the ribs are really weird but that’s okay.

(via proofmathisbeautiful)