High-Res: 800x800
Mathematica code:
DensityPlot[ Sin[1234.3*Abs[(x + I y)^2]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 50, Mesh -> False, Frame -> False, ColorFunction -> Hue]