Mercurial > octave-nkf

diff scripts/plot/__plt2mm__.m @ 6302:a5cd8b77e892

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-02-13 08:08:33 by jwe]
author jwe
date Tue, 13 Feb 2007 08:10:51 +0000
parents cc2bee854d23
children 5dc550e1f419
line wrap: on
line diff
--- a/scripts/plot/__plt2mm__.m	Sun Feb 11 19:46:53 2007 +0000
+++ b/scripts/plot/__plt2mm__.m	Tue Feb 13 08:10:51 2007 +0000
@@ -23,7 +23,7 @@
 
 ## Author: jwe
 
-function __plt2mm__ (h, x, y, options)
+function retval = __plt2mm__ (h, x, y, options)
 
   if (nargin < 3 || nargin > 4)
     print_usage ();
@@ -42,6 +42,7 @@
       if (numel (options) == 1)
 	options = repmat (options(:), x_nc, 1);
       endif
+      retval = zeros (x_nc, 1);
       for i = 1:x_nc
 	tkey = options(i).key;
 	if (! isempty (tkey))
@@ -51,9 +52,9 @@
 	if (isempty (color))
 	  color = __next_line_color__ ();
 	endif
-	line (x(:,i), y(:,i), "keylabel", tkey, "color", color,
-	      "linestyle", options(i).linestyle,
-	      "marker", options(i).marker);
+	retval(i) = line (x(:,i), y(:,i), "keylabel", tkey, "color", color,
+			  "linestyle", options(i).linestyle,
+			  "marker", options(i).marker);
       endfor
     else
       error ("__plt2mm__: arguments must be a matrices");