Region Plots & Inequalities

RegionPlot[Sin[x^2]Sin[y^2]Sin[x*y]>=.001,
{x,-4,4},{y,-4,4},PlotPoints->100,
BoundaryStyle->{Brown,Dashed},ImageSize->500,
PlotStyle->Texture[ExampleData[{"ColorTexture",
ExampleData["ColorTexture"][[6,2]]}]]]