Mercurial > hg > octave-nkf

diff scripts/plot/__go_draw_axes__.m @ 6751:c0370a971fef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-06-25 15:12:07 by jwe]
author jwe
date Mon, 25 Jun 2007 15:12:07 +0000
parents c7eb2c149528
children ee2ad7b5454a
line wrap: on
line diff
--- a/scripts/plot/__go_draw_axes__.m
+++ b/scripts/plot/__go_draw_axes__.m
@@ -910,10 +910,13 @@
     if (isempty (tics))
       fprintf (plot_stream, "unset %stics;\n", ax);
     elseif (strcmp (labelmode, "manual") && ! isempty (labels))
-      k = 1;
-      ntics = numel (tics);
-      nlabels = numel (labels);
+      if (ischar (labels))
+	labels = cellstr (labels);
+      endif
       if (iscellstr (labels))
+	k = 1;
+	ntics = numel (tics);
+	nlabels = numel (labels);
 	fprintf (plot_stream, "set format %s \"%%s\";\n", ax);
 	fprintf (plot_stream, "set %stics (", ax);
 	for i = 1:ntics