## Copyright (C) 2008, 2009 Thomas L. Scofield <scofield@calvin.edu>

## Copyright (C) 2008 Kristian Rumberg <kristianrumberg@gmail.com>

## Copyright (C) 2006 Thomas Weber <thomas.weber.mail@gmail.com>

## Copyright (C) 2005 Stefan van der Walt <stefan@sun.ac.za>

## Copyright (C) 2002 Andy Adler

##

## This file is part of Octave.

##

## Octave is free software; you can redistribute it and/or modify it

## under the terms of the GNU General Public License as published by

## the Free Software Foundation; either version 3 of the License, or (at

## your option) any later version.

##

## Octave is distributed in the hope that it will be useful, but

## WITHOUT ANY WARRANTY; without even the implied warranty of

## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

## General Public License for more details.

##

## You should have received a copy of the GNU General Public License

## along with Octave; see the file COPYING.  If not, see

## <http://www.gnu.org/licenses/>.

## -*- texinfo -*-

## @deftypefn {Function File} {[@var{img}, @var{map}, @var{alpha}] =} imread (@var{filename})

## Read images from various file formats.

##

## The size and numeric class of the output depends on the

## format of the image.  A color image is returned as an

## MxNx3 matrix.  Grey-level and black-and-white images are

## of size MxN.

## The color depth of the image determines the numeric

## class of the output: "uint8" or "uint16" for grey

## and color, and "logical" for black and white.

##

## @seealso{imwrite, imfinfo}

## @end deftypefn

function varargout = imread (filename, varargin)

  if (nargin < 1)

    print_usage ();

  endif

  if (! ischar (filename))

    error ("imread: filename must be a string");

  endif

  filename = tilde_expand (filename);

  fn = file_in_path (IMAGE_PATH, filename);

  if (isempty (fn))

    error ("imread: cannot find %s", filename);

  endif

  try

    [varargout{1:nargout}] = magick_read_internal (fn, varargin{:});

  catch

    magick_error = lasterr ();

    img_field = false;

    x_field = false;

    map_field = false;

    try

      vars = load (fn);

      if (isstruct (vars))

	img_field = isfield (vars, "img");

	x_field = isfield (vars, "X");

	map_field = isfield (vars, "map");

      endif

    catch

      error ("imread: invalid image file: %s", magick_error);

    end_try_catch

    if (map_field && (img_field || x_field))

      varargout{2} = vars.map;

      if (img_field)

	varargout{1} = vars.img;

      else

	varargout{1} = vars.X;

      endif

    else

      error ("imread: invalid Octave image file format");

    endif

  end_try_catch

endfunction