octave-nkf: scripts/plot/private/__go_draw_axes_

annotate scripts/plot/private/__go_draw_axes__.m @ 13299:e9f6a6edec42

Improvements to patch() and fix for bugs reported in #34417. * scripts/plot/patch.m: Add demos. * scripts/plot/private/__patch__.m: Improvements to input parsing. * scripts/plot/__go_draw_axes__.m: Accommodate patches with one scalar color per vertex.

author	Ben Abbott <bpabbott@mac.com>
date	Sat, 08 Oct 2011 17:34:15 -0400
parents	434e227b100b
children	16a706965ee0

rev	line source
11523 fd0a3ac60b0e update copyright notices John W. Eaton <jwe@octave.org> parents: 11425 diff changeset	1 ## Copyright (C) 2005-2011 John W. Eaton
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	2 ##
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	3 ## This file is part of Octave.
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	4 ##
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7012 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7012 diff changeset	8 ## your option) any later version.
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	9 ##
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	13 ## General Public License for more details.
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	14 ##
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7012 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7012 diff changeset	17 ## <http://www.gnu.org/licenses/>.
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	18
8812 7d48766c21a5 use consistent format for doc strings of internal functions John W. Eaton <jwe@octave.org> parents: 8740 diff changeset	19 ## -- texinfo --
7d48766c21a5 use consistent format for doc strings of internal functions John W. Eaton <jwe@octave.org> parents: 8740 diff changeset	20 ## @deftypefn {Function File} {} __go_draw_axes__ (@var{h}, @var{plot_stream}, @var{enhanced}, @var{mono})
6895 76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6885 diff changeset	21 ## Undocumented internal function.
8812 7d48766c21a5 use consistent format for doc strings of internal functions John W. Eaton <jwe@octave.org> parents: 8740 diff changeset	22 ## @end deftypefn
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	23
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	24 ## Author: jwe
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	25
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	26 function __go_draw_axes__ (h, plot_stream, enhanced, mono,
11204 d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	27 bg_is_set, fg_is_set, hlgnd)
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	28
11204 d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	29 if (nargin >= 4 && nargin <= 7)
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	30
8894 4414e555505d __go_draw_axes__.m: Do not render axis labels twice when their handles are visible. Ben Abbott <bpabbott@mac.com> parents: 8889 diff changeset	31 showhiddenhandles = get (0, "showhiddenhandles");
4414e555505d __go_draw_axes__.m: Do not render axis labels twice when their handles are visible. Ben Abbott <bpabbott@mac.com> parents: 8889 diff changeset	32 unwind_protect
4414e555505d __go_draw_axes__.m: Do not render axis labels twice when their handles are visible. Ben Abbott <bpabbott@mac.com> parents: 8889 diff changeset	33 set (0, "showhiddenhandles", "on");
4414e555505d __go_draw_axes__.m: Do not render axis labels twice when their handles are visible. Ben Abbott <bpabbott@mac.com> parents: 8889 diff changeset	34 axis_obj = __get__ (h);
4414e555505d __go_draw_axes__.m: Do not render axis labels twice when their handles are visible. Ben Abbott <bpabbott@mac.com> parents: 8889 diff changeset	35 unwind_protect_cleanup
4414e555505d __go_draw_axes__.m: Do not render axis labels twice when their handles are visible. Ben Abbott <bpabbott@mac.com> parents: 8889 diff changeset	36 set (0, "showhiddenhandles", showhiddenhandles);
4414e555505d __go_draw_axes__.m: Do not render axis labels twice when their handles are visible. Ben Abbott <bpabbott@mac.com> parents: 8889 diff changeset	37 end_unwind_protect
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	38
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	39 parent_figure_obj = get (axis_obj.parent);
9257 ab952265ad06 __go_draw_axes__.m: Properly render TeX symbols for x11. Ben Abbott <bpabbott@mac.com> parents: 9191 diff changeset	40 gnuplot_term = __gnuplot_get_var__ (axis_obj.parent, "GPVAL_TERM");
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	41
8208 f6ca8ff51818 [mq]: graphics-backend John W. Eaton <jwe@octave.org> parents: 8190 diff changeset	42 ## Set to false for plotyy axes.
13216 434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13209 diff changeset	43 ymirror = true;
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13209 diff changeset	44 if (isfield (axis_obj, "__plotyy_axes__"))
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13209 diff changeset	45 if (all (ishandle (axis_obj.__plotyy_axes__)))
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13209 diff changeset	46 ymirror = false;
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13209 diff changeset	47 else
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13209 diff changeset	48 h = axis_obj.__plotyy_axes__;
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13209 diff changeset	49 h = h(ishandle (h));
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13209 diff changeset	50 h = h(isprop (h, "__ploty_axes__"));
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13209 diff changeset	51 rmappdata (h, "__plotyy_axes__")
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13209 diff changeset	52 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	53 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	54
10917 888c75785221 Improvements to FLTK backend rotation Jordi Guti?rrez Hermoso <jordigh@gmail.com> parents: 10913 diff changeset	55 nd = __calc_dimensions__ (h);
888c75785221 Improvements to FLTK backend rotation Jordi Guti?rrez Hermoso <jordigh@gmail.com> parents: 10913 diff changeset	56
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	57 if (strcmp (axis_obj.dataaspectratiomode, "manual")
10931 a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	58 && strcmp (axis_obj.xlimmode, "manual")
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	59 && strcmp (axis_obj.ylimmode, "manual"))
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	60 ## All can't be "manual"
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	61 axis_obj.plotboxaspectratiomode = "auto";
10532 568c7c041fac colorbar.m: Consistent treatment of plotboxaspectratio. Add listener for plotboxaspectratiomode. Ben Abbott <bpabbott@mac.com> parents: 10528 diff changeset	62 endif
10931 a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	63
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	64 if (strcmp (axis_obj.dataaspectratiomode, "manual")
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	65 && strcmp (axis_obj.xlimmode, "manual")
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	66 && strcmp (axis_obj.ylimmode, "manual")
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	67 && (nd == 2 \|\| all (mod (axis_obj.view, 90) == 0)))
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	68 ## FIXME - adjust plotboxaspectratio to respect other
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	69 fpos = get (axis_obj.parent, "position");
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	70 apos = axis_obj.position;
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	71 endif
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	72
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	73 pos = __actual_axis_position__ (h);
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	74
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	75 if (strcmpi (axis_obj.dataaspectratiomode, "manual"))
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	76 dr = axis_obj.dataaspectratio;
10910 40cf7cc4ea62 Properly interpret plotboxaspectratio when 3D objects are viewed as 2D. Ben Abbott <bpabbott@mac.com> parents: 10635 diff changeset	77 if (nd == 2 \|\| all (mod (axis_obj.view, 90) == 0))
10931 a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	78 dr = dr(1) / dr(2);
8889 665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 8812 diff changeset	79 else
10931 a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	80 ## FIXME - need to properly implement 3D
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	81 dr = mean (dr(1:2)) / dr(3);
8889 665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 8812 diff changeset	82 endif
665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 8812 diff changeset	83 else
10931 a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	84 dr = 1;
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	85 endif
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	86
11001 2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	87 if (strcmp (axis_obj.activepositionproperty, "position"))
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	88 if (__gnuplot_has_feature__ ("screen_coordinates_for_{lrtb}margin"))
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	89 if (nd == 2 \|\| all (mod (axis_obj.view, 90) == 0))
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	90 x = [1, 1];
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	91 else
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	92 ## 3D plots need to be sized down to fit in the window.
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	93 x = 1.0 ./ sqrt([2, 2.5]);
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	94 endif
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	95 fprintf (plot_stream, "set tmargin screen %.15g;\n",
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	96 pos(2)+pos(4)/2+x(2)*pos(4)/2);
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	97 fprintf (plot_stream, "set bmargin screen %.15g;\n",
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	98 pos(2)+pos(4)/2-x(2)*pos(4)/2);
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	99 fprintf (plot_stream, "set lmargin screen %.15g;\n",
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	100 pos(1)+pos(3)/2-x(1)*pos(3)/2);
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	101 fprintf (plot_stream, "set rmargin screen %.15g;\n",
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	102 pos(1)+pos(3)/2+x(1)*pos(3)/2);
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	103 sz_str = "";
10931 a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	104 else
11001 2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	105 fprintf (plot_stream, "set tmargin 0;\n");
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	106 fprintf (plot_stream, "set bmargin 0;\n");
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	107 fprintf (plot_stream, "set lmargin 0;\n");
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	108 fprintf (plot_stream, "set rmargin 0;\n");
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	109
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	110 if (nd == 3 && all (axis_obj.view == [0, 90]))
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	111 ## FIXME -- Kludge to allow colorbar to be added to a pcolor() plot
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	112 pos(3:4) = pos(3:4) * 1.4;
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	113 pos(1:2) = pos(1:2) - pos(3:4) * 0.125;
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	114 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	115
11001 2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	116 fprintf (plot_stream, "set origin %.15g, %.15g;\n", pos(1), pos(2));
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	117
11001 2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	118 if (strcmpi (axis_obj.dataaspectratiomode, "manual"))
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	119 sz_str = sprintf ("set size ratio %.15g", -dr);
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	120 else
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	121 sz_str = "set size noratio";
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	122 endif
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	123 sz_str = sprintf ("%s %.15g, %.15g;\n", sz_str, pos(3), pos(4));
10953 9c0b366583cb Revert treatment of activepositionproperty from the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 10949 diff changeset	124 endif
11001 2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	125 else ## activepositionproperty == outerposition
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	126 fprintf (plot_stream, "unset tmargin;\n");
b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	127 fprintf (plot_stream, "unset bmargin;\n");
b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	128 fprintf (plot_stream, "unset lmargin;\n");
b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	129 fprintf (plot_stream, "unset rmargin;\n");
b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	130 fprintf (plot_stream, "set origin %g, %g;\n", pos(1:2));
10953 9c0b366583cb Revert treatment of activepositionproperty from the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 10949 diff changeset	131 sz_str = "";
11001 2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	132 if (strcmpi (axis_obj.dataaspectratiomode, "manual"))
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	133 sz_str = sprintf ("ratio %g", -dr);
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	134 else
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	135 sz_str = "noratio";
10931 a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	136 endif
11001 2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10997 diff changeset	137 sz_str = sprintf ("set size %s %g, %g;\n", sz_str, pos(3:4));
10931 a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	138 endif
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	139 if (! isempty (sz_str))
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	140 fputs (plot_stream, sz_str);
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	141 endif
a72d53df4fa6 Treatment of activepositionproperty for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10930 diff changeset	142
8953 a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8943 diff changeset	143 ## Reset all labels, axis-labels, tick-labels, and title
a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8943 diff changeset	144 ## FIXME - We should have an function to initialize the axis.
a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8943 diff changeset	145 ## Presently, this is dispersed in this function.
6778 083721ae3dfa [project @ 2007-07-18 17:03:10 by jwe] jwe parents: 6766 diff changeset	146 fputs (plot_stream, "unset label;\n");
8953 a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8943 diff changeset	147 fputs (plot_stream, "unset xtics;\n");
a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8943 diff changeset	148 fputs (plot_stream, "unset ytics;\n");
a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8943 diff changeset	149 fputs (plot_stream, "unset ztics;\n");
a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8943 diff changeset	150 fputs (plot_stream, "unset x2tics;\n");
a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8943 diff changeset	151 fputs (plot_stream, "unset x2tics;\n");
6778 083721ae3dfa [project @ 2007-07-18 17:03:10 by jwe] jwe parents: 6766 diff changeset	152
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	153 if (! isempty (axis_obj.title))
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	154 t = get (axis_obj.title);
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	155 if (isempty (t.string))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	156 fputs (plot_stream, "unset title;\n");
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	157 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	158 [tt, f, s] = __maybe_munge_text__ (enhanced, t, "string");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	159 fontspec = create_fontspec (f, s, gnuplot_term);
11286 f0478684bc2f __go_draw_axes__.m: Fix plot titles so they are visible for gnuplot 4.4.x (31711). Ben Abbott <bpabbott@mac.com> parents: 11271 diff changeset	160 fprintf (plot_stream, "set title \"%s\" %s %s;\n",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	161 undo_string_escapes (tt), fontspec,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	162 __do_enhanced_option__ (enhanced, t));
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	163 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	164 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	165
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	166 if (! isempty (axis_obj.xlabel))
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	167 t = get (axis_obj.xlabel);
6737 7888712d3532 [project @ 2007-06-15 21:45:50 by jwe] jwe parents: 6736 diff changeset	168 angle = t.rotation;
7269 3fade00a6ac7 [project @ 2007-12-07 19:26:20 by jwe] jwe parents: 7257 diff changeset	169 colorspec = get_text_colorspec (axis_obj.xcolor, mono);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	170 if (isempty (t.string))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	171 fprintf (plot_stream, "unset xlabel;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	172 fprintf (plot_stream, "unset x2label;\n");
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	173 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	174 [tt, f, s] = __maybe_munge_text__ (enhanced, t, "string");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	175 fontspec = create_fontspec (f, s, gnuplot_term);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	176 if (strcmpi (axis_obj.xaxislocation, "top"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	177 fprintf (plot_stream, "set x2label \"%s\" %s %s %s",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	178 undo_string_escapes (tt), colorspec, fontspec,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	179 __do_enhanced_option__ (enhanced, t));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	180 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	181 fprintf (plot_stream, "set xlabel \"%s\" %s %s %s",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	182 undo_string_escapes (tt), colorspec, fontspec,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	183 __do_enhanced_option__ (enhanced, t));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	184 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	185 fprintf (plot_stream, " rotate by %f;\n", angle);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	186 if (strcmpi (axis_obj.xaxislocation, "top"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	187 fprintf (plot_stream, "unset xlabel;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	188 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	189 fprintf (plot_stream, "unset x2label;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	190 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	191 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	192 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	193
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	194 if (! isempty (axis_obj.ylabel))
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	195 t = get (axis_obj.ylabel);
6737 7888712d3532 [project @ 2007-06-15 21:45:50 by jwe] jwe parents: 6736 diff changeset	196 angle = t.rotation;
7269 3fade00a6ac7 [project @ 2007-12-07 19:26:20 by jwe] jwe parents: 7257 diff changeset	197 colorspec = get_text_colorspec (axis_obj.ycolor, mono);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	198 if (isempty (t.string))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	199 fprintf (plot_stream, "unset ylabel;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	200 fprintf (plot_stream, "unset y2label;\n");
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	201 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	202 [tt, f, s] = __maybe_munge_text__ (enhanced, t, "string");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	203 fontspec = create_fontspec (f, s, gnuplot_term);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	204 if (strcmpi (axis_obj.yaxislocation, "right"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	205 fprintf (plot_stream, "set y2label \"%s\" %s %s %s",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	206 undo_string_escapes (tt), colorspec, fontspec,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	207 __do_enhanced_option__ (enhanced, t));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	208 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	209 fprintf (plot_stream, "set ylabel \"%s\" %s %s %s",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	210 undo_string_escapes (tt), colorspec, fontspec,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	211 __do_enhanced_option__ (enhanced, t));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	212 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	213 fprintf (plot_stream, " rotate by %f;\n", angle);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	214 if (strcmpi (axis_obj.yaxislocation, "right"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	215 fprintf (plot_stream, "unset ylabel;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	216 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	217 fprintf (plot_stream, "unset y2label;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	218 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	219 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	220 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	221
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	222 if (! isempty (axis_obj.zlabel))
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	223 t = get (axis_obj.zlabel);
6737 7888712d3532 [project @ 2007-06-15 21:45:50 by jwe] jwe parents: 6736 diff changeset	224 angle = t.rotation;
7269 3fade00a6ac7 [project @ 2007-12-07 19:26:20 by jwe] jwe parents: 7257 diff changeset	225 colorspec = get_text_colorspec (axis_obj.zcolor, mono);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	226 if (isempty (t.string))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	227 fputs (plot_stream, "unset zlabel;\n");
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	228 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	229 [tt, f, s] = __maybe_munge_text__ (enhanced, t, "string");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	230 fontspec = create_fontspec (f, s, gnuplot_term);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	231 fprintf (plot_stream, "set zlabel \"%s\" %s %s %s",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	232 undo_string_escapes (tt), colorspec, fontspec,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	233 __do_enhanced_option__ (enhanced, t));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	234 fprintf (plot_stream, " rotate by %f;\n", angle);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	235 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	236 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	237
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	238 if (strcmpi (axis_obj.xaxislocation, "top"))
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	239 xaxisloc = "x2";
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	240 xaxisloc_using = "x2";
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	241 else
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	242 xaxisloc = "x";
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	243 xaxisloc_using = "x1";
7321 359f464342b3 [project @ 2007-12-18 03:48:03 by jwe] jwe parents: 7320 diff changeset	244 if (strcmpi (axis_obj.xaxislocation, "zero"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	245 fputs (plot_stream, "set xzeroaxis;\n");
7321 359f464342b3 [project @ 2007-12-18 03:48:03 by jwe] jwe parents: 7320 diff changeset	246 endif
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	247 endif
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	248 if (strcmpi (axis_obj.yaxislocation, "right"))
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	249 yaxisloc = "y2";
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	250 yaxisloc_using = "y2";
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	251 else
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	252 yaxisloc = "y";
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	253 yaxisloc_using = "y1";
7321 359f464342b3 [project @ 2007-12-18 03:48:03 by jwe] jwe parents: 7320 diff changeset	254 if (strcmpi (axis_obj.yaxislocation, "zero"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	255 fputs (plot_stream, "set yzeroaxis;\n");
7321 359f464342b3 [project @ 2007-12-18 03:48:03 by jwe] jwe parents: 7320 diff changeset	256 endif
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	257 endif
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	258
7274 44fdc33e5207 [project @ 2007-12-10 07:36:50 by jwe] jwe parents: 7271 diff changeset	259 have_grid = false;
44fdc33e5207 [project @ 2007-12-10 07:36:50 by jwe] jwe parents: 7271 diff changeset	260
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	261 if (strcmpi (axis_obj.xgrid, "on"))
7274 44fdc33e5207 [project @ 2007-12-10 07:36:50 by jwe] jwe parents: 7271 diff changeset	262 have_grid = true;
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	263 fprintf (plot_stream, "set grid %stics;\n", xaxisloc);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	264 else
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	265 fprintf (plot_stream, "set grid no%stics;\n", xaxisloc);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	266 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	267
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	268 if (strcmpi (axis_obj.ygrid, "on"))
7274 44fdc33e5207 [project @ 2007-12-10 07:36:50 by jwe] jwe parents: 7271 diff changeset	269 have_grid = true;
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	270 fprintf (plot_stream, "set grid %stics;\n", yaxisloc);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	271 else
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	272 fprintf (plot_stream, "set grid no%stics;\n", yaxisloc);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	273 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	274
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	275 if (strcmpi (axis_obj.zgrid, "on"))
7274 44fdc33e5207 [project @ 2007-12-10 07:36:50 by jwe] jwe parents: 7271 diff changeset	276 have_grid = true;
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	277 fputs (plot_stream, "set grid ztics;\n");
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	278 else
7085 607b70017dab [project @ 2007-10-31 16:23:25 by jwe] jwe parents: 7078 diff changeset	279 fputs (plot_stream, "set grid noztics;\n");
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	280 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	281
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	282 if (strcmpi (axis_obj.xminorgrid, "on"))
7274 44fdc33e5207 [project @ 2007-12-10 07:36:50 by jwe] jwe parents: 7271 diff changeset	283 have_grid = true;
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	284 if (strcmp (axis_obj.xscale, "log"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	285 m = 10;
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	286 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	287 m = 5;
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	288 endif
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	289 fprintf (plot_stream, "set m%stics %d;\n", xaxisloc, m);
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	290 fprintf (plot_stream, "set grid m%stics;\n", xaxisloc);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	291 else
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	292 fprintf (plot_stream, "set grid nom%stics;\n", xaxisloc);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	293 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	294
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	295 if (strcmpi (axis_obj.yminorgrid, "on"))
7274 44fdc33e5207 [project @ 2007-12-10 07:36:50 by jwe] jwe parents: 7271 diff changeset	296 have_grid = true;
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	297 if (strcmp (axis_obj.yscale, "log"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	298 m = 10;
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	299 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	300 m = 5;
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	301 endif
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	302 fprintf (plot_stream, "set m%stics %d;\n", yaxisloc, m);
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	303 fprintf (plot_stream, "set grid m%stics;\n", yaxisloc);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	304 else
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	305 fprintf (plot_stream, "set grid nom%stics;\n", yaxisloc);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	306 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	307
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	308 if (strcmpi (axis_obj.zminorgrid, "on"))
7274 44fdc33e5207 [project @ 2007-12-10 07:36:50 by jwe] jwe parents: 7271 diff changeset	309 have_grid = true;
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	310 if (strcmp (axis_obj.zscale, "log"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	311 m = 10;
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	312 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	313 m = 5;
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	314 endif
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	315 fprintf (plot_stream, "set mztics %d;\n", m);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	316 fputs (plot_stream, "set grid mztics;\n");
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	317 else
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	318 fputs (plot_stream, "set grid nomztics;\n");
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	319 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	320
7307 28a9e3d3bf14 [project @ 2007-12-12 18:44:35 by jwe] jwe parents: 7297 diff changeset	321 ## The grid front/back/layerdefault option also controls the
28a9e3d3bf14 [project @ 2007-12-12 18:44:35 by jwe] jwe parents: 7297 diff changeset	322 ## appearance of tics, so it is used even if the grid is absent.
28a9e3d3bf14 [project @ 2007-12-12 18:44:35 by jwe] jwe parents: 7297 diff changeset	323 if (strcmpi (axis_obj.layer, "top"))
28a9e3d3bf14 [project @ 2007-12-12 18:44:35 by jwe] jwe parents: 7297 diff changeset	324 fputs (plot_stream, "set grid front;\n");
9438 bac81ac76a57 __go_draw_axes__.m: also use layer property for plot border John W. Eaton <jwe@octave.org> parents: 9374 diff changeset	325 fputs (plot_stream, "set border front;\n");
7307 28a9e3d3bf14 [project @ 2007-12-12 18:44:35 by jwe] jwe parents: 7297 diff changeset	326 else
28a9e3d3bf14 [project @ 2007-12-12 18:44:35 by jwe] jwe parents: 7297 diff changeset	327 fputs (plot_stream, "set grid layerdefault;\n");
9438 bac81ac76a57 __go_draw_axes__.m: also use layer property for plot border John W. Eaton <jwe@octave.org> parents: 9374 diff changeset	328 ## FIXME -- the gnuplot help says that "layerdefault" should work
bac81ac76a57 __go_draw_axes__.m: also use layer property for plot border John W. Eaton <jwe@octave.org> parents: 9374 diff changeset	329 ## for set border too, but it fails for me with gnuplot 4.2.5. So
bac81ac76a57 __go_draw_axes__.m: also use layer property for plot border John W. Eaton <jwe@octave.org> parents: 9374 diff changeset	330 ## use "back" instead.
bac81ac76a57 __go_draw_axes__.m: also use layer property for plot border John W. Eaton <jwe@octave.org> parents: 9374 diff changeset	331 fputs (plot_stream, "set border back;\n");
7307 28a9e3d3bf14 [project @ 2007-12-12 18:44:35 by jwe] jwe parents: 7297 diff changeset	332 endif
11334 703f51c2beb7 set grid linewidths from axis linewidth property John W. Eaton <jwe@octave.org> parents: 11312 diff changeset	333
703f51c2beb7 set grid linewidths from axis linewidth property John W. Eaton <jwe@octave.org> parents: 11312 diff changeset	334 fprintf (plot_stream, "set grid linewidth %f, linewidth %f;\n",
703f51c2beb7 set grid linewidths from axis linewidth property John W. Eaton <jwe@octave.org> parents: 11312 diff changeset	335 axis_obj.linewidth, axis_obj.linewidth);
703f51c2beb7 set grid linewidths from axis linewidth property John W. Eaton <jwe@octave.org> parents: 11312 diff changeset	336
7297 ec1f6f8baf94 [project @ 2007-12-11 21:25:52 by jwe] jwe parents: 7296 diff changeset	337 if (! have_grid)
ec1f6f8baf94 [project @ 2007-12-11 21:25:52 by jwe] jwe parents: 7296 diff changeset	338 fputs (plot_stream, "unset grid;\n");
7274 44fdc33e5207 [project @ 2007-12-10 07:36:50 by jwe] jwe parents: 7271 diff changeset	339 endif
44fdc33e5207 [project @ 2007-12-10 07:36:50 by jwe] jwe parents: 7271 diff changeset	340
13143 bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	341 xlogscale = strcmpi (axis_obj.xscale, "log");
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	342 ylogscale = strcmpi (axis_obj.yscale, "log");
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	343 zlogscale = strcmpi (axis_obj.zscale, "log");
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	344
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	345 ## Detect logscale and negative lims
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	346 if (xlogscale && all (axis_obj.xlim < 0))
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	347 axis_obj.xsgn = -1;
13143 bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	348 if (strcmp (axis_obj.xdir, "reverse"))
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	349 axis_obj.xdir = "normal";
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	350 else
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	351 axis_obj.xdir = "reverse";
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	352 endif
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	353 axis_obj.xtick = -flip (axis_obj.xtick);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	354 axis_obj.xticklabel = flip (axis_obj.xticklabel);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	355 axis_obj.xlim = -flip (axis_obj.xlim);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	356 else
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	357 axis_obj.xsgn = 1;
13143 bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	358 endif
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	359 if (ylogscale && all (axis_obj.ylim < 0))
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	360 axis_obj.ysgn = -1;
13143 bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	361 if (strcmp (axis_obj.ydir, "reverse"))
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	362 axis_obj.ydir = "normal";
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	363 else
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	364 axis_obj.ydir = "reverse";
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	365 endif
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	366 axis_obj.ytick = -flip (axis_obj.ytick);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	367 axis_obj.yticklabel = flip (axis_obj.yticklabel);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	368 axis_obj.ylim = -flip (axis_obj.ylim);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	369 else
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	370 axis_obj.ysgn = 1;
13143 bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	371 endif
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	372 if (zlogscale && all (axis_obj.zlim < 0))
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	373 axis_obj.zsgn = -1;
13143 bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	374 if (strcmp (axis_obj.zdir, "reverse"))
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	375 axis_obj.zdir = "normal";
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	376 else
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	377 axis_obj.zdir = "reverse";
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	378 endif
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	379 axis_obj.ztick = -flip (axis_obj.ztick);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	380 axis_obj.zticklabel = flip (axis_obj.zticklabel);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	381 axis_obj.zlim = -flip (axis_obj.zlim);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	382 else
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	383 axis_obj.zsgn = 1;
13176 9b8e786bbf3c maint: use specific endif, endfor tokens instead of simple end John W. Eaton <jwe@octave.org> parents: 13173 diff changeset	384 endif
13143 bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	385
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	386 xlim = axis_obj.xlim;
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	387 ylim = axis_obj.ylim;
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	388 zlim = axis_obj.zlim;
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	389 clim = axis_obj.clim;
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	390
9257 ab952265ad06 __go_draw_axes__.m: Properly render TeX symbols for x11. Ben Abbott <bpabbott@mac.com> parents: 9191 diff changeset	391 do_tics (axis_obj, plot_stream, ymirror, mono, gnuplot_term);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	392
10451 348b26872fc8 Fix bug with logscale in combination with colorbar Petr Mikulik <mikulik@physics.muni.cz> parents: 10238 diff changeset	393 fputs (plot_stream, "unset logscale;\n");
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	394 if (xlogscale)
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	395 fprintf (plot_stream, "set logscale %s;\n", xaxisloc);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	396 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	397 if (ylogscale)
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	398 fprintf (plot_stream, "set logscale %s;\n", yaxisloc);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	399 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	400 if (zlogscale)
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	401 fputs (plot_stream, "set logscale z;\n");
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	402 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	403
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	404 xautoscale = strcmpi (axis_obj.xlimmode, "auto");
1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	405 yautoscale = strcmpi (axis_obj.ylimmode, "auto");
1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	406 zautoscale = strcmpi (axis_obj.zlimmode, "auto");
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	407 cautoscale = strcmpi (axis_obj.climmode, "auto");
7471 86ba621332ff Implement cdatamapping and respect to to allow correct image/imagesc rendering David Bateman <dbateman@free.fr> parents: 7462 diff changeset	408 cdatadirect = false;
7930 1f6eb3de1c4e __img__.m, imshow.m, __go_draw_axes__.m: improve handling of truecolor images John W. Eaton <jwe@octave.org> parents: 7873 diff changeset	409 truecolor = false;
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	410
8360 32d9c0299e99 Set gnuplot two point clipping David Bateman <dbateman@free.fr> parents: 8354 diff changeset	411 fputs (plot_stream, "set clip two;\n");
32d9c0299e99 Set gnuplot two point clipping David Bateman <dbateman@free.fr> parents: 8354 diff changeset	412
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	413 kids = axis_obj.children;
8915 485eabc0cfec __go_draw_axes__.m: Preserve the order of axes' children when pruning the handles for the {x,y,z}labels and title. Ben Abbott <bpabbott@mac.com> parents: 8909 diff changeset	414 ## Remove the axis labels and title from the children, and
485eabc0cfec __go_draw_axes__.m: Preserve the order of axes' children when pruning the handles for the {x,y,z}labels and title. Ben Abbott <bpabbott@mac.com> parents: 8909 diff changeset	415 ## preserved the original order.
485eabc0cfec __go_draw_axes__.m: Preserve the order of axes' children when pruning the handles for the {x,y,z}labels and title. Ben Abbott <bpabbott@mac.com> parents: 8909 diff changeset	416 [jnk, k] = setdiff (kids, [axis_obj.xlabel; axis_obj.ylabel; ...
485eabc0cfec __go_draw_axes__.m: Preserve the order of axes' children when pruning the handles for the {x,y,z}labels and title. Ben Abbott <bpabbott@mac.com> parents: 8909 diff changeset	417 axis_obj.zlabel; axis_obj.title]);
485eabc0cfec __go_draw_axes__.m: Preserve the order of axes' children when pruning the handles for the {x,y,z}labels and title. Ben Abbott <bpabbott@mac.com> parents: 8909 diff changeset	418 kids = kids (sort (k));
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	419
7316 fac781a4078d [project @ 2007-12-14 17:32:25 by jwe] jwe parents: 7307 diff changeset	420 if (nd == 3)
fac781a4078d [project @ 2007-12-14 17:32:25 by jwe] jwe parents: 7307 diff changeset	421 fputs (plot_stream, "set parametric;\n");
fac781a4078d [project @ 2007-12-14 17:32:25 by jwe] jwe parents: 7307 diff changeset	422 fputs (plot_stream, "set style data lines;\n");
fac781a4078d [project @ 2007-12-14 17:32:25 by jwe] jwe parents: 7307 diff changeset	423 fputs (plot_stream, "set surface;\n");
fac781a4078d [project @ 2007-12-14 17:32:25 by jwe] jwe parents: 7307 diff changeset	424 fputs (plot_stream, "unset contour;\n");
fac781a4078d [project @ 2007-12-14 17:32:25 by jwe] jwe parents: 7307 diff changeset	425 endif
fac781a4078d [project @ 2007-12-14 17:32:25 by jwe] jwe parents: 7307 diff changeset	426
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	427 data_idx = 0;
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	428 data = cell ();
6464 9914ad33ac6a [project @ 2007-03-27 02:21:47 by jwe] jwe parents: 6463 diff changeset	429 is_image_data = [];
7175 5ff4da7bd2e7 [project @ 2007-11-14 20:36:48 by jwe] jwe parents: 7170 diff changeset	430 hidden_removal = NaN;
7271 c18512d0ddb6 [project @ 2007-12-10 06:52:51 by jwe] jwe parents: 7269 diff changeset	431 view_map = false;
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	432
7222 dd8b3bbeeaf9 [project @ 2007-11-30 06:23:25 by jwe] jwe parents: 7220 diff changeset	433 if (! cautoscale && clim(1) == clim(2))
dd8b3bbeeaf9 [project @ 2007-11-30 06:23:25 by jwe] jwe parents: 7220 diff changeset	434 clim(2)++;
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	435 endif
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: 9098 diff changeset	436 addedcmap = [];
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	437
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	438 ximg_data = {};
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	439 ximg_data_idx = 0;
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	440
7865 b74039822fd2 Add support for hggroup Michael Goffioul <michael.goffioul@gmail.com> parents: 7726 diff changeset	441 while (! isempty (kids))
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	442
8344 b5f10b123440 __go_draw_axes__.m: Correct order for rendering children. Ben Abbott <bpabbott@mac.com> parents: 8322 diff changeset	443 obj = get (kids(end));
10992 88687577519f __go_draw_axes__.m: Ensure text objects have units of "data". Ben Abbott <bpabbott@mac.com> parents: 10990 diff changeset	444 if (isfield (obj, "units"))
88687577519f __go_draw_axes__.m: Ensure text objects have units of "data". Ben Abbott <bpabbott@mac.com> parents: 10990 diff changeset	445 units = obj.units;
88687577519f __go_draw_axes__.m: Ensure text objects have units of "data". Ben Abbott <bpabbott@mac.com> parents: 10990 diff changeset	446 unwind_protect
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	447 set (kids(end), "units", "data");
10992 88687577519f __go_draw_axes__.m: Ensure text objects have units of "data". Ben Abbott <bpabbott@mac.com> parents: 10990 diff changeset	448 obj = get (kids(end));
88687577519f __go_draw_axes__.m: Ensure text objects have units of "data". Ben Abbott <bpabbott@mac.com> parents: 10990 diff changeset	449 unwind_protect_cleanup
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	450 set (kids(end), "units", units);
10992 88687577519f __go_draw_axes__.m: Ensure text objects have units of "data". Ben Abbott <bpabbott@mac.com> parents: 10990 diff changeset	451 end_unwind_protect
88687577519f __go_draw_axes__.m: Ensure text objects have units of "data". Ben Abbott <bpabbott@mac.com> parents: 10990 diff changeset	452 endif
8344 b5f10b123440 __go_draw_axes__.m: Correct order for rendering children. Ben Abbott <bpabbott@mac.com> parents: 8322 diff changeset	453 kids = kids(1:(end-1));
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	454
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 8171 diff changeset	455 if (strcmpi (obj.visible, "off"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	456 continue;
8052 961d4c52ffae Convert stem and stem3 to use stem series objects David Bateman <dbateman@free.fr> parents: 8048 diff changeset	457 endif
961d4c52ffae Convert stem and stem3 to use stem series objects David Bateman <dbateman@free.fr> parents: 8048 diff changeset	458
11206 83d268af65cb __go_draw_axes__.m: Check for z/y/zdata before converting negative values to NaNs. Ben Abbott <bpabbott@mac.com> parents: 11204 diff changeset	459 if (xlogscale && isfield (obj, "xdata"))
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	460 obj.xdata = axis_obj.xsgn * obj.xdata;
11201 6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11198 diff changeset	461 obj.xdata(obj.xdata<=0) = NaN;
6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11198 diff changeset	462 endif
11206 83d268af65cb __go_draw_axes__.m: Check for z/y/zdata before converting negative values to NaNs. Ben Abbott <bpabbott@mac.com> parents: 11204 diff changeset	463 if (ylogscale && isfield (obj, "ydata"))
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	464 obj.ydata = axis_obj.ysgn * obj.ydata;
11201 6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11198 diff changeset	465 obj.ydata(obj.ydata<=0) = NaN;
6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11198 diff changeset	466 endif
11206 83d268af65cb __go_draw_axes__.m: Check for z/y/zdata before converting negative values to NaNs. Ben Abbott <bpabbott@mac.com> parents: 11204 diff changeset	467 if (zlogscale && isfield (obj, "zdata"))
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	468 obj.zdata = axis_obj.zsgn * obj.zdata;
11201 6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11198 diff changeset	469 obj.zdata(obj.zdata<=0) = NaN;
6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11198 diff changeset	470 endif
6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11198 diff changeset	471
8171 15ffb9836c01 __go_draw_axes__.m: Remove depdenence on gnuplot version. Ben Abbott <bpabbott@mac.com> parents: 8166 diff changeset	472 ## Check for facecolor interpolation for surfaces.
15ffb9836c01 __go_draw_axes__.m: Remove depdenence on gnuplot version. Ben Abbott <bpabbott@mac.com> parents: 8166 diff changeset	473 doing_interp_color = ...
15ffb9836c01 __go_draw_axes__.m: Remove depdenence on gnuplot version. Ben Abbott <bpabbott@mac.com> parents: 8166 diff changeset	474 isfield (obj, "facecolor") && strncmp (obj.facecolor, "interp", 6);
8166 4024fc815f8d __go_draw_axes__.m: Fix interpolation of facecolors. Ben Abbott <bpabbott@mac.com> parents: 8164 diff changeset	475
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	476 switch (obj.type)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	477 case "image"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	478 img_data = obj.cdata;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	479 img_xdata = obj.xdata;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	480 img_ydata = obj.ydata;
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	481
11109 41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	482 if (ndims (img_data) == 3)
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	483 truecolor = true;
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	484 elseif (strcmpi (obj.cdatamapping, "direct"))
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	485 cdatadirect = true;
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	486 endif
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	487 data_idx++;
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	488 is_image_data(data_idx) = true;
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	489 parametric(data_idx) = false;
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	490 have_cdata(data_idx) = false;
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	491 have_3d_patch(data_idx) = false;
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	492
11109 41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	493 if (img_xdata(2) < img_xdata(1))
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	494 img_xdata = img_xdata(2:-1:1);
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	495 img_data = img_data(:,end:-1:1,:);
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	496 elseif (img_xdata(1) == img_xdata(2))
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	497 img_xdata = img_xdata(1) + [0, size(img_data,2)-1];
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	498 endif
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	499 if (img_ydata(2) < img_ydata(1))
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	500 img_ydata = img_ydata(2:-1:1);
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	501 img_data = img_data(end:-1:1,:,:);
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	502 elseif (img_ydata(1) == img_ydata(2))
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	503 img_ydata = img_ydata(1) + [0, size(img_data,1)-1];
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	504 endif
11090 2adf4736dafa Do not store flipped image property values when x/ydata descends. Ben Abbott <bpabbott@mac.com> parents: 11032 diff changeset	505
11109 41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	506 [y_dim, x_dim] = size (img_data(:,:,1));
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	507 if (x_dim > 1)
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	508 dx = abs (img_xdata(2)-img_xdata(1))/(x_dim-1);
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	509 else
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	510 x_dim = 2;
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	511 img_data = [img_data, img_data];
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	512 dx = abs (img_xdata(2)-img_xdata(1));
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	513 endif
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	514 if (y_dim > 1)
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	515 dy = abs (img_ydata(2)-img_ydata(1))/(y_dim-1);
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	516 else
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	517 y_dim = 2;
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	518 img_data = [img_data; img_data];
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	519 dy = abs (img_ydata(2)-img_ydata(1));
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	520 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	521
11109 41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	522 x_origin = min (img_xdata);
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	523 y_origin = min (img_ydata);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	524
11109 41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	525 if (ndims (img_data) == 3)
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	526 data{data_idx} = permute (img_data, [3, 1, 2])(:);
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	527 format = "1:2:3";
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	528 imagetype = "rgbimage";
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	529 else
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	530 data{data_idx} = img_data(:);
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	531 format = "1";
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	532 imagetype = "image";
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	533 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	534
11109 41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	535 titlespec{data_idx} = "title \"\"";
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	536 usingclause{data_idx} = sprintf ("binary array=%dx%d scan=yx origin=(%.15g,%.15g) dx=%.15g dy=%.15g using %s",
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	537 x_dim, y_dim, x_origin, y_origin, dx, dy, format);
41d18f6342f9 remove image_viewer function John W. Eaton <jwe@octave.org> parents: 11095 diff changeset	538 withclause{data_idx} = sprintf ("with %s;", imagetype);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	539
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	540 case "line"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	541 if (strncmp (obj.linestyle, "none", 4)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	542 && (! isfield (obj, "marker")
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	543 \|\| (isfield (obj, "marker")
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	544 && strncmp (obj.marker, "none", 4))))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	545 continue;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	546 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	547 data_idx++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	548 is_image_data(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	549 parametric(data_idx) = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	550 have_cdata(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	551 have_3d_patch(data_idx) = false;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	552 if (isempty (obj.displayname))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	553 titlespec{data_idx} = "title \"\"";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	554 else
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	555 tmp = undo_string_escapes (__maybe_munge_text__ (enhanced, obj, "displayname"));
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	556 titlespec{data_idx} = cstrcat ("title \"", tmp, "\"");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	557 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	558 usingclause{data_idx} = sprintf ("record=%d", numel (obj.xdata));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	559 errbars = "";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	560 if (nd == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	561 xdat = obj.xdata(:);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	562 ydat = obj.ydata(:);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	563 if (! isempty (obj.zdata))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	564 zdat = obj.zdata(:);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	565 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	566 zdat = zeros (size (xdat));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	567 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	568 data{data_idx} = [xdat, ydat, zdat]';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	569 usingclause{data_idx} = sprintf ("record=%d using ($1):($2):($3)", numel (xdat));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	570 ## fputs (plot_stream, "set parametric;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	571 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	572 xdat = obj.xdata(:);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	573 ydat = obj.ydata(:);
10597 ba346313bdc1 __go_draw_axes__.m: Remove gnuplot errorbar code. Ben Abbott <bpabbott@mac.com> parents: 10582 diff changeset	574 data{data_idx} = [xdat, ydat]';
ba346313bdc1 __go_draw_axes__.m: Remove gnuplot errorbar code. Ben Abbott <bpabbott@mac.com> parents: 10582 diff changeset	575 usingclause{data_idx} = sprintf ("record=%d using ($1):($2) axes %s%s",
ba346313bdc1 __go_draw_axes__.m: Remove gnuplot errorbar code. Ben Abbott <bpabbott@mac.com> parents: 10582 diff changeset	576 rows(xdat), xaxisloc_using, yaxisloc_using);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	577 endif
7510 f3e6ada67d9e improve handling line style for errorbar plots John W. Eaton <jwe@octave.org> parents: 7472 diff changeset	578
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	579 style = do_linestyle_command (obj, obj.color, data_idx, mono,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	580 plot_stream, errbars);
7510 f3e6ada67d9e improve handling line style for errorbar plots John W. Eaton <jwe@octave.org> parents: 7472 diff changeset	581
10111 b52cba8be2eb Fix for markerfacecolor and markeredgecolor properties with unfillable markers like '+' David Bateman <dbateman@free.fr> parents: 10089 diff changeset	582 withclause{data_idx} = sprintf ("with %s linestyle %d",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	583 style{1}, data_idx);
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	584
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	585 if (length (style) > 1)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	586 data_idx++;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	587 is_image_data(data_idx) = is_image_data(data_idx - 1);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	588 parametric(data_idx) = parametric(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	589 have_cdata(data_idx) = have_cdata(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	590 have_3d_patch(data_idx) = have_3d_patch(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	591 titlespec{data_idx} = "title \"\"";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	592 usingclause{data_idx} = usingclause{data_idx - 1};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	593 data{data_idx} = data{data_idx - 1};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	594 withclause{data_idx} = sprintf ("with %s linestyle %d",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	595 style{2}, data_idx);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	596 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	597 if (length (style) > 2)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	598 data_idx++;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	599 is_image_data(data_idx) = is_image_data(data_idx - 1);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	600 parametric(data_idx) = parametric(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	601 have_cdata(data_idx) = have_cdata(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	602 have_3d_patch(data_idx) = have_3d_patch(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	603 titlespec{data_idx} = "title \"\"";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	604 usingclause{data_idx} = usingclause{data_idx - 1};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	605 data{data_idx} = data{data_idx - 1};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	606 withclause{data_idx} = sprintf ("with %s linestyle %d",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	607 style{3}, data_idx);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	608 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	609
6790 f1157da78825 [project @ 2007-07-24 19:02:27 by jwe] jwe parents: 6788 diff changeset	610 case "patch"
6885 987a7bf45c99 [project @ 2007-09-10 20:51:09 by jwe] jwe parents: 6861 diff changeset	611 cmap = parent_figure_obj.colormap;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	612 [nr, nc] = size (obj.xdata);
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	613
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	614 if (! isempty (obj.cdata))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	615 cdat = obj.cdata;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	616 if (strcmpi (obj.cdatamapping, "direct"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	617 cdatadirect = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	618 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	619 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	620 cdat = [];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	621 endif
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: 9098 diff changeset	622
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	623 data_3d_idx = NaN;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	624 for i = 1:nc
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	625 xcol = obj.xdata(:,i);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	626 ycol = obj.ydata(:,i);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	627 if (nd == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	628 if (! isempty (obj.zdata))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	629 zcol = obj.zdata(:,i);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	630 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	631 zcol = zeros (size (xcol));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	632 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	633 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	634
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	635 if (! isnan (xcol) && ! isnan (ycol))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	636 ## Is the patch closed or not
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	637 if (strncmp (obj.facecolor, "none", 4))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	638 hidden_removal = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	639 else
7170 9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	640
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	641 if (isnan (hidden_removal))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	642 hidden_removal = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	643 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	644 if (nd == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	645 if (numel (xcol) > 3)
10635 d1978e7364ad Print name of function in error() string messages. Rik <octave@nomad.inbox5.com> parents: 10597 diff changeset	646 error ("__go_draw_axes__: gnuplot (as of v4.2) only supports 3D filled triangular patches");
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	647 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	648 if (isnan (data_3d_idx))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	649 data_idx++;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	650 data_3d_idx = data_idx;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	651 is_image_data(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	652 parametric(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	653 have_cdata(data_idx) = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	654 have_3d_patch(data_idx) = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	655 withclause{data_3d_idx} = sprintf ("with pm3d");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	656 usingclause{data_3d_idx} = "using 1:2:3:4";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	657 data{data_3d_idx} = [];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	658 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	659 local_idx = data_3d_idx;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	660 ccdat = NaN;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	661 endif
7170 9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	662 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	663 data_idx++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	664 local_idx = data_idx;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	665 is_image_data(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	666 parametric(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	667 have_cdata(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	668 have_3d_patch(data_idx) = false;
7170 9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	669 endif
9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	670
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	671 if (i > 1 \|\| isempty (obj.displayname))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	672 titlespec{local_idx} = "title \"\"";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	673 else
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	674 tmp = undo_string_escapes (__maybe_munge_text__ (enhanced, obj, "displayname"));
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	675 titlespec{local_idx} = cstrcat ("title \"", tmp, "\"");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	676 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	677 if (isfield (obj, "facecolor"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	678 if ((strncmp (obj.facecolor, "flat", 4)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	679 \|\| strncmp (obj.facecolor, "interp", 6))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	680 && isfield (obj, "cdata"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	681 if (ndims (obj.cdata) == 2
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	682 && (size (obj.cdata, 2) == nc
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	683 && (size (obj.cdata, 1) == 1
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	684 \|\| size (obj.cdata, 1) == 3)))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	685 ccol = cdat (:, i);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	686 elseif (ndims (obj.cdata) == 2
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	687 && (size (obj.cdata, 1) == nc
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	688 && (size (obj.cdata, 2) == 1
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	689 \|\| size (obj.cdata, 2) == 3)))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	690 ccol = cdat (i, :);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	691 elseif (ndims (obj.cdata) == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	692 ccol = permute (cdat (:, i, :), [1, 3, 2]);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	693 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	694 ccol = cdat;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	695 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	696 if (strncmp (obj.facecolor, "flat", 4))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	697 if (numel(ccol) == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	698 color = ccol;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	699 elseif (nd == 3 && numel (xcol) == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	700 ccdat = ccol * ones (3,1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	701 else
13299 e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	702 if (cdatadirect)
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	703 r = round (ccol);
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	704 else
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	705 r = 1 + round ((size (cmap, 1) - 1)
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	706 * (ccol - clim(1))/(clim(2) - clim(1)));
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	707 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	708 r = max (1, min (r, size (cmap, 1)));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	709 color = cmap(r, :);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	710 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	711 elseif (strncmp (obj.facecolor, "interp", 6))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	712 if (nd == 3 && numel (xcol) == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	713 ccdat = ccol;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	714 if (! isvector (ccdat))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	715 tmp = rows(cmap) + rows(addedcmap) + ...
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	716 [1 : rows(ccdat)];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	717 addedcmap = [addedcmap; ccdat];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	718 ccdat = tmp(:);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	719 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	720 ccdat = ccdat(:);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	721 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	722 else
13299 e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	723 if (sum (diff (ccol)))
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	724 warning ("\"interp\" not supported, using 1st entry of cdata");
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	725 endif
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	726 if (cdatadirect)
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	727 r = round (ccol);
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	728 else
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	729 r = 1 + round ((size (cmap, 1) - 1)
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	730 * (ccol - clim(1))/(clim(2) - clim(1)));
e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	731 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	732 r = max (1, min (r, size (cmap, 1)));
13299 e9f6a6edec42 Improvements to patch() and fix for bugs reported in #34417. Ben Abbott <bpabbott@mac.com> parents: 13216 diff changeset	733 color = cmap(r(1),:);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	734 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	735 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	736 elseif (isnumeric (obj.facecolor))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	737 color = obj.facecolor;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	738 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	739 color = [0, 1, 0];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	740 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	741 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	742 color = [0, 1, 0];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	743 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	744
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	745 if (nd == 3 && numel (xcol) == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	746 if (isnan (ccdat))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	747 ccdat = (rows (cmap) + rows(addedcmap) + 1) * ones(3, 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	748 addedcmap = [addedcmap; reshape(color, 1, 3)];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	749 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	750 data{data_3d_idx} = [data{data_3d_idx}, ...
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	751 [[xcol; xcol(end)], [ycol; ycol(end)], ...
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	752 [zcol; zcol(end)], [ccdat; ccdat(end)]]'];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	753 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	754 if (mono)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	755 colorspec = "";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	756 elseif (__gnuplot_has_feature__ ("transparent_patches")
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	757 && isscalar (obj.facealpha))
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: 9098 diff changeset	758 colorspec = sprintf ("lc rgb \"#%02x%02x%02x\" fillstyle transparent solid %f",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	759 round (255*color), obj.facealpha);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	760 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	761 colorspec = sprintf ("lc rgb \"#%02x%02x%02x\"",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	762 round (255*color));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	763 endif
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: 9098 diff changeset	764
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	765 withclause{data_idx} = sprintf ("with filledcurve %s",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	766 colorspec);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	767 data{data_idx} = [xcol, ycol]';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	768 usingclause{data_idx} = sprintf ("record=%d using ($1):($2)",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	769 numel (xcol));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	770 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	771 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	772 endif
7170 9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	773
9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	774 ## patch outline
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	775 if (!(strncmp (obj.edgecolor, "none", 4)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	776 && (strncmp (obj.marker, "none", 4)
11164 254a87b40f60 Don't plot patch outlines with the gnuplot backend if the marker property is set to none. Fixes contourf(peaks(),'edgecolor','none') David Bateman <dbateman@free.fr> parents: 11163 diff changeset	777 \|\| (strncmp (obj.markeredgecolor, "none", 4)
254a87b40f60 Don't plot patch outlines with the gnuplot backend if the marker property is set to none. Fixes contourf(peaks(),'edgecolor','none') David Bateman <dbateman@free.fr> parents: 11163 diff changeset	778 && strncmp (obj.markerfacecolor, "none", 4)))))
7170 9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	779
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	780 data_idx++;
7170 9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	781 is_image_data(data_idx) = false;
9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	782 parametric(data_idx) = false;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	783 have_cdata(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	784 have_3d_patch(data_idx) = false;
7170 9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	785 titlespec{data_idx} = "title \"\"";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	786 usingclause{data_idx} = sprintf ("record=%d", numel (obj.xdata));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	787
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	788 if (isfield (obj, "markersize"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	789 mdat = obj.markersize / 3;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	790 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	791
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	792 if (isfield (obj, "edgecolor"))
10135 4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	793 ## FIXME
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	794 ## This is the wrong thing to do as edgecolor, markeredgecolor
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	795 ## and markerfacecolor can have different values and we should
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	796 ## treat them seperately. However, the below allow the scatter
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	797 ## functions to work as expected, where only one of these values
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	798 ## is set
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	799 if (strncmp (obj.edgecolor, "none", 4))
10135 4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	800 if (strncmp (obj.markeredgecolor, "none", 4))
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	801 ec = obj.markerfacecolor;
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	802 else
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	803 ec = obj.markeredgecolor;
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	804 endif
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	805 else
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	806 ec = obj.edgecolor;
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	807 endif
4516a0c97ced Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter. David Bateman <dbateman@free.fr> parents: 10121 diff changeset	808
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	809 if ((strncmp (ec, "flat", 4)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	810 \|\| strncmp (ec, "interp", 6))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	811 && isfield (obj, "cdata"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	812 if (ndims (obj.cdata) == 2
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	813 && (size (obj.cdata, 2) == nc
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	814 && (size (obj.cdata, 1) == 1
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	815 \|\| size (obj.cdata, 1) == 3)))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	816 ccol = cdat (:, i);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	817 elseif (ndims (obj.cdata) == 2
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	818 && (size (obj.cdata, 1) == nc
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	819 && (size (obj.cdata, 2) == 1
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	820 \|\| size (obj.cdata, 2) == 3)))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	821 ccol = cdat (i, :);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	822 elseif (ndims (obj.cdata) == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	823 ccol = permute (cdat (:, i, :), [1, 3, 2]);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	824 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	825 ccol = cdat;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	826 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	827 if (strncmp (ec, "flat", 4))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	828 if (numel(ccol) == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	829 color = ccol;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	830 else
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	831 if (isscalar (ccol))
8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	832 ccol = repmat(ccol, numel (xcol), 1);
8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	833 endif
8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	834 color = "flat";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	835 have_cdata(data_idx) = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	836 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	837 elseif (strncmp (ec, "interp", 6))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	838 if (numel(ccol) == 3)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	839 warning ("\"interp\" not supported, using 1st entry of cdata");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	840 color = ccol(1,:);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	841 else
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	842 if (isscalar (ccol))
8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	843 ccol = repmat(ccol, numel (xcol), 1);
8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	844 endif
8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	845 color = "interp";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	846 have_cdata(data_idx) = true;
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	847 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	848 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	849 elseif (isnumeric (ec))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	850 color = ec;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	851 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	852 color = [0, 0, 0];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	853 endif
7020 e31f12bb9194 [project @ 2007-10-13 05:13:28 by dbateman] dbateman parents: 7017 diff changeset	854 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	855 color = [0, 0, 0];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	856 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	857
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	858 if (isfield (obj, "linestyle"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	859 switch (obj.linestyle)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	860 case "-"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	861 lt = "lt 1";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	862 case "--"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	863 lt = "lt 2";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	864 case ":"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	865 lt = "lt 3";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	866 case "-."
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	867 lt = "lt 6";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	868 case "none"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	869 lt = "";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	870 otherwise
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	871 lt = "";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	872 endswitch
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	873 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	874 lt = "";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	875 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	876
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	877 if (isfield (obj, "linewidth"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	878 lw = sprintf("linewidth %f", obj.linewidth);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	879 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	880 lw = "";
7020 e31f12bb9194 [project @ 2007-10-13 05:13:28 by dbateman] dbateman parents: 7017 diff changeset	881 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	882
10933 e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	883 [pt, pt2, obj] = gnuplot_pointtype (obj);
10929 004fd6d6b7e9 __go_draw_axes__.m: Fix pointtype for patches. Ben Abbott <bpabbott@mac.com> parents: 10925 diff changeset	884 if (! isempty (pt))
004fd6d6b7e9 __go_draw_axes__.m: Fix pointtype for patches. Ben Abbott <bpabbott@mac.com> parents: 10925 diff changeset	885 pt = sprintf ("pointtype %s", pt);
10930 b0f2b9a2b681 __go_draw_axes__.m: Additional pointtype fix. Ben Abbott <bpabbott@mac.com> parents: 10929 diff changeset	886 endif
b0f2b9a2b681 __go_draw_axes__.m: Additional pointtype fix. Ben Abbott <bpabbott@mac.com> parents: 10929 diff changeset	887 if (! isempty (pt2))
10929 004fd6d6b7e9 __go_draw_axes__.m: Fix pointtype for patches. Ben Abbott <bpabbott@mac.com> parents: 10925 diff changeset	888 pt2 = sprintf ("pointtype %s", pt2);
004fd6d6b7e9 __go_draw_axes__.m: Fix pointtype for patches. Ben Abbott <bpabbott@mac.com> parents: 10925 diff changeset	889 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	890
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	891 if (mono)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	892 colorspec = "";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	893 else
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	894 if (ischar (color))
8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	895 colorspec = "palette";
8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	896 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	897 colorspec = sprintf ("lc rgb \"#%02x%02x%02x\"",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	898 round (255*color));
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	899 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	900 endif
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	901
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	902 sidx = 1;
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	903 if (isempty (lt))
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	904 style = "";
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	905 else
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	906 style = "lines";
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	907 endif
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	908 tmpwith = {};
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	909
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	910 facesame = true;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	911 if (! isequal (pt, pt2) && isfield (obj, "markerfacecolor")
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	912 && !strncmp (obj.markerfacecolor, "none", 4))
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	913 if (strncmp (obj.markerfacecolor, "auto", 4)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	914 \|\| ! isnumeric (obj.markerfacecolor)
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	915 \|\| (isnumeric (obj.markerfacecolor)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	916 && isequal (color, obj.markerfacecolor)))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	917 style = strcat (style, "points");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	918 if (isfield (obj, "markersize"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	919 if (length (mdat) == nc)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	920 m = mdat(i);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	921 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	922 m = mdat;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	923 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	924 ps = sprintf("pointsize %f", m / 3);
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	925 else
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	926 ps = "";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	927 endif
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	928
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	929 tmpwith{sidx} = sprintf ("with %s %s %s %s %s %s",
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	930 style, lw, pt2, lt, ps,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	931 colorspec);
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	932 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	933 facesame = false;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	934 if (! isempty (style))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	935 tmpwith{sidx} = sprintf ("with %s %s %s %s",
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	936 style, lw, lt,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	937 colorspec);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	938 sidx ++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	939 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	940 if (isnumeric (obj.markerfacecolor) && ! mono)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	941 colorspec = sprintf ("lc rgb \"#%02x%02x%02x\"",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	942 round (255*obj.markerfacecolor));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	943 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	944 style = "points";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	945 if (isfield (obj, "markersize"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	946 if (length (mdat) == nc)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	947 m = mdat(i);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	948 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	949 m = mdat;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	950 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	951 ps = sprintf("pointsize %f", m / 3);
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	952 else
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	953 ps = "";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	954 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	955 tmpwith{sidx} = sprintf ("with %s %s %s %s %s %s",
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	956 style, lw, pt2, lt, ps,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	957 colorspec);
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	958 endif
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	959 endif
6790 f1157da78825 [project @ 2007-07-24 19:02:27 by jwe] jwe parents: 6788 diff changeset	960
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	961 if (isfield (obj, "markeredgecolor")
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	962 && !strncmp (obj.markeredgecolor, "none", 4))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	963 if (facesame && !isempty (pt)
10137 cf6a01e0e93f Fix unrequested markers for patch objects David Bateman <dbateman@free.fr> parents: 10135 diff changeset	964 && (strncmp (obj.markeredgecolor, "auto", 4)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	965 \|\| ! isnumeric (obj.markeredgecolor)
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	966 \|\| (isnumeric (obj.markeredgecolor)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	967 && isequal (color, obj.markeredgecolor))))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	968 if (sidx == 1 && ((length (style) == 5
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	969 && strncmp (style, "lines", 5))
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	970 \|\| isempty (style)))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	971 style = strcat (style, "points");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	972 if (isfield (obj, "markersize"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	973 if (length (mdat) == nc)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	974 m = mdat(i);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	975 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	976 m = mdat;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	977 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	978 ps = sprintf("pointsize %f", m / 3);
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	979 else
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	980 ps = "";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	981 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	982 tmpwith{sidx} = sprintf ("with %s %s %s %s %s %s",
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	983 style, lw, pt, lt, ps,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	984 colorspec);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	985 endif
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	986 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	987 if (!isempty (style))
10137 cf6a01e0e93f Fix unrequested markers for patch objects David Bateman <dbateman@free.fr> parents: 10135 diff changeset	988 if (length(tmpwith) < sidx \|\| isempty (tmpwith{sidx}))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	989 tmpwith{sidx} = sprintf ("with %s %s %s %s",
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	990 style, lw, lt,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	991 colorspec);
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	992 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	993 sidx ++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	994 endif
10137 cf6a01e0e93f Fix unrequested markers for patch objects David Bateman <dbateman@free.fr> parents: 10135 diff changeset	995
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	996 if (!isempty (pt))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	997 if (! mono)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	998 if (strncmp (obj.markeredgecolor, "auto", 4))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	999 colorspec = sprintf ("lc rgb \"#%02x%02x%02x\"",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1000 round (255*color));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1001 elseif (isnumeric (obj.markeredgecolor) && ! mono)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1002 colorspec = sprintf ("lc rgb \"#%02x%02x%02x\"",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1003 round (255*obj.markeredgecolor));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1004 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1005 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1006 style = "points";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1007 if (isfield (obj, "markersize"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1008 if (length (mdat) == nc)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1009 m = mdat(i);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1010 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1011 m = mdat;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1012 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1013 ps = sprintf("pointsize %f", m / 3);
10137 cf6a01e0e93f Fix unrequested markers for patch objects David Bateman <dbateman@free.fr> parents: 10135 diff changeset	1014 else
cf6a01e0e93f Fix unrequested markers for patch objects David Bateman <dbateman@free.fr> parents: 10135 diff changeset	1015 ps = "";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1016 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1017 tmpwith{sidx} = sprintf ("with %s %s %s %s %s %s",
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1018 style, lw, pt, lt, ps,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1019 colorspec);
10137 cf6a01e0e93f Fix unrequested markers for patch objects David Bateman <dbateman@free.fr> parents: 10135 diff changeset	1020 endif
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	1021 endif
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	1022 endif
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	1023
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	1024 if (isempty (tmpwith))
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	1025 withclause{data_idx} = sprintf ("with %s %s %s %s %s",
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1026 style, lw, pt, lt,
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	1027 colorspec);
dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	1028 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1029 withclause{data_idx} = tmpwith{1};
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	1030 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1031 if (nd == 3)
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	1032 if (ischar (color))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1033 if (! isnan (xcol) && ! isnan (ycol) && ! isnan (zcol))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1034 data{data_idx} = [[xcol; xcol(1)], [ycol; ycol(1)], ...
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1035 [zcol; zcol(1)], [ccol; ccol(1)]]';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1036 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1037 data{data_idx} = [xcol, ycol, zcol, ccol]';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1038 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1039 usingclause{data_idx} = sprintf ("record=%d using ($1):($2):($3):($4)", columns (data{data_idx}));
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	1040 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1041 if (! isnan (xcol) && ! isnan (ycol) && ! isnan (zcol))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1042 data{data_idx} = [[xcol; xcol(1)], [ycol; ycol(1)], ...
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1043 [zcol; zcol(1)]]';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1044 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1045 data{data_idx} = [xcol, ycol, zcol]';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1046 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1047 usingclause{data_idx} = sprintf ("record=%d using ($1):($2):($3)", columns (data{data_idx}));
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	1048 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1049 else
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	1050 if (ischar (color))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1051 if (! isnan (xcol) && ! isnan (ycol))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1052 data{data_idx} = [[xcol; xcol(1)], [ycol; ycol(1)], ...
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	1053 [ccol; ccol(1)]]';
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1054 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1055 data{data_idx} = [xcol, ycol, ccol]';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1056 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1057 usingclause{data_idx} = sprintf ("record=%d using ($1):($2):($3)", columns (data{data_idx}));
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	1058 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1059 if (! isnan (xcol) && ! isnan (ycol))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1060 data{data_idx} = [[xcol; xcol(1)], [ycol; ycol(1)]]';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1061 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1062 data{data_idx} = [xcol, ycol]';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1063 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1064 usingclause{data_idx} = sprintf ("record=%d using ($1):($2)", columns (data{data_idx}));
10236 8e58c402ebb2 Accelerate colormap colored scatter plots David Bateman <dbateman@free.fr> parents: 10226 diff changeset	1065 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1066 endif
10089 dd70982c81a3 Allow markerfacecolor and markeredgecolor to be set and used for patch objects David Bateman <dbateman@free.fr> parents: 9793 diff changeset	1067
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1068 if (length (tmpwith) > 1)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1069 data_idx++;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1070 is_image_data(data_idx) = is_image_data(data_idx - 1);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1071 parametric(data_idx) = parametric(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1072 have_cdata(data_idx) = have_cdata(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1073 have_3d_patch(data_idx) = have_3d_patch(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1074 titlespec{data_idx} = "title \"\"";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1075 usingclause{data_idx} = usingclause{data_idx - 1};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1076 data{data_idx} = data{data_idx - 1};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1077 withclause{data_idx} = tmpwith{2};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1078 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1079 if (length (tmpwith) > 2)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1080 data_idx++;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1081 is_image_data(data_idx) = is_image_data(data_idx - 1);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1082 parametric(data_idx) = parametric(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1083 have_cdata(data_idx) = have_cdata(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1084 have_3d_patch(data_idx) = have_3d_patch(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1085 titlespec{data_idx} = "title \"\"";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1086 usingclause{data_idx} = usingclause{data_idx - 1};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1087 data{data_idx} = data{data_idx - 1};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1088 withclause{data_idx} = tmpwith{3};
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1089 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1090 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1091 endfor
6790 f1157da78825 [project @ 2007-07-24 19:02:27 by jwe] jwe parents: 6788 diff changeset	1092
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1093 case "surface"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1094 view_map = true;
7110 0e63f1126f01 [project @ 2007-11-06 22:36:22 by jwe] jwe parents: 7109 diff changeset	1095 if (! (strncmp (obj.edgecolor, "none", 4)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1096 && strncmp (obj.facecolor, "none", 4)))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1097 data_idx++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1098 is_image_data(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1099 parametric(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1100 have_cdata(data_idx) = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1101 have_3d_patch(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1102 style = do_linestyle_command (obj, obj.edgecolor,
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1103 data_idx, mono,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1104 plot_stream);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1105
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1106 if (isempty (obj.displayname))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1107 titlespec{data_idx} = "title \"\"";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1108 else
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1109 tmp = undo_string_escapes (__maybe_munge_text__ (enhanced, obj, "displayname"));
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1110 titlespec{data_idx} = cstrcat ("title \"", tmp, "\"");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1111 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1112 withclause{data_idx} = sprintf ("with pm3d linestyle %d",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1113 data_idx);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1114 withpm3d = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1115 pm3didx = data_idx;
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1116
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1117 xdat = obj.xdata;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1118 ydat = obj.ydata;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1119 zdat = obj.zdata;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1120 cdat = obj.cdata;
7110 0e63f1126f01 [project @ 2007-11-06 22:36:22 by jwe] jwe parents: 7109 diff changeset	1121
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1122 err = false;
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1123 if (! size_equal(zdat, cdat))
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1124 err = true;
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1125 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1126 if (isvector (xdat) && isvector (ydat) && ismatrix (zdat))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1127 if (rows (zdat) == length (ydat)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1128 && columns (zdat) == length (xdat))
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1129 [xdat, ydat] = meshgrid (xdat, ydat);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1130 else
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1131 err = true;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1132 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1133 elseif (ismatrix (xdat) && ismatrix (ydat) && ismatrix (zdat))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1134 if (! size_equal (xdat, ydat, zdat))
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1135 err = true;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1136 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1137 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1138 err = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1139 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1140 if (err)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1141 error ("__go_draw_axes__: invalid grid data");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1142 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1143 xlen = columns (zdat);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1144 ylen = rows (zdat);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1145 if (xlen == columns (xdat) && xlen == columns (ydat)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1146 && ylen == rows (xdat) && ylen == rows (ydat))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1147 len = 4 * xlen;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1148 zz = zeros (ylen, len);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1149 k = 1;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1150 for kk = 1:4:len
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1151 zz(:,kk) = xdat(:,k);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1152 zz(:,kk+1) = ydat(:,k);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1153 zz(:,kk+2) = zdat(:,k);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1154 zz(:,kk+3) = cdat(:,k);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1155 k++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1156 endfor
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1157 data{data_idx} = zz.';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1158 endif
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1159
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1160 if (doing_interp_color)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1161 interp_str = "interpolate 0, 0";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1162 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1163 ## No interpolation of facecolors.
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1164 interp_str = "";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1165 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1166 usingclause{data_idx} = sprintf ("record=%dx%d using ($1):($2):($3):($4)", ylen, xlen);
8166 4024fc815f8d __go_draw_axes__.m: Fix interpolation of facecolors. Ben Abbott <bpabbott@mac.com> parents: 8164 diff changeset	1167
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1168 flat_interp_face = (strncmp (obj.facecolor, "flat", 4)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1169 \|\| strncmp (obj.facecolor, "interp", 6));
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1170 flat_interp_edge = (strncmp (obj.edgecolor, "flat", 4)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1171 \|\| strncmp (obj.edgecolor, "interp", 6));
7154 89a929a3ebfd [project @ 2007-11-09 21:28:46 by jwe] jwe parents: 7152 diff changeset	1172
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1173 facecolor_none_or_white = (strncmp (obj.facecolor, "none", 4)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1174 \|\| (isnumeric (obj.facecolor)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1175 && all (obj.facecolor == 1)));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1176 hidden_removal = false;
7592 bf704d1c5e43 Bug fix, set splot user style to default kai@linux-pc parents: 7583 diff changeset	1177 fputs (plot_stream, "set style increment default;\n");
7318 5c8f09c7a020 [project @ 2007-12-17 19:02:13 by jwe] jwe parents: 7317 diff changeset	1178 if (flat_interp_edge && facecolor_none_or_white)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1179 withpm3d = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1180 withclause{data_idx} = sprintf ("with %s palette", style {1});
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1181 fputs (plot_stream, "unset pm3d\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1182 if (all (obj.facecolor == 1))
7592 bf704d1c5e43 Bug fix, set splot user style to default kai@linux-pc parents: 7583 diff changeset	1183 hidden_removal = true;
7582 3ec654f16820 Improvements for surface plots kai@linux-pc parents: 7569 diff changeset	1184 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1185 elseif (facecolor_none_or_white)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1186 if (all (obj.facecolor == 1))
8164 0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	1187 hidden_removal = true;
0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	1188 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1189 fputs(plot_stream,"unset pm3d;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1190 fputs(plot_stream,"set style increment user;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1191 withpm3d = false;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1192 withclause{data_idx} = sprintf("with %s linestyle %d",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1193 style{1}, data_idx);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1194 fputs (plot_stream, "unset pm3d\n");
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1195 endif
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1196
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1197 if (doing_interp_color)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1198 ## "depthorder" interferes with interpolation of colors.
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1199 dord = "scansautomatic";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1200 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1201 dord = "depthorder";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1202 endif
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1203
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1204 if (flat_interp_face && strncmp (obj.edgecolor, "flat", 4))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1205 fprintf (plot_stream, "set pm3d explicit at s %s %s corners2color c3;\n",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1206 interp_str, dord);
7318 5c8f09c7a020 [project @ 2007-12-17 19:02:13 by jwe] jwe parents: 7317 diff changeset	1207 elseif (!facecolor_none_or_white)
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1208 if (strncmp (obj.edgecolor, "none", 4))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1209 if (__gnuplot_has_feature__ ("transparent_surface")
8645 579f1f54cc3a Add support for transparent surfaces Kai Habel parents: 8633 diff changeset	1210 && isscalar (obj.facealpha))
579f1f54cc3a Add support for transparent surfaces Kai Habel parents: 8633 diff changeset	1211 fprintf (plot_stream,
579f1f54cc3a Add support for transparent surfaces Kai Habel parents: 8633 diff changeset	1212 "set style fill transparent solid %f;\n",
579f1f54cc3a Add support for transparent surfaces Kai Habel parents: 8633 diff changeset	1213 obj.facealpha);
579f1f54cc3a Add support for transparent surfaces Kai Habel parents: 8633 diff changeset	1214 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1215 fprintf (plot_stream, "set pm3d explicit at s %s corners2color c3;\n",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1216 interp_str, dord);
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1217 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1218 fprintf (plot_stream, "set pm3d explicit at s hidden3d %d %s %s corners2color c3;\n",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1219 data_idx, interp_str, dord);
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1220
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1221 if (__gnuplot_has_feature__ ("transparent_surface")
8645 579f1f54cc3a Add support for transparent surfaces Kai Habel parents: 8633 diff changeset	1222 && isscalar (obj.facealpha))
579f1f54cc3a Add support for transparent surfaces Kai Habel parents: 8633 diff changeset	1223 fprintf (plot_stream,
579f1f54cc3a Add support for transparent surfaces Kai Habel parents: 8633 diff changeset	1224 "set style fill transparent solid %f;\n",
579f1f54cc3a Add support for transparent surfaces Kai Habel parents: 8633 diff changeset	1225 obj.facealpha);
579f1f54cc3a Add support for transparent surfaces Kai Habel parents: 8633 diff changeset	1226 endif
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1227 endif
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1228 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1229
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1230 zz = [];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1231 if (length (style) > 1)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1232 len = 3 * xlen;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1233 zz = zeros (ylen, len);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1234 k = 1;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1235 for kk = 1:3:len
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1236 zz(:,kk) = xdat(:,k);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1237 zz(:,kk+1) = ydat(:,k);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1238 zz(:,kk+2) = zdat(:,k);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1239 k++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1240 endfor
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1241 zz = zz.';
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1242
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1243 data_idx++;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1244 is_image_data(data_idx) = is_image_data(data_idx - 1);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1245 parametric(data_idx) = parametric(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1246 have_cdata(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1247 have_3d_patch(data_idx) = have_3d_patch(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1248 titlespec{data_idx} = "title \"\"";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1249 usingclause{data_idx} = sprintf ("record=%dx%d using ($1):($2):($3)", ylen, xlen);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1250 data{data_idx} = zz;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1251 withclause{data_idx} = sprintf ("with %s linestyle %d",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1252 style{2}, data_idx);
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1253
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1254 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1255 if (length (style) > 2)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1256 data_idx++;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1257 is_image_data(data_idx) = is_image_data(data_idx - 1);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1258 parametric(data_idx) = parametric(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1259 have_cdata(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1260 have_3d_patch(data_idx) = have_3d_patch(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1261 titlespec{data_idx} = "title \"\"";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1262 usingclause{data_idx} = sprintf ("record=%dx%d using ($1):($2):($3)", ylen, xlen);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1263 data{data_idx} = zz;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1264 withclause{data_idx} = sprintf ("with %s linestyle %d",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1265 style{3}, data_idx);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1266 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1267 if (withpm3d && strncmp (style {1}, "linespoints", 11))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1268 if (isempty(zz))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1269 len = 3 * xlen;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1270 zz = zeros (ylen, len);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1271 k = 1;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1272 for kk = 1:3:len
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1273 zz(:,kk) = xdat(:,k);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1274 zz(:,kk+1) = ydat(:,k);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1275 zz(:,kk+2) = zdat(:,k);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1276 k++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1277 endfor
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1278 zz = zz.';
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1279 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1280 data_idx++;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1281 is_image_data(data_idx) = is_image_data(data_idx - 1);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1282 parametric(data_idx) = parametric(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1283 have_cdata(data_idx) = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1284 have_3d_patch(data_idx) = have_3d_patch(data_idx - 1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1285 titlespec{data_idx} = "title \"\"";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1286 usingclause{data_idx} = sprintf ("record=%dx%d using ($1):($2):($3)", ylen, xlen);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1287 data{data_idx} = zz;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1288 withclause{data_idx} = sprintf ("with points linestyle %d",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1289 pm3didx);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1290 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1291 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1292
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1293 case "text"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1294 [label, f, s] = __maybe_munge_text__ (enhanced, obj, "string");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1295 fontspec = create_fontspec (f, s, gnuplot_term);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1296 lpos = obj.position;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1297 halign = obj.horizontalalignment;
11423 00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1298 valign = obj.verticalalignment;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1299 angle = obj.rotation;
6752 ee2ad7b5454a [project @ 2007-06-25 16:54:52 by jwe] jwe parents: 6751 diff changeset	1300 units = obj.units;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1301 color = obj.color;
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	1302 if (strcmpi (units, "normalized"))
6752 ee2ad7b5454a [project @ 2007-06-25 16:54:52 by jwe] jwe parents: 6751 diff changeset	1303 units = "graph";
10912 9abc67b4bd4f __go_draw_axes__.m: For yaxislocation == 'right' associate text position with 'second' coordinate system. Ben Abbott <bpabbott@mac.com> parents: 10911 diff changeset	1304 elseif (strcmp (axis_obj.yaxislocation, "right")
9abc67b4bd4f __go_draw_axes__.m: For yaxislocation == 'right' associate text position with 'second' coordinate system. Ben Abbott <bpabbott@mac.com> parents: 10911 diff changeset	1305 && strcmp (units, "data"))
9abc67b4bd4f __go_draw_axes__.m: For yaxislocation == 'right' associate text position with 'second' coordinate system. Ben Abbott <bpabbott@mac.com> parents: 10911 diff changeset	1306 units = "second";
6752 ee2ad7b5454a [project @ 2007-06-25 16:54:52 by jwe] jwe parents: 6751 diff changeset	1307 else
ee2ad7b5454a [project @ 2007-06-25 16:54:52 by jwe] jwe parents: 6751 diff changeset	1308 units = "";
ee2ad7b5454a [project @ 2007-06-25 16:54:52 by jwe] jwe parents: 6751 diff changeset	1309 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1310
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1311 if (isnumeric (color))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1312 colorspec = get_text_colorspec (color, mono);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1313 endif
6829 6c85f7d37e61 [project @ 2007-08-24 20:23:21 by dbateman] dbateman parents: 6809 diff changeset	1314
12965 22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	1315 if (ischar (obj.string))
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	1316 num_lines = size (obj.string, 1);
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	1317 else
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	1318 num_lines = numel (obj.string);
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	1319 endif
11423 00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1320 switch valign
00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1321 ## Text offset in characters. This relies on gnuplot for font metrics.
00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1322 case "top"
00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1323 dy = -0.5;
00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1324 case "cap"
00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1325 dy = -0.5;
00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1326 case "middle"
12965 22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	1327 dy = 0.5 * (num_lines - 1);
11423 00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1328 case "baseline"
12965 22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	1329 dy = 0.5 + (num_lines - 1);
11423 00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1330 case "bottom"
12965 22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	1331 dy = 0.5 + (num_lines - 1);
11423 00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1332 endswitch
00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1333 ## Gnuplot's Character units are different for x/y and vary with fontsize. The aspect ratio
11425 395945a58c24 __go_draw_axes__.m: Tweak vertical alignment of text objects for gnuplot to favor eps/ps output. Ben Abbott <bpabbott@mac.com> parents: 11423 diff changeset	1334 ## of 1:1.7 was determined by experiment to work for eps/ps/etc. For the MacOS aqua terminal
395945a58c24 __go_draw_axes__.m: Tweak vertical alignment of text objects for gnuplot to favor eps/ps output. Ben Abbott <bpabbott@mac.com> parents: 11423 diff changeset	1335 ## a value of 2.5 is needed. However, the difference is barely noticable.
395945a58c24 __go_draw_axes__.m: Tweak vertical alignment of text objects for gnuplot to favor eps/ps output. Ben Abbott <bpabbott@mac.com> parents: 11423 diff changeset	1336 dx_and_dy = [(-dy * sind (angle)), (dy * cosd(angle))] .* [1.7 1];
11423 00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1337
12965 22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	1338 ## FIXME - Multiline text produced the gnuplot "warning: ft_render: skipping glyph"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1339 if (nd == 3)
11423 00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1340 ## This produces the desired vertical alignment in 3D.
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1341 fprintf (plot_stream,
12677 bedd0cdb3584 Fix integer overflow when using text() with large x,y values (bug #33059) David Finkel david.finkel@gmail.com parents: 12462 diff changeset	1342 "set label \"%s\" at %s %.15e,%.15e,%.15e %s rotate by %f offset character %f,%f %s %s front %s;\n",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1343 undo_string_escapes (label), units, lpos(1),
11423 00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1344 lpos(2), lpos(3), halign, angle, dx_and_dy, fontspec,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1345 __do_enhanced_option__ (enhanced, obj), colorspec);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1346 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1347 fprintf (plot_stream,
12677 bedd0cdb3584 Fix integer overflow when using text() with large x,y values (bug #33059) David Finkel david.finkel@gmail.com parents: 12462 diff changeset	1348 "set label \"%s\" at %s %.15e,%.15e %s rotate by %f offset character %f,%f %s %s front %s;\n",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1349 undo_string_escapes (label), units,
11423 00b0aa8d539e __go_draw_axes__.m: Enable vertical alignment of text objects for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11334 diff changeset	1350 lpos(1), lpos(2), halign, angle, dx_and_dy, fontspec,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1351 __do_enhanced_option__ (enhanced, obj), colorspec);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1352 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1353
7865 b74039822fd2 Add support for hggroup Michael Goffioul <michael.goffioul@gmail.com> parents: 7726 diff changeset	1354 case "hggroup"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1355 ## Push group children into the kid list.
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1356 if (isempty (kids))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1357 kids = obj.children;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1358 elseif (! isempty (obj.children))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1359 kids = [kids; obj.children];
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1360 endif
7865 b74039822fd2 Add support for hggroup Michael Goffioul <michael.goffioul@gmail.com> parents: 7726 diff changeset	1361
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1362 otherwise
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1363 error ("__go_draw_axes__: unknown object class, %s",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1364 obj.type);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1365 endswitch
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1366
7865 b74039822fd2 Add support for hggroup Michael Goffioul <michael.goffioul@gmail.com> parents: 7726 diff changeset	1367 endwhile
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1368
7692 da1f4bc7cbe8 Conditionally set 'set pm3d implicit' David Bateman <dbateman@free.fr> parents: 7676 diff changeset	1369 ## This is need to prevent warnings for rotations in 3D plots, while
8506 bc982528de11 comment style fixes John W. Eaton <jwe@octave.org> parents: 8360 diff changeset	1370 ## allowing colorbars with contours.
8042 827d4f24ec6c Fix for meshed surfaces with more than one oobject per plot David Bateman <dbateman@free.fr> parents: 7930 diff changeset	1371 if (nd == 2 \|\| (data_idx > 1 && !view_map))
7692 da1f4bc7cbe8 Conditionally set 'set pm3d implicit' David Bateman <dbateman@free.fr> parents: 7676 diff changeset	1372 fputs (plot_stream, "set pm3d implicit;\n");
da1f4bc7cbe8 Conditionally set 'set pm3d implicit' David Bateman <dbateman@free.fr> parents: 7676 diff changeset	1373 else
da1f4bc7cbe8 Conditionally set 'set pm3d implicit' David Bateman <dbateman@free.fr> parents: 7676 diff changeset	1374 fputs (plot_stream, "set pm3d explicit;\n");
da1f4bc7cbe8 Conditionally set 'set pm3d implicit' David Bateman <dbateman@free.fr> parents: 7676 diff changeset	1375 endif
da1f4bc7cbe8 Conditionally set 'set pm3d implicit' David Bateman <dbateman@free.fr> parents: 7676 diff changeset	1376
7175 5ff4da7bd2e7 [project @ 2007-11-14 20:36:48 by jwe] jwe parents: 7170 diff changeset	1377 if (isnan(hidden_removal) \|\| hidden_removal)
7149 5c121a8b40b5 [project @ 2007-11-09 18:15:39 by jwe] jwe parents: 7148 diff changeset	1378 fputs (plot_stream, "set hidden3d;\n");
5c121a8b40b5 [project @ 2007-11-09 18:15:39 by jwe] jwe parents: 7148 diff changeset	1379 else
5c121a8b40b5 [project @ 2007-11-09 18:15:39 by jwe] jwe parents: 7148 diff changeset	1380 fputs (plot_stream, "unset hidden3d;\n");
5c121a8b40b5 [project @ 2007-11-09 18:15:39 by jwe] jwe parents: 7148 diff changeset	1381 endif
5c121a8b40b5 [project @ 2007-11-09 18:15:39 by jwe] jwe parents: 7148 diff changeset	1382
12931 cefd568ea073 Replace function handles with function names in cellfun calls for 15% speedup. Rik <octave@nomad.inbox5.com> parents: 12793 diff changeset	1383 have_data = (! (isempty (data) \|\| all (cellfun ("isempty", data))));
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1384
8208 f6ca8ff51818 [mq]: graphics-backend John W. Eaton <jwe@octave.org> parents: 8190 diff changeset	1385 ## Note we don't use the [xy]2range of gnuplot as we don't use the
8506 bc982528de11 comment style fixes John W. Eaton <jwe@octave.org> parents: 8360 diff changeset	1386 ## dual axis plotting features of gnuplot.
7222 dd8b3bbeeaf9 [project @ 2007-11-30 06:23:25 by jwe] jwe parents: 7220 diff changeset	1387 if (isempty (xlim))
dd8b3bbeeaf9 [project @ 2007-11-30 06:23:25 by jwe] jwe parents: 7220 diff changeset	1388 return;
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1389 endif
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	1390 if (strcmpi (axis_obj.xdir, "reverse"))
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1391 xdir = "reverse";
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1392 else
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1393 xdir = "noreverse";
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1394 endif
8208 f6ca8ff51818 [mq]: graphics-backend John W. Eaton <jwe@octave.org> parents: 8190 diff changeset	1395 fprintf (plot_stream, "set xrange [%.15e:%.15e] %s;\n", xlim, xdir);
9281 02b16eeb3167 Fix yticklabels for log scale colorbar. Ben Abbott <bpabbott@mac.com> parents: 9280 diff changeset	1396 if (strcmpi (axis_obj.xaxislocation, "top"))
02b16eeb3167 Fix yticklabels for log scale colorbar. Ben Abbott <bpabbott@mac.com> parents: 9280 diff changeset	1397 fprintf (plot_stream, "set x2range [%.15e:%.15e] %s;\n", xlim, xdir);
02b16eeb3167 Fix yticklabels for log scale colorbar. Ben Abbott <bpabbott@mac.com> parents: 9280 diff changeset	1398 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1399
7222 dd8b3bbeeaf9 [project @ 2007-11-30 06:23:25 by jwe] jwe parents: 7220 diff changeset	1400 if (isempty (ylim))
dd8b3bbeeaf9 [project @ 2007-11-30 06:23:25 by jwe] jwe parents: 7220 diff changeset	1401 return;
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1402 endif
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	1403 if (strcmpi (axis_obj.ydir, "reverse"))
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1404 ydir = "reverse";
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1405 else
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1406 ydir = "noreverse";
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1407 endif
8208 f6ca8ff51818 [mq]: graphics-backend John W. Eaton <jwe@octave.org> parents: 8190 diff changeset	1408 fprintf (plot_stream, "set yrange [%.15e:%.15e] %s;\n", ylim, ydir);
9281 02b16eeb3167 Fix yticklabels for log scale colorbar. Ben Abbott <bpabbott@mac.com> parents: 9280 diff changeset	1409 if (strcmpi (axis_obj.yaxislocation, "right"))
02b16eeb3167 Fix yticklabels for log scale colorbar. Ben Abbott <bpabbott@mac.com> parents: 9280 diff changeset	1410 fprintf (plot_stream, "set y2range [%.15e:%.15e] %s;\n", ylim, ydir);
02b16eeb3167 Fix yticklabels for log scale colorbar. Ben Abbott <bpabbott@mac.com> parents: 9280 diff changeset	1411 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1412
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1413 if (nd == 3)
7222 dd8b3bbeeaf9 [project @ 2007-11-30 06:23:25 by jwe] jwe parents: 7220 diff changeset	1414 if (isempty (zlim))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1415 return;
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1416 endif
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	1417 if (strcmpi (axis_obj.zdir, "reverse"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1418 zdir = "reverse";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1419 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1420 zdir = "noreverse";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1421 endif
8171 15ffb9836c01 __go_draw_axes__.m: Remove depdenence on gnuplot version. Ben Abbott <bpabbott@mac.com> parents: 8166 diff changeset	1422 fprintf (plot_stream, "set zrange [%.15e:%.15e] %s;\n", zlim, zdir);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1423 endif
7110 0e63f1126f01 [project @ 2007-11-06 22:36:22 by jwe] jwe parents: 7109 diff changeset	1424
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1425 cmap = parent_figure_obj.colormap;
7471 86ba621332ff Implement cdatamapping and respect to to allow correct image/imagesc rendering David Bateman <dbateman@free.fr> parents: 7462 diff changeset	1426 cmap_sz = rows(cmap);
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	1427 if (! any (isinf (clim)))
7930 1f6eb3de1c4e __img__.m, imshow.m, __go_draw_axes__.m: improve handling of truecolor images John W. Eaton <jwe@octave.org> parents: 7873 diff changeset	1428 if (truecolor \|\| ! cdatadirect)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1429 if (rows(addedcmap) > 0)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1430 for i = 1:data_idx
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1431 if (have_3d_patch(i))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1432 data{i}(end,:) = clim(2) * (data{i}(end, :) - 0.5) / cmap_sz;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1433 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1434 endfor
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1435 fprintf (plot_stream, "set cbrange [%g:%g];\n", clim(1), clim(2) *
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1436 (cmap_sz + rows(addedcmap)) / cmap_sz);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1437 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1438 fprintf (plot_stream, "set cbrange [%g:%g];\n", clim);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1439 endif
7930 1f6eb3de1c4e __img__.m, imshow.m, __go_draw_axes__.m: improve handling of truecolor images John W. Eaton <jwe@octave.org> parents: 7873 diff changeset	1440 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1441 fprintf (plot_stream, "set cbrange [1:%d];\n", cmap_sz +
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1442 rows (addedcmap));
7471 86ba621332ff Implement cdatamapping and respect to to allow correct image/imagesc rendering David Bateman <dbateman@free.fr> parents: 7462 diff changeset	1443 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	1444 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	1445
6758 1894012e6b84 [project @ 2007-06-25 23:09:21 by jwe] jwe parents: 6752 diff changeset	1446 if (strcmpi (axis_obj.box, "on"))
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1447 if (nd == 3)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1448 fputs (plot_stream, "set border 4095;\n");
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1449 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1450 fputs (plot_stream, "set border 431;\n");
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1451 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1452 else
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1453 if (nd == 3)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1454 fputs (plot_stream, "set border 895;\n");
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1455 elseif (! isempty (axis_obj.ytick))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1456 if (strcmpi (axis_obj.yaxislocation, "right"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1457 fprintf (plot_stream, "unset ytics; set y2tics %s nomirror\n",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1458 axis_obj.tickdir);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1459 if (strcmpi (axis_obj.xaxislocation, "top"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1460 fprintf (plot_stream, "unset xtics; set x2tics %s nomirror\n",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1461 axis_obj.tickdir);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1462 fputs (plot_stream, "set border 12;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1463 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1464 fprintf (plot_stream, "unset x2tics; set xtics %s nomirror\n",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1465 axis_obj.tickdir);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1466 fputs (plot_stream, "set border 9;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1467 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1468 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1469 fprintf (plot_stream, "unset y2tics; set ytics %s nomirror\n",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1470 axis_obj.tickdir);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1471 if (strcmpi (axis_obj.xaxislocation, "top"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1472 fprintf (plot_stream, "unset xtics; set x2tics %s nomirror\n",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1473 axis_obj.tickdir);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1474 fputs (plot_stream, "set border 6;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1475 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1476 fprintf (plot_stream, "unset x2tics; set xtics %s nomirror\n",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1477 axis_obj.tickdir);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1478 fputs (plot_stream, "set border 3;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1479 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1480 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1481 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1482 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1483
7060 033918b854a7 [project @ 2007-10-24 17:51:05 by jwe] jwe parents: 7020 diff changeset	1484 if (strcmpi (axis_obj.visible, "off"))
033918b854a7 [project @ 2007-10-24 17:51:05 by jwe] jwe parents: 7020 diff changeset	1485 fputs (plot_stream, "unset border; unset tics\n");
7565 1e6443ff960f handle axes linewidth property John W. Eaton <jwe@octave.org> parents: 7564 diff changeset	1486 else
1e6443ff960f handle axes linewidth property John W. Eaton <jwe@octave.org> parents: 7564 diff changeset	1487 fprintf (plot_stream, "set border lw %f;\n", axis_obj.linewidth);
7060 033918b854a7 [project @ 2007-10-24 17:51:05 by jwe] jwe parents: 7020 diff changeset	1488 endif
033918b854a7 [project @ 2007-10-24 17:51:05 by jwe] jwe parents: 7020 diff changeset	1489
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11171 diff changeset	1490 if (! isempty (hlgnd) && ! isempty (hlgnd.children)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11171 diff changeset	1491 && any (strcmpi (get (hlgnd.children, "visible"), "on")))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1492 if (strcmpi (hlgnd.box, "on"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1493 box = "box";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1494 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1495 box = "nobox";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1496 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1497 if (strcmpi (hlgnd.orientation, "vertical"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1498 horzvert = "vertical";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1499 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1500 horzvert = "horizontal";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1501 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1502 if (strcmpi (hlgnd.textposition, "right"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1503 reverse = "reverse";
8291 53f35799b235 Add support for left/right argument to the legend function David Bateman <dbateman@free.fr> parents: 8242 diff changeset	1504 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1505 reverse = "noreverse";
8291 53f35799b235 Add support for left/right argument to the legend function David Bateman <dbateman@free.fr> parents: 8242 diff changeset	1506 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1507 inout = "inside";
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1508 keypos = hlgnd.location;
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6963 diff changeset	1509 if (ischar (keypos))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1510 keypos = lower (keypos);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1511 keyout = findstr (keypos, "outside");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1512 if (! isempty (keyout))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1513 inout = "outside";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1514 keypos = keypos(1:keyout-1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1515 endif
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6963 diff changeset	1516 endif
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6963 diff changeset	1517 switch (keypos)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1518 case "north"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1519 pos = "center top";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1520 case "south"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1521 pos = "center bottom";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1522 case "east"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1523 pos = "right center";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1524 case "west"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1525 pos = "left center";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1526 case "northeast"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1527 pos = "right top";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1528 case "northwest"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1529 pos = "left top";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1530 case "southeast"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1531 pos = "right bottom";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1532 case "southwest"
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1533 pos = "left bottom";
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1534 case "best"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1535 pos = "";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1536 warning ("legend: 'Best' not yet implemented for location specifier.\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1537 ## Least conflict with data in plot.
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1538 ## Least unused space outside plot.
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1539 otherwise
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1540 pos = "";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1541 endswitch
9191 ad33527d2e51 Have 'legend' inherit font properties from the parent axis. Ben Abbott <bpabbott@mac.com> parents: 9110 diff changeset	1542 if (__gnuplot_has_feature__ ("key_has_font_properties"))
12420 7c60b2bd7f39 __go_draw_axes__.m: Properly set fontspec for legends. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	1543 [fontname, fontsize] = get_fontname_and_size (hlgnd);
11549 beb4f0f27a32 Use {} as the default font for the gnuplot backend David Bateman <dbateman@free.fr> parents: 11523 diff changeset	1544 fontspec = create_fontspec (fontname, fontsize, gnuplot_term);
9191 ad33527d2e51 Have 'legend' inherit font properties from the parent axis. Ben Abbott <bpabbott@mac.com> parents: 9110 diff changeset	1545 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1546 fontspec = "";
9191 ad33527d2e51 Have 'legend' inherit font properties from the parent axis. Ben Abbott <bpabbott@mac.com> parents: 9110 diff changeset	1547 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1548 fprintf (plot_stream, "set key %s %s;\nset key %s %s %s %s;\n",
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10992 diff changeset	1549 inout, pos, box, reverse, horzvert, fontspec);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1550 else
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1551 fputs (plot_stream, "unset key;\n");
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1552 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1553 fputs (plot_stream, "set style data lines;\n");
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1554
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: 9098 diff changeset	1555 cmap = [cmap; addedcmap];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: 9098 diff changeset	1556 cmap_sz = cmap_sz + rows(addedcmap);
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	1557 if (length(cmap) > 0)
8164 0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	1558 fprintf (plot_stream,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1559 "set palette positive color model RGB maxcolors %i;\n",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1560 cmap_sz);
8164 0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	1561 fprintf (plot_stream,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1562 "set palette file \"-\" binary record=%d using 1:2:3:4;\n",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1563 cmap_sz);
8164 0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	1564 fwrite (plot_stream, [1:cmap_sz; cmap.'], "float32");
0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	1565 fwrite (plot_stream, "\n");
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	1566 endif
8208 f6ca8ff51818 [mq]: graphics-backend John W. Eaton <jwe@octave.org> parents: 8190 diff changeset	1567
f6ca8ff51818 [mq]: graphics-backend John W. Eaton <jwe@octave.org> parents: 8190 diff changeset	1568 fputs (plot_stream, "unset colorbox;\n");
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	1569
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1570 if (have_data)
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1571 if (nd == 2)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1572 plot_cmd = "plot";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1573 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1574 plot_cmd = "splot";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1575 rot_x = 90 - axis_obj.view(2);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1576 rot_z = axis_obj.view(1);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1577 while (rot_z < 0)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1578 rot_z += 360;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1579 endwhile
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1580 fputs (plot_stream, "set ticslevel 0;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1581 if (view_map && rot_x == 0 && rot_z == 0)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1582 fputs (plot_stream, "set view map;\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1583 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1584 fprintf (plot_stream, "set view %.15g, %.15g;\n", rot_x, rot_z);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1585 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1586 endif
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: 9098 diff changeset	1587 if (have_3d_patch (1))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1588 fputs (plot_stream, "set pm3d depthorder\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1589 fprintf (plot_stream, "%s \"-\" %s %s %s \\\n", plot_cmd,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1590 usingclause{1}, titlespec{1}, withclause{1});
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: 9098 diff changeset	1591 elseif (is_image_data (1))
13165 9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1592 if (numel (is_image_data) > 1 && is_image_data(2))
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1593 ## Remove terminating semicolon
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1594 n = max (strfind (withclause{1}, ";"));
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1595 if (! isempty(n))
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1596 withclause{1} = withclause{1}(1:n-1);
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1597 endif
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1598 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1599 fprintf (plot_stream, "%s \"-\" %s %s %s \\\n", plot_cmd,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1600 usingclause{1}, titlespec{1}, withclause{1});
8226 50fa927b4e49 Fix for images with new gnuplot/binary transfer code David Bateman <dbateman@free.fr> parents: 8222 diff changeset	1601 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1602 fprintf (plot_stream, "%s \"-\" binary format='%%float64' %s %s %s \\\n", plot_cmd,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1603 usingclause{1}, titlespec{1}, withclause{1});
8226 50fa927b4e49 Fix for images with new gnuplot/binary transfer code David Bateman <dbateman@free.fr> parents: 8222 diff changeset	1604 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1605 for i = 2:data_idx
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1606 if (have_3d_patch (i))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1607 fprintf (plot_stream, ", \"-\" %s %s %s \\\n",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1608 usingclause{i}, titlespec{i}, withclause{i});
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1609 elseif (is_image_data (i))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1610 if (! is_image_data (i-1))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1611 fputs (plot_stream, "; ");
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1612 if (bg_is_set)
10528 6a2e4e464d38 Unset figure color in __go_draw_axes__ (partial fix for bug #29060) David Bateman <dbateman@free.fr> parents: 10451 diff changeset	1613 fputs (plot_stream, "unset obj 1; \\\n");
6a2e4e464d38 Unset figure color in __go_draw_axes__ (partial fix for bug #29060) David Bateman <dbateman@free.fr> parents: 10451 diff changeset	1614 bg_is_set = false;
6a2e4e464d38 Unset figure color in __go_draw_axes__ (partial fix for bug #29060) David Bateman <dbateman@free.fr> parents: 10451 diff changeset	1615 endif
11204 d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	1616 if (fg_is_set)
d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	1617 fputs (plot_stream, "unset obj 2; \\\n");
d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	1618 fg_is_set = false;
d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	1619 endif
13165 9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1620 if (numel (is_image_data) > i && is_image_data(i+1))
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1621 ## Remove terminating semicolon
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1622 n = max (strfind (withclause{i}, ";"));
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1623 if (! isempty(n))
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1624 withclause{i} = withclause{i}(1:n-1);
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1625 endif
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1626 endif
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1627 fprintf (plot_stream, "%s \"-\" %s %s %s \\\n", plot_cmd,
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1628 usingclause{i}, titlespec{i}, withclause{i});
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1629 else
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1630 ## For consecutive images continue with the same plot command
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1631 fprintf (plot_stream, "%s \"-\" %s %s %s \\\n", ",",
9efb676b34ac Fix bug #34015. Allow for sequential images. Ben Abbott <bpabbott@mac.com> parents: 13155 diff changeset	1632 usingclause{i}, titlespec{i}, withclause{i});
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1633 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1634 elseif (is_image_data (i-1))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1635 if (bg_is_set)
10528 6a2e4e464d38 Unset figure color in __go_draw_axes__ (partial fix for bug #29060) David Bateman <dbateman@free.fr> parents: 10451 diff changeset	1636 fputs (plot_stream, "unset obj 1; \\\n");
11204 d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	1637 bg_is_set = false;
d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	1638 endif
d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	1639 if (fg_is_set)
d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	1640 fputs (plot_stream, "unset obj 2; \\\n");
d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	1641 fg_is_set = false;
d2f3a904ac6b Unset the foreground color for the gnuplot backend earlier (fixes #31533) David Bateman <dbateman@free.fr> parents: 11201 diff changeset	1642 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1643 fprintf (plot_stream, "%s \"-\" binary format='%%float64' %s %s %s \\\n", plot_cmd,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1644 usingclause{i}, titlespec{i}, withclause{i});
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1645 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1646 fprintf (plot_stream, ", \"-\" binary format='%%float64' %s %s %s \\\n",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1647 usingclause{i}, titlespec{i}, withclause{i});
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1648 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1649 endfor
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1650 fputs (plot_stream, ";\n");
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1651 for i = 1:data_idx
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1652 if (have_3d_patch (i))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1653 ## Can't write 3d patch data as binary as can't plot more than
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1654 ## a single patch at a time and have to plot all patches together
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1655 ## so that the gnuplot depth ordering is done correctly
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1656 for j = 1 : 4 : columns(data{i})
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1657 if (j != 1)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1658 fputs (plot_stream, "\n\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1659 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1660 fprintf (plot_stream, "%.15g %.15g %.15g %.15g\n", data{i}(:,j).');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1661 fprintf (plot_stream, "%.15g %.15g %.15g %.15g\n\n", data{i}(:,j+1).');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1662 fprintf (plot_stream, "%.15g %.15g %.15g %.15g\n", data{i}(:,j+2).');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1663 fprintf (plot_stream, "%.15g %.15g %.15g %.15g\n", data{i}(:,j+3).');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1664 endfor
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1665 fputs (plot_stream, "e\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1666 elseif (is_image_data(i))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1667 fwrite (plot_stream, data{i}, "float32");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1668 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1669 __gnuplot_write_data__ (plot_stream, data{i}, nd, parametric(i),
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1670 have_cdata(i));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1671 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1672 endfor
6431 ff87ad14403f [project @ 2007-03-22 18:20:31 by jwe] jwe parents: 6425 diff changeset	1673 else
ff87ad14403f [project @ 2007-03-22 18:20:31 by jwe] jwe parents: 6425 diff changeset	1674 fputs (plot_stream, "plot \"-\";\nInf Inf\ne\n");
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1675 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1676
8506 bc982528de11 comment style fixes John W. Eaton <jwe@octave.org> parents: 8360 diff changeset	1677 ## Needed to allow mouse rotation with pcolor.
7271 c18512d0ddb6 [project @ 2007-12-10 06:52:51 by jwe] jwe parents: 7269 diff changeset	1678 if (view_map)
c18512d0ddb6 [project @ 2007-12-10 06:52:51 by jwe] jwe parents: 7269 diff changeset	1679 fputs (plot_stream, "unset view;\n");
c18512d0ddb6 [project @ 2007-12-10 06:52:51 by jwe] jwe parents: 7269 diff changeset	1680 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1681
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1682 if (bg_is_set)
10528 6a2e4e464d38 Unset figure color in __go_draw_axes__ (partial fix for bug #29060) David Bateman <dbateman@free.fr> parents: 10451 diff changeset	1683 fputs (plot_stream, "unset obj 1;\n");
6a2e4e464d38 Unset figure color in __go_draw_axes__ (partial fix for bug #29060) David Bateman <dbateman@free.fr> parents: 10451 diff changeset	1684 bg_is_set = false;
6a2e4e464d38 Unset figure color in __go_draw_axes__ (partial fix for bug #29060) David Bateman <dbateman@free.fr> parents: 10451 diff changeset	1685 endif
7271 c18512d0ddb6 [project @ 2007-12-10 06:52:51 by jwe] jwe parents: 7269 diff changeset	1686
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1687 fflush (plot_stream);
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1688
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1689 else
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1690 print_usage ();
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1691 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1692
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1693 endfunction
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1694
13143 bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	1695 function x = flip (x)
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	1696 if (size (x, 1) == 1)
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	1697 x = fliplr (x);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	1698 elseif (size (x, 2) == 1 \|\| ischar (x))
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	1699 x = flipup (x);
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	1700 else
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	1701 x = flipud (fliplr (x));
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	1702 endif
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	1703 endfunction
bda7b080f205 gnuplot support for log plots with only negative data. Bug #34232. Ben Abbott <bpabbott@mac.com> parents: 12965 diff changeset	1704
9257 ab952265ad06 __go_draw_axes__.m: Properly render TeX symbols for x11. Ben Abbott <bpabbott@mac.com> parents: 9191 diff changeset	1705 function fontspec = create_fontspec (f, s, gp_term)
9468 5af462716bff Add support for gnuplot's Lua-TikZ terminal. Ben Abbott <bpabbott@mac.com> parents: 9438 diff changeset	1706 if (strcmp (f, "*") \|\| strcmp (gp_term, "tikz"))
9098 5ecdb3d3568f Allow fontsize to be specified for all objects with fontname == "". Ben Abbott <bpabbott@mac.com>* parents: 9083 diff changeset	1707 fontspec = sprintf ("font \",%d\"", s);
9063 a6cf0ad87eee __go_draw_axes__.m: New subfunction create_fontspec(). Allow fontsize to be specified when the fontname is anonymous. Ben Abbott <bpabbott@mac.com> parents: 9050 diff changeset	1708 else
a6cf0ad87eee __go_draw_axes__.m: New subfunction create_fontspec(). Allow fontsize to be specified when the fontname is anonymous. Ben Abbott <bpabbott@mac.com> parents: 9050 diff changeset	1709 fontspec = sprintf ("font \"%s,%d\"", f, s);
a6cf0ad87eee __go_draw_axes__.m: New subfunction create_fontspec(). Allow fontsize to be specified when the fontname is anonymous. Ben Abbott <bpabbott@mac.com> parents: 9050 diff changeset	1710 endif
a6cf0ad87eee __go_draw_axes__.m: New subfunction create_fontspec(). Allow fontsize to be specified when the fontname is anonymous. Ben Abbott <bpabbott@mac.com> parents: 9050 diff changeset	1711 endfunction
a6cf0ad87eee __go_draw_axes__.m: New subfunction create_fontspec(). Allow fontsize to be specified when the fontname is anonymous. Ben Abbott <bpabbott@mac.com> parents: 9050 diff changeset	1712
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1713 function style = do_linestyle_command (obj, linecolor, idx, mono,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1714 plot_stream, errbars = "")
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1715 style = {};
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1716
8164 0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	1717 fprintf (plot_stream, "set style line %d default;\n", idx);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1718 fprintf (plot_stream, "set style line %d", idx);
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1719
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1720 found_style = false;
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1721 if (isnumeric (linecolor))
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1722 color = linecolor;
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1723 if (! mono)
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1724 fprintf (plot_stream, " linecolor rgb \"#%02x%02x%02x\"",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1725 round (255*color));
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1726 endif
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1727 else
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1728 color = [0, 0, 0];
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1729 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1730
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1731 if (isfield (obj, "linestyle"))
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1732 switch (obj.linestyle)
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1733 case "-"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1734 lt = "1";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1735 case "--"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1736 lt = "2";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1737 case ":"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1738 lt = "3";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1739 case "-."
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1740 lt = "6";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1741 case "none"
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1742 lt = "";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1743 otherwise
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1744 lt = "";
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1745 endswitch
6843 9adfed86501f [project @ 2007-08-29 20:39:12 by jwe] jwe parents: 6829 diff changeset	1746
11095 d4619eb6ef8e __go_draw_axes__.m: Enable linetypes for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11090 diff changeset	1747 if (! isempty (lt))
d4619eb6ef8e __go_draw_axes__.m: Enable linetypes for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11090 diff changeset	1748 fprintf (plot_stream, " linetype %s", lt);
d4619eb6ef8e __go_draw_axes__.m: Enable linetypes for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11090 diff changeset	1749 endif
6843 9adfed86501f [project @ 2007-08-29 20:39:12 by jwe] jwe parents: 6829 diff changeset	1750
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1751 else
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1752 lt = "";
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1753 endif
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1754 if (! isempty (errbars))
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1755 found_style = true;
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1756 endif
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1757
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1758 if (isfield (obj, "linewidth"))
8164 0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	1759 fprintf (plot_stream, " linewidth %f", obj.linewidth);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1760 found_style = true;
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1761 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1762
10933 e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1763 [pt, pt2, obj] = gnuplot_pointtype (obj);
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1764
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1765 if (! isempty (pt))
6465 5fb50197b69a [project @ 2007-03-27 14:29:46 by jwe] jwe parents: 6464 diff changeset	1766 found_style = true;
5fb50197b69a [project @ 2007-03-27 14:29:46 by jwe] jwe parents: 6464 diff changeset	1767 endif
5fb50197b69a [project @ 2007-03-27 14:29:46 by jwe] jwe parents: 6464 diff changeset	1768
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1769 sidx = 1;
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1770 if (isempty (errbars))
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1771 if (isempty (lt))
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1772 style {sidx} = "";
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1773 else
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1774 style {sidx} = "lines";
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1775 endif
11095 d4619eb6ef8e __go_draw_axes__.m: Enable linetypes for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 11090 diff changeset	1776
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1777 facesame = true;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1778 if (! isequal (pt, pt2) && isfield (obj, "markerfacecolor")
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1779 && !strncmp (obj.markerfacecolor, "none", 4))
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1780 if (strncmp (obj.markerfacecolor, "auto", 4)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1781 \|\| ! isnumeric (obj.markerfacecolor)
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1782 \|\| (isnumeric (obj.markerfacecolor)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1783 && isequal (color, obj.markerfacecolor)))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1784 if (! isempty (pt2))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1785 fprintf (plot_stream, " pointtype %s", pt2);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1786 style {sidx} = strcat (style{sidx}, "points");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1787 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1788 if (isfield (obj, "markersize"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1789 fprintf (plot_stream, " pointsize %f", obj.markersize / 3);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1790 endif
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1791 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1792 facesame = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1793 if (! found_style)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1794 fputs (plot_stream, " default");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1795 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1796 fputs (plot_stream, ";\n");
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1797 if (! isempty (style {sidx}))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1798 sidx ++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1799 idx ++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1800 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1801 fputs (plot_stream, ";\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1802 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1803 fprintf (plot_stream, "set style line %d default;\n", idx);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1804 fprintf (plot_stream, "set style line %d", idx);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1805 if (isnumeric (obj.markerfacecolor) && ! mono)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1806 fprintf (plot_stream, " linecolor rgb \"#%02x%02x%02x\"",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1807 round (255*obj.markerfacecolor));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1808 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1809 if (! isempty (pt2))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1810 style {sidx} = "points";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1811 fprintf (plot_stream, " pointtype %s", pt2);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1812 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1813 if (isfield (obj, "markersize"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1814 fprintf (plot_stream, " pointsize %f", obj.markersize / 3);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1815 endif
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1816 endif
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1817 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1818 if (isfield (obj, "markeredgecolor")
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1819 && !strncmp (obj.markeredgecolor, "none", 4))
10157 cf17f22f1fd4 trivial fix to durface and lines for empty markers David Bateman <dbateman@free.fr> parents: 10137 diff changeset	1820 if (facesame && !isempty (pt)
cf17f22f1fd4 trivial fix to durface and lines for empty markers David Bateman <dbateman@free.fr> parents: 10137 diff changeset	1821 && (strncmp (obj.markeredgecolor, "auto", 4)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1822 \|\| ! isnumeric (obj.markeredgecolor)
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1823 \|\| (isnumeric (obj.markeredgecolor)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1824 && isequal (color, obj.markeredgecolor))))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1825 if (sidx == 1 && ((length (style {sidx}) == 5
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1826 && strncmp (style {sidx}, "lines", 5)) \|\| isempty (style {sidx})))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1827 if (! isempty (pt))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1828 style {sidx} = strcat (style{sidx}, "points");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1829 fprintf (plot_stream, " pointtype %s", pt);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1830 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1831 if (isfield (obj, "markersize"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1832 fprintf (plot_stream, " pointsize %f", obj.markersize / 3);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1833 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1834 endif
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1835 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1836 if (! found_style)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1837 fputs (plot_stream, " default");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1838 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1839 fputs (plot_stream, ";\n");
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1840 if (!isempty (style {sidx}))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1841 sidx ++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1842 idx ++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1843 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1844 fputs (plot_stream, ";\n");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1845 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1846 fprintf (plot_stream, "set style line %d default;\n", idx);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1847 fprintf (plot_stream, "set style line %d", idx);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1848 if (! mono)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1849 if (strncmp (obj.markeredgecolor, "auto", 4))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1850 fprintf (plot_stream, " linecolor rgb \"#%02x%02x%02x\"",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1851 round (255*color));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1852 elseif (isnumeric (obj.markeredgecolor) && ! mono)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1853 fprintf (plot_stream, " linecolor rgb \"#%02x%02x%02x\"",
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1854 round (255*obj.markeredgecolor));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1855 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1856 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1857 if (! isempty (pt))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1858 style {sidx} = "points";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1859 fprintf (plot_stream, " pointtype %s", pt);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1860 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1861 if (isfield (obj, "markersize"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1862 fprintf (plot_stream, " pointsize %f", obj.markersize / 3);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1863 endif
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1864 endif
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1865 endif
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1866 else
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1867 style{1} = errbars;
10582 9676d0255440 Use "." for marker when plotting with errorbars. (bug #29057) Rik <octave@nomad.inbox5.com> parents: 10563 diff changeset	1868 fputs (plot_stream, " pointtype 0");
9729 3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1869 endif
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1870
3b7e644bb46d Treat markerfacecolor and markeredgecolor properties for lines and surfaces David Bateman <dbateman@free.fr> parents: 9472 diff changeset	1871 if (! found_style && isempty (style {1}))
6405 b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1872 fputs (plot_stream, " default");
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1873 endif
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1874
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1875 fputs (plot_stream, ";\n");
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1876
b298a4c12fc3 [project @ 2007-03-14 16:51:28 by jwe] jwe parents: diff changeset	1877 endfunction
6510 cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1878
10933 e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1879 function [pt, pt2, obj] = gnuplot_pointtype (obj)
10925 2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1880 if (isfield (obj, "marker"))
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1881 switch (obj.marker)
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1882 case "+"
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1883 pt = pt2 = "1";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1884 case "o"
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1885 pt = "6";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1886 pt2 = "7";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1887 case "*"
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1888 pt = pt2 = "3";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1889 case "."
10933 e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1890 pt = "6";
e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1891 pt2 = "7";
e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1892 if (isfield (obj, "markerfacecolor")
e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1893 \|\| strncmp (obj.markerfacecolor, "none", 4))
e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1894 obj.markerfacecolor = "auto";
e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1895 endif
e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1896 if (isfield (obj, "markersize"))
e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1897 obj.markersize /= 3;
e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1898 else
e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1899 obj.markersize = 5;
e78e531dfa2d Improve matlab compatibility with '.' marker David Bateman <dbateman@free.fr> parents: 10931 diff changeset	1900 endif
10925 2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1901 case "x"
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1902 pt = pt2 = "2";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1903 case {"square", "s"}
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1904 pt = "4";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1905 pt2 = "5";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1906 case {"diamond", "d"}
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1907 pt = "12";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1908 pt2 = "13";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1909 case "^"
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1910 pt = "8";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1911 pt2 = "9";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1912 case "v"
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1913 pt = "10";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1914 pt2 = "11";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1915 case ">"
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1916 ## FIXME -- should be triangle pointing right, use triangle pointing up
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1917 pt = "8";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1918 pt2 = "9";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1919 case "<"
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1920 ## FIXME -- should be triangle pointing left, use triangle pointing down
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1921 pt = "10";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1922 pt2 = "11";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1923 case {"pentagram", "p"}
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1924 ## FIXME -- should be pentagram, using pentagon
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1925 pt = "14";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1926 pt2 = "15";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1927 case {"hexagram", "h"}
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1928 ## FIXME -- should be 6 pt start, using "*" instead
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1929 pt = pt2 = "3";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1930 case "none"
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1931 pt = pt2 = "";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1932 otherwise
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1933 pt = pt2 = "";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1934 endswitch
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1935 else
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1936 pt = pt2 = "";
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1937 endif
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1938 endfunction
2f9de135e7f9 __go_draw_axes__.m: Use gnuplot's pentagon for marker == 'p'. Ben Abbott <bpabbott@mac.com> parents: 10920 diff changeset	1939
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1940 function __gnuplot_write_data__ (plot_stream, data, nd, parametric, cdata)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	1941
6510 cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1942 ## DATA is already transposed.
cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1943
cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1944 ## FIXME -- this may need to be converted to C++ for speed.
cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1945
6605 376b71574728 [project @ 2007-05-02 16:15:28 by jwe] jwe parents: 6579 diff changeset	1946 ## Convert NA elements to normal NaN values because fprintf writes
376b71574728 [project @ 2007-05-02 16:15:28 by jwe] jwe parents: 6579 diff changeset	1947 ## "NA" and that confuses gnuplot.
376b71574728 [project @ 2007-05-02 16:15:28 by jwe] jwe parents: 6579 diff changeset	1948 idx = find (isna (data));
376b71574728 [project @ 2007-05-02 16:15:28 by jwe] jwe parents: 6579 diff changeset	1949 if (any (idx))
376b71574728 [project @ 2007-05-02 16:15:28 by jwe] jwe parents: 6579 diff changeset	1950 data(idx) = NaN;
376b71574728 [project @ 2007-05-02 16:15:28 by jwe] jwe parents: 6579 diff changeset	1951 endif
376b71574728 [project @ 2007-05-02 16:15:28 by jwe] jwe parents: 6579 diff changeset	1952
6510 cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1953 if (nd == 2)
8217 f74cb5e3a6c1 send binary data to gnuplot Daniel J. Sebald <daniel.sebald@ieee.org> parents: 8216 diff changeset	1954 fwrite (plot_stream, data, "float64");
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1955 elseif (nd == 3)
6510 cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1956 if (parametric)
8217 f74cb5e3a6c1 send binary data to gnuplot Daniel J. Sebald <daniel.sebald@ieee.org> parents: 8216 diff changeset	1957 fwrite (plot_stream, data, "float64");
6510 cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1958 else
7170 9f38c6293317 [project @ 2007-11-13 17:34:33 by jwe] jwe parents: 7168 diff changeset	1959 nr = rows (data);
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1960 if (cdata)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1961 for j = 1:4:nr
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1962 fwrite (plot_stream, data(j:j+3,:), "float64");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1963 endfor
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1964 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1965 for j = 1:3:nr
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1966 fwrite (plot_stream, data(j:j+2,:), "float64");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1967 endfor
7119 d22ad51b9cf8 [project @ 2007-11-07 21:06:27 by jwe] jwe parents: 7115 diff changeset	1968 endif
7109 5436efbf35e3 [project @ 2007-11-06 22:16:25 by jwe] jwe parents: 7094 diff changeset	1969 endif
6510 cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1970 endif
cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1971
cbae86745c5b [project @ 2007-04-09 23:15:47 by jwe] jwe parents: 6465 diff changeset	1972 endfunction
6745 ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	1973
9257 ab952265ad06 __go_draw_axes__.m: Properly render TeX symbols for x11. Ben Abbott <bpabbott@mac.com> parents: 9191 diff changeset	1974 function do_tics (obj, plot_stream, ymirror, mono, gnuplot_term)
8222 11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	1975
8518 c2c018d7c501 __go_draw_axes__.m: __go_draw_axes__.m: Support non-cell ticklabels. Ben Abbott <bpabbott@mac.com> parents: 8510 diff changeset	1976 obj.xticklabel = ticklabel_to_cell (obj.xticklabel);
c2c018d7c501 __go_draw_axes__.m: __go_draw_axes__.m: Support non-cell ticklabels. Ben Abbott <bpabbott@mac.com> parents: 8510 diff changeset	1977 obj.yticklabel = ticklabel_to_cell (obj.yticklabel);
c2c018d7c501 __go_draw_axes__.m: __go_draw_axes__.m: Support non-cell ticklabels. Ben Abbott <bpabbott@mac.com> parents: 8510 diff changeset	1978 obj.zticklabel = ticklabel_to_cell (obj.zticklabel);
c2c018d7c501 __go_draw_axes__.m: __go_draw_axes__.m: Support non-cell ticklabels. Ben Abbott <bpabbott@mac.com> parents: 8510 diff changeset	1979
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	1980 if (strcmp (obj.xminorgrid, "on"))
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	1981 obj.xminortick = "on";
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	1982 endif
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	1983 if (strcmp (obj.yminorgrid, "on"))
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	1984 obj.yminortick = "on";
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	1985 endif
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	1986 if (strcmp (obj.zminorgrid, "on"))
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	1987 obj.zminortick = "on";
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	1988 endif
6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	1989
8220 4e05ba66ead2 x/y/z-ticklabels respect axis font properties. Ben Abbott <bpabbott@mac.com> parents: 8218 diff changeset	1990 [fontname, fontsize] = get_fontname_and_size (obj);
9257 ab952265ad06 __go_draw_axes__.m: Properly render TeX symbols for x11. Ben Abbott <bpabbott@mac.com> parents: 9191 diff changeset	1991 fontspec = create_fontspec (fontname, fontsize, gnuplot_term);
8222 11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	1992
8740 cb0ea772a4af Initialize axes ticklength property. Ben Abbott <bpabbott@mac.com> parents: 8665 diff changeset	1993 ## A Gnuplot tic scale of 69 is equivalent to Octave's 0.5.
cb0ea772a4af Initialize axes ticklength property. Ben Abbott <bpabbott@mac.com> parents: 8665 diff changeset	1994 ticklength = sprintf ("scale %4.1f", (69/0.5)*obj.ticklength(1));
cb0ea772a4af Initialize axes ticklength property. Ben Abbott <bpabbott@mac.com> parents: 8665 diff changeset	1995
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	1996 if (strcmpi (obj.xaxislocation, "top"))
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	1997 do_tics_1 (obj.xtickmode, obj.xtick, obj.xminortick, obj.xticklabelmode,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1998 obj.xticklabel, obj.xcolor, "x2", plot_stream, true, mono,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	1999 "border", obj.tickdir, ticklength, fontname, fontspec,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2000 obj.interpreter, obj.xscale, obj.xsgn, gnuplot_term);
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2001 do_tics_1 ("manual", [], "off", obj.xticklabelmode, obj.xticklabel,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2002 obj.xcolor, "x", plot_stream, true, mono, "border",
13155 62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2003 "", "", fontname, fontspec, obj.interpreter, obj.xscale,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2004 obj.xsgn, gnuplot_term);
7321 359f464342b3 [project @ 2007-12-18 03:48:03 by jwe] jwe parents: 7320 diff changeset	2005 elseif (strcmpi (obj.xaxislocation, "zero"))
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2006 do_tics_1 (obj.xtickmode, obj.xtick, obj.xminortick, obj.xticklabelmode,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2007 obj.xticklabel, obj.xcolor, "x", plot_stream, true, mono,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2008 "axis", obj.tickdir, ticklength, fontname, fontspec,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2009 obj.interpreter, obj.xscale, obj.xsgn, gnuplot_term);
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2010 do_tics_1 ("manual", [], "off", obj.xticklabelmode, obj.xticklabel,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2011 obj.xcolor, "x2", plot_stream, true, mono, "axis",
13155 62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2012 "", "", fontname, fontspec, obj.interpreter, obj.xscale,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2013 obj.xsgn, gnuplot_term);
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	2014 else
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2015 do_tics_1 (obj.xtickmode, obj.xtick, obj.xminortick, obj.xticklabelmode,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2016 obj.xticklabel, obj.xcolor, "x", plot_stream, true, mono,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2017 "border", obj.tickdir, ticklength, fontname, fontspec,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2018 obj.interpreter, obj.xscale, obj.xsgn, gnuplot_term);
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2019 do_tics_1 ("manual", [], "off", obj.xticklabelmode, obj.xticklabel,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2020 obj.xcolor, "x2", plot_stream, true, mono, "border",
13155 62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2021 "", "", fontname, fontspec, obj.interpreter, obj.xscale,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2022 obj.xsgn, gnuplot_term);
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	2023 endif
5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	2024 if (strcmpi (obj.yaxislocation, "right"))
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2025 do_tics_1 (obj.ytickmode, obj.ytick, obj.yminortick, obj.yticklabelmode,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2026 obj.yticklabel, obj.ycolor, "y2", plot_stream, ymirror, mono,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2027 "border", obj.tickdir, ticklength, fontname, fontspec,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2028 obj.interpreter, obj.yscale, obj.ysgn, gnuplot_term);
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2029 do_tics_1 ("manual", [], "off", obj.yticklabelmode, obj.yticklabel,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2030 obj.ycolor, "y", plot_stream, ymirror, mono, "border",
13155 62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2031 "", "", fontname, fontspec, obj.interpreter, obj.yscale,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2032 obj.ysgn, gnuplot_term);
8943 4a312440b262 __go_draw_axes__.m (do_tics): fix typo Ben Abbott <bpabbott@mac.com> parents: 8920 diff changeset	2033 elseif (strcmpi (obj.yaxislocation, "zero"))
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2034 do_tics_1 (obj.ytickmode, obj.ytick, obj.yminortick, obj.yticklabelmode,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2035 obj.yticklabel, obj.ycolor, "y", plot_stream, ymirror, mono,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2036 "axis", obj.tickdir, ticklength, fontname, fontspec,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2037 obj.interpreter, obj.yscale, obj.ysgn, gnuplot_term);
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2038 do_tics_1 ("manual", [], "off", obj.yticklabelmode, obj.yticklabel,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2039 obj.ycolor, "y2", plot_stream, ymirror, mono, "axis",
13155 62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2040 "", "", fontname, fontspec, obj.interpreter, obj.yscale,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2041 obj.ysgn, gnuplot_term);
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	2042 else
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2043 do_tics_1 (obj.ytickmode, obj.ytick, obj.yminortick, obj.yticklabelmode,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2044 obj.yticklabel, obj.ycolor, "y", plot_stream, ymirror, mono,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2045 "border", obj.tickdir, ticklength, fontname, fontspec,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2046 obj.interpreter, obj.yscale, obj.ysgn, gnuplot_term);
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2047 do_tics_1 ("manual", [], "off", obj.yticklabelmode, obj.yticklabel,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2048 obj.ycolor, "y2", plot_stream, ymirror, mono, "border",
13155 62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2049 "", "", fontname, fontspec, obj.interpreter, obj.yscale,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2050 obj.ysgn, gnuplot_term);
6809 5e61f0bc0c27 [project @ 2007-08-10 18:41:33 by jwe] jwe parents: 6790 diff changeset	2051 endif
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2052 do_tics_1 (obj.ztickmode, obj.ztick, obj.zminortick, obj.zticklabelmode,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2053 obj.zticklabel, obj.zcolor, "z", plot_stream, true, mono,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2054 "border", obj.tickdir, ticklength, fontname, fontspec,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2055 obj.interpreter, obj.zscale, obj.zsgn, gnuplot_term);
6745 ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	2056 endfunction
ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	2057
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2058 function do_tics_1 (ticmode, tics, mtics, labelmode, labels, color, ax,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2059 plot_stream, mirror, mono, axispos, tickdir, ticklength,
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2060 fontname, fontspec, interpreter, scale, sgn, gnuplot_term)
8222 11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2061 persistent warned_latex = false;
11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2062 if (strcmpi (interpreter, "tex"))
11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2063 for n = 1 : numel(labels)
11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2064 labels{n} = __tex2enhanced__ (labels{n}, fontname, false, false);
11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2065 endfor
11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2066 elseif (strcmpi (interpreter, "latex"))
11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2067 if (! warned_latex)
11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2068 warning ("latex markup not supported for tick marks");
11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2069 warned_latex = true;
11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2070 endif
11badf6c9e9f __go_draw_axes__.m: Support axes interpreter poperty for tick labels. Ben Abbott <bpabbott@mac.com> parents: 8220 diff changeset	2071 endif
9302 5542c40e40ac __go_draw_axes__.m: Change strncmpi(scale,'lo') -> strcmp(scale,'log'). Ben Abbott <bpabbott@mac.com> parents: 9301 diff changeset	2072 if (strcmp (scale, "log"))
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	2073 num_mtics = 10;
13155 62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2074 if (any (strcmp (gnuplot_term, {"tikz", "pstex", "pslatex", "epslatex"})))
62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2075 fmt = "$10^{%T}$";
62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2076 else
62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2077 fmt = "10^{%T}";
62e710cea7f1 Fix bug #33204. Use latex markeup for log tick labels. Ben Abbott <bpabbott@mac.com> parents: 12677 diff changeset	2078 endif
13209 9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2079 if (sgn < 0)
9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2080 fmt = strcat ("-", fmt);
9eff72139c05 Use "-10^{%T}" format for negative values in log scale plots. Ben Abbott <bpabbott@mac.com> parents: 13176 diff changeset	2081 endif
9301 f2152fad3563 __go_draw_axes__.m: For log-scale axes use format '10^{%T}'. Ben Abbott <bpabbott@mac.com> parents: 9281 diff changeset	2082 else
f2152fad3563 __go_draw_axes__.m: For log-scale axes use format '10^{%T}'. Ben Abbott <bpabbott@mac.com> parents: 9281 diff changeset	2083 fmt = "%g";
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	2084 num_mtics = 5;
9301 f2152fad3563 __go_draw_axes__.m: For log-scale axes use format '10^{%T}'. Ben Abbott <bpabbott@mac.com> parents: 9281 diff changeset	2085 endif
7269 3fade00a6ac7 [project @ 2007-12-07 19:26:20 by jwe] jwe parents: 7257 diff changeset	2086 colorspec = get_text_colorspec (color, mono);
8112 31e86163b752 Add the datetick function David Bateman <dbateman@free.fr> parents: 8102 diff changeset	2087 if (strcmpi (ticmode, "manual") \|\| strcmpi (labelmode, "manual"))
6745 ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	2088 if (isempty (tics))
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2089 fprintf (plot_stream, "unset %stics;\nunset m%stics;\n", ax, ax);
8953 a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8943 diff changeset	2090 elseif (strcmpi (labelmode, "manual"))
6751 c0370a971fef [project @ 2007-06-25 15:12:07 by jwe] jwe parents: 6748 diff changeset	2091 if (ischar (labels))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2092 labels = cellstr (labels);
6751 c0370a971fef [project @ 2007-06-25 15:12:07 by jwe] jwe parents: 6748 diff changeset	2093 endif
8354 534fd216278c __go_draw_axes__.m: xticklabel should accept a numeric vector. Ben Abbott <bpabbott@mac.com> parents: 8344 diff changeset	2094 if (isnumeric (labels))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2095 labels = num2str (real (labels(:)));
8354 534fd216278c __go_draw_axes__.m: xticklabel should accept a numeric vector. Ben Abbott <bpabbott@mac.com> parents: 8344 diff changeset	2096 endif
534fd216278c __go_draw_axes__.m: xticklabel should accept a numeric vector. Ben Abbott <bpabbott@mac.com> parents: 8344 diff changeset	2097 if (ischar (labels))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2098 labels = permute (cellstr (labels), [2, 1]);
8354 534fd216278c __go_draw_axes__.m: xticklabel should accept a numeric vector. Ben Abbott <bpabbott@mac.com> parents: 8344 diff changeset	2099 endif
6745 ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	2100 if (iscellstr (labels))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2101 k = 1;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2102 ntics = numel (tics);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2103 nlabels = numel (labels);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2104 fprintf (plot_stream, "set format %s \"%%s\";\n", ax);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2105 if (mirror)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2106 fprintf (plot_stream, "set %stics %s %s %s mirror (", ax,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2107 tickdir, ticklength, axispos);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2108 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2109 fprintf (plot_stream, "set %stics %s %s %s nomirror (", ax,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2110 tickdir, ticklength, axispos);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2111 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2112
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11001 diff changeset	2113 labels = regexprep(labels, '%', "%%");
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2114 for i = 1:ntics
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2115 fprintf (plot_stream, " \"%s\" %.15g", labels{k++}, tics(i));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2116 if (i < ntics)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2117 fputs (plot_stream, ", ");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2118 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2119 if (k > nlabels)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2120 k = 1;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2121 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2122 endfor
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2123 fprintf (plot_stream, ") %s %s;\n", colorspec, fontspec);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2124 if (strcmp (mtics, "on"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2125 fprintf (plot_stream, "set m%stics %d;\n", ax, num_mtics);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2126 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2127 fprintf (plot_stream, "unset m%stics;\n", ax);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2128 endif
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2129 else
10635 d1978e7364ad Print name of function in error() string messages. Rik <octave@nomad.inbox5.com> parents: 10597 diff changeset	2130 error ("__go_draw_axes__: unsupported type of ticklabel");
6745 ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	2131 endif
ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	2132 else
9301 f2152fad3563 __go_draw_axes__.m: For log-scale axes use format '10^{%T}'. Ben Abbott <bpabbott@mac.com> parents: 9281 diff changeset	2133 fprintf (plot_stream, "set format %s \"%s\";\n", ax, fmt);
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7204 diff changeset	2134 if (mirror)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2135 fprintf (plot_stream, "set %stics %s %s %s mirror (", ax, tickdir,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2136 ticklength, axispos);
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7204 diff changeset	2137 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2138 fprintf (plot_stream, "set %stics %s %s %s nomirror (", ax, tickdir,
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2139 ticklength, axispos);
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7204 diff changeset	2140 endif
8112 31e86163b752 Add the datetick function David Bateman <dbateman@free.fr> parents: 8102 diff changeset	2141 fprintf (plot_stream, " %.15g,", tics(1:end-1));
8220 4e05ba66ead2 x/y/z-ticklabels respect axis font properties. Ben Abbott <bpabbott@mac.com> parents: 8218 diff changeset	2142 fprintf (plot_stream, " %.15g) %s;\n", tics(end), fontspec);
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2143 if (strcmp (mtics, "on"))
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	2144 fprintf (plot_stream, "set m%stics %d;\n", ax, num_mtics);
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2145 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2146 fprintf (plot_stream, "unset m%stics;\n", ax);
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2147 endif
6745 ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	2148 endif
ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	2149 else
9301 f2152fad3563 __go_draw_axes__.m: For log-scale axes use format '10^{%T}'. Ben Abbott <bpabbott@mac.com> parents: 9281 diff changeset	2150 fprintf (plot_stream, "set format %s \"%s\";\n", ax, fmt);
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7204 diff changeset	2151 if (mirror)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2152 fprintf (plot_stream, "set %stics %s %s %s mirror %s %s;\n", ax,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2153 axispos, tickdir, ticklength, colorspec, fontspec);
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7204 diff changeset	2154 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2155 fprintf (plot_stream, "set %stics %s %s %s nomirror %s %s;\n", ax,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2156 tickdir, ticklength, axispos, colorspec, fontspec);
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7204 diff changeset	2157 endif
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2158 if (strcmp (mtics, "on"))
9374 6a035159ba0e grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick. Ben Abbott <bpabbott@mac.com> parents: 9361 diff changeset	2159 fprintf (plot_stream, "set m%stics %d;\n", ax, num_mtics);
8322 f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2160 else
f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2161 fprintf (plot_stream, "unset m%stics;\n", ax);
f32a91d99156 Respect the minortick property of the axis objects David Bateman <dbateman@free.fr> parents: 8291 diff changeset	2162 endif
7194 a927a2871a93 [project @ 2007-11-26 23:06:12 by jwe] jwe parents: 7191 diff changeset	2163 endif
a927a2871a93 [project @ 2007-11-26 23:06:12 by jwe] jwe parents: 7191 diff changeset	2164 endfunction
a927a2871a93 [project @ 2007-11-26 23:06:12 by jwe] jwe parents: 7191 diff changeset	2165
9281 02b16eeb3167 Fix yticklabels for log scale colorbar. Ben Abbott <bpabbott@mac.com> parents: 9280 diff changeset	2166 function ticklabel = ticklabel_to_cell (ticklabel)
9472 303f862a896d __go_draw_axes__.m: Fix ticklabels specified as 2D character array. Ben Abbott <bpabbott@mac.com> parents: 9468 diff changeset	2167 if (isnumeric (ticklabel))
303f862a896d __go_draw_axes__.m: Fix ticklabels specified as 2D character array. Ben Abbott <bpabbott@mac.com> parents: 9468 diff changeset	2168 ## Use upto 5 significant digits
303f862a896d __go_draw_axes__.m: Fix ticklabels specified as 2D character array. Ben Abbott <bpabbott@mac.com> parents: 9468 diff changeset	2169 ticklabel = num2str (ticklabel(:), 5);
303f862a896d __go_draw_axes__.m: Fix ticklabels specified as 2D character array. Ben Abbott <bpabbott@mac.com> parents: 9468 diff changeset	2170 endif
303f862a896d __go_draw_axes__.m: Fix ticklabels specified as 2D character array. Ben Abbott <bpabbott@mac.com> parents: 9468 diff changeset	2171 if (ischar (ticklabel))
303f862a896d __go_draw_axes__.m: Fix ticklabels specified as 2D character array. Ben Abbott <bpabbott@mac.com> parents: 9468 diff changeset	2172 if (size (ticklabel, 1) == 1 && any (ticklabel == "\|"))
303f862a896d __go_draw_axes__.m: Fix ticklabels specified as 2D character array. Ben Abbott <bpabbott@mac.com> parents: 9468 diff changeset	2173 n = setdiff (findstr (ticklabel, "\|"), findstr (ticklabel, '\\|'));
9281 02b16eeb3167 Fix yticklabels for log scale colorbar. Ben Abbott <bpabbott@mac.com> parents: 9280 diff changeset	2174 ticklabel = strsplit (ticklabel, "\|");
9280 40fb718a2e67 __go_draw_axes__.m: Add support for ticklabel separator '\|'. Ben Abbott <bpabbott@mac.com> parents: 9272 diff changeset	2175 else
9281 02b16eeb3167 Fix yticklabels for log scale colorbar. Ben Abbott <bpabbott@mac.com> parents: 9280 diff changeset	2176 ticklabel = cellstr (ticklabel);
9280 40fb718a2e67 __go_draw_axes__.m: Add support for ticklabel separator '\|'. Ben Abbott <bpabbott@mac.com> parents: 9272 diff changeset	2177 endif
9472 303f862a896d __go_draw_axes__.m: Fix ticklabels specified as 2D character array. Ben Abbott <bpabbott@mac.com> parents: 9468 diff changeset	2178 elseif (isempty (ticklabel))
303f862a896d __go_draw_axes__.m: Fix ticklabels specified as 2D character array. Ben Abbott <bpabbott@mac.com> parents: 9468 diff changeset	2179 ticklabel = {""};
9280 40fb718a2e67 __go_draw_axes__.m: Add support for ticklabel separator '\|'. Ben Abbott <bpabbott@mac.com> parents: 9272 diff changeset	2180 else
9281 02b16eeb3167 Fix yticklabels for log scale colorbar. Ben Abbott <bpabbott@mac.com> parents: 9280 diff changeset	2181 ticklabel = ticklabel;
8518 c2c018d7c501 __go_draw_axes__.m: __go_draw_axes__.m: Support non-cell ticklabels. Ben Abbott <bpabbott@mac.com> parents: 8510 diff changeset	2182 endif
c2c018d7c501 __go_draw_axes__.m: __go_draw_axes__.m: Support non-cell ticklabels. Ben Abbott <bpabbott@mac.com> parents: 8510 diff changeset	2183 endfunction
c2c018d7c501 __go_draw_axes__.m: __go_draw_axes__.m: Support non-cell ticklabels. Ben Abbott <bpabbott@mac.com> parents: 8510 diff changeset	2184
7269 3fade00a6ac7 [project @ 2007-12-07 19:26:20 by jwe] jwe parents: 7257 diff changeset	2185 function colorspec = get_text_colorspec (color, mono)
8164 0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	2186 if (mono)
0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	2187 colorspec = "";
7194 a927a2871a93 [project @ 2007-11-26 23:06:12 by jwe] jwe parents: 7191 diff changeset	2188 else
8164 0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	2189 colorspec = sprintf ("textcolor rgb \"#%02x%02x%02x\"",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2190 round (255*color));
6745 ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	2191 endif
ca6668e47518 [project @ 2007-06-19 06:00:08 by jwe] jwe parents: 6738 diff changeset	2192 endfunction
7163 d4d8c7b33e16 [project @ 2007-11-12 21:54:07 by jwe] jwe parents: 7162 diff changeset	2193
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2194 function [f, s, fnt, it, bld] = get_fontname_and_size (t)
11549 beb4f0f27a32 Use {} as the default font for the gnuplot backend David Bateman <dbateman@free.fr> parents: 11523 diff changeset	2195 if (isempty (t.fontname) \|\| strcmp (t.fontname, "*"))
beb4f0f27a32 Use {} as the default font for the gnuplot backend David Bateman <dbateman@free.fr> parents: 11523 diff changeset	2196 fnt = "{}";
7163 d4d8c7b33e16 [project @ 2007-11-12 21:54:07 by jwe] jwe parents: 7162 diff changeset	2197 else
7372 c51426c80045 [project @ 2008-01-14 19:50:10 by jwe] jwe parents: 7321 diff changeset	2198 fnt = t.fontname;
7168 f345eb60f941 [project @ 2007-11-13 15:16:52 by jwe] jwe parents: 7163 diff changeset	2199 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2200 f = fnt;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2201 it = false;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2202 bld = false;
7372 c51426c80045 [project @ 2008-01-14 19:50:10 by jwe] jwe parents: 7321 diff changeset	2203 if (! isempty (t.fontweight) && strcmpi (t.fontweight, "bold"))
7168 f345eb60f941 [project @ 2007-11-13 15:16:52 by jwe] jwe parents: 7163 diff changeset	2204 if (! isempty(t.fontangle)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2205 && (strcmpi (t.fontangle, "italic")
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2206 \|\| strcmpi (t.fontangle, "oblique")))
7540 3422f39573b1 strcat.m: Matlab compatibility, with cstrcat.m replacing conventional strcat.m. Ben Abbott <bpabbott@mac.com> parents: 7513 diff changeset	2207 f = cstrcat (f, "-bolditalic");
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2208 it = true;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2209 bld = true;
7168 f345eb60f941 [project @ 2007-11-13 15:16:52 by jwe] jwe parents: 7163 diff changeset	2210 else
7540 3422f39573b1 strcat.m: Matlab compatibility, with cstrcat.m replacing conventional strcat.m. Ben Abbott <bpabbott@mac.com> parents: 7513 diff changeset	2211 f = cstrcat (f, "-bold");
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2212 bld = true;
7168 f345eb60f941 [project @ 2007-11-13 15:16:52 by jwe] jwe parents: 7163 diff changeset	2213 endif
f345eb60f941 [project @ 2007-11-13 15:16:52 by jwe] jwe parents: 7163 diff changeset	2214 elseif (! isempty(t.fontangle)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2215 && (strcmpi (t.fontangle, "italic")
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2216 \|\| strcmpi (t.fontangle, "oblique")))
7540 3422f39573b1 strcat.m: Matlab compatibility, with cstrcat.m replacing conventional strcat.m. Ben Abbott <bpabbott@mac.com> parents: 7513 diff changeset	2217 f = cstrcat (f, "-italic");
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2218 it = true;
7163 d4d8c7b33e16 [project @ 2007-11-12 21:54:07 by jwe] jwe parents: 7162 diff changeset	2219 endif
d4d8c7b33e16 [project @ 2007-11-12 21:54:07 by jwe] jwe parents: 7162 diff changeset	2220 if (isempty (t.fontsize))
d4d8c7b33e16 [project @ 2007-11-12 21:54:07 by jwe] jwe parents: 7162 diff changeset	2221 s = 10;
d4d8c7b33e16 [project @ 2007-11-12 21:54:07 by jwe] jwe parents: 7162 diff changeset	2222 else
d4d8c7b33e16 [project @ 2007-11-12 21:54:07 by jwe] jwe parents: 7162 diff changeset	2223 s = t.fontsize;
d4d8c7b33e16 [project @ 2007-11-12 21:54:07 by jwe] jwe parents: 7162 diff changeset	2224 endif
d4d8c7b33e16 [project @ 2007-11-12 21:54:07 by jwe] jwe parents: 7162 diff changeset	2225 endfunction
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2226
8164 0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	2227 function [str, f, s] = __maybe_munge_text__ (enhanced, obj, fld)
0d37c99fc06f __go_draw_axes__.m: eliminate have_newer_gnuplot variable John W. Eaton <jwe@octave.org> parents: 8112 diff changeset	2228
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2229 persistent warned_latex = false;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2230
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2231 if (strcmp (fld, "string"))
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2232 [f, s, fnt, it, bld] = get_fontname_and_size (obj);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2233 else
7372 c51426c80045 [project @ 2008-01-14 19:50:10 by jwe] jwe parents: 7321 diff changeset	2234 f = "Helvetica";
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2235 s = 10;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2236 fnt = f;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2237 it = false;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2238 bld = false;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2239 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2240
12965 22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2241 ## The text object maybe multiline, and may be of any class
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2242 str = getfield (obj, fld);
12965 22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2243 if (ischar (str) && size (str, 1) > 1)
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2244 str = cellstr (str);
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2245 elseif (isnumeric (str))
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2246 str = cellstr (num2str (str(:)));
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2247 endif
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2248 if (iscellstr (str))
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2249 for n = 1:numel(str)
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2250 if (isnumeric (str{n}))
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2251 str{n} = num2str (str{n});
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2252 endif
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2253 endfor
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2254 str = sprintf ("%s\n", str{:})(1:end-1);
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2255 endif
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2256
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2257 if (enhanced)
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 8171 diff changeset	2258 if (strcmpi (obj.interpreter, "tex"))
12965 22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2259 if (iscellstr (str))
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2260 for n = 1:numel(str)
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2261 str{n} = __tex2enhanced__ (str{n}, fnt, it, bld);
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2262 endfor
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2263 else
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2264 str = __tex2enhanced__ (str, fnt, it, bld);
22bc9ec80c2c allow multi-line string property for text objects using cell arrays or char matrices Ben Abbott <bpabbott@mac.com> parents: 12931 diff changeset	2265 endif
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 8171 diff changeset	2266 elseif (strcmpi (obj.interpreter, "latex"))
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2267 if (! warned_latex)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2268 warning ("latex markup not supported for text objects");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2269 warned_latex = true;
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2270 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2271 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2272 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2273 endfunction
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2274
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2275 function str = __tex2enhanced__ (str, fnt, it, bld)
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2276 persistent sym = __setup_sym_table__ ();
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2277 persistent flds = fieldnames (sym);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2278
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2279 [s, e, m] = regexp(str,'\\([a-zA-Z]+\|0)','start','end','matches');
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2280
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2281 for i = length (s) : -1 : 1
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2282 ## special case for "\0" and replace with "{/Symbol \306}'
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2283 if (strncmp (m{i}, '\0', 2))
7540 3422f39573b1 strcat.m: Matlab compatibility, with cstrcat.m replacing conventional strcat.m. Ben Abbott <bpabbott@mac.com> parents: 7513 diff changeset	2284 str = cstrcat (str(1:s(i) - 1), '{/Symbol \306}', str(s(i) + 2:end));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2285 else
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2286 f = m{i}(2:end);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2287 if (isfield (sym, f))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2288 g = getfield(sym, f);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2289 ## FIXME The symbol font doesn't seem to support bold or italic
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2290 ##if (bld)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2291 ## if (it)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2292 ## g = regexprep (g, '/Symbol', '/Symbol-bolditalic');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2293 ## else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2294 ## g = regexprep (g, '/Symbol', '/Symbol-bold');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2295 ## endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2296 ##elseif (it)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2297 ## g = regexprep (g, '/Symbol', '/Symbol-italic');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2298 ##endif
7540 3422f39573b1 strcat.m: Matlab compatibility, with cstrcat.m replacing conventional strcat.m. Ben Abbott <bpabbott@mac.com> parents: 7513 diff changeset	2299 str = cstrcat (str(1:s(i) - 1), g, str(e(i) + 1:end));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2300 elseif (strncmp (f, "rm", 2))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2301 bld = false;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2302 it = false;
7540 3422f39573b1 strcat.m: Matlab compatibility, with cstrcat.m replacing conventional strcat.m. Ben Abbott <bpabbott@mac.com> parents: 7513 diff changeset	2303 str = cstrcat (str(1:s(i) - 1), '/', fnt, ' ', str(s(i) + 3:end));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2304 elseif (strncmp (f, "it", 2) \|\| strncmp (f, "sl", 2))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2305 it = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2306 if (bld)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2307 str = cstrcat (str(1:s(i) - 1), '/', fnt, '-bolditalic ',
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2308 str(s(i) + 3:end));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2309 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2310 str = cstrcat (str(1:s(i) - 1), '/', fnt, '-italic ',
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2311 str(s(i) + 3:end));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2312 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2313 elseif (strncmp (f, "bf", 2))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2314 bld = true;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2315 if (it)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2316 str = cstrcat (str(1:s(i) - 1), '/', fnt, '-bolditalic ',
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2317 str(2(i) + 3:end));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2318 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2319 str = cstrcat (str(1:s(i) - 1), '/', fnt, '-bold ',
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2320 str(s(i) + 3:end));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2321 endif
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 8171 diff changeset	2322 elseif (strcmpi (f, "color"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2323 ## FIXME Ignore \color but remove trailing {} block as well
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2324 d = strfind(str(e(i) + 1:end),'}');
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2325 if (isempty (d))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2326 warning ('syntax error in \color argument');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2327 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2328 str = cstrcat (str(1:s(i) - 1), str(e(i) + d + 1:end));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2329 endif
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 8171 diff changeset	2330 elseif(strcmpi (f, "fontname"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2331 b1 = strfind(str(e(i) + 1:end),'{');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2332 b2 = strfind(str(e(i) + 1:end),'}');
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2333 if (isempty(b1) \|\| isempty(b2))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2334 warning ('syntax error in \fontname argument');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2335 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2336 str = cstrcat (str(1:s(i) - 1), '/',
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2337 str(e(i)+b1(1) + 1:e(i)+b2(1)-1), '{}',
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2338 str(e(i) + b2(1) + 1:end));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2339 endif
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 8171 diff changeset	2340 elseif(strcmpi (f, "fontsize"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2341 b1 = strfind(str(e(i) + 1:end),'{');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2342 b2 = strfind(str(e(i) + 1:end),'}');
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2343 if (isempty(b1) \|\| isempty(b2))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2344 warning ('syntax error in \fontname argument');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2345 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2346 str = cstrcat (str(1:s(i) - 1), '/=',
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2347 str(e(i)+b1(1) + 1:e(i)+b2(1)-1), '{}',
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2348 str(e(i) + b2(1) + 1:end));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2349 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2350 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2351 ## Last desperate attempt to treat the symbol. Look for things
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2352 ## like \pix, that should be translated to the symbol Pi and x
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2353 for j = 1 : length (flds)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2354 if (strncmp (flds{j}, f, length (flds{j})))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2355 g = getfield(sym, flds{j});
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2356 ## FIXME The symbol font doesn't seem to support bold or italic
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2357 ##if (bld)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2358 ## if (it)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2359 ## g = regexprep (g, '/Symbol', '/Symbol-bolditalic');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2360 ## else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2361 ## g = regexprep (g, '/Symbol', '/Symbol-bold');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2362 ## endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2363 ##elseif (it)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2364 ## g = regexprep (g, '/Symbol', '/Symbol-italic');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2365 ##endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11549 diff changeset	2366 str = cstrcat (str(1:s(i) - 1), g,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2367 str(s(i) + length (flds{j}) + 1:end));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2368 break;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2369 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2370 endfor
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2371 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2372 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2373 endfor
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2374
8506 bc982528de11 comment style fixes John W. Eaton <jwe@octave.org> parents: 8360 diff changeset	2375 ## Prepend @ to things things like _0^x or _{-100}^{100} for
bc982528de11 comment style fixes John W. Eaton <jwe@octave.org> parents: 8360 diff changeset	2376 ## alignment But need to put the shorter of the two arguments first.
bc982528de11 comment style fixes John W. Eaton <jwe@octave.org> parents: 8360 diff changeset	2377 ## Carful of nested {} and unprinted characters when defining
bc982528de11 comment style fixes John W. Eaton <jwe@octave.org> parents: 8360 diff changeset	2378 ## shortest.. Don't have to worry about things like ^\theta as they
bc982528de11 comment style fixes John W. Eaton <jwe@octave.org> parents: 8360 diff changeset	2379 ## are already converted to ^{/Symbol q}.
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2380
8506 bc982528de11 comment style fixes John W. Eaton <jwe@octave.org> parents: 8360 diff changeset	2381 ## FIXME -- This is a mess... Is it worth it just for a "@" character?
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2382
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2383 [s, m] = regexp(str,'[_\^]','start','matches');
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2384 i = 1;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2385 p = 0;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2386 while (i < length (s))
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2387 if (i < length(s))
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2388 if (str(s(i) + p + 1) == "{")
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2389 s1 = strfind(str(s(i) + p + 2:end),'{');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2390 si = 1;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2391 l1 = strfind(str(s(i) + p + 1:end),'}');
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2392 li = 1;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2393 while (li <= length (l1) && si <= length (s1))
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2394 if (l1(li) < s1(si))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2395 if (li == si)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2396 break;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2397 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2398 li++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2399 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2400 si++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2401 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2402 endwhile
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2403 l1 = l1 (min (length(l1), si));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2404 if (s(i) + l1 + 1 == s(i+1))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2405 if (str(s(i + 1) + p + 1) == "{")
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2406 s2 = strfind(str(s(i + 1) + p + 2:end),'{');
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2407 si = 1;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2408 l2 = strfind(str(s(i + 1) + p + 1:end),'}');
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2409 li = 1;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2410 while (li <= length (l2) && si <= length (s2))
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2411 if (l2(li) < s2(si))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2412 if (li == si)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2413 break;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2414 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2415 li++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2416 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2417 si++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2418 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2419 endwhile
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2420 l2 = l2 (min (length(l2), si));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2421 if (length_string (str(s(i)+p+2:s(i)+p+l1-1)) <=
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2422 length_string(str(s(i+1)+p+2:s(i+1)+p+l2-1)))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2423 ## Shortest already first!
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2424 str = cstrcat (str(1:s(i)+p-1), "@", str(s(i)+p:end));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2425 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2426 ## Have to swap sub/super-script to get shortest first.
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2427 str = cstrcat (str(1:s(i)+p-1), "@", str(s(i+1)+p:s(i+1)+p+l2),
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2428 str(s(i)+p:s(i)+p+l1), str(s(i+1)+p+l2+1:end));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2429 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2430 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2431 ## Have to swap sub/super-script to get shortest first.
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2432 str = cstrcat (str(1:s(i)+p-1), "@", str(s(i+1)+p:s(i+1)+p+1),
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2433 str(s(i)+p:s(i)+p+l1), str(s(i+1)+p+2:end));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2434 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2435 i += 2;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2436 p ++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2437 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2438 i++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2439 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2440 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2441 if (s(i+1) == s(i) + 2)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2442 ## Shortest already first!
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2443 str = cstrcat (str(1:s(i)+p-1), "@", str(s(i)+p:end));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2444 p ++;
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2445 i += 2;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2446 else
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2447 i ++;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	2448 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2449 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2450 else
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2451 i ++;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2452 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2453 endwhile
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2454
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2455 endfunction
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2456
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2457 function l = length_string (s)
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2458 l = length (s) - length (strfind(s,'{')) - length (strfind(s,'}'));
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12420 diff changeset	2459 m = regexp (s, '/([\w-]+\|[\w-]+=\d+)', 'matches');
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2460 if (!isempty (m))
12931 cefd568ea073 Replace function handles with function names in cellfun calls for 15% speedup. Rik <octave@nomad.inbox5.com> parents: 12793 diff changeset	2461 l = l - sum (cellfun ("length", m));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2462 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2463 endfunction
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2464
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2465 function sym = __setup_sym_table__ ()
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2466 ## Setup the translation table for TeX to gnuplot enhanced mode.
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2467 sym.forall = '{/Symbol \042}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2468 sym.exists = '{/Symbol \044}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2469 sym.ni = '{/Symbol \047}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2470 sym.cong = '{/Symbol \100}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2471 sym.Delta = '{/Symbol D}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2472 sym.Phi = '{/Symbol F}';
7608 49810341db91 Correct typos in __go_draw_axes__.m and update Manual godfrey@qss.Stanford.EDU parents: 7603 diff changeset	2473 sym.Gamma = '{/Symbol G}';
7190 9e7377f41b78 [project @ 2007-11-26 21:24:02 by dbateman] dbateman parents: 7189 diff changeset	2474 sym.vartheta = '{/Symbol J}';
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2475 sym.Lambda = '{/Symbol L}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2476 sym.Pi = '{/Symbol P}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2477 sym.Theta = '{/Symbol Q}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2478 sym.Sigma = '{/Symbol S}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2479 sym.varsigma = '{/Symbol V}';
7420 4b17a7297e5d [project @ 2008-01-25 18:56:07 by jwe] jwe parents: 7390 diff changeset	2480 sym.Omega = '{/Symbol W}';
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2481 sym.Xi = '{/Symbol X}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2482 sym.Psi = '{/Symbol Y}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2483 sym.perp = '{/Symbol \136}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2484 sym.alpha = '{/Symbol a}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2485 sym.beta = '{/Symbol b}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2486 sym.chi = '{/Symbol c}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2487 sym.delta = '{/Symbol d}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2488 sym.epsilon = '{/Symbol e}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2489 sym.phi = '{/Symbol f}';
7608 49810341db91 Correct typos in __go_draw_axes__.m and update Manual godfrey@qss.Stanford.EDU parents: 7603 diff changeset	2490 sym.gamma = '{/Symbol g}';
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2491 sym.eta = '{/Symbol h}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2492 sym.iota = '{/Symbol i}';
7593 fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2493 sym.varphi = '{/Symbol j}';
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2494 sym.kappa = '{/Symbol k}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2495 sym.lambda = '{/Symbol l}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2496 sym.mu = '{/Symbol m}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2497 sym.nu = '{/Symbol n}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2498 sym.o = '{/Symbol o}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2499 sym.pi = '{/Symbol p}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2500 sym.theta = '{/Symbol q}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2501 sym.rho = '{/Symbol r}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2502 sym.sigma = '{/Symbol s}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2503 sym.tau = '{/Symbol t}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2504 sym.upsilon = '{/Symbol u}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2505 sym.varpi = '{/Symbol v}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2506 sym.omega = '{/Symbol w}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2507 sym.xi = '{/Symbol x}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2508 sym.psi = '{/Symbol y}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2509 sym.zeta = '{/Symbol z}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2510 sym.sim = '{/Symbol \176}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2511 sym.Upsilon = '{/Symbol \241}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2512 sym.prime = '{/Symbol \242}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2513 sym.leq = '{/Symbol \243}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2514 sym.infty = '{/Symbol \245}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2515 sym.clubsuit = '{/Symbol \247}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2516 sym.diamondsuit = '{/Symbol \250}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2517 sym.heartsuit = '{/Symbol \251}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2518 sym.spadesuit = '{/Symbol \252}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2519 sym.leftrightarrow = '{/Symbol \253}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2520 sym.leftarrow = '{/Symbol \254}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2521 sym.uparrow = '{/Symbol \255}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2522 sym.rightarrow = '{/Symbol \256}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2523 sym.downarrow = '{/Symbol \257}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2524 sym.circ = '{/Symbol \260}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2525 sym.pm = '{/Symbol \261}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2526 sym.geq = '{/Symbol \263}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2527 sym.times = '{/Symbol \264}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2528 sym.propto = '{/Symbol \265}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2529 sym.partial = '{/Symbol \266}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2530 sym.bullet = '{/Symbol \267}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2531 sym.div = '{/Symbol \270}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2532 sym.neq = '{/Symbol \271}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2533 sym.equiv = '{/Symbol \272}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2534 sym.approx = '{/Symbol \273}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2535 sym.ldots = '{/Symbol \274}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2536 sym.mid = '{/Symbol \275}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2537 sym.aleph = '{/Symbol \300}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2538 sym.Im = '{/Symbol \301}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2539 sym.Re = '{/Symbol \302}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2540 sym.wp = '{/Symbol \303}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2541 sym.otimes = '{/Symbol \304}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2542 sym.oplus = '{/Symbol \305}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2543 sym.oslash = '{/Symbol \306}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2544 sym.cap = '{/Symbol \307}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2545 sym.cup = '{/Symbol \310}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2546 sym.supset = '{/Symbol \311}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2547 sym.supseteq = '{/Symbol \312}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2548 sym.subset = '{/Symbol \314}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2549 sym.subseteq = '{/Symbol \315}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2550 sym.in = '{/Symbol \316}';
7593 fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2551 sym.notin = '{/Symbol \317}';
fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2552 sym.angle = '{/Symbol \320}';
fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2553 sym.bigtriangledown = '{/Symbol \321}';
fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2554 sym.langle = '{/Symbol \341}';
fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2555 sym.rangle = '{/Symbol \361}';
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2556 sym.nabla = '{/Symbol \321}';
7593 fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2557 sym.prod = '{/Symbol \325}';
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2558 sym.surd = '{/Symbol \326}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2559 sym.cdot = '{/Symbol \327}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2560 sym.neg = '{/Symbol \330}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2561 sym.wedge = '{/Symbol \331}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2562 sym.vee = '{/Symbol \332}';
7593 fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2563 sym.Leftrightarrow = '{/Symbol \333}';
fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2564 sym.Leftarrow = '{/Symbol \334}';
fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2565 sym.Uparrow = '{/Symbol \335}';
fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2566 sym.Rightarrow = '{/Symbol \336}';
fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2567 sym.Downarrow = '{/Symbol \337}';
fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2568 sym.diamond = '{/Symbol \340}';
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2569 sym.copyright = '{/Symbol \343}';
7593 fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2570 sym.lfloor = '{/Symbol \353}';
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2571 sym.lceil = '{/Symbol \351}';
7593 fdb6ff523237 __go_draw_axes__: use correct symbol codes Michael D. Godfrey parents: 7592 diff changeset	2572 sym.rfloor = '{/Symbol \373}';
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2573 sym.rceil = '{/Symbol \371}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2574 sym.int = '{/Symbol \362}';
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2575 endfunction
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7175 diff changeset	2576
7390 3a21ee84a432 [project @ 2008-01-16 19:27:20 by jwe] jwe parents: 7379 diff changeset	2577 function retval = __do_enhanced_option__ (enhanced, obj)
3a21ee84a432 [project @ 2008-01-16 19:27:20 by jwe] jwe parents: 7379 diff changeset	2578 retval = "";
3a21ee84a432 [project @ 2008-01-16 19:27:20 by jwe] jwe parents: 7379 diff changeset	2579 if (enhanced)
3a21ee84a432 [project @ 2008-01-16 19:27:20 by jwe] jwe parents: 7379 diff changeset	2580 if (strcmpi (obj.interpreter, "none"))
3a21ee84a432 [project @ 2008-01-16 19:27:20 by jwe] jwe parents: 7379 diff changeset	2581 retval = "noenhanced";
3a21ee84a432 [project @ 2008-01-16 19:27:20 by jwe] jwe parents: 7379 diff changeset	2582 else
3a21ee84a432 [project @ 2008-01-16 19:27:20 by jwe] jwe parents: 7379 diff changeset	2583 retval = "enhanced";
3a21ee84a432 [project @ 2008-01-16 19:27:20 by jwe] jwe parents: 7379 diff changeset	2584 endif
3a21ee84a432 [project @ 2008-01-16 19:27:20 by jwe] jwe parents: 7379 diff changeset	2585 endif
3a21ee84a432 [project @ 2008-01-16 19:27:20 by jwe] jwe parents: 7379 diff changeset	2586 endfunction

Mercurial > octave-nkf

annotate scripts/plot/private/__go_draw_axes__.m @ 13299:e9f6a6edec42