Mercurial > octave-nkf

comparison scripts/image/image.m @ 19630:0e1f5a750d00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Periodic merge of gui-release to default.
author John W. Eaton <jwe@octave.org>
date Tue, 20 Jan 2015 10:24:46 -0500
parents 68db8396c378 446c46af4b42
children db92e7e28e1f
comparison
equal deleted inserted replaced
19626:37d37297acf8 19630:0e1f5a750d00
62 ## Adapted-By: jwe 62 ## Adapted-By: jwe
63 63
64 function h = image (varargin) 64 function h = image (varargin)
65 65
66 [hax, varargin, nargin] = __plt_get_axis_arg__ ("image", varargin{:}); 66 [hax, varargin, nargin] = __plt_get_axis_arg__ ("image", varargin{:});
67 67
68 chararg = find (cellfun ("isclass", varargin, "char"), 1, "first"); 68 chararg = find (cellfun ("isclass", varargin, "char"), 1, "first");
69 69
70 do_new = true; 70 do_new = true;
71 if (nargin == 0) 71 if (nargin == 0)
72 img = get (0, "defaultimagecdata"); 72 img = get (0, "defaultimagecdata");
73 x = y = []; 73 x = y = [];
74 elseif (chararg == 1) 74 elseif (chararg == 1)
75 ## Low-Level syntax 75 ## Low-Level syntax
76 do_new = false; 76 do_new = false;
77 x = y = img = []; 77 x = y = img = [];
78 idx = find (strcmpi (varargin, "cdata"), 1); 78 idx = find (strcmpi (varargin, "cdata"), 1);
79 if (idx) 79 if (idx)