function sim = scale(im, newMin, newMax, oldMin, oldMax);
% scale(Image, newMin, newMax, oldMin, oldMax)
%	Scales an image such that its lowest value attains newMin and
%	its highest value attains newMax.  OldMin and oldMax are not
%	necessary but are useful when you don't want to use the true
%	min or max value.  
%
% Rick Anthony
% 6/23/93

%  find oldMin and oldMax if they aren't specified.	
if (nargin < 4) oldMin = min(min(im)); end
if (nargin < 5) oldMax = max(max(im)); end

delta = (newMax-newMin)/(oldMax-oldMin);
sim = delta*(im-oldMin) + newMin;