Mercurial > octave-nkf

comparison scripts/plot/__go_draw_axes__.m @ 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 5c8f09c7a020
children 359f464342b3
comparison
equal deleted inserted replaced
7319:4a853a9138e7 7320:70ddbed64bad
1049 endif 1049 endif
1050 else 1050 else
1051 if (nd == 3) 1051 if (nd == 3)
1052 fputs (plot_stream, "set border 895;\n"); 1052 fputs (plot_stream, "set border 895;\n");
1053 else 1053 else
1054 fputs (plot_stream, "set border 3;\n"); 1054 if (strcmpi (axis_obj.yaxislocation, "right"))
1055 fputs (plot_stream, "set xtics nomirror; set ytics nomirror;\n"); 1055 fputs (plot_stream, "unset ytics; set y2tics nomirror\n");
1056 if (strcmpi (axis_obj.xaxislocation, "top"))
1057 fputs (plot_stream, "unset xtics; set x2tics nomirror\n");
1058 fputs (plot_stream, "set border 12;\n");
1059 else
1060 fputs (plot_stream, "unset x2tics; set xtics nomirror\n");
1061 fputs (plot_stream, "set border 9;\n");
1062 endif
1063 else
1064 fputs (plot_stream, "unset y2tics; set ytics nomirror\n");
1065 if (strcmpi (axis_obj.xaxislocation, "top"))
1066 fputs (plot_stream, "unset xtics; set x2tics nomirror\n");
1067 fputs (plot_stream, "set border 6;\n");
1068 else
1069 fputs (plot_stream, "unset x2tics; set xtics nomirror\n");
1070 fputs (plot_stream, "set border 3;\n");
1071 endif
1072 endif
1056 endif 1073 endif
1057 endif 1074 endif
1058 1075
1059 if (strcmpi (axis_obj.visible, "off")) 1076 if (strcmpi (axis_obj.visible, "off"))
1060 fputs (plot_stream, "unset border; unset tics\n"); 1077 fputs (plot_stream, "unset border; unset tics\n");