Music: "Parisian Goldfish (Take Remix)" by Flying Lotus

Generated with Mathematica code:

Table[
ImageCrop[
DensityPlot[
Sin[(t*.005)*Abs[(x + I y)^2]], {x, -8, 8}, {y, -8, 8},
PlotPoints -> 20, Mesh -> False, Frame -> False,
ColorFunction -> Hue, ImageSize -> 668],
{640, 480}],
{t, 0, 1780, 1}]

Loading more stuff…

Hmm…it looks like things are taking a while to load. Try again?

Loading videos…