Mercurial > hg > octave-lyh
view scripts/image/loadimage.m @ 2957:17c69c89fe93
[project @ 1997-05-09 18:43:21 by jwe]
author | jwe |
---|---|
date | Fri, 09 May 1997 18:43:21 +0000 |
parents | 8b262e771614 |
children | 44d82b369c78 |
line wrap: on
line source
## Copyright (C) 1996, 1997 John W. Eaton ## ## 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 2, 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, write to the Free ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. ## Load an image file. ## ## [img, map] = loadimage (img_file) loads an image and it's associated ## color map from file img_file. The image must be in stored in ## octave's image format. ## ## SEE ALSO: saveimage, load, save ## Author: Tony Richardson <amr@mpl.ucsd.edu> ## Created: July 1994 ## Adapted-By: jwe function [img_retval, map_retval] = loadimage (filename) if (nargin != 1) usage ("[img, map] = loadimage (filename)"); elseif (! isstr (filename)) error ("loadimage: expecting filename as a string"); endif file = file_in_path (IMAGEPATH, filename); if (isempty (file)) error ("loadimage: unable to find image file"); endif ## The file is assumed to have variables img and map, or X and map. eval (['load ', file]); if (exist ("img")) img_retval = img; elseif (exist ("X")) img_retval = X; else error ("loadimage: invalid image file found"); endif if (exist ("map")) map_retval = map; else error ("loadimage: invalid image file found"); endif endfunction