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