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