Mercurial > octave-nkf
diff scripts/plot/__plt2__.m @ 6459:5dc550e1f419
[project @ 2007-03-26 18:11:58 by jwe]
author | jwe |
---|---|
date | Mon, 26 Mar 2007 18:11:58 +0000 |
parents | a5cd8b77e892 |
children | acf80f494427 |
line wrap: on
line diff
--- a/scripts/plot/__plt2__.m Mon Mar 26 16:55:33 2007 +0000 +++ b/scripts/plot/__plt2__.m Mon Mar 26 18:11:58 2007 +0000 @@ -18,14 +18,14 @@ ## 02110-1301, USA. ## -*- texinfo -*- -## @deftypefn {Function File} {} __plt2__ (@var{h}, @var{x1}, @var{x2}, @var{options}) +## @deftypefn {Function File} {} __plt2__ (@var{h}, @var{x1}, @var{x2}, @var{options}, @var{properties}) ## @end deftypefn ## Author: jwe -function retval = __plt2__ (h, x1, x2, options) +function retval = __plt2__ (h, x1, x2, options, properties) - if (nargin < 3 || nargin > 4) + if (nargin < 3 || nargin > 5) print_usage (); endif @@ -33,6 +33,10 @@ options = __default_plot_options__ (); endif + if (nargin < 5) + properties = {}; + endif + if (! isstruct (options)) error ("__plt1__: options must be a struct array"); endif @@ -48,23 +52,23 @@ h_set = false; if (isscalar (x1)) if (isscalar (x2)) - retval = __plt2ss__ (h, x1, x2, options); + retval = __plt2ss__ (h, x1, x2, options, properties); else error ("__plt2__: invalid data for plotting"); endif elseif (isvector (x1)) if (isvector (x2)) - retval = __plt2vv__ (h, x1, x2, options); + retval = __plt2vv__ (h, x1, x2, options, properties); elseif (ismatrix (x2)) - retval = __plt2vm__ (h, x1, x2, options); + retval = __plt2vm__ (h, x1, x2, options, properties); else error ("__plt2__: invalid data for plotting"); endif elseif (ismatrix (x1)) if (isvector (x2)) - retval = __plt2mv__ (h, x1, x2, options); + retval = __plt2mv__ (h, x1, x2, options, properties); elseif (ismatrix (x2)) - retval = __plt2mm__ (h, x1, x2, options); + retval = __plt2mm__ (h, x1, x2, options, properties); else error ("__plt2__: invalid data for plotting"); endif