Mercurial > octave-nkf

changeset 7320:70ddbed64bad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-17 19:25:33 by jwe]
author jwe
date Mon, 17 Dec 2007 19:25:33 +0000
parents 4a853a9138e7
children 359f464342b3
files scripts/ChangeLog scripts/plot/__go_draw_axes__.m
diffstat 2 files changed, 24 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Mon Dec 17 19:16:27 2007 +0000
+++ b/scripts/ChangeLog	Mon Dec 17 19:25:33 2007 +0000
@@ -1,3 +1,8 @@
+2007-12-17  Peter A. Gustafson  <petegus@umich.edu>
+
+	* plot/__go_draw_axes__.m:  Fix mirrored tics and borders for
+	set (gca (), "[xy]axislocation", "{right|top}", "box", "off").
+
 2007-12-17  Ben Abbott  <bpabbott@mac.com>
 
          * miscellaneous/run.m: Replace script with f when looking for
--- a/scripts/plot/__go_draw_axes__.m	Mon Dec 17 19:16:27 2007 +0000
+++ b/scripts/plot/__go_draw_axes__.m	Mon Dec 17 19:25:33 2007 +0000
@@ -1051,8 +1051,25 @@
       if (nd == 3)
 	fputs (plot_stream, "set border 895;\n");
       else
-	fputs (plot_stream, "set border 3;\n");
-	fputs (plot_stream, "set xtics nomirror; set ytics nomirror;\n");
+	if (strcmpi (axis_obj.yaxislocation, "right"))
+	  fputs (plot_stream, "unset ytics; set y2tics nomirror\n");
+	  if (strcmpi (axis_obj.xaxislocation, "top"))
+	    fputs (plot_stream, "unset xtics; set x2tics nomirror\n");
+	    fputs (plot_stream, "set border 12;\n");
+	  else
+	    fputs (plot_stream, "unset x2tics; set xtics nomirror\n");
+	    fputs (plot_stream, "set border 9;\n");
+	  endif
+	else
+	  fputs (plot_stream, "unset y2tics; set ytics nomirror\n");
+	  if (strcmpi (axis_obj.xaxislocation, "top"))
+	    fputs (plot_stream, "unset xtics; set x2tics nomirror\n");
+	    fputs (plot_stream, "set border 6;\n");
+	  else
+	    fputs (plot_stream, "unset x2tics; set xtics nomirror\n");
+	    fputs (plot_stream, "set border 3;\n");
+	  endif
+	endif
       endif
     endif