High-res: 800x800
Mathematica code:
DensityPlot[ Sin[215*Abs[(x + I y)^-1]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 36, Mesh -> False, Frame -> False, ColorFunction -> Hue]