a=ReadList["d2",Number];
n=Floor[Sqrt[Dimensions[a][[1]]]];
a=Partition[a,n];
g=ListDensityPlot[a,
 AxesLabel->{"X","Y"},
 Axes -> True,
 Mesh->False,
 ColorFunction -> (Hue[0.8*#]&),
 MeshRange -> {{-12,2},{-12,2}}
];