Mercurial > octave-nkf

changeset 6737:7888712d3532

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-06-15 21:45:50 by jwe]
author jwe
date Fri, 15 Jun 2007 21:45:50 +0000
parents 751f340d486c
children b8d188455f2f
files scripts/ChangeLog scripts/plot/__axis_label__.m scripts/plot/__go_draw_axes__.m
diffstat 3 files changed, 23 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Fri Jun 15 21:31:39 2007 +0000
+++ b/scripts/ChangeLog	Fri Jun 15 21:45:50 2007 +0000
@@ -1,5 +1,9 @@
 2007-06-15  Pete Gustafson  <petegus@umich.edu>
 
+        * plot/__go_draw_axes__.m  Handle rotation arg for axis labels.
+        * plot/__axis_label__.m  Assign ylabel default rotation property
+	to 90, all others 0.
+
         * plot/__errplot__.m: Set ifmt from fmt.linestyle.
         * plot/__go_draw_axes__.m: Removed undefined tx from call to
 	get_data_limits.
--- a/scripts/plot/__axis_label__.m	Fri Jun 15 21:31:39 2007 +0000
+++ b/scripts/plot/__axis_label__.m	Fri Jun 15 21:45:50 2007 +0000
@@ -29,7 +29,14 @@
   if (ischar (txt))
     ## FIXME -- should be able to use text instead of __go_text__.
     ca = gca ();
-    h = __go_text__ (ca, "string", txt, varargin{:});
+
+    if (strcmp (caller, "ylabel"))
+      rot = 90;
+    else
+      rot = 0;
+    endif
+
+    h = __go_text__ (ca, "string", txt, "rotation", rot, varargin{:});
     set (ca, caller, h);
     if (nargout > 0)
       retval = h;
--- a/scripts/plot/__go_draw_axes__.m	Fri Jun 15 21:31:39 2007 +0000
+++ b/scripts/plot/__go_draw_axes__.m	Fri Jun 15 21:45:50 2007 +0000
@@ -68,31 +68,36 @@
 
     if (! isempty (axis_obj.xlabel))
       t = get (axis_obj.xlabel);
+      angle = t.rotation;
       if (isempty (t.string))
 	fputs (plot_stream, "unset xlabel;\n");
       else
-	fprintf (plot_stream, "set xlabel \"%s\";\n",
-		 undo_string_escapes (t.string));
+	## Rotation of xlabel not yet support by gnuplot as of 4.2.
+	fprintf (plot_stream, "set xlabel \"%s\" rotate by %f;\n",
+		 undo_string_escapes (t.string), angle)
       endif
     endif
 
     if (! isempty (axis_obj.ylabel))
       t = get (axis_obj.ylabel);
+      angle = t.rotation;
       if (isempty (t.string))
 	fputs (plot_stream, "unset ylabel;\n");
       else
-	fprintf (plot_stream, "set ylabel \"%s\";\n",
-		 undo_string_escapes (t.string));
+	fprintf (plot_stream, "set ylabel \"%s\" rotate by %f;\n",
+		 undo_string_escapes (t.string), angle)
       endif
     endif
 
     if (! isempty (axis_obj.zlabel))
       t = get (axis_obj.zlabel);
+      angle = t.rotation;
       if (isempty (t.string))
 	fputs (plot_stream, "unset zlabel;\n");
       else
-	fprintf (plot_stream, "set zlabel \"%s\";\n",
-		 undo_string_escapes (t.string));
+	## Rotation of zlabel not yet support by gnuplot as of 4.2.
+	fprintf (plot_stream, "set zlabel \"%s\" rotate by %f;\n",
+		 undo_string_escapes (t.string), angle)
       endif
     endif