g = Import["~tsolomon/tmp/sqgrid1.bmp"];

Show[g]

d = g[[1, 1]];

Dimensions[d]

dims = Dimensions[d];

dims (1)

f = Fourier[d];

temp1 = Transpose

ListDensityPlot[Abs[f], PlotRange  ->  {0, 20}, 
        Mesh  ->  False];