Mercurial > hg > octave-avbm
changeset 11724:8959d5f5c2b1 release-3-0-x
Fix spurious tics for plotyy with gnuplot backend
author | David Bateman <dbateman@free.fr> |
---|---|
date | Mon, 31 Mar 2008 22:13:32 -0400 |
parents | b785c56df58f |
children | 69c8f4cdd472 |
files | scripts/ChangeLog scripts/plot/__go_draw_axes__.m |
diffstat | 2 files changed, 49 insertions(+), 27 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,9 @@ +2008-03-31 David Bateman <dbateman@free.fr> + + * 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-31 Dmitri A. Sergatskov <dasergatskov@gmail.com> * miscellaneous/run.m: Fix check for existence of file.
--- a/scripts/plot/__go_draw_axes__.m +++ b/scripts/plot/__go_draw_axes__.m @@ -1063,21 +1063,27 @@ 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 @@ -1470,42 +1476,49 @@ 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)) @@ -1520,9 +1533,10 @@ 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 @@ -1541,9 +1555,10 @@ 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)); @@ -1551,10 +1566,11 @@ else fprintf (plot_stream, "set format %s \"%%g\";\n", ax); if (mirror) - fprintf (plot_stream, "set %stics %s %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 nomirror %s;\n", ax, - axispos, colorspec); + fprintf (plot_stream, "set %stics %s %s nomirror %s;\n", ax, + tickdir, axispos, colorspec); endif endif endfunction