Mercurial > octave

comparison scripts/plot/contourf.m @ 7215:dd88d61d443f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-29 16:44:45 by jwe]
author jwe
date Thu, 29 Nov 2007 16:46:40 +0000
parents 2b5e6c0a9df9
children 5389a52df87b
comparison
equal deleted inserted replaced
7214:86d0b16f2bb2 7215:dd88d61d443f
57 ## Author: Kai Habel <kai.habel@gmx.de> 57 ## Author: Kai Habel <kai.habel@gmx.de>
58 ## Author: shaia 58 ## Author: shaia
59 59
60 function varargout = contourf (varargin) 60 function varargout = contourf (varargin)
61 61
62 [X, Y, Z, lvl, ax, patch_props] = parse_args (varargin); 62 [ax, varargin] = __plt_get_axis_arg__ ("contourf", varargin{:});
63 [X, Y, Z, lvl, patch_props] = parse_args (varargin);
63 [nr, nc] = size (Z); 64 [nr, nc] = size (Z);
64 [minx, maxx] = deal (min (X(:)), max (X(:))); 65 [minx, maxx] = deal (min (X(:)), max (X(:)));
65 [miny, maxy] = deal (min (Y(:)), max (Y(:))); 66 [miny, maxy] = deal (min (Y(:)), max (Y(:)));
66 67
67 if (diff (lvl) < 10*eps) 68 if (diff (lvl) < 10*eps)
181 varargout{1} = c; 182 varargout{1} = c;
182 endif 183 endif
183 184
184 endfunction 185 endfunction
185 186
186 function [X, Y, Z, lvl, ax, patch_props] = parse_args (arg) 187 function [X, Y, Z, lvl, patch_props] = parse_args (arg)
187 188
188 patch_props = {}; 189 patch_props = {};
189 nolvl = false; 190 nolvl = false;
190
191 if (isinteger (arg{1}) && ishandle (arg{1})
192 && strncmpi (get (arg{1}, "type"), "axis", 4))
193 ax = arg{1};
194 arg{1} = [];
195 else
196 ax = gca ();
197 endif
198 191
199 for n = 1:numel (arg) 192 for n = 1:numel (arg)
200 if (ischar (arg{n})) 193 if (ischar (arg{n}))
201 patch_props = arg(n:end); 194 patch_props = arg(n:end);
202 arg(n:end) = []; 195 arg(n:end) = [];