Mercurial > hg > octave-lyh
diff scripts/plot/contourf.m @ 7215:dd88d61d443f
[project @ 2007-11-29 16:44:45 by jwe]
author | jwe |
---|---|
date | Thu, 29 Nov 2007 16:46:40 +0000 |
parents | 2b5e6c0a9df9 |
children | 5389a52df87b |
line wrap: on
line diff
--- a/scripts/plot/contourf.m +++ b/scripts/plot/contourf.m @@ -59,7 +59,8 @@ function varargout = contourf (varargin) - [X, Y, Z, lvl, ax, patch_props] = parse_args (varargin); + [ax, varargin] = __plt_get_axis_arg__ ("contourf", varargin{:}); + [X, Y, Z, lvl, patch_props] = parse_args (varargin); [nr, nc] = size (Z); [minx, maxx] = deal (min (X(:)), max (X(:))); [miny, maxy] = deal (min (Y(:)), max (Y(:))); @@ -183,19 +184,11 @@ endfunction -function [X, Y, Z, lvl, ax, patch_props] = parse_args (arg) +function [X, Y, Z, lvl, patch_props] = parse_args (arg) patch_props = {}; nolvl = false; - if (isinteger (arg{1}) && ishandle (arg{1}) - && strncmpi (get (arg{1}, "type"), "axis", 4)) - ax = arg{1}; - arg{1} = []; - else - ax = gca (); - endif - for n = 1:numel (arg) if (ischar (arg{n})) patch_props = arg(n:end);