Mercurial > hg > octave-lyh

comparison scripts/plot/__plt2vm__.m @ 6459:5dc550e1f419

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-26 18:11:58 by jwe]
author jwe
date Mon, 26 Mar 2007 18:11:58 +0000
parents a5cd8b77e892
children 76e3d985ae56
comparison
equal deleted inserted replaced
6458:6588b4fe0869 6459:5dc550e1f419
16 ## along with Octave; see the file COPYING. If not, write to the Free 16 ## along with Octave; see the file COPYING. If not, write to the Free
17 ## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 17 ## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
18 ## 02110-1301, USA. 18 ## 02110-1301, USA.
19 19
20 ## -*- texinfo -*- 20 ## -*- texinfo -*-
21 ## @deftypefn {Function File} {} __plt2vm__ (@var{h}, @var{x}, @var{y}, @var{options}) 21 ## @deftypefn {Function File} {} __plt2vm__ (@var{h}, @var{x}, @var{y}, @var{options}, @var{properties})
22 ## @end deftypefn 22 ## @end deftypefn
23 23
24 ## Author: jwe 24 ## Author: jwe
25 25
26 function retval = __plt2vm__ (h, x, y, options) 26 function retval = __plt2vm__ (h, x, y, options, properties)
27 27
28 if (nargin < 3 || nargin > 4) 28 if (nargin < 3 || nargin > 5)
29 print_usage (); 29 print_usage ();
30 endif 30 endif
31 31
32 if (nargin < 4 || isempty (options)) 32 if (nargin < 4 || isempty (options))
33 options = __default_plot_options__ (); 33 options = __default_plot_options__ ();
34 endif
35
36 if (nargin < 5)
37 properties = {};
34 endif 38 endif
35 39
36 [x_nr, x_nc] = size (x); 40 [x_nr, x_nc] = size (x);
37 [y_nr, y_nc] = size (y); 41 [y_nr, y_nc] = size (y);
38 42
68 if (isempty (color)) 72 if (isempty (color))
69 color = __next_line_color__ (); 73 color = __next_line_color__ ();
70 endif 74 endif
71 retval(i) = line (x, y(:,i), "keylabel", tkey, "color", color, 75 retval(i) = line (x, y(:,i), "keylabel", tkey, "color", color,
72 "linestyle", options(i).linestyle, 76 "linestyle", options(i).linestyle,
73 "marker", options(i).marker); 77 "marker", options(i).marker, properties{:});
74 endfor 78 endfor
75 else 79 else
76 error ("__plt2vm__: arguments must be a matrices"); 80 error ("__plt2vm__: arguments must be a matrices");
77 endif 81 endif
78 82