% IMWRITESC - Writes an image to file, rescaling if necessary.
%
% Usage:   imwritesc(im,name)
%         
% Floating point image values are rescaled to the range 0-1 so that no
% overflow occurs when writing 8-bit intensity values.  The image format to
% use is determined by MATLAB from the file ending.
% If the image type is of uint8 no rescaling is performed.

% Copyright (c) 1999-2005 Peter Kovesi
% School of Computer Science & Software Engineering
% The University of Western Australia
% http://www.csse.uwa.edu.au/
% 
% Permission is hereby granted, free of charge, to any person obtaining a copy
% of this software and associated documentation files (the "Software"), to deal
% in the Software without restriction, subject to the following conditions:
% 
% The above copyright notice and this permission notice shall be included in 
% all copies or substantial portions of the Software.
%
% The Software is provided "as is", without warranty of any kind.

% October 1999   - Original version
% March   2004   - Modified to allow colour images of class 'double'
% August  2005   - Octave compatibility
% January 2013   - Separate Octave code path no longer needed

function imwritesc(im,name)

    if strcmp(class(im), 'double')
      im = im - min(im(:));       % Offset so that min value is 0.
      im = im./max(im(:));        % Rescale so that max is 1.
    end
    imwrite(im,name);