Re: [Changeset] plotyy leaves traces of previous plots

[David Bateman]

David Bateman wrote:
> In any case, even if you don't accept the changeset completely, the
> change to __go_draw_axes__ should be applied as it fixes the issue of
> the duplicated tics in plotyy windows.


Here is a changeset of the bit that should be committed that doesn't
affect the newplot issues.

D.

# HG changeset patch
# User David Bateman <address@hidden>
# Date 1206998111 -7200
# Node ID 9bd68f65dc87787b6968514f5eff90595e46e43b
# Parent  9c4e5029bede5020bd6d7f633f6b545f6dcf091c
Fix spurious tics for plotyy with gnuplot backend

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,9 @@ 2008-03-27  Jaroslav Hajek  <address@hidden
+2008-03-31  David Bateman  <address@hidden>
+
+       * plot/__go_draw_axes__.m: Set the tick direction in the main call
+       the set tics rather than separately to avoid issues with multiple
+       ticks in plotyy.
+       
 2008-03-27  Jaroslav Hajek  <address@hidden>
 
        * general/lookup.m: Remove (lookup moved to DLD-FUNCTIONS).
diff --git a/scripts/plot/__go_draw_axes__.m b/scripts/plot/__go_draw_axes__.m
--- a/scripts/plot/__go_draw_axes__.m
+++ b/scripts/plot/__go_draw_axes__.m
@@ -1063,21 +1063,27 @@ function __go_draw_axes__ (h, plot_strea
        fputs (plot_stream, "set border 895;\n");
       else
        if (strcmpi (axis_obj.yaxislocation, "right"))
-         fputs (plot_stream, "unset ytics; set y2tics nomirror\n");
+         fputs (plot_stream, "unset ytics; set y2tics %s nomirror\n",
+                axis_obj.tickdir);
          if (strcmpi (axis_obj.xaxislocation, "top"))
-           fputs (plot_stream, "unset xtics; set x2tics nomirror\n");
+           fputs (plot_stream, "unset xtics; set x2tics %s nomirror\n",
+                axis_obj.tickdir);
            fputs (plot_stream, "set border 12;\n");
          else
-           fputs (plot_stream, "unset x2tics; set xtics nomirror\n");
+           fputs (plot_stream, "unset x2tics; set xtics %s nomirror\n",
+                axis_obj.tickdir);
            fputs (plot_stream, "set border 9;\n");
          endif
        else
-         fputs (plot_stream, "unset y2tics; set ytics nomirror\n");
+         fputs (plot_stream, "unset y2tics; set ytics %s nomirror\n",
+                axis_obj.tickdir);
          if (strcmpi (axis_obj.xaxislocation, "top"))
-           fputs (plot_stream, "unset xtics; set x2tics nomirror\n");
+           fputs (plot_stream, "unset xtics; set x2tics %s nomirror\n",
+                  axis_obj.tickdir);
            fputs (plot_stream, "set border 6;\n");
          else
-           fputs (plot_stream, "unset x2tics; set xtics nomirror\n");
+           fputs (plot_stream, "unset x2tics; set xtics %s nomirror\n",
+                  axis_obj.tickdir);
            fputs (plot_stream, "set border 3;\n");
          endif
        endif
@@ -1088,7 +1094,6 @@ function __go_draw_axes__ (h, plot_strea
       fputs (plot_stream, "unset border; unset tics\n");
     else
       fprintf (plot_stream, "set border lw %f;\n", axis_obj.linewidth);
-      fprintf (plot_stream, "set tics %s\n", axis_obj.tickdir);
     endif
 
     if (strcmpi (axis_obj.key, "on"))
@@ -1471,42 +1476,49 @@ function do_tics (obj, plot_stream, ymir
 function do_tics (obj, plot_stream, ymirror, mono)
   if (strcmpi (obj.xaxislocation, "top"))
     do_tics_1 (obj.xtickmode, obj.xtick, obj.xticklabelmode, obj.xticklabel,
-              obj.xcolor, "x2", plot_stream, true, mono, "border");
+              obj.xcolor, "x2", plot_stream, true, mono, "border",
+              obj.tickdir);
     do_tics_1 ("manual", [], obj.xticklabelmode, obj.xticklabel,
-              obj.xcolor, "x", plot_stream, true, mono, "border");
+              obj.xcolor, "x", plot_stream, true, mono, "border", "");
   elseif (strcmpi (obj.xaxislocation, "zero"))
     do_tics_1 (obj.xtickmode, obj.xtick, obj.xticklabelmode, obj.xticklabel,
-              obj.xcolor, "x", plot_stream, true, mono, "axis");
+              obj.xcolor, "x", plot_stream, true, mono, "axis",
+              obj.tickdir);
     do_tics_1 ("manual", [], obj.xticklabelmode, obj.xticklabel,
-              obj.xcolor, "x2", plot_stream, true, mono, "axis");
+              obj.xcolor, "x2", plot_stream, true, mono, "axis", "");
   else
     do_tics_1 (obj.xtickmode, obj.xtick, obj.xticklabelmode, obj.xticklabel,
-              obj.xcolor, "x", plot_stream, true, mono, "border");
+              obj.xcolor, "x", plot_stream, true, mono, "border",
+              obj.tickdir);
     do_tics_1 ("manual", [], obj.xticklabelmode, obj.xticklabel,
-              obj.xcolor, "x2", plot_stream, true, mono, "border");
+              obj.xcolor, "x2", plot_stream, true, mono, "border", "");
   endif
   if (strcmpi (obj.yaxislocation, "right"))
     do_tics_1 (obj.ytickmode, obj.ytick, obj.yticklabelmode, obj.yticklabel,
-              obj.ycolor, "y2", plot_stream, ymirror, mono, "border");
+              obj.ycolor, "y2", plot_stream, ymirror, mono, "border",
+              obj.tickdir);
     do_tics_1 ("manual", [], obj.yticklabelmode, obj.yticklabel,
-              obj.ycolor, "y", plot_stream, ymirror, mono, "border");
+              obj.ycolor, "y", plot_stream, ymirror, mono, "border", "");
   elseif (strcmpi (obj.xaxislocation, "zero"))
     do_tics_1 (obj.ytickmode, obj.ytick, obj.yticklabelmode, obj.yticklabel,
-              obj.ycolor, "y", plot_stream, ymirror, mono, "axis");
+              obj.ycolor, "y", plot_stream, ymirror, mono, "axis",
+              obj.tickdir);
     do_tics_1 ("manual", [], obj.yticklabelmode, obj.yticklabel,
-              obj.ycolor, "y2", plot_stream, ymirror, mono, "axis");
+              obj.ycolor, "y2", plot_stream, ymirror, mono, "axis", "");
   else
     do_tics_1 (obj.ytickmode, obj.ytick, obj.yticklabelmode, obj.yticklabel,
-              obj.ycolor, "y", plot_stream, ymirror, mono, "border");
+              obj.ycolor, "y", plot_stream, ymirror, mono, "border",
+              obj.tickdir);
     do_tics_1 ("manual", [], obj.yticklabelmode, obj.yticklabel,
-              obj.ycolor, "y2", plot_stream, ymirror, mono, "border");
+              obj.ycolor, "y2", plot_stream, ymirror, mono, "border", "");
   endif
   do_tics_1 (obj.ztickmode, obj.ztick, obj.zticklabelmode, obj.zticklabel,
-            obj.zcolor, "z", plot_stream, true, mono, "border");
+            obj.zcolor, "z", plot_stream, true, mono, "border",
+            obj.tickdir);
 endfunction
 
 function do_tics_1 (ticmode, tics, labelmode, labels, color, ax,
-                   plot_stream, mirror, mono, axispos)
+                   plot_stream, mirror, mono, axispos, tickdir)
   colorspec = get_text_colorspec (color, mono);
   if (strcmpi (ticmode, "manual"))
     if (isempty (tics))
@@ -1521,9 +1533,10 @@ function do_tics_1 (ticmode, tics, label
        nlabels = numel (labels);
        fprintf (plot_stream, "set format %s \"%%s\";\n", ax);
        if (mirror)
-         fprintf (plot_stream, "set %stics %s (", ax, axispos);
+         fprintf (plot_stream, "set %stics %s %s (", ax, tickdir, axispos);
        else
-         fprintf (plot_stream, "set %stics %s nomirror (", ax, axispos);
+         fprintf (plot_stream, "set %stics %s %s nomirror (", ax,
+                  tickdir, axispos);
        endif
        labels = regexprep(labels, "%", "%%");
        for i = 1:ntics
@@ -1542,9 +1555,10 @@ function do_tics_1 (ticmode, tics, label
     else
       fprintf (plot_stream, "set format %s \"%%g\";\n", ax);
       if (mirror)
-       fprintf (plot_stream, "set %stics %s (", ax, axispos );
+       fprintf (plot_stream, "set %stics %s %s (", ax, tickdir, axispos );
       else
-       fprintf (plot_stream, "set %stics %s nomirror (", ax, axispos);
+       fprintf (plot_stream, "set %stics %s %s nomirror (", ax, tickdir,
+                axispos);
       endif
       fprintf (plot_stream, " %g,", tics(1:end-1));
       fprintf (plot_stream, " %g);\n", tics(end));
@@ -1552,10 +1566,11 @@ function do_tics_1 (ticmode, tics, label
   else
     fprintf (plot_stream, "set format %s \"%%g\";\n", ax);
     if (mirror)
-      fprintf (plot_stream, "set %stics %s %s;\n", ax, axispos, colorspec);
-    else
-      fprintf (plot_stream, "set %stics %s nomirror %s;\n", ax, 
-              axispos, colorspec);
+      fprintf (plot_stream, "set %stics %s %s %s;\n", ax, axispos, tickdir,
+              colorspec);
+    else
+      fprintf (plot_stream, "set %stics %s %s nomirror %s;\n", ax, 
+              tickdir, axispos, colorspec);
     endif
   endif
 endfunction