octave-libgccjit: scripts/plot/legend.m annotate

annotate scripts/plot/legend.m @ 17536:8a186cd5b9a6

legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. * scripts/plot/legend.m: Change listener for "fontsize", "fontunits", and "interpreter" to point to updatelegend(). Cut off listener recursive loops by deleting listener properties for "location", "orientation", "string", and "textposition" before modifying values and then re-installing listener functions.

author	Rik <rik@octave.org>
date	Wed, 02 Oct 2013 11:31:51 -0700
parents	5eae41c8c07f
children	4f57d4de0383

rev	line source
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 13979 diff changeset	1 ## Copyright (C) 2010-2012 David Bateman
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	2 ##
6440 98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	3 ## This file is part of Octave.
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	4 ##
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 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: 7001 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: 7001 diff changeset	8 ## your option) any later version.
6440 98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	9 ##
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	13 ## General Public License for more details.
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	14 ##
1a6d826e92b5 [project @ 2006-11-09 03:13:11 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: 7001 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: 7001 diff changeset	17 ## <http://www.gnu.org/licenses/>.
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	18
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	19 ## -- texinfo --
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	20 ## @deftypefn {Function File} {} legend (@var{str1}, @var{str2}, @dots{})
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	21 ## @deftypefnx {Function File} {} legend (@var{matstr})
14755 bf759828760c doc: Clarify input must be cellstr, not just cell, to legend(). Rik <octave@nomad.inbox5.com> parents: 14747 diff changeset	22 ## @deftypefnx {Function File} {} legend (@var{cellstr})
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	23 ## @deftypefnx {Function File} {} legend (@dots{}, "location", @var{pos})
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	24 ## @deftypefnx {Function File} {} legend (@dots{}, "orientation", @var{orient})
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	25 ## @deftypefnx {Function File} {} legend (@var{hax}, @dots{})
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	26 ## @deftypefnx {Function File} {} legend (@var{hobjs}, @dots{})
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	27 ## @deftypefnx {Function File} {} legend (@var{hax}, @var{hobjs}, @dots{})
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	28 ## @deftypefnx {Function File} {} legend ("@var{option}")
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	29 ## @deftypefnx {Function File} {[@var{hleg}, @var{hleg_obj}, @var{hplot}, @var{labels}] =} legend (@dots{})
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	30 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	31 ## Display a legend for the current axes using the specified strings as labels.
eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	32 ##
eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	33 ## Legend entries may be specified as individual character string arguments,
eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	34 ## a character array, or a cell array of character strings.
eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	35 ##
eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	36 ## If the first argument @var{hax} is an axes handle, then plot into this axis,
eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	37 ## rather than the current axes returned by @code{gca}. If the handles,
eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	38 ## @var{hobjs}, are not specified then the legend's strings will be associated
eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	39 ## with the axes' descendants. @code{legend} works on line graphs,
eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	40 ## bar graphs, etc. A plot must exist before legend is called.
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	41 ##
6895 76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6740 diff changeset	42 ## The optional parameter @var{pos} specifies the location of the legend
76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6740 diff changeset	43 ## as follows:
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	44 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	45 ## @multitable @columnfractions 0.06 0.14 0.80
17204 d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot. Rik <rik@octave.org> parents: 17190 diff changeset	46 ## @headitem @tab pos @tab location of the legend
d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot. Rik <rik@octave.org> parents: 17190 diff changeset	47 ## @item @tab north @tab center top
d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot. Rik <rik@octave.org> parents: 17190 diff changeset	48 ## @item @tab south @tab center bottom
d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot. Rik <rik@octave.org> parents: 17190 diff changeset	49 ## @item @tab east @tab right center
d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot. Rik <rik@octave.org> parents: 17190 diff changeset	50 ## @item @tab west @tab left center
d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot. Rik <rik@octave.org> parents: 17190 diff changeset	51 ## @item @tab northeast @tab right top (default)
d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot. Rik <rik@octave.org> parents: 17190 diff changeset	52 ## @item @tab northwest @tab left top
d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot. Rik <rik@octave.org> parents: 17190 diff changeset	53 ## @item @tab southeast @tab right bottom
d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot. Rik <rik@octave.org> parents: 17190 diff changeset	54 ## @item @tab southwest @tab left bottom
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	55 ## @item
17204 d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot. Rik <rik@octave.org> parents: 17190 diff changeset	56 ## @item @tab outside @tab can be appended to any location string
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	57 ## @end multitable
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	58 ##
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	59 ## The optional parameter @var{orient} determines if the key elements
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	60 ## are placed vertically or horizontally. The allowed values are
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	61 ## @qcode{"vertical"} (default) or @qcode{"horizontal"}.
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	62 ##
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	63 ## The following customizations are available using @var{option}:
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	64 ##
7148 735086cfd405 [project @ 2007-11-09 18:01:44 by jwe] jwe parents: 7054 diff changeset	65 ## @table @asis
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	66 ## @item @qcode{"show"}
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	67 ## Show legend on the plot
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	68 ##
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	69 ## @item @qcode{"hide"}
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	70 ## Hide legend on the plot
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	71 ##
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	72 ## @item @qcode{"toggle"}
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	73 ## Toggles between @qcode{"hide"} and @qcode{"show"}
12394 c2e1973d870b legend.m: "legend off" should delete the legend object. Ben Abbott <bpabbott@mac.com> parents: 12388 diff changeset	74 ##
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	75 ## @item @qcode{"boxon"}
17532 492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	76 ## Show a box around legend (default)
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	77 ##
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	78 ## @item @qcode{"boxoff"}
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	79 ## Hide the box around legend
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	80 ##
17532 492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	81 ## @item @qcode{"right"}
492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	82 ## Place label text to the right of the keys (default)
492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	83 ##
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	84 ## @item @qcode{"left"}
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	85 ## Place label text to the left of the keys
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	86 ##
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	87 ## @item @qcode{"off"}
12394 c2e1973d870b legend.m: "legend off" should delete the legend object. Ben Abbott <bpabbott@mac.com> parents: 12388 diff changeset	88 ## Delete the legend object
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	89 ## @end table
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	90 ##
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	91 ## The optional output values are
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	92 ##
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	93 ## @table @var
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	94 ## @item hleg
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	95 ## The graphics handle of the legend object.
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	96 ##
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	97 ## @item hleg_obj
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	98 ## Graphics handles to the text and line objects which make up the legend.
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	99 ##
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	100 ## @item hplot
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	101 ## Graphics handles to the plot objects which were used in making the legend.
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	102 ##
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	103 ## @item labels
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	104 ## A cell array of strings of the labels in the legend.
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	105 ## @end table
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	106 ##
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	107 ## The legend label text is either provided in the call to @code{legend} or
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	108 ## is taken from the DisplayName property of graphics objects. If no
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	109 ## labels or DisplayNames are available, then the label text is simply
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	110 ## @qcode{"data1"}, @qcode{"data2"}, @dots{}, @nospell{@qcode{"dataN"}}.
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	111 ##
eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 17119 diff changeset	112 ## Implementation Note: A legend is implemented as an additional axes object
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	113 ## of the current figure with the @qcode{"tag"} set to @qcode{"legend"}.
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	114 ## Properties of the legend object may be manipulated directly by using
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17204 diff changeset	115 ## @code{set}.
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	116 ## @end deftypefn
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	117
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	118 function [hleg, hleg_obj, hplot, labels] = legend (varargin)
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	119
11246 c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	120 if (nargin > 0
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	121 && (! ishandle (varargin{1})
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	122 \|\| (strcmp (get (varargin{1}, "type"), "axes")
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	123 && ! strcmp (get (varargin{1}, "tag"), "legend"))))
17065 991e8a386aa3 legend.m: Update to use new __plt_get_axis_arg__. Rik <rik@octave.org> parents: 16973 diff changeset	124 [ca, varargin, nargin] = __plt_get_axis_arg__ ("legend", varargin{:});
991e8a386aa3 legend.m: Update to use new __plt_get_axis_arg__. Rik <rik@octave.org> parents: 16973 diff changeset	125 if (isempty (ca))
991e8a386aa3 legend.m: Update to use new __plt_get_axis_arg__. Rik <rik@octave.org> parents: 16973 diff changeset	126 ca = gca ();
991e8a386aa3 legend.m: Update to use new __plt_get_axis_arg__. Rik <rik@octave.org> parents: 16973 diff changeset	127 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	128 fig = get (ca, "parent");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	129 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	130 fig = get (0, "currentfigure");
11246 c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	131 if (isempty (fig))
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	132 fig = gcf ();
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	133 endif
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	134 ca = gca ();
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	135 endif
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	136
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	137 ## Special handling for plotyy which has two axes objects
13216 434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13141 diff changeset	138 if (ishandle (ca) && isprop (ca, "__plotyy_axes__"))
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13141 diff changeset	139 plty = get (ca, "__plotyy_axes__");
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13141 diff changeset	140 if (isscalar (plty) && ishandle (plty))
11199 91c606a68693 minor fix to previous changeset David Bateman <dbateman@free.fr> parents: 11198 diff changeset	141 ca = [ca, plty];
13216 434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13141 diff changeset	142 elseif (iscell (plty))
11199 91c606a68693 minor fix to previous changeset David Bateman <dbateman@free.fr> parents: 11198 diff changeset	143 ca = [ca, plty{:}];
13216 434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13141 diff changeset	144 elseif (all (ishandle (plty)))
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13141 diff changeset	145 ca = [ca, plty(:).'];
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13141 diff changeset	146 else
15202 f3b5cadfd6d5 fix missing semicolons in various .m files John W. Eaton <jwe@octave.org> parents: 14868 diff changeset	147 error ("legend.m: This should not happen. File a bug report.");
11199 91c606a68693 minor fix to previous changeset David Bateman <dbateman@free.fr> parents: 11198 diff changeset	148 endif
13216 434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13141 diff changeset	149 ## Remove duplicates while preserving order
434e227b100b Improvements to plotyy. Ben Abbott <bpabbott@mac.com> parents: 13141 diff changeset	150 [~, n] = unique (ca);
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	151 ca = ca(sort (n));
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	152 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	153
11246 c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	154 if (nargin > 0 && all (ishandle (varargin{1})))
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	155 kids = flipud (varargin{1}(:));
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	156 varargin(1) = [];
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	157 else
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	158 kids = ca;
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	159 kids(strcmp (get (ca, "tag"), "legend")) = [];
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	160 if (isscalar (kids))
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	161 kids = get (kids, "children")(:);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	162 else
14207 57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	163 kids = flipud ([get(kids, "children"){:}](:));
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	164 endif
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	165 endif
11246 c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	166 nargs = numel (varargin);
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	167 nkids = numel (kids);
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	168
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	169 orientation = "default";
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	170 location = "default";
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	171 show = "create";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	172 textpos = "default";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	173 box = "default";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	174
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	175 ## Process old way of specifying location with a number rather than a string.
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	176 if (nargs > 0)
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	177 pos = varargin{nargs};
13279 984359717d71 Use common code idiom for checking whether a double value is an integer. Rik <octave@nomad.inbox5.com> parents: 13216 diff changeset	178 if (isnumeric (pos) && isscalar (pos) && pos == fix (pos))
6395 a8dd70bacc1e [project @ 2007-03-07 22:22:12 by jwe] jwe parents: 6272 diff changeset	179 if (pos >= -1 && pos <= 4)
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	180 location = [{"northeastoutside", "best", "northeast",
11003 b1cfff739af5 legend.m: Index location cellstr to obtain a string. Ben Abbott <bpabbott@mac.com> parents: 10999 diff changeset	181 "northwest", "southwest", "southeast"}] {pos + 2};
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	182 nargs--;
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	183 else
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	184 error ("legend: invalid location specified");
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	185 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	186 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	187 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	188
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	189 ## Find location and orientation property/value pairs
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	190 while (nargs > 1)
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	191 pos = varargin{nargs-1};
7054 1c5b2b5b58ba [project @ 2007-10-23 23:22:16 by jwe] jwe parents: 7017 diff changeset	192 str = varargin{nargs};
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	193 if (strcmpi (pos, "location") && ischar (str))
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	194 location = lower (str);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	195 nargs -= 2;
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	196 elseif (strcmpi (pos, "orientation") && ischar (str))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	197 orientation = lower (str);
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	198 nargs -= 2;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	199 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	200 break;
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	201 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	202 endwhile
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	203
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	204 ## Validate the orientation
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	205 switch (orientation)
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	206 case {"vertical", "horizontal", "default"}
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	207 ## These are all accepted orientations.
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	208 otherwise
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	209 error ("legend: unrecognized legend orientation");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	210 endswitch
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	211
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	212 ## Validate the location type
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	213 outside = false;
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	214 inout = strfind (location, "outside");
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	215 if (! isempty (inout))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	216 outside = true;
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	217 location = location(1:inout-1);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	218 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	219 outside = false;
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	220 endif
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	221
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	222 switch (location)
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	223 case {"north", "south", "east", "west", "northeast", "northwest", ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	224 "southeast", "southwest", "default"}
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	225 case "best"
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	226 warning ("legend: 'best' not yet implemented for location specifier\n");
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	227 location = "northeast";
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	228 otherwise
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	229 error ("legend: unrecognized legend location");
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	230 endswitch
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	231
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	232 ## Find any existing legend object on figure
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	233 hlegend = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	234 fkids = get (fig, "children");
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	235 for i = 1 : numel (fkids)
17125 b5d6314314fc Change various plot functions to take advantage of new isaxes() function. Rik <rik@octave.org> parents: 17122 diff changeset	236 if ( strcmp (get (fkids(i), "type"), "axes")
b5d6314314fc Change various plot functions to take advantage of new isaxes() function. Rik <rik@octave.org> parents: 17122 diff changeset	237 && strcmp (get (fkids(i), "tag"), "legend"))
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	238 udata = get (fkids(i), "userdata");
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	239 if (any (udata.handle == ca))
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	240 hlegend = fkids(i);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	241 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	242 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	243 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	244 endfor
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6163 diff changeset	245
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	246 if (nargs == 1)
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	247 arg = varargin{1};
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	248 if (ischar (arg))
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	249 if (rows (arg) == 1)
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	250 str = tolower (strtrim (arg));
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	251 switch (str)
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	252 case "off"
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	253 delete (hlegend);
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	254 return;
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	255 case "hide"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	256 show = "off";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	257 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	258 case "show"
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	259 if (! isempty (hlegend))
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	260 show = "on";
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	261 else
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	262 show = "create";
17532 492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	263 textpos = "right";
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	264 endif
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	265 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	266 case "toggle"
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	267 if (isempty (hlegend))
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	268 show = "create";
17532 492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	269 textpos = "right";
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	270 elseif (strcmp (get (hlegend, "visible"), "off"))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	271 show = "on";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	272 else
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	273 show = "off";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	274 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	275 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	276 case "boxon"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	277 box = "on";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	278 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	279 case "boxoff"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	280 box = "off";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	281 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	282 case "left"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	283 textpos = "left";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	284 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	285 case "right"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	286 textpos = "right";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	287 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	288 endswitch
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	289 else
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	290 ## Character matrix of labels
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	291 varargin = cellstr (arg);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	292 nargs = numel (varargin);
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	293 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	294 elseif (iscellstr (arg))
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	295 ## Cell array of labels
8529 774b44619c5c Fix legend order for both horizontal and vertical string cell. Daniel J Sebald <daniel.sebald@ieee.org> parents: 8343 diff changeset	296 varargin = arg;
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	297 nargs = numel (varargin);
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	298 else
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	299 error ("legend: expecting argument to be a character string");
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	300 endif
14589 fd6e50e2eee6 legend() should accept labels being specified as both cellstrs and char. Ben Abbott <bpabbott@mac.com> parents: 14585 diff changeset	301 elseif (nargs > 1 && iscellstr (varargin{1}))
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	302 ## Cell array of labels followed by property/value pairs
14589 fd6e50e2eee6 legend() should accept labels being specified as both cellstrs and char. Ben Abbott <bpabbott@mac.com> parents: 14585 diff changeset	303 varargin = {varargin{1}{:}, varargin{2:end}};
fd6e50e2eee6 legend() should accept labels being specified as both cellstrs and char. Ben Abbott <bpabbott@mac.com> parents: 14585 diff changeset	304 nargs = numel (varargin);
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	305 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	306
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	307 have_labels = (nargs > 0);
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	308
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	309 if (strcmp (show, "off"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	310 if (! isempty (hlegend))
14578 f579a94aacaa Preserve legend handle when changing properties (Bug # 36259). Carnë Draug <carandraug+dev@gmail.com> parents: 14552 diff changeset	311 set (findobj (hlegend), "visible", "off");
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	312 hlegend = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	313 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	314 hobjects = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	315 hplots = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	316 text_strings = {};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	317 elseif (strcmp (show, "on"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	318 if (! isempty (hlegend))
14578 f579a94aacaa Preserve legend handle when changing properties (Bug # 36259). Carnë Draug <carandraug+dev@gmail.com> parents: 14552 diff changeset	319 set (findobj (hlegend), "visible", "on");
14585 c38a253723d3 Syncrhonize legend's "visible" and "box" properties. (Bug # 36136) Ben Abbott <bpabbott@mac.com> parents: 14581 diff changeset	320 ## NOTE - Matlab sets both "visible", and "box" to "on"
c38a253723d3 Syncrhonize legend's "visible" and "box" properties. (Bug # 36136) Ben Abbott <bpabbott@mac.com> parents: 14581 diff changeset	321 set (hlegend, "visible", get (hlegend, "box"));
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	322 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	323 hobjects = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	324 hplots = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	325 text_strings = {};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	326 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	327 elseif (strcmp (box, "on"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	328 if (! isempty (hlegend))
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	329 set (hlegend, "box", "on", "visible", "on");
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	330 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	331 elseif (strcmp (box, "off"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	332 if (! isempty (hlegend))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	333 set (hlegend, "box", "off", "visible", "off");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	334 endif
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	335 elseif (! have_labels && ! (strcmp (location, "default") &&
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	336 strcmp (orientation, "default")))
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	337 ## Changing location or orientation of existing legend
12398 735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	338 if (! isempty (hlegend))
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	339 if (strcmp (location, "default"))
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	340 set (hlegend, "orientation", orientation);
12398 735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	341 elseif (strcmp (orientation, "default"))
735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	342 if (outside)
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	343 set (hlegend, "location", [location "outside"]);
12398 735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	344 else
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	345 set (hlegend, "location", location);
12398 735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	346 endif
735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	347 else
735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	348 if (outside)
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	349 set (hlegend, "location", [location "outside"],
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	350 "orientation", orientation);
12398 735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	351 else
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	352 set (hlegend, "location", location,
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	353 "orientation", orientation);
12398 735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	354 endif
735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	355 endif
735e43b75e45 Allow the legend location and orientation to be set without modifying the legend keys (#32374) David Bateman <dbateman@free.fr> parents: 12396 diff changeset	356 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	357 else
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	358 ## Create new legend
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	359 hobjects = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	360 hplots = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	361 text_strings = {};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	362
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	363 if (have_labels)
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	364 ## Check for valid data that can be labeled.
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	365 have_data = false;
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	366 have_dname = false;
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	367 for k = 1 : nkids
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	368 typ = get (kids(k), "type");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	369 if (strcmp (typ, "line") \|\| strcmp (typ, "surface")
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	370 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	371 have_data = true;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	372 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	373 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	374 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	375
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	376 if (! have_data)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	377 warning ("legend: plot data is empty; setting key labels has no effect");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	378 endif
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	379 else
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	380 ## No labels. Search for DisplayName property.
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	381 have_dname = false;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	382 for k = 1 : nkids
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	383 hkid = kids(k);
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	384 typ = get (hkid, "type");
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	385 if (strcmp (typ, "line") \|\| strcmp (typ, "surface")
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	386 \|\| strcmp (typ, "patch"))
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	387 if (! isempty (get (hkid, "displayname")))
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	388 have_dname = true;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	389 break;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	390 endif
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	391 elseif (strcmp (typ, "hggroup"))
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	392 hgkids = get (hkid, "children");
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	393 for j = 1 : length (hgkids)
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	394 hgobj = get (hgkids(j));
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	395 if (isfield (hgobj, "displayname") && ! isempty (hgobj.displayname))
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	396 have_dname = true;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	397 break; # break from j-loop over hgkids
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	398 endif
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	399 endfor
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	400 if (have_dname)
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	401 break; # break from k loop over nkids
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	402 endif
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	403 endif # elseif hggroup
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	404 endfor # for loop k = 1 : nkids
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	405 endif # else branch of if (have_labels)
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	406
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	407 if (have_labels \|\| ! have_dname)
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	408 k = nkids;
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	409 if (! have_labels)
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	410 varargin = arrayfun (@(x) sprintf ("data%d", x), [1:nkids]',
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	411 "uniformoutput", false);
16795 38c1a421f082 When no keys are specified and defaults are populated, set have_labels = true. Ben Abbott <bpabbott@mac.com> parents: 16728 diff changeset	412 have_labels = true;
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	413 nargs = nkids;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	414 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	415 for i = 1 : nargs
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	416 arg = varargin{i};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	417 if (ischar (arg))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	418 typ = get (kids(k), "type");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	419 while (k > 0
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	420 && ! (strcmp (typ, "line") \|\| strcmp (typ, "surface")
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	421 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup")))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	422 typ = get (kids(--k), "type");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	423 endwhile
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	424 if (k > 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	425 if (strcmp (get (kids(k), "type"), "hggroup"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	426 hgkids = get (kids(k), "children");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	427 for j = 1 : length (hgkids)
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	428 hgobj = get (hgkids(j));
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	429 if (isfield (hgobj, "displayname"))
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	430 if (have_labels)
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	431 set (hgkids(j), "displayname", arg);
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	432 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	433 hplots = [hplots, hgkids(j)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	434 text_strings = {text_strings{:}, arg};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	435 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	436 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	437 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	438 else
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	439 if (have_labels)
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	440 set (kids(k), "displayname", arg);
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	441 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	442 hplots = [hplots, kids(k)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	443 text_strings = {text_strings{:}, arg};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	444 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	445
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	446 if (--k == 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	447 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	448 endif
15441 e5a07d7aafcc legend.m: Remove unused warning variable and associated code. Rik <rik@octave.org> parents: 15440 diff changeset	449 else
e5a07d7aafcc legend.m: Remove unused warning variable and associated code. Rik <rik@octave.org> parents: 15440 diff changeset	450 break; # k = 0, no further handles to process
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	451 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	452 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	453 error ("legend: expecting argument to be a character string");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	454 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	455 endfor
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	456 if (have_labels && i < nargs)
13979 f35b593688a5 Changing the legend's interpreter property should be inherited by the Ben Abbott <bpabbott@mac.com> parents: 13937 diff changeset	457 warning ("legend: ignoring extra labels");
f35b593688a5 Changing the legend's interpreter property should be inherited by the Ben Abbott <bpabbott@mac.com> parents: 13937 diff changeset	458 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	459 else
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	460 ## No labels specified but objects have DisplayName property set.
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	461 k = nkids;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	462 while (k > 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	463 typ = get (kids(k), "type");
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	464 while (k > 1
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	465 && ! (strcmp (typ, "line") \|\| strcmp (typ, "surface")
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	466 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup")))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	467 typ = get (kids(--k), "type");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	468 endwhile
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	469 if (! (strcmp (typ, "line") \|\| strcmp (typ, "surface")
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	470 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup")))
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	471 break;
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	472 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	473 if (k > 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	474 if (strcmp (get (kids(k), "type"), "hggroup"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	475 hgkids = get (kids(k), "children");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	476 for j = 1 : length (hgkids)
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	477 hgobj = get (hgkids(j));
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	478 if (isfield (hgobj, "displayname")
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	479 && ! isempty (hgobj.displayname))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	480 hplots = [hplots, hgkids(j)];
13936 bfaacd5e7379 Bug fix (#34901). Allow legend options to be specified. Modify demo. Ben Abbott <bpabbott@mac.com> parents: 13279 diff changeset	481 text_strings = {text_strings{:}, hgobj.displayname};
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	482 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	483 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	484 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	485 else
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	486 if (! isempty (get (kids(k), "displayname")))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	487 hplots = [hplots, kids(k)];
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	488 text_strings = {text_strings{:}, get(kids(k), "displayname")};
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	489 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	490 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	491 if (--k == 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	492 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	493 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	494 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	495 endwhile
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	496 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	497
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	498 if (isempty (hplots))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	499 if (! isempty (hlegend))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	500 fkids = get (fig, "children");
16800 56102c33122d Fix problems with changeset 286904321282. Ben Abbott <bpabbott@mac.com> parents: 16799 diff changeset	501 delete (fkids(fkids == hlegend));
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	502 hlegend = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	503 hobjects = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	504 hplots = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	505 text_strings = {};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	506 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	507 else
14578 f579a94aacaa Preserve legend handle when changing properties (Bug # 36259). Carnë Draug <carandraug+dev@gmail.com> parents: 14552 diff changeset	508 ## Preserve the old legend if it exists
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	509 if (! isempty (hlegend))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	510 if (strcmp (textpos, "default"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	511 textpos = get (hlegend, "textposition");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	512 endif
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	513 if (strcmp (location, "default"))
519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	514 location = get (hlegend, "location");
519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	515 inout = strfind (location, "outside");
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	516 if (! isempty (inout))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	517 outside = true;
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	518 location = location(1:inout-1);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	519 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	520 outside = false;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	521 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	522 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	523 if (strcmp (orientation, "default"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	524 orientation = get (hlegend, "orientation");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	525 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	526 box = get (hlegend, "box");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	527 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	528 if (strcmp (textpos, "default"))
17532 492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	529 textpos = "right";
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	530 endif
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	531 if (strcmp (location, "default"))
519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	532 location = "northeast";
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	533 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	534 if (strcmp (orientation, "default"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	535 orientation = "vertical";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	536 endif
14529 aabdc8f281f1 legend.m: Change default to boxon for Matlab compatibility (bug #36105). Rik <octave@nomad.inbox5.com> parents: 14375 diff changeset	537 box = "on";
6272 a1f3d3b7ee5c [project @ 2007-02-06 02:09:48 by jwe] jwe parents: 6257 diff changeset	538 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	539
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	540 ## Get axis size and fontsize in points.
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	541 ## Rely on listener to handle coversion.
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	542 units = get (ca(1), "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	543 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	544 set (ca(1), "units", "points");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	545 set (ca(1), "fontunits", "points");
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	546 if (isempty (hlegend) \|\| ! isprop (hlegend, "unmodified_axes_position"))
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	547 unmodified_axes_position = get (ca(1), "position");
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	548 unmodified_axes_outerposition = get (ca(1), "outerposition");
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	549 else
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	550 unmodified_axes_position = get (hlegend, "unmodified_axes_position");
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	551 unmodified_axes_outerposition = get (hlegend, ...
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	552 "unmodified_axes_outerposition");
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	553 endif
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	554 ca_pos = unmodified_axes_position;
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	555 ca_outpos = unmodified_axes_outerposition;
16910 8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	556 tightinset = get (ca(1), "tightinset");
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	557 for i = 2 : numel (ca)
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	558 tightinset = max (tightinset, get (ca(i), "tightinset"));
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	559 endfor
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	560 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	561 set (ca(1), "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	562 end_unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	563
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	564 ## Padding between legend entries horizontally and vertically
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	565 xpad = 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	566 ypad = 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	567
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	568 linelength = 15;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	569
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	570 ## Create the axis first
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	571 curaxes = get (fig, "currentaxes");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	572 unwind_protect
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	573 ud = ancestor (hplots, "axes");
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	574 if (! isscalar (ud))
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	575 ud = unique ([ud{:}]);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	576 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	577 if (isempty (hlegend))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	578 addprops = true;
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	579 hlegend = axes ("tag", "legend", "userdata", struct ("handle", ud),
12440 2ed62b9f949e synchronization of axes position and outerposition Konstantinos Poulios <logari81@googlemail.com> parents: 12437 diff changeset	580 "box", box,
14529 aabdc8f281f1 legend.m: Change default to boxon for Matlab compatibility (bug #36105). Rik <octave@nomad.inbox5.com> parents: 14375 diff changeset	581 "xtick", [], "ytick", [],
14578 f579a94aacaa Preserve legend handle when changing properties (Bug # 36259). Carnë Draug <carandraug+dev@gmail.com> parents: 14552 diff changeset	582 "xlim", [0, 1], "ylim", [0, 1],
f579a94aacaa Preserve legend handle when changing properties (Bug # 36259). Carnë Draug <carandraug+dev@gmail.com> parents: 14552 diff changeset	583 "visible", ifelse (strcmp (box, "on"), "on", "off"),
14746 3ddb62bd67c5 legend.m: Inherit font size from axes. Konstantinos Poulios <logari81@gmail.com> parents: 14589 diff changeset	584 "activepositionproperty", "position",
17534 ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	585 "interpreter", "tex");
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	586 ## Inherit properties from current axis
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	587 ## "fontunits" shoud be first because it affects interpretation of "fontsize"
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	588 proplist = {"fontunits", "fontangle", "fontname", "fontsize", "fontweight"};
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	589 ca_props = get (ca(1), proplist);
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	590 set (hlegend, proplist, ca_props);
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	591 else
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	592 addprops = false;
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	593 axes (hlegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	594 delete (get (hlegend, "children"));
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	595 endif
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	596 if (addprops)
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	597 addproperty ("edgecolor", hlegend, "color", [0, 0, 0]);
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	598 addproperty ("textcolor", hlegend, "color", [0, 0, 0]);
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	599 locations = {"north", "south", "east", "west", ...
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	600 "{northeast}", "southeast", "northwest", "southwest", ...
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	601 "northoutside", "southoutside", ...
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	602 "eastoutside", "westoutside", ...
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	603 "northeastoutside", "southeastoutside", ...
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	604 "northwestoutside", "southwestoutside"};
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	605 addproperty ("location", hlegend, "radio", strjoin (locations, "\|"));
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	606 addproperty ("orientation", hlegend, "radio",
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	607 "{vertical}\|horizontal");
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	608 addproperty ("string", hlegend, "any", text_strings);
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	609 addproperty ("textposition", hlegend, "radio", "left\|{right}");
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	610 endif
17534 ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	611 ## Inherit visual properties from legend object
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	612 fontunits = get (hlegend, "fontunits");
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	613 fontangle = get (hlegend, "fontangle");
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	614 fontname = get (hlegend, "fontname");
16728 5cf7369a74cb Update legend box when the fontsize changes. Ben Abbott <bpabbott@mac.com> parents: 16094 diff changeset	615 fontsize = get (hlegend, "fontsize");
17534 ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	616 fontweight = get (hlegend, "fontweight");
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	617 interpreter = get (hlegend, "interpreter");
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	618 textcolor = get (hlegend, "textcolor");
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	619 ## Add text label to the axis first, checking their extents
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	620 nentries = numel (hplots);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	621 texthandle = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	622 maxwidth = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	623 maxheight = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	624 for k = 1 : nentries
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	625 halign = ifelse (strcmp (textpos, "right"), "left", "right");
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	626 texthandle = [texthandle, text(0, 0, text_strings{k},
17534 ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	627 "userdata", hplots(k),
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	628 "color", textcolor,
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	629 "horizontalalignment", halign,
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	630 "interpreter", interpreter,
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	631 "fontunits", fontunits,
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	632 "fontangle", fontangle,
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	633 "fontname", fontname,
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	634 "fontsize", fontsize,
ec105d91547e legend.m: Inherit font properties from current axes. Default interpreter to 'tex'. Rik <rik@octave.org> parents: 17533 diff changeset	635 "fontweight", fontweight)];,
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	636 units = get (texthandle(end), "units");
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	637 unwind_protect
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	638 set (texthandle(end), "units", "points");
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	639 extents = get (texthandle(end), "extent");
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	640 maxwidth = max (maxwidth, extents(3));
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	641 maxheight = max (maxheight, extents(4));
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	642 unwind_protect_cleanup
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	643 set (texthandle(end), "units", units);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	644 end_unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	645 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	646
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	647 num1 = nentries;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	648 if (strcmp (orientation, "vertical"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	649 height = nentries * (ypad + maxheight);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	650 if (outside)
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	651 if (height > ca_pos(4))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	652 ## Avoid shrinking the height of the axis to zero if outside
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	653 num1 = ca_pos(4) / (maxheight + ypad) / 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	654 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	655 else
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	656 if (height > 0.9 * ca_pos(4))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	657 num1 = 0.9 * ca_pos(4) / (maxheight + ypad);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	658 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	659 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	660 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	661 width = nentries * (ypad + maxwidth);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	662 if (outside)
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	663 if (width > ca_pos(3))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	664 ## Avoid shrinking the width of the axis to zero if outside
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	665 num1 = ca_pos(3) / (maxwidth + ypad) / 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	666 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	667 else
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	668 if (width > 0.9 * ca_pos(3))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	669 num1 = 0.9 * ca_pos(3) / (maxwidth + ypad);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	670 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	671 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	672 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	673 num2 = ceil (nentries / num1);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	674
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	675 xstep = 3 * xpad + (maxwidth + linelength);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	676 if (strcmp (textpos, "right"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	677 xoffset = xpad;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	678 txoffset = 2 * xpad + linelength;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	679 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	680 xoffset = 2 * xpad + maxwidth;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	681 txoffset = xpad + maxwidth;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	682 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	683 ystep = (ypad + maxheight);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	684 yoffset = ystep / 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	685
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	686 ## Place the legend in the desired location
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	687 if (strcmp (orientation, "vertical"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	688 lpos = [0, 0, num2 * xstep, num1 * ystep];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	689 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	690 lpos = [0, 0, num1 * xstep, num2 * ystep];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	691 endif
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	692
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	693 gnuplot = strcmp (get (fig, "__graphics_toolkit__"), "gnuplot");
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	694 if (gnuplot)
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	695 ## Gnuplot places the key (legend) at edge of the figure window.
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	696 ## OpenGL places the legend box at edge of the unmodified axes
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	697 ## position.
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	698 if (isempty (strfind (location, "east")))
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	699 gnuplot_offset = unmodified_axes_outerposition(1) ...
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	700 + unmodified_axes_outerposition(3) ...
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	701 - unmodified_axes_position(1) ...
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	702 - unmodified_axes_position(3);
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	703 else
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	704 gnuplot_offset = unmodified_axes_position(1) ...
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	705 - unmodified_axes_outerposition(1);
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	706 endif
17179 828e8852efa9 legend.m: Add %!demo block showing bug #39697. Rik <rik@octave.org> parents: 17174 diff changeset	707 ## FIXME: The "fontsize" is added to match the behavior of OpenGL.
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	708 ## This implies that a change in fontsize should trigger a listener
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	709 ## to update the legend. The "2" was determined using a long legend
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	710 ## key in the absence of any subplots.
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	711 gnuplot_offset = gnuplot_offset - 2 * fontsize;
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	712 else
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	713 gnuplot_offset = 0;
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	714 endif
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	715
16910 8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	716 ## For legend's outside the associated axes postion, align their edge
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	717 ## to the unmodified_axes_outerpostion, and adjust the axes postion
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	718 ## accordingly.
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	719 switch (location)
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	720 case "north"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	721 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	722 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ...
12396 6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	723 ca_outpos(2) + ca_outpos(4) - lpos(4) - ypad, lpos(3), ...
6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	724 lpos(4)];
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	725
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	726 new_pos = [ca_pos(1), ca_pos(2), ca_pos(3), ca_pos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	727 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	728 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	729 ca_pos(2) + ca_pos(4) - lpos(4) - ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	730 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	731 case "south"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	732 if (outside)
12396 6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	733 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ...
6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	734 ca_outpos(2) + ypad, lpos(3), lpos(4)];
16910 8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	735 new_pos = [ca_pos(1), lpos(2) + lpos(4) + 2 * ypad ...
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	736 + tightinset(2), ca_pos(3), ...
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	737 ca_pos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	738 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	739 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	740 ca_pos(2) + ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	741 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	742 case "east"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	743 if (outside)
12396 6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	744 lpos = [ca_outpos(1) + ca_outpos(3) - lpos(3) - ypad, ...
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	745 ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, lpos(3), lpos(4)];
16910 8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	746 new_pos = [ca_pos(1), ca_pos(2), ...
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	747 lpos(1) - 2 * xpad - ca_pos(1) - tightinset(3), ...
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	748 ca_pos(4)];
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	749 new_pos(3) = new_pos(3) + gnuplot_offset;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	750 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	751 lpos = [ca_pos(1) + ca_pos(3) - lpos(3) - ypad, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	752 ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	753 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	754 case "west"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	755 if (outside)
12396 6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	756 lpos = [ca_outpos(1) + ypad, ...
6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	757 ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, ...
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	758 lpos(3), lpos(4)];
16910 8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	759 new_pos = [lpos(1) + lpos(3) + 2 * xpad + tightinset(1), ...
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	760 ca_pos(2), ca_pos(3) - lpos(3) - 2 * xpad, ca_pos(4)];
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	761 new_pos(1) = new_pos(1) - gnuplot_offset;
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	762 new_pos(3) = new_pos(3) + gnuplot_offset;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	763 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	764 lpos = [ca_pos(1) + ypad, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	765 ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	766 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	767 case "northeast"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	768 if (outside)
12396 6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	769 lpos = [ca_outpos(1) + ca_outpos(3) - lpos(3) - ypad, ...
12395 4d30b4136a3e legend.m: Align legends to plot box, add demo. Bug 32373. Ben Abbott <bpabbott@mac.com> parents: 12394 diff changeset	770 ca_pos(2) + ca_pos(4) - lpos(4), lpos(3), lpos(4)];
16910 8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	771 new_pos = [ca_pos(1), ca_pos(2), ...
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	772 lpos(1) - 2 * xpad - tightinset(3) - ca_pos(1), ...
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	773 ca_pos(4)];
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	774 new_pos(3) = new_pos(3) + gnuplot_offset;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	775 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	776 lpos = [ca_pos(1) + ca_pos(3) - lpos(3) - ypad, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	777 ca_pos(2) + ca_pos(4) - lpos(4) - ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	778 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	779 case "northwest"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	780 if (outside)
12396 6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	781 lpos = [ca_outpos(1) + ypad , ca_pos(2) + ca_pos(4) - lpos(4), ...
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	782 lpos(3), lpos(4)];
16910 8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	783 new_pos = [lpos(1) + lpos(3) + 2 * xpad + tightinset(1), ...
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	784 ca_pos(2), ca_pos(3) - lpos(3) - 2 * xpad, ca_pos(4)];
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	785 new_pos(1) = new_pos(1) - gnuplot_offset;
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	786 new_pos(3) = new_pos(3) + gnuplot_offset;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	787 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	788 lpos = [ca_pos(1) + ypad, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	789 ca_pos(2) + ca_pos(4) - lpos(4) - ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	790 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	791 case "southeast"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	792 if (outside)
12396 6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	793 lpos = [ca_outpos(1) + ca_outpos(3) - lpos(3) - ypad, ...
6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	794 ca_pos(2), lpos(3), lpos(4)];
12395 4d30b4136a3e legend.m: Align legends to plot box, add demo. Bug 32373. Ben Abbott <bpabbott@mac.com> parents: 12394 diff changeset	795 new_pos = [ca_pos(1), ca_pos(2), ...
16910 8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	796 lpos(1) - 2 * xpad - ca_pos(1) - tightinset(3), ...
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	797 ca_pos(4)];
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	798 new_pos(3) = new_pos(3) + gnuplot_offset;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	799 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	800 lpos = [ca_pos(1) + ca_pos(3) - lpos(3) - ypad, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	801 ca_pos(2) + ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	802 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	803 case "southwest"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	804 if (outside)
12396 6ba430a75553 Fix for legends with location southeastoutside and soutwestoutside. Pad legend position David Bateman <dbateman@free.fr> parents: 12395 diff changeset	805 lpos = [ca_outpos(1) + ypad, ca_pos(2), lpos(3), lpos(4)];
16910 8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	806 new_pos = [lpos(1) + lpos(3) + 2 * xpad + tightinset(1), ...
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	807 ca_pos(2), ca_pos(3) - lpos(3) - 2 * xpad, ca_pos(4)];
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	808 new_pos(1) = new_pos(1) - gnuplot_offset;
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	809 new_pos(3) = new_pos(3) + gnuplot_offset;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	810 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	811 lpos = [ca_pos(1) + ypad, ca_pos(2) + ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	812 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	813 endswitch
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	814
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	815 units = get (hlegend, "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	816 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	817 set (hlegend, "units", "points");
12440 2ed62b9f949e synchronization of axes position and outerposition Konstantinos Poulios <logari81@googlemail.com> parents: 12437 diff changeset	818 set (hlegend, "position", lpos);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	819 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	820 set (hlegend, "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	821 end_unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	822
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	823 ## Now write the line segments and place the text objects correctly
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	824 xk = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	825 yk = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	826 for k = 1 : numel (hplots)
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	827 hobjects = [hobjects, texthandle(k)];
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11033 diff changeset	828 switch (get (hplots(k), "type"))
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	829
17174 c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	830 case "line"
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	831 color = get (hplots(k), "color");
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	832 style = get (hplots(k), "linestyle");
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	833 if (! strcmp (style, "none"))
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	834 l1 = line ("xdata", ([xoffset, xoffset + linelength] + xk * xstep) / lpos(3),
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	835 "ydata", [1, 1] .* (lpos(4) - yoffset - yk * ystep) / lpos(4),
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	836 "color", color, "linestyle", style, "marker", "none",
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	837 "userdata", hplots (k));
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	838 hobjects = [hobjects, l1];
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	839 endif
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	840 marker = get (hplots(k), "marker");
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	841 if (! strcmp (marker, "none"))
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	842 l1 = line ("xdata", (xoffset + 0.5 * linelength + xk * xstep) / lpos(3),
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	843 "ydata", (lpos(4) - yoffset - yk * ystep) / lpos(4),
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	844 "color", color, "linestyle", "none", "marker", marker,
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	845 "markeredgecolor", get (hplots (k), "markeredgecolor"),
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	846 "markerfacecolor", get (hplots (k), "markerfacecolor"),
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	847 "markersize", get (hplots (k), "markersize"),
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	848 "userdata", hplots (k));
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	849 hobjects = [hobjects, l1];
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	850 endif
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	851
17174 c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	852 addlistener (hplots(k), "color",
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	853 {@updateline, hlegend, linelength});
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	854 addlistener (hplots(k), "linestyle",
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	855 {@updateline, hlegend, linelength});
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	856 addlistener (hplots(k), "marker",
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	857 {@updateline, hlegend, linelength});
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	858 addlistener (hplots(k), "markeredgecolor",
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	859 {@updateline, hlegend, linelength});
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	860 addlistener (hplots(k), "markerfacecolor",
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	861 {@updateline, hlegend, linelength});
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	862 addlistener (hplots(k), "markersize",
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	863 {@updateline, hlegend, linelength});
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	864 addlistener (hplots(k), "displayname",
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	865 {@updateline, hlegend, linelength});
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	866
17174 c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	867 case "patch"
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	868 facecolor = get (hplots(k), "facecolor");
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	869 edgecolor = get (hplots(k), "edgecolor");
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	870 cdata = get (hplots(k), "cdata");
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	871 if (! strcmp (facecolor, "none") \|\| ! strcmp (edgecolor, "none"))
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	872 p1 = patch ("xdata", ([0, linelength, linelength, 0] +
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	873 xoffset + xk * xstep) / lpos(3),
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	874 "ydata", (lpos(4) - yoffset -
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	875 [yk-0.3, yk-0.3, yk+0.3, yk+0.3] .* ystep) / lpos(4),
17174 c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	876 "facecolor", facecolor, "edgecolor", edgecolor,
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	877 "cdata", cdata, "userdata", hplots(k));
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	878 hobjects = [hobjects, p1];
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	879 endif
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	880
17174 c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	881 case "surface"
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	882 ## FIXME: Would be nice to do something here
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	883
10999 9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	884 endswitch
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	885
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	886 set (texthandle(k), "position", [(txoffset + xk * xstep) / lpos(3), ...
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	887 (lpos(4) - yoffset - yk * ystep) / lpos(4)]);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	888 if (strcmp (orientation, "vertical"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	889 yk++;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	890 if (yk > num1)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	891 yk = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	892 xk++;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	893 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	894 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	895 xk++;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	896 if (xk > num1)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	897 xk = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	898 yk++;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	899 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	900 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	901 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	902
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	903 ## Add an invisible text object to original axis
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	904 ## that when it is destroyed will remove the legend
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	905 props = {"parent", ca(1), "tag", "legend", ...
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	906 "handlevisibility", "off", "visible", "off", ...
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	907 "xliminclude", "off", "yliminclude", "off"};
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	908 t1 = findall (ca(1), "tag", "legend", "type", "text");
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	909 if (isempty (t1))
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	910 t1 = text (0, 0, "", props{:});
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	911 set (t1, "deletefcn", {@deletelegend1, hlegend});
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	912 endif
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	913 if (isprop (hlegend, "unmodified_axes_position"))
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	914 set (hlegend, "unmodified_axes_position", unmodified_axes_position);
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	915 set (hlegend, "unmodified_axes_outerposition",
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	916 unmodified_axes_outerposition);
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	917 else
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	918 addproperty ("unmodified_axes_position", hlegend,
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	919 "data", unmodified_axes_position);
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	920 addproperty ("unmodified_axes_outerposition", hlegend,
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	921 "data", unmodified_axes_outerposition);
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	922 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	923
15441 e5a07d7aafcc legend.m: Remove unused warning variable and associated code. Rik <rik@octave.org> parents: 15440 diff changeset	924 ## Resize the axis that the legend is attached to if the
e5a07d7aafcc legend.m: Remove unused warning variable and associated code. Rik <rik@octave.org> parents: 15440 diff changeset	925 ## legend is "outside" the plot and create a listener to
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	926 ## resize axis to original size if the legend is deleted,
15441 e5a07d7aafcc legend.m: Remove unused warning variable and associated code. Rik <rik@octave.org> parents: 15440 diff changeset	927 ## hidden, or shown.
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	928 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	929 for i = 1 : numel (ca)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	930 units = get (ca(i), "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	931 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	932 set (ca(i), "units", "points");
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	933 if (gnuplot && numel (ca) == 1)
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	934 ## Let Gnuplot handle the positioning of the keybox.
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	935 ## This violates strict Matlab compatibility, but reliably
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	936 ## renders an esthetic result.
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	937 set (ca(i), "position", unmodified_axes_position);
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	938 set (ca(i), "activepositionproperty", "outerposition")
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	939 else
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	940 ## numel (ca) > 1 for axes overlays (like plotyy)
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	941 set (ca(i), "position", new_pos);
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	942 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	943 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	944 set (ca(i), "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	945 end_unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	946 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	947
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	948 set (hlegend, "deletefcn", {@deletelegend2, ca, ...
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	949 unmodified_axes_position, ...
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	950 unmodified_axes_outerposition, ...
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	951 t1, hplots});
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	952 addlistener (hlegend, "visible", {@hideshowlegend, ca, ...
16909 8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	953 unmodified_axes_position, ...
8f9ed9d8a478 Allow gnuplot to handle keybox and axes positioning. Ben Abbott <bpabbott@mac.com> parents: 16908 diff changeset	954 new_pos});
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	955 else
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	956 set (hlegend, "deletefcn", {@deletelegend2, ca, [], [], t1, hplots});
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	957 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	958
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	959 if (! addprops)
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	960 ## Remove listener's on existing legend temporarily
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	961 dellistener (hlegend, "location");
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	962 dellistener (hlegend, "orientation");
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	963 dellistener (hlegend, "string");
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	964 dellistener (hlegend, "textposition");
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	965 endif
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	966
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	967 if (! addprops)
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	968 set (hlegend, "string", text_strings);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	969 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	970
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	971 if (outside)
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	972 set (hlegend, "location", [location "outside"],
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	973 "orientation", orientation, "textposition", textpos);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	974 else
16796 519343308ab1 Rename "position" variable to "location" in legend.m Ben Abbott <bpabbott@mac.com> parents: 16795 diff changeset	975 set (hlegend, "location", location, "orientation", orientation,
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	976 "textposition", textpos);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	977 endif
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	978 if (addprops)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	979 addlistener (hlegend, "edgecolor", @updatelegendtext);
17533 bb7756dff055 legend.m: Add listeners for all font properties to update text labels. Rik <rik@octave.org> parents: 17532 diff changeset	980 addlistener (hlegend, "fontangle", @updatelegendtext);
bb7756dff055 legend.m: Add listeners for all font properties to update text labels. Rik <rik@octave.org> parents: 17532 diff changeset	981 addlistener (hlegend, "fontname", @updatelegendtext);
bb7756dff055 legend.m: Add listeners for all font properties to update text labels. Rik <rik@octave.org> parents: 17532 diff changeset	982 addlistener (hlegend, "fontweight", @updatelegendtext);
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	983 addlistener (hlegend, "textcolor", @updatelegendtext);
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	984 ## Properties which could change size of box, such as fontsize,
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	985 ## require legend to be redrawn.
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	986 addlistener (hlegend, "fontsize", @updatelegend);
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	987 addlistener (hlegend, "fontunits", @updatelegend);
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	988 addlistener (hlegend, "interpreter", @updatelegend);
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	989 addlistener (hlegend, "location", @updatelegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	990 addlistener (hlegend, "orientation", @updatelegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	991 addlistener (hlegend, "string", @updatelegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	992 addlistener (hlegend, "textposition", @updatelegend);
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	993 ## FIXME: need to add listeners for tightinset and position
16910 8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	994 ## addlistener (ca, "tightinset", @update????);
8a4e53cf79c9 Modify the plotbox position relative to the keybox position. Ben Abbott <bpabbott@mac.com> parents: 16909 diff changeset	995 ## addlistener (ca, "position", @update????);
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	996 else
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	997 ## Restore certain listeners
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	998 addlistener (hlegend, "location", @updatelegend);
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	999 addlistener (hlegend, "orientation", @updatelegend);
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1000 addlistener (hlegend, "string", @updatelegend);
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1001 addlistener (hlegend, "textposition", @updatelegend);
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1002 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1003 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1004 set (fig, "currentaxes", curaxes);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1005 end_unwind_protect
6272 a1f3d3b7ee5c [project @ 2007-02-06 02:09:48 by jwe] jwe parents: 6257 diff changeset	1006 endif
6147 e14b0e9b7bf7 [project @ 2006-11-09 03:28:01 by jwe] jwe parents: 6146 diff changeset	1007 endif
e14b0e9b7bf7 [project @ 2006-11-09 03:28:01 by jwe] jwe parents: 6146 diff changeset	1008
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1009 if (nargout > 0)
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1010 hleg = hlegend;
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1011 hleg_obj = hobjects;
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1012 hplot = hplots;
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1013 labels = text_strings;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1014 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1015
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1016 endfunction
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1017
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1018 function updatelegend (h, ~)
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1019 persistent recursive = false;
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1020
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1021 if (! recursive)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1022 recursive = true;
12339 eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	1023 unwind_protect
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	1024 hax = getfield (get (h, "userdata"), "handle");
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	1025 [hplots, text_strings] = __getlegenddata__ (h);
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1026 position = get (h, "unmodified_axes_position");
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1027 outerposition = get (h, "unmodified_axes_outerposition");
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1028 units = get (hax, "units");
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1029 set (hax, "units", "points");
16933 e39f00a32dc7 maint: Use parentheses around condition for switch(),while(),if() statements. Rik <rik@octave.org> parents: 16921 diff changeset	1030 switch (get (hax, "activepositionproperty"))
17174 c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	1031 case "position"
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	1032 set (hax, "outerposition", outerposition);
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	1033 set (hax, "position", position);
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	1034 case "outerposition"
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	1035 set (hax, "position", position);
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17125 diff changeset	1036 set (hax, "outerposition", outerposition);
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1037 endswitch
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1038 set (hax, "units", units);
12339 eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	1039 h = legend (hax, hplots, get (h, "string"));
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	1040 unwind_protect_cleanup
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	1041 recursive = false;
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	1042 end_unwind_protect
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1043 endif
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1044
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1045 endfunction
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1046
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1047 function updatelegendtext (h, ~)
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1048 kids = get (h, "children");
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1049 htext = [];
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1050 for i = 1:numel (kids)
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1051 if (strcmp (get (kids(i), "type"), "text"))
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1052 htext(end+1) = kids(i);
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1053 endif
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1054 endfor
17533 bb7756dff055 legend.m: Add listeners for all font properties to update text labels. Rik <rik@octave.org> parents: 17532 diff changeset	1055
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1056 tprops = {"fontangle", "fontname", "fontweight", "color"};
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1057 lprops = {"fontangle", "fontname", "fontweight", "textcolor"};
17533 bb7756dff055 legend.m: Add listeners for all font properties to update text labels. Rik <rik@octave.org> parents: 17532 diff changeset	1058 set (htext, tprops, get (h, lprops));
17535 5eae41c8c07f legend.m: Add support for "edgecolor" property. Rik <rik@octave.org> parents: 17534 diff changeset	1059
5eae41c8c07f legend.m: Add support for "edgecolor" property. Rik <rik@octave.org> parents: 17534 diff changeset	1060 ec = get (h, "edgecolor");
5eae41c8c07f legend.m: Add support for "edgecolor" property. Rik <rik@octave.org> parents: 17534 diff changeset	1061 set (h, "xcolor", ec, "ycolor", ec);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1062 endfunction
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1063
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1064 function hideshowlegend (h, ~, ca, pos1, pos2)
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1065 isvisible = strcmp (get (h, "visible"), "off");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1066 if (! isvisible)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1067 kids = get (h, "children");
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1068 if (any (! strcmp (get (kids, "visible"), "off")))
17533 bb7756dff055 legend.m: Add listeners for all font properties to update text labels. Rik <rik@octave.org> parents: 17532 diff changeset	1069 isvisible = true;
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1070 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1071 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1072
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1073 for i = 1 : numel (ca)
17125 b5d6314314fc Change various plot functions to take advantage of new isaxes() function. Rik <rik@octave.org> parents: 17122 diff changeset	1074 if (isaxes (ca(i))
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14755 diff changeset	1075 && (isempty (gcbf ()) \|\| strcmp (get (gcbf (), "beingdeleted"),"off"))
11149 fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	1076 && strcmp (get (ca(i), "beingdeleted"), "off"))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1077 units = get (ca(i), "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1078 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1079 set (ca(i), "units", "points");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1080 if (isvisible)
12440 2ed62b9f949e synchronization of axes position and outerposition Konstantinos Poulios <logari81@googlemail.com> parents: 12437 diff changeset	1081 set (ca(i), "position", pos2);
10990 529b36293297 Backed out changeset 6ea65c5de87a David Bateman <dbateman@free.fr> parents: 10989 diff changeset	1082 else
12440 2ed62b9f949e synchronization of axes position and outerposition Konstantinos Poulios <logari81@googlemail.com> parents: 12437 diff changeset	1083 set (ca(i), "position", pos1);
10990 529b36293297 Backed out changeset 6ea65c5de87a David Bateman <dbateman@free.fr> parents: 10989 diff changeset	1084 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1085 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1086 set (ca(i), "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1087 end_unwind_protect
10990 529b36293297 Backed out changeset 6ea65c5de87a David Bateman <dbateman@free.fr> parents: 10989 diff changeset	1088 endif
529b36293297 Backed out changeset 6ea65c5de87a David Bateman <dbateman@free.fr> parents: 10989 diff changeset	1089 endfor
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1090 endfunction
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	1091
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1092 function deletelegend1 (h, ~, ca)
17125 b5d6314314fc Change various plot functions to take advantage of new isaxes() function. Rik <rik@octave.org> parents: 17122 diff changeset	1093 if (isaxes (ca)
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1094 && (isempty (gcbf ()) \|\| strcmp (get (gcbf (), "beingdeleted"), "off"))
11149 fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	1095 && strcmp (get (ca, "beingdeleted"), "off"))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1096 delete (ca);
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	1097 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1098 endfunction
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	1099
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1100 function deletelegend2 (h, ~, ca, pos, outpos, t1, hplots)
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1101 for i = 1 : numel (ca)
17125 b5d6314314fc Change various plot functions to take advantage of new isaxes() function. Rik <rik@octave.org> parents: 17122 diff changeset	1102 if (isaxes (ca(i))
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1103 && (isempty (gcbf ()) \|\| strcmp (get (gcbf (), "beingdeleted"), "off"))
11149 fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	1104 && strcmp (get (ca(i), "beingdeleted"), "off"))
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1105 if (! isempty (pos) && ! isempty (outpos))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1106 units = get (ca(i), "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1107 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1108 set (ca(i), "units", "points");
12440 2ed62b9f949e synchronization of axes position and outerposition Konstantinos Poulios <logari81@googlemail.com> parents: 12437 diff changeset	1109 set (ca(i), "position", pos, "deletefcn", "");
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1110 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1111 set (ca(i), "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1112 end_unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1113 endif
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1114 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1115 endfor
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1116 set (t1, "deletefcn", "");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1117 delete (t1);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1118 for i = 1 : numel (hplots)
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1119 if (ishandle (hplots(i)) && strcmp (get (hplots(i), "type"), "line"))
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1120 dellistener (hplots(i), "color");
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1121 dellistener (hplots(i), "linestyle");
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1122 dellistener (hplots(i), "marker");
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1123 dellistener (hplots(i), "markeredgecolor");
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1124 dellistener (hplots(i), "markerfacecolor");
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1125 dellistener (hplots(i), "markersize");
1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1126 dellistener (hplots(i), "displayname");
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1127 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1128 endfor
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1129 endfunction
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1130
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1131 function updateline (h, ~, hlegend, linelength)
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1132
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1133 lm = [];
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1134 ll = [];
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1135 kids = get (hlegend, "children");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1136 for i = 1 : numel (kids)
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1137 if (get (kids(i), "userdata") == h
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1138 && strcmp (get (kids(i), "type"), "line"))
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1139 if (strcmp (get (kids(i), "marker"), "none"))
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1140 ll = kids(i);
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1141 else
15440 1db706430c96 Fix legend ('show') to work with DisplayName (bug #33757) Rik <rik@octave.org> parents: 15202 diff changeset	1142 lm = kids(i);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1143 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1144 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	1145 endfor
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1146
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1147 [linestyle, marker, displayname] = ...
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1148 get (h, {"linestyle", "marker", "displayname"}){:};
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1149
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	1150 if ((isempty (displayname)
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1151 \|\| (strcmp (marker, "none") && strcmp (linestyle, "none")))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1152 && (! isempty (lm) \|\| isempty (ll)))
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1153 ## An element was removed from the legend.
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1154 ## Need to call the legend function to re-create a new legend.
12339 eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	1155 [hplots, text_strings] = __getlegenddata__ (hlegend);
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1156 idx = (hplots == h);
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1157 hplots(idx) = [];
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1158 text_strings(idx) = [];
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1159 legend (hplots, text_strings);
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1160 elseif ((! isempty (displayname)
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1161 && (! strcmp (marker, "none") \|\| ! strcmp (linestyle, "none")))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1162 && isempty (lm) && isempty (ll))
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1163 ## An element was added to the legend.
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1164 ## Need to call the legend function to re-create a new legend.
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1165 ## legend function to recreate a new legend.
12339 eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	1166 [hplots, text_strings] = __getlegenddata__ (hlegend);
17536 8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1167 hplots(end+1) = h;
8a186cd5b9a6 legend.m: Updating of font properties which affect box size, now redraws correctly sized legend. Rik <rik@octave.org> parents: 17535 diff changeset	1168 text_strings(end+1) = displayname;
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1169 legend (hplots, text_strings);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1170 else
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1171 if (! isempty (ll))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1172 ypos1 = get (ll,"ydata");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1173 xpos1 = get (ll,"xdata");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1174 ypos2 = ypos1(1);
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1175 xpos2 = sum (xpos1) / 2;
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1176 delete (ll);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1177 if (! isempty (lm))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1178 delete (lm);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1179 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1180 else
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1181 ypos2 = get (lm,"ydata");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1182 xpos2 = get (lm,"xdata");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1183 ypos1 = [ypos2, ypos2];
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1184 xpos1 = xpos2 + [-0.5, 0.5] * linelength;
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1185 delete (lm);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1186 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1187 if (! strcmp (linestyle, "none"))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	1188 line ("xdata", xpos1, "ydata", ypos1, "color", get (h, "color"),
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1189 "linestyle", get (h, "linestyle"), "marker", "none",
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1190 "userdata", h, "parent", hlegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1191 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1192 if (! strcmp (marker, "none"))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	1193 line ("xdata", xpos2, "ydata", ypos2, "color", get (h, "color"),
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1194 "marker", marker, "markeredgecolor", get (h, "markeredgecolor"),
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1195 "markerfacecolor", get (h, "markerfacecolor"),
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1196 "markersize", get (h, "markersize"), "linestyle", "none",
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1197 "userdata", h, "parent", hlegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1198 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1199 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1200 endfunction
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	1201
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1202
11418 a140991387fb legend.m: Add demo to legend for inline key. Ben Abbott <bpabbott@mac.com> parents: 11363 diff changeset	1203 %!demo
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1204 %! clf;
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1205 %! plot (rand (2));
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1206 %! title ('legend called with cellstr and string inputs for labels');
16728 5cf7369a74cb Update legend box when the fontsize changes. Ben Abbott <bpabbott@mac.com> parents: 16094 diff changeset	1207 %! h = legend ({'foo'}, 'bar');
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1208 %! legend location northeastoutside
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1209 %! set (h, 'fontsize', 20);
11462 aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos. Ben Abbott <bpabbott@mac.com> parents: 11434 diff changeset	1210
aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos. Ben Abbott <bpabbott@mac.com> parents: 11434 diff changeset	1211 %!demo
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1212 %! clf;
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1213 %! plot (rand (3));
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1214 %! title ('legend() without inputs creates default labels');
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1215 %! h = legend ();
14236 35903f035390 Escaping strings for legend entries are handled by __go_draw_axes__. Ben Abbott <bpabbott@mac.com> parents: 14214 diff changeset	1216
35903f035390 Escaping strings for legend entries are handled by __go_draw_axes__. Ben Abbott <bpabbott@mac.com> parents: 14214 diff changeset	1217 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1218 %! clf;
11418 a140991387fb legend.m: Add demo to legend for inline key. Ben Abbott <bpabbott@mac.com> parents: 11363 diff changeset	1219 %! x = 0:1;
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1220 %! plot (x,x,';I am Blue;', x,2x, x,3x,';I am Red;');
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1221 %! legend location northeastoutside
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1222 %! ## Placing legend inside should return axes to original size
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1223 %! legend location northeast
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1224 %! title ('Blue and Red keys, with Green missing');
8343 9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	1225
9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	1226 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1227 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1228 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1229 %! title ('incline is blue and decline is green');
4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1230 %! legend ({'I am blue', 'I am green'}, 'location', 'east');
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1231 %! legend hide
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1232 %! legend show
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1233
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1234 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1235 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1236 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1237 %! title ('Legend with keys in horizontal orientation');
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1238 %! legend ({'I am blue', 'I am green'}, ...
2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1239 %! 'location', 'east', 'orientation', 'horizontal');
2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1240 %! legend boxoff
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1241 %! legend boxon
11462 aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos. Ben Abbott <bpabbott@mac.com> parents: 11434 diff changeset	1242
aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos. Ben Abbott <bpabbott@mac.com> parents: 11434 diff changeset	1243 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1244 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1245 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
14529 aabdc8f281f1 legend.m: Change default to boxon for Matlab compatibility (bug #36105). Rik <octave@nomad.inbox5.com> parents: 14375 diff changeset	1246 %! title ('Legend with box off');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1247 %! legend ({'I am blue', 'I am green'}, 'location', 'east');
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1248 %! legend boxoff
11434 1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	1249
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	1250 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1251 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1252 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
17532 492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	1253 %! title ('Legend with text to the left of key');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1254 %! legend ({'I am blue', 'I am green'}, 'location', 'east');
17532 492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	1255 %! legend left
8343 9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	1256
9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	1257 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1258 %! clf;
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1259 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
17532 492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	1260 %! title ({'Use properties to place legend text to the left of key', ...
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1261 %! 'Legend text color is magenta'});
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1262 %! h = legend ({'I am blue', 'I am green'}, 'location', 'east');
17532 492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	1263 %! legend ('right');
492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility. Rik <rik@octave.org> parents: 17530 diff changeset	1264 %! set (h, 'textposition', 'left');
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1265 %! set (h, 'textcolor', [1 0 1]);
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1266
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1267 %!demo
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1268 %! clf;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1269 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1270 %! title ('Legend is hidden')
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1271 %! legend ({'I am blue', 'I am green'}, 'location', 'east');
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1272 %! legend hide
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1273
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1274 %!demo
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1275 %! clf;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1276 %! x = 0:1;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1277 %! plot (x,x,';I am Blue;', x,2x,';I am Green;', x,3x,';I am Red;');
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1278 %! title ({'Labels are embedded in call to plot', ...
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1279 %! 'Legend is hidden and then shown'});
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1280 %! legend boxon
11434 1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	1281 %! legend hide
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	1282 %! legend show
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1283
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1284 %!demo
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1285 %! clf;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1286 %! x = 0:1;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1287 %! plot (x, x, ';\alpha;', ...
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1288 %! x, 2*x, ';\beta=2\alpha;', ...
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1289 %! x, 3*x, ';\gamma=3\alpha;');
17530 0f45d9dd8107 test: Fix 4 failing plot demos. Rik <rik@octave.org> parents: 17503 diff changeset	1290 %! h = legend ();
17503 d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064). Rik <rik@octave.org> parents: 17281 diff changeset	1291 %! set (h, 'interpreter', 'tex');
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1292 %! title ('Labels with interpreted Greek text');
11434 1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	1293
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	1294 %!demo
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1295 %! clf;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1296 %! plot (rand (2));
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1297 %! title ('Labels with TeX interpreter turned off');
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1298 %! h = legend ('Hello_World', 'foo^bar');
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1299 %! set (h, 'interpreter', 'none');
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1300
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1301 %!demo
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1302 %! clf;
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1303 %! plot (1:10, 1:10);
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1304 %! title ('a very long label can sometimes cause problems');
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1305 %! legend ('hello very big world', 'location', 'northeastoutside');
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1306
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1307 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1308 %! clf;
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	1309 %! labels = {};
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1310 %! colororder = get (gca, 'colororder');
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	1311 %! for i = 1:5
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14252 diff changeset	1312 %! h = plot (1:100, i + rand (100,1)); hold on;
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1313 %! set (h, 'color', colororder(i,:));
14252 4e6436a60b62 Changes to allow plot demos to be run under Matlab. Ben Abbott <bpabbott@mac.com> parents: 14245 diff changeset	1314 %! labels = {labels{:}, ['Signal ', num2str(i)]};
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1315 %! end
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1316 %! hold off;
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1317 %! title ({'Signals with random offset and uniform noise';
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1318 %! 'Legend shown below and outside of plot'});
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1319 %! xlabel ('Sample Nr [k]'); ylabel ('Amplitude [V]');
4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1320 %! legend (labels, 'location', 'southoutside');
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1321
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1322 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1323 %! clf;
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1324 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1325 %! plot (x, x);
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1326 %! hold on;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1327 %! stem (x, x.^2, 'g');
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1328 %! title ('First created object gets first label');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1329 %! legend ('linear');
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1330 %! hold off;
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1331
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1332 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1333 %! clf;
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1334 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1335 %! plot (x, x, x, x.^2);
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1336 %! title ('First created object gets first label');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1337 %! legend ('linear');
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1338
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1339 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1340 %! clf;
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1341 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1342 %! plot (x, x, x, x.^2);
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1343 %! title ('Labels are applied in order of object creation');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1344 %! legend ('linear', 'quadratic');
9457 f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	1345
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	1346 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1347 %! clf;
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1348 %! rand_2x3_data1 = [0.341447, 0.171220, 0.284370; 0.039773, 0.731725, 0.779382];
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1349 %! bar (rand_2x3_data1);
13936 bfaacd5e7379 Bug fix (#34901). Allow legend options to be specified. Modify demo. Ben Abbott <bpabbott@mac.com> parents: 13279 diff changeset	1350 %! ylim ([0 1.0]);
17190 df4c4b7708a4 Add titles and clean-up plotting %!demos. Rik <rik@octave.org> parents: 17179 diff changeset	1351 %! title ('legend() works for bar graphs (hggroups)');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1352 %! legend ({'1st Bar', '2nd Bar', '3rd Bar'});
9457 f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	1353
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	1354 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1355 %! clf;
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1356 %! rand_2x3_data2 = [0.44804, 0.84368, 0.23012; 0.72311, 0.58335, 0.90531];
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1357 %! bar (rand_2x3_data2);
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1358 %! ylim ([0 1.2]);
17190 df4c4b7708a4 Add titles and clean-up plotting %!demos. Rik <rik@octave.org> parents: 17179 diff changeset	1359 %! title ('legend() works for bar graphs (hggroups)');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1360 %! legend ('1st Bar', '2nd Bar', '3rd Bar');
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1361 %! legend right;
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	1362
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	1363 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1364 %! clf;
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	1365 %! x = 0:0.1:7;
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1366 %! h = plot (x,sin(x), x,cos(x), x,sin(x.^2/10), x,cos(x.^2/10));
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1367 %! title ('Only the sin() objects have keylabels');
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14252 diff changeset	1368 %! legend (h([1, 3]), {'sin (x)', 'sin (x^2/10)'}, 'location', 'southwest');
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1369
12340 d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1370 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1371 %! clf;
12340 d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1372 %! x = 0:0.1:10;
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14252 diff changeset	1373 %! plot (x, sin (x), ';sin (x);');
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1374 %! hold all;
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14252 diff changeset	1375 %! plot (x, cos (x), ';cos (x);');
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1376 %! hold off;
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1377 %! title ('legend constructed from multiple plot calls');
12340 d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1378
12387 5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1379 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1380 %! clf;
12387 5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1381 %! x = 0:0.1:10;
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14252 diff changeset	1382 %! plot (x, sin (x), ';sin (x);');
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1383 %! hold all;
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14252 diff changeset	1384 %! plot (x, cos (x), ';cos (x);');
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1385 %! hold off;
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1386 %! title ('Specified label text overrides previous labels');
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1387 %! legend ({'Sine', 'Cosine'}, 'location', 'northeastoutside');
12387 5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1388
12394 c2e1973d870b legend.m: "legend off" should delete the legend object. Ben Abbott <bpabbott@mac.com> parents: 12388 diff changeset	1389 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1390 %! clf;
12394 c2e1973d870b legend.m: "legend off" should delete the legend object. Ben Abbott <bpabbott@mac.com> parents: 12388 diff changeset	1391 %! x = 0:10;
c2e1973d870b legend.m: "legend off" should delete the legend object. Ben Abbott <bpabbott@mac.com> parents: 12388 diff changeset	1392 %! plot (x, rand (11));
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1393 %! xlabel ('Indices');
4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1394 %! ylabel ('Random Values');
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1395 %! title ('Legend ''off'' deletes the legend');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1396 %! legend (cellstr (num2str ((1:10)')), 'location', 'northeastoutside');
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1397 %! legend off;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1398 %! axis ([0, 10, 0 1]);
12387 5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1399
12395 4d30b4136a3e legend.m: Align legends to plot box, add demo. Bug 32373. Ben Abbott <bpabbott@mac.com> parents: 12394 diff changeset	1400 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1401 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1402 %! x = (1:5)';
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14252 diff changeset	1403 %! subplot (2,2,1);
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1404 %! plot (x, rand (numel (x)));
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1405 %! legend (cellstr (num2str (x)), 'location', 'northwestoutside');
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14252 diff changeset	1406 %! subplot (2,2,2);
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1407 %! plot (x, rand (numel (x)));
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1408 %! legend (cellstr (num2str (x)), 'location', 'northeastoutside');
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14252 diff changeset	1409 %! subplot (2,2,3);
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1410 %! plot (x, rand (numel (x)));
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1411 %! legend (cellstr (num2str (x)), 'location', 'southwestoutside');
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14252 diff changeset	1412 %! subplot (2,2,4);
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1413 %! plot (x, rand (numel (x)));
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1414 %! legend (cellstr (num2str (x)), 'location', 'southeastoutside');
12387 5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1415
12395 4d30b4136a3e legend.m: Align legends to plot box, add demo. Bug 32373. Ben Abbott <bpabbott@mac.com> parents: 12394 diff changeset	1416 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1417 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14236 diff changeset	1418 %! plot (rand (2));
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1419 %! title ('legend() will warn if extra labels are specified');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1420 %! legend ('Hello', 'World', 'interpreter', 'foobar');
13979 f35b593688a5 Changing the legend's interpreter property should be inherited by the Ben Abbott <bpabbott@mac.com> parents: 13937 diff changeset	1421
f35b593688a5 Changing the legend's interpreter property should be inherited by the Ben Abbott <bpabbott@mac.com> parents: 13937 diff changeset	1422 %!demo
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1423 %! clf;
14207 57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1424 %! x = 0:10;
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1425 %! y1 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1426 %! y2 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1427 %! [ax, h1, h2] = plotyy (x, y1, x, y2);
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1428 %! title ('plotyy legend test #1: Blue and Green labels');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1429 %! legend ([h1, h2], {'Blue', 'Green'}, 'location', 'south');
12395 4d30b4136a3e legend.m: Align legends to plot box, add demo. Bug 32373. Ben Abbott <bpabbott@mac.com> parents: 12394 diff changeset	1430
13979 f35b593688a5 Changing the legend's interpreter property should be inherited by the Ben Abbott <bpabbott@mac.com> parents: 13937 diff changeset	1431 %!demo
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1432 %! clf;
14207 57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1433 %! x = 0:10;
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1434 %! y1 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1435 %! y2 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1436 %! [ax, h1, h2] = plotyy (x, y1, x, y2);
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1437 %! title ('plotyy legend test #2: Blue and Green labels');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1438 %! legend ({'Blue', 'Green'}, 'location', 'south');
13979 f35b593688a5 Changing the legend's interpreter property should be inherited by the Ben Abbott <bpabbott@mac.com> parents: 13937 diff changeset	1439
f35b593688a5 Changing the legend's interpreter property should be inherited by the Ben Abbott <bpabbott@mac.com> parents: 13937 diff changeset	1440 %!demo
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1441 %! clf;
14207 57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1442 %! x = 0:10;
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1443 %! y1 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1444 %! y2 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	1445 %! [ax, h1, h2] = plotyy (x, y1, x, y2);
15442 015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels. Rik <rik@octave.org> parents: 15441 diff changeset	1446 %! title ('plotyy legend test #3: Blue and Green labels');
14245 4506eade9f04 Use Matlab coding conventions for demos in plot/ directory. Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	1447 %! legend ('Blue', 'Green', 'location', 'south');
13979 f35b593688a5 Changing the legend's interpreter property should be inherited by the Ben Abbott <bpabbott@mac.com> parents: 13937 diff changeset	1448
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1449 %!demo % bug 36408
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1450 %! clf;
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1451 %! option = 'right';
2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1452 %! subplot (3,1,1);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1453 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1454 %! xlabel xlabel;
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1455 %! ylabel ylabel;
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1456 %! title ('Subplots should adjust to the legend placed outside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1457 %! legend ({'1'}, 'location', 'northeastoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1458 %! legend (option);
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1459 %! subplot (3,1,2);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1460 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1461 %! xlabel xlabel;
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1462 %! ylabel ylabel;
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1463 %! legend ({'1234567890'}, 'location', 'eastoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1464 %! legend (option);
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1465 %! subplot (3,1,3);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1466 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1467 %! xlabel xlabel;
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1468 %! ylabel ylabel;
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1469 %! legend ({'12345678901234567890'}, 'location', 'southeastoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1470 %! legend (option);
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1471
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1472 %!demo % bug 36408
286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1473 %! clf;
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1474 %! option = 'right';
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1475 %! subplot (3,1,1);
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1476 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1477 %! title ('Subplots should adjust to the legend placed outside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1478 %! legend ({'1'}, 'location', 'northwestoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1479 %! legend (option);
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1480 %! subplot (3,1,2);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1481 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1482 %! legend ({'1234567890'}, 'location', 'westoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1483 %! legend (option);
16805 2281d957cde6 legend.m: Tweak code for Octave coding conventions. Rik <rik@octave.org> parents: 16800 diff changeset	1484 %! subplot (3,1,3);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1485 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1486 %! legend ({'12345678901234567890'}, 'location', 'southwestoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1487 %! legend (option);
16799 286904321282 Use unmodified axes "position" and "outerposition" properties for legend(). Ben Abbott <bpabbott@mac.com> parents: 16796 diff changeset	1488
16908 1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1489 %!demo % bug 36408
1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1490 %! clf;
1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1491 %! option = 'right';
1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1492 %! subplot (3,1,1);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1493 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1494 %! set (gca (), 'yaxislocation', 'right');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1495 %! xlabel ('xlabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1496 %! ylabel ('ylabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1497 %! title ('Subplots should adjust to the legend placed outside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1498 %! legend ({'1'}, 'location', 'northeastoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1499 %! legend (option);
16908 1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1500 %! subplot (3,1,2);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1501 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1502 %! set (gca (), 'yaxislocation', 'right');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1503 %! xlabel ('xlabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1504 %! ylabel ('ylabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1505 %! legend ({'1234567890'}, 'location', 'eastoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1506 %! legend (option);
16908 1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1507 %! subplot (3,1,3);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1508 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1509 %! set (gca (), 'yaxislocation', 'right');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1510 %! xlabel ('xlabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1511 %! ylabel ('ylabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1512 %! legend ({'12345678901234567890'}, 'location', 'southeastoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1513 %! legend (option);
16908 1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1514
1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1515 %!demo % bug 36408
1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1516 %! clf;
1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1517 %! option = 'right';
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1518 %! subplot (3,1,1);
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1519 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1520 %! set (gca (), 'yaxislocation', 'right');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1521 %! xlabel ('xlabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1522 %! ylabel ('ylabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1523 %! title ('Subplots should adjust to the legend placed outside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1524 %! legend ({'1'}, 'location', 'northwestoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1525 %! legend (option);
16908 1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1526 %! subplot (3,1,2);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1527 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1528 %! set (gca (), 'yaxislocation', 'right');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1529 %! xlabel ('xlabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1530 %! ylabel ('ylabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1531 %! legend ({'1234567890'}, 'location', 'westoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1532 %! legend (option);
16908 1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1533 %! subplot (3,1,3);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1534 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1535 %! set (gca (), 'yaxislocation', 'right');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1536 %! xlabel ('xlabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1537 %! ylabel ('ylabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1538 %! legend ({'12345678901234567890'}, 'location', 'southwestoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1539 %! legend (option);
16908 1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1540
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1541 %!demo % bug 36408;
16908 1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1542 %! clf;
1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1543 %! option = 'right';
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1544 %! subplot (3,1,1);
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1545 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1546 %! set (gca (), 'xaxislocation', 'top');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1547 %! xlabel ('xlabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1548 %! ylabel ('ylabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1549 %! title ('Subplots should adjust to the legend placed outside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1550 %! legend ({'1'}, 'location', 'northwestoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1551 %! legend (option);
16908 1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1552 %! subplot (3,1,2);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1553 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1554 %! set (gca (), 'xaxislocation', 'top');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1555 %! xlabel ('xlabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1556 %! ylabel ('ylabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1557 %! legend ({'1234567890'}, 'location', 'westoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1558 %! legend (option);
16908 1c4be5dcacd5 Add demos to legend.m using subplots. Ben Abbott <bpabbott@mac.com> parents: 16885 diff changeset	1559 %! subplot (3,1,3);
16921 9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1560 %! plot (rand (1,4));
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1561 %! set (gca (), 'xaxislocation', 'top');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1562 %! xlabel ('xlabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1563 %! ylabel ('ylabel');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1564 %! legend ({'12345678901234567890'}, 'location', 'southwestoutside');
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1565 %! legend (option);
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run. Rik <rik@octave.org> parents: 16910 diff changeset	1566
17179 828e8852efa9 legend.m: Add %!demo block showing bug #39697. Rik <rik@octave.org> parents: 17174 diff changeset	1567 %!demo % bug 39697
17190 df4c4b7708a4 Add titles and clean-up plotting %!demos. Rik <rik@octave.org> parents: 17179 diff changeset	1568 %! clf;
17179 828e8852efa9 legend.m: Add %!demo block showing bug #39697. Rik <rik@octave.org> parents: 17174 diff changeset	1569 %! plot (1:10);
828e8852efa9 legend.m: Add %!demo block showing bug #39697. Rik <rik@octave.org> parents: 17174 diff changeset	1570 %! legend ("Legend Text");
828e8852efa9 legend.m: Add %!demo block showing bug #39697. Rik <rik@octave.org> parents: 17174 diff changeset	1571 %! title ({"Multi-line", "titles", "are a", "problem"});
828e8852efa9 legend.m: Add %!demo block showing bug #39697. Rik <rik@octave.org> parents: 17174 diff changeset	1572
16973 d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1573 %!test
17107 dbd64c9a16da Restore graphics toolkit after %!tests that alter it. Rik <rik@octave.org> parents: 17065 diff changeset	1574 %! toolkit = graphics_toolkit ("gnuplot");
17119 bd50e0660545 test: Add missing semicolons to suppress output in some plot %!tests. Rik <rik@octave.org> parents: 17107 diff changeset	1575 %! h = figure ("visible", "off");
16973 d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1576 %! unwind_protect
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1577 %! position = get (h, "position");
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1578 %! plot (rand (3));
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1579 %! legend ();
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1580 %! filename = sprintf ("%s.eps", tmpnam ());
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1581 %! print (filename);
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1582 %! unlink (filename);
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1583 %! assert (get (h, "position"), position);
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1584 %! unwind_protect_cleanup
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1585 %! close (h);
17107 dbd64c9a16da Restore graphics toolkit after %!tests that alter it. Rik <rik@octave.org> parents: 17065 diff changeset	1586 %! graphics_toolkit (toolkit);
16973 d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1587 %! end_unwind_protect
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage. Rik <rik@octave.org> parents: 16933 diff changeset	1588

Mercurial > octave-libgccjit

annotate scripts/plot/legend.m @ 17536:8a186cd5b9a6