function [scaled] = scale(data,low,high)

maxI = max(max(data));
minI = min(min(data));

range = high-low;
drange = maxI-minI;


sz = size(data);

for row = 1:sz(1)
  for col = 1:sz(2)
  distPercentage = (data(row,col)-minI)/drange;
  newDist = range*distPercentage;
  scaled(row,col) = uint8(low+newDist);
  end
end