Mercurial > hg > octave-lyh
diff scripts/plot/plotyy.m @ 7215:dd88d61d443f
[project @ 2007-11-29 16:44:45 by jwe]
author | jwe |
---|---|
date | Thu, 29 Nov 2007 16:46:40 +0000 |
parents | a730e47fda4d |
children | 5389a52df87b |
line wrap: on
line diff
--- a/scripts/plot/plotyy.m +++ b/scripts/plot/plotyy.m @@ -55,29 +55,19 @@ function [Ax, H1, H2] = plotyy (varargin) - if (isscalar (varargin{1}) && ishandle (varargin{1})) - ax = varargin{1}; - if (! strcmp (get (ax, "type"), "axes")) - error ("plotyy: expecting first argument to be an axes object"); - endif - if (nargin < 5) - print_usage (); - endif - oldh = gca (); - unwind_protect - axes (ax); - newplot (); - [ax, h1, h2] = __plotyy__ (ax, varargin{2:end}); - unwind_protect_cleanup - axes (oldh); - end_unwind_protect - else - if (nargin < 4) - print_usage (); - endif + [ax, varargin] = __plt_get_axis_arg__ ("plotyy", varargin{:}); + + if (nargin < 4) + print_usage (); + endif + oldh = gca (); + unwind_protect + axes (ax); newplot (); - [ax, h1, h2] = __plotyy__ (gca (), varargin{:}); - endif + [ax, h1, h2] = __plotyy__ (ax, varargin{:}); + unwind_protect_cleanup + axes (oldh); + end_unwind_protect if (nargout > 0) Ax = ax;