Mercurial > octave

annotate scripts/plot/appearance/legend.m @ 28228:298977286479 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
legend.m: display actual marker size up to 8 points
author Pantxo Diribarne <pantxo.diribarne@gmail.com>
date Sat, 18 Apr 2020 20:32:21 +0200
parents 04b2977952cc
children 3da71c0527a1 938b234f395a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
1 ########################################################################
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
2 ##
27919
1891570abac8 update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 27918
diff changeset
3 ## Copyright (C) 2010-2020 The Octave Project Developers
27918
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 27843
diff changeset
4 ##
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
5 ## See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
6 ## distribution or <https://octave.org/copyright/>.
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
7 ##
6440
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe]
jwe
parents: 6395
diff changeset
8 ## This file is part of Octave.
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe]
jwe
parents: 6395
diff changeset
9 ##
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24498
diff changeset
10 ## Octave is free software: you can redistribute it and/or modify it
6440
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe]
jwe
parents: 6395
diff changeset
11 ## under the terms of the GNU General Public License as published by
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24498
diff changeset
12 ## the Free Software Foundation, either version 3 of the License, or
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22631
diff changeset
13 ## (at your option) any later version.
6440
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe]
jwe
parents: 6395
diff changeset
14 ##
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe]
jwe
parents: 6395
diff changeset
15 ## 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
16 ## WITHOUT ANY WARRANTY; without even the implied warranty of
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22631
diff changeset
17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22631
diff changeset
18 ## GNU General Public License for more details.
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
19 ##
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
20 ## 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
21 ## along with Octave; see the file COPYING. If not, see
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24498
diff changeset
22 ## <https://www.gnu.org/licenses/>.
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
23 ##
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
24 ########################################################################
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
25
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
26 ## -*- texinfo -*-
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
27 ## @deftypefn {} {} legend ()
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
28 ## @deftypefnx {} {} legend @var{command}
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
29 ## @deftypefnx {} {} legend (@var{str1}, @var{str2}, @dots{})
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
30 ## @deftypefnx {} {} legend (@var{charmat})
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
31 ## @deftypefnx {} {} legend (@{@var{cellstr}@})
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
32 ## @deftypefnx {} {} legend (@dots{}, @var{property}, @var{value}, @dots{})
20852
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents: 20781
diff changeset
33 ## @deftypefnx {} {} legend (@var{hobjs}, @dots{})
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
34 ## @deftypefnx {} {} legend ("@var{command}")
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
35 ## @deftypefnx {} {} legend (@var{hax}, @dots{})
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
36 ## @deftypefnx {} {@var{hleg, hplt} =} legend (@dots{})
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
37 ##
17122
eaab03308c0b doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents: 17119
diff changeset
38 ## 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
39 ##
eaab03308c0b doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents: 17119
diff changeset
40 ## Legend entries may be specified as individual character string arguments,
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
41 ## a character array, or a cell array of character strings. When label names
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
42 ## might be confused with legend properties, or @var{command} arguments,
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
43 ## the labels should be protected by specifying them as a cell array of
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
44 ## strings.
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
45 ##
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
46 ## If the first argument @var{hax} is an axes handle, then add a legend to this
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
47 ## axes, rather than the current axes returned by @code{gca}.
17122
eaab03308c0b doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents: 17119
diff changeset
48 ##
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
49 ## Legend labels are associated with the axes' children; The first label is
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
50 ## assigned to the first object that was plotted in the axes, the second label
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
51 ## to the next object plotted, etc. To label specific data objects, without
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
52 ## labeling all objects, provide their graphic handles in the input
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
53 ## @var{hobjs}.
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
54 ##
27801
1d04f049a859 doc: spellcheck documentation ahead of 6.1 release.
Rik <rik@octave.org>
parents: 27793
diff changeset
55 ## The optional parameter @nospell{@var{loc}} specifies the location of the
1d04f049a859 doc: spellcheck documentation ahead of 6.1 release.
Rik <rik@octave.org>
parents: 27793
diff changeset
56 ## legend as follows:
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
57 ##
6977
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe]
jwe
parents: 6895
diff changeset
58 ## @multitable @columnfractions 0.06 0.14 0.80
27801
1d04f049a859 doc: spellcheck documentation ahead of 6.1 release.
Rik <rik@octave.org>
parents: 27793
diff changeset
59 ## @headitem @tab @nospell{loc} @tab location of the legend
17204
d87179b38bcf doc: Touch up alignment of @multitables in plot, legend, newplot.
Rik <rik@octave.org>
parents: 17190
diff changeset
60 ## @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
61 ## @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
62 ## @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
63 ## @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
64 ## @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
65 ## @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
66 ## @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
67 ## @item @tab southwest @tab left bottom
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
68 ## @sp 1
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
69 ## @item @tab outside @tab can be appended to any location string @*
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
70 ## @item @tab @tab which will place the legend outside the axes
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
71 ## @end multitable
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
72 ##
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
73 ## The following customizations are available using @var{command}:
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
74 ##
7148
735086cfd405 [project @ 2007-11-09 18:01:44 by jwe]
jwe
parents: 7054
diff changeset
75 ## @table @asis
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17204
diff changeset
76 ## @item @qcode{"show"}
10666
7a43499f074a legend.m: Improve documentation string
Rik <octave@nomad.inbox5.com>
parents: 10662
diff changeset
77 ## Show legend on the plot
10821
693e22af08ae Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents: 10666
diff changeset
78 ##
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17204
diff changeset
79 ## @item @qcode{"hide"}
10666
7a43499f074a legend.m: Improve documentation string
Rik <octave@nomad.inbox5.com>
parents: 10662
diff changeset
80 ## Hide legend on the plot
10821
693e22af08ae Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents: 10666
diff changeset
81 ##
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17204
diff changeset
82 ## @item @qcode{"toggle"}
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
83 ## Toggle 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
84 ##
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17204
diff changeset
85 ## @item @qcode{"boxon"}
17532
492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility.
Rik <rik@octave.org>
parents: 17530
diff changeset
86 ## Show a box around legend (default)
10821
693e22af08ae Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents: 10666
diff changeset
87 ##
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17204
diff changeset
88 ## @item @qcode{"boxoff"}
10666
7a43499f074a legend.m: Improve documentation string
Rik <octave@nomad.inbox5.com>
parents: 10662
diff changeset
89 ## Hide the box around legend
10821
693e22af08ae Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents: 10666
diff changeset
90 ##
17532
492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility.
Rik <rik@octave.org>
parents: 17530
diff changeset
91 ## @item @qcode{"right"}
492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility.
Rik <rik@octave.org>
parents: 17530
diff changeset
92 ## 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
93 ##
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17204
diff changeset
94 ## @item @qcode{"left"}
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
95 ## 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
96 ##
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17204
diff changeset
97 ## @item @qcode{"off"}
12394
c2e1973d870b legend.m: "legend off" should delete the legend object.
Ben Abbott <bpabbott@mac.com>
parents: 12388
diff changeset
98 ## Delete the legend object
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
99 ## @end table
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
100 ##
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
101 ## The @code{legend} function creates a graphics object which has various
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
102 ## properties that can be manipulated with @code{get}/@code{set}.
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
103 ## Alternatively, properties can be set directly when calling @code{legend} by
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
104 ## including @var{property}/@var{value} pairs. If using this calling form, the
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
105 ## labels must be specified as a cell array of strings.
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
106 ##
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
107 ## The optional output value @var{hleg} is a handle to the legend object.
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
108 ##
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
109 ## Implementation Note: The legend label text is either provided in the call to
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
110 ## @code{legend} or is taken from the @code{DisplayName} property of the
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
111 ## graphics objects. Only data objects, such as line, patch, and surface, have
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
112 ## this property whereas axes, figures, etc.@: do not so they are never present
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
113 ## in a legend. If no labels or @code{DisplayName} properties are available,
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
114 ## then the label text is simply @qcode{"data1"}, @qcode{"data2"}, @dots{},
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
115 ## @nospell{@qcode{"dataN"}}.
17122
eaab03308c0b doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents: 17119
diff changeset
116 ##
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
117 ## The legend @code{FontSize} property is initially set to 90% of the axes
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
118 ## @code{FontSize} to which it is attached. Use @code{set} to override this
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
119 ## if necessary.
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
120 ##
24498
5865d2fef424 legend.m: Clean up implementation.
Rik <rik@octave.org>
parents: 24482
diff changeset
121 ## A legend is implemented as an additional axes object with the @code{tag}
5865d2fef424 legend.m: Clean up implementation.
Rik <rik@octave.org>
parents: 24482
diff changeset
122 ## property set to @qcode{"legend"}. Properties of the legend object may be
5865d2fef424 legend.m: Clean up implementation.
Rik <rik@octave.org>
parents: 24482
diff changeset
123 ## manipulated directly by using @code{set}.
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
124 ## @end deftypefn
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
125
17503
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064).
Rik <rik@octave.org>
parents: 17281
diff changeset
126 function [hleg, hleg_obj, hplot, labels] = legend (varargin)
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
127
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
128 ## Use the old legend code to handle gnuplot toolkit
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
129 if (strcmp (graphics_toolkit (), "gnuplot"))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
130 [hleg, hleg_obj, hplot, labels] = __gnuplot_legend__ (varargin{:});
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
131 return;
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
132 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
133
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
134 opts = parse_opts (varargin{:});
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
135
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
136 hl = opts.legend_handle;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
137
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
138 ## Fix property/value pairs
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
139 pval = opts.propval(:)';
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
140
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
141 if (! isempty (opts.action))
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
142
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
143 do_set_box = isempty (hl);
10995
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
144
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
145 switch (opts.action)
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
146 case "boxoff"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
147 tmp_pval = {"box", "off"};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
148 do_set_box = false;
24403
b9462090773a legend.m: Setting DisplayName to "" should delete legend (bug #52641).
Rik <rik@octave.org>
parents: 24399
diff changeset
149
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
150 case "boxon"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
151 tmp_pval = {"box", "on"};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
152 do_set_box = false;
10995
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
153
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
154 case "hide"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
155 tmp_pval = {"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
156
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
157 case "show"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
158 tmp_pval = {"visible", "on"};
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
159
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
160 case "toggle"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
161 if (! isempty (hl))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
162 if (strcmp (get (hl, "visible"), "on"))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
163 tmp_pval = {"visible", "off"};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
164 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
165 tmp_pval = {"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
166 endif
11198
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents: 11149
diff changeset
167 endif
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
168
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
169 case "left"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
170 tmp_pval = {"textposition", "left"};
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
171
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
172 case "right"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
173 tmp_pval = {"textposition", "right"};
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
174
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
175 case "off"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
176 if (! isempty (hl))
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
177 delete (hl);
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
178 endif
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
179 return;
10995
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
180
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
181 endswitch
17503
d99785217634 legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064).
Rik <rik@octave.org>
parents: 17281
diff changeset
182
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
183 pval = [tmp_pval, pval];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
184 if (do_set_box)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
185 pval = [pval, "box", "on"];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
186 endif
10995
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
187
6147
e14b0e9b7bf7 [project @ 2006-11-09 03:28:01 by jwe]
jwe
parents: 6146
diff changeset
188 endif
e14b0e9b7bf7 [project @ 2006-11-09 03:28:01 by jwe]
jwe
parents: 6146
diff changeset
189
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
190 if (isempty (hl))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
191
27747
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
192 hl = axes ("parent", get (opts.axes_handles(1), "parent"), ...
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
193 "tag", "legend", "handlevisibility", "off", ...
27716
790038c12003 legend.m: handle non default colormap (bug #54757)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27715
diff changeset
194 "ydir", "reverse", "position", [.5 .5 .3 .3], ...
790038c12003 legend.m: handle non default colormap (bug #54757)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27715
diff changeset
195 "fontsize", 0.9 * get (opts.axes_handles(1), "fontsize"), ...
27717
842d4221ac6c legend.m: also inherit "clim" property from peer axes (bug #57258)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27716
diff changeset
196 "clim", get (opts.axes_handles(1), "clim"), ...
27716
790038c12003 legend.m: handle non default colormap (bug #54757)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27715
diff changeset
197 "colormap", get (opts.axes_handles(1), "colormap"), ...
790038c12003 legend.m: handle non default colormap (bug #54757)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27715
diff changeset
198 "xtick", [], "ytick", [], "box", "on");
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
199
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
200 ## FIXME: Use the axes appdata to store its peer legend handle
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
201 ## rather that adding a public property and change all uses.
27715
95cc1f535ba8 legend.m: handle plotyy with ones axes already legend aware (bug #57257)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27714
diff changeset
202 for htmp = opts.axes_handles
95cc1f535ba8 legend.m: handle plotyy with ones axes already legend aware (bug #57257)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27714
diff changeset
203 try
95cc1f535ba8 legend.m: handle plotyy with ones axes already legend aware (bug #57257)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27714
diff changeset
204 addproperty ("__legend_handle__", htmp, "handle", hl);
95cc1f535ba8 legend.m: handle plotyy with ones axes already legend aware (bug #57257)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27714
diff changeset
205 catch
95cc1f535ba8 legend.m: handle plotyy with ones axes already legend aware (bug #57257)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27714
diff changeset
206 set (htmp, "__legend_handle__", hl);
95cc1f535ba8 legend.m: handle plotyy with ones axes already legend aware (bug #57257)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27714
diff changeset
207 end_try_catch
95cc1f535ba8 legend.m: handle plotyy with ones axes already legend aware (bug #57257)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27714
diff changeset
208 endfor
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
209
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
210 ## Add and update legend specific properties
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
211 addproperties (hl);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
212 try
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
213 set (hl, "string", opts.obj_labels, pval{:});
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
214 catch ee
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
215 delete (hl);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
216 set (opts.axes_handles, "__legend_handle__", []);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
217 rethrow (ee);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
218 end_try_catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
219
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
220 ## Update legend layout
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
221 setappdata (hl, "__axes_handle__", opts.axes_handles,
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
222 "__next_label_index__", opts.next_idx,
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
223 "__peer_objects__", opts.obj_handles);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
224 update_location_cb (hl, [], false);
27718
39ac47fdcda2 legend.m: handle "edgecolor" passed at legend creation (bug #56968)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27717
diff changeset
225 update_edgecolor_cb (hl);
39ac47fdcda2 legend.m: handle "edgecolor" passed at legend creation (bug #56968)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27717
diff changeset
226 update_numchild_cb (hl);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
227 update_layout_cb (hl, [], true);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
228
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
229 ## Dummy invisible object that deletes the legend when "newplot" is called
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
230 ht = __go_text__ (opts.axes_handles(1), "tag", "__legend_watcher__",
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
231 "visible", "off", "handlevisibility", "off",
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
232 "deletefcn", {@reset_cb, hl});
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
233
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
234 ## Listeners to foreign objects properties are stored for later
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
235 ## deletion in "delfunction"
27747
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
236 hax = opts.axes_handles(1);
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
237 hf = ancestor (hax, "figure");
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
238
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
239 add_safe_listener (hl, hf, "colormap", ...
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
240 @() set (hl, "colormap", get (hax, "colormap")));
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
241
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
242 add_safe_listener (hl, hax, "position", {@maybe_update_layout_cb, hl});
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
243 add_safe_listener (hl, hax, "tightinset", ...
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
244 @(h) update_layout_cb (get (h, "__legend_handle__")));
27747
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
245 add_safe_listener (hl, hax, "clim", ...
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
246 @(hax) set (hl, "clim", get (hax, "clim")));
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
247 add_safe_listener (hl, hax, "colormap", ...
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
248 @(hax) set (hl, "colormap", get (hax, "colormap")));
27747
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
249 add_safe_listener (hl, hax, "fontsize", ...
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
250 @(hax) set (hl, "fontsize", 0.9*get (hax, "fontsize")));
27747
7ae72862b542 legend.m: handle colormap also for non figure parent (bug #57303)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27740
diff changeset
251 add_safe_listener (hl, hax, "children", {@legend_autoupdate_cb, hl});
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
252
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
253 ## Listeners to legend properties
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
254 props = {"fontsize", "fontweight", "fontname", "interpreter", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
255 "textposition", "numcolumnsmode", "numcolumns", "orientation"};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
256
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
257 for ii = 1:numel (props)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
258 addlistener (hl, props{ii}, {@update_layout_cb, true});
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
259 endfor
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
260
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
261 addlistener (hl, "autoupdate", @update_numchild_cb);
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
262
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
263 addlistener (hl, "beingdeleted", @delete_legend_cb);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
264
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
265 addlistener (hl, "box", @update_box_cb);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
266
27718
39ac47fdcda2 legend.m: handle "edgecolor" passed at legend creation (bug #56968)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27717
diff changeset
267 addlistener (hl, "edgecolor", @update_edgecolor_cb);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
268
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
269 addlistener (hl, "location", @update_location_cb);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
270
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
271 addlistener (hl, "position", @update_position_cb);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
272
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
273 addlistener (hl, "string", @update_string_cb);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
274
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
275 addlistener (hl, "textcolor", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
276 @(h) set (findobj (h, "type", "text"), ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
277 "color", get (hl, "textcolor")));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
278
27740
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
279 addlistener (hl, "visible", @update_visible_cb);
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
280
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
281 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
282
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
283 ## FIXME: This will trigger the execution of update_layout_cb for each
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
284 ## watched property. Should we suspend its execution with yet another
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
285 ## appdata bool property for performance?
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
286
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
287 ## Update properties
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
288 setappdata (hl, "__peer_objects__", opts.obj_handles);
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
289 if (! isempty (opts.obj_labels))
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
290 set (hl ,"string", opts.obj_labels, pval{:})
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
291 elseif (! isempty (pval))
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
292 set (hl, pval{:});
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
293 endif
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
294
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
295 endif
24403
b9462090773a legend.m: Setting DisplayName to "" should delete legend (bug #52641).
Rik <rik@octave.org>
parents: 24399
diff changeset
296
10995
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
297 if (nargout > 0)
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
298 hleg = hl;
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
299 ## These ones are needed for backward compatibility
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
300 hleg_obj = get (hl, "children");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
301 hplot = getappdata (hl, "__peer_objects__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
302 labels = get (hl, "string");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
303 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
304
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
305 set (hl, "handlevisibility", "on");
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
306
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
307 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
308
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
309 function update_box_cb (hl)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
310
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
311 if (strcmp (get (hl, "box"), "on"))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
312 if (strcmp (get (hl, "color"), "none"))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
313 set (hl, "color", "w");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
314 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
315 else
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
316 set (hl, "color", "none");
10995
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
317 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
318
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
319 endfunction
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
320
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
321 function update_location_cb (hl, ~, do_layout = true)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
322
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
323 if (strcmp (get (hl, "location"), "best"))
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
324 warning ("Octave:legend:unimplemented-location",
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
325 ["legend: 'best' not yet implemented for location ", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
326 "specifier, using 'northeast' instead\n"]);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
327 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
328
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
329 if (do_layout)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
330 update_layout_cb (hl);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
331 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
332
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
333 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
334
27718
39ac47fdcda2 legend.m: handle "edgecolor" passed at legend creation (bug #56968)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27717
diff changeset
335 function update_edgecolor_cb (hl)
39ac47fdcda2 legend.m: handle "edgecolor" passed at legend creation (bug #56968)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27717
diff changeset
336
27719
88350aacd800 legend.m: Tweaks to cset 39ac47fdcda2.
Rik <rik@octave.org>
parents: 27718
diff changeset
337 ecolor = get (hl, "edgecolor");
88350aacd800 legend.m: Tweaks to cset 39ac47fdcda2.
Rik <rik@octave.org>
parents: 27718
diff changeset
338 set (hl, "xcolor", ecolor, "ycolor", ecolor);
27718
39ac47fdcda2 legend.m: handle "edgecolor" passed at legend creation (bug #56968)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27717
diff changeset
339
39ac47fdcda2 legend.m: handle "edgecolor" passed at legend creation (bug #56968)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27717
diff changeset
340 endfunction
39ac47fdcda2 legend.m: handle "edgecolor" passed at legend creation (bug #56968)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27717
diff changeset
341
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
342 function update_position_cb (hl)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
343
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
344 updating = getappdata (hl, "__updating_layout__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
345 if (isempty (updating) || ! updating)
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
346 set (hl, "location", "none");
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
347 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
348
26832
ca40628fff39 legend.m: Update legend when target axes colormap changes (bug #54757).
Rik <rik@octave.org>
parents: 26815
diff changeset
349 endfunction
ca40628fff39 legend.m: Update legend when target axes colormap changes (bug #54757).
Rik <rik@octave.org>
parents: 26815
diff changeset
350
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
351 function update_string_cb (hl)
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
352
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
353 ## Check that the number of legend item and the number of labels match
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
354 ## before calling update_layout_cb.
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
355 persistent updating = false;
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
356
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
357 if (! updating)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
358 updating = true;
12339
eda5eabd5d0b Fix for inline legends (#32022, #32343)
David Bateman <dbateman@free.fr>
parents: 11587
diff changeset
359 unwind_protect
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
360 str = get (hl, "string");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
361 nstr = numel (str);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
362
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
363 obj = getappdata (hl, "__peer_objects__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
364 nobj = numel (obj);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
365
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
366 if (ischar (str) && nobj != 1)
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
367 setappdata (hl, "__peer_objects__", obj(1));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
368 elseif (iscellstr (str) && nobj != nstr)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
369 if (nobj > nstr)
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
370 setappdata (hl, "__peer_objects__", obj(1:nstr));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
371 elseif (nobj == 1)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
372 set (hl, "string", str{1});
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
373 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
374 set (hl, "string", str(1:nobj));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
375 endif
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
376 endif
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
377 update_layout_cb (hl, [], true);
12339
eda5eabd5d0b Fix for inline legends (#32022, #32343)
David Bateman <dbateman@free.fr>
parents: 11587
diff changeset
378 unwind_protect_cleanup
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
379 updating = false;
12339
eda5eabd5d0b Fix for inline legends (#32022, #32343)
David Bateman <dbateman@free.fr>
parents: 11587
diff changeset
380 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
381 endif
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
382
11198
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents: 11149
diff changeset
383 endfunction
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents: 11149
diff changeset
384
27740
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
385 function update_visible_cb (hl)
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
386
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
387 location = get (hl, "location");
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
388 if (strcmp (location(end:-1:end-3), "edis"))
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
389 update_layout_cb (hl);
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
390 endif
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
391
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
392 endfunction
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
393
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
394 function reset_cb (ht, evt, hl, deletelegend = true)
10995
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
395
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
396 if (ishghandle (hl))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
397 listeners = getappdata (hl, "__listeners__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
398 for ii = 1:numel (listeners)
27840
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
399 if (ishghandle (listeners{ii}{1}))
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
400 dellistener (listeners{ii}{:});
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
401 endif
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
402 endfor
21758
ffad2baa90f7 maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents: 21751
diff changeset
403
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
404 if (deletelegend)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
405 delete (hl);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
406 endif
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
407 endif
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
408
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
409 endfunction
24498
5865d2fef424 legend.m: Clean up implementation.
Rik <rik@octave.org>
parents: 24482
diff changeset
410
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
411 function delete_legend_cb (hl)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
412
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
413 reset_cb ([], [], hl, false);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
414
27751
8ac3222bf951 legend.m: reset both plotyy axes data when legend is deleted (bug #57319)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27749
diff changeset
415 hax = getappdata (hl, "__axes_handle__");
8ac3222bf951 legend.m: reset both plotyy axes data when legend is deleted (bug #57319)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27749
diff changeset
416 for h = hax(:)'
8ac3222bf951 legend.m: reset both plotyy axes data when legend is deleted (bug #57319)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27749
diff changeset
417 units = get (h, "units");
8ac3222bf951 legend.m: reset both plotyy axes data when legend is deleted (bug #57319)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27749
diff changeset
418 set (h, "units", getappdata (hl, "__original_units__"), ...
8ac3222bf951 legend.m: reset both plotyy axes data when legend is deleted (bug #57319)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27749
diff changeset
419 "looseinset", getappdata (hl, "__original_looseinset__"), ...
8ac3222bf951 legend.m: reset both plotyy axes data when legend is deleted (bug #57319)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27749
diff changeset
420 "units", units, "__legend_handle__", []);
8ac3222bf951 legend.m: reset both plotyy axes data when legend is deleted (bug #57319)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27749
diff changeset
421 endfor
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
422
10995
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents: 10990
diff changeset
423 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
424
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
425 function add_safe_listener (hl, varargin)
21758
ffad2baa90f7 maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents: 21751
diff changeset
426
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
427 addlistener (varargin{:});
24426
a51497205f4c Change uses of gcbf after Matlab compatibility change in bug #52621.
Rik <rik@octave.org>
parents: 24423
diff changeset
428
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
429 lsn = getappdata (hl, "__listeners__");
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
430 lsn = [lsn, {varargin}];
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
431 setappdata (hl, "__listeners__", lsn);
24498
5865d2fef424 legend.m: Clean up implementation.
Rik <rik@octave.org>
parents: 24482
diff changeset
432
11198
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents: 11149
diff changeset
433 endfunction
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents: 11149
diff changeset
434
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
435 function addproperties (hl)
11198
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents: 11149
diff changeset
436
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
437 persistent default = {"north", "northoutside", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
438 "south", "southoutside", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
439 "east", "eastoutside", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
440 "west", "westoutside", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
441 "{northeast}", "northeastoutside", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
442 "northwest", "northwestoutside", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
443 "southeast", "southeastoutside", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
444 "southwest", "southwestoutside", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
445 "best", "bestoutside", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
446 "none"};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
447
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
448 addproperty ("location", hl, "radio", strjoin (default(:), "|"));
24403
b9462090773a legend.m: Setting DisplayName to "" should delete legend (bug #52641).
Rik <rik@octave.org>
parents: 24399
diff changeset
449
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
450 addproperty ("orientation", hl, "radio", "{vertical}|horizontal");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
451
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
452 addproperty ("numcolumns", hl, "double", 1);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
453
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
454 addproperty ("numcolumnsmode", hl, "radio", "{auto}|manual");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
455
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
456 addlistener (hl, "numcolumns", @(h) set (h, "numcolumnsmode", "manual"));
17537
4f57d4de0383 legend.m: Implement correct listener for DisplayName on line objects.
Rik <rik@octave.org>
parents: 17536
diff changeset
457
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
458 addproperty ("autoupdate", hl, "radio", "{on}|off");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
459
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
460 addproperty ("string", hl, "textstring", {});
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
461
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
462 addproperty ("interpreter", hl, "textinterpreter");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
463
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
464 addproperty ("edgecolor", hl, "color", [.15 .15 .15]);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
465
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
466 addproperty ("textcolor", hl, "color", "k");
17537
4f57d4de0383 legend.m: Implement correct listener for DisplayName on line objects.
Rik <rik@octave.org>
parents: 17536
diff changeset
467
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
468 addproperty ("textposition", hl, "radio", "left|{right}");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
469
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
470 addproperty ("itemhitfcn", hl, "axesbuttondownfcn");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
471
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
472 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
473
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
474 function maybe_update_layout_cb (h, d, hl)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
475
27721
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
476 persistent updating = false;
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
477
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
478 if (! updating)
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
479
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
480 unwind_protect
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
481 updating = true;
27792
d68ae60f1557 legend.m: don't track figure position (bug #57387)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27790
diff changeset
482 units = get (h, "units");
d68ae60f1557 legend.m: don't track figure position (bug #57387)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27790
diff changeset
483 set (h, "units", "points");
d68ae60f1557 legend.m: don't track figure position (bug #57387)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27790
diff changeset
484 pos = get (h, "position");
d68ae60f1557 legend.m: don't track figure position (bug #57387)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27790
diff changeset
485 set (h, "units", units);
d68ae60f1557 legend.m: don't track figure position (bug #57387)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27790
diff changeset
486 old_pos = getappdata (hl, "__peer_axes_position__");
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
487
27792
d68ae60f1557 legend.m: don't track figure position (bug #57387)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27790
diff changeset
488 if (! all (pos == old_pos))
d68ae60f1557 legend.m: don't track figure position (bug #57387)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27790
diff changeset
489 update_layout_cb (hl);
d68ae60f1557 legend.m: don't track figure position (bug #57387)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27790
diff changeset
490 setappdata (hl, "__peer_axes_position__", pos);
27721
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
491 endif
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
492 unwind_protect_cleanup
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
493 updating = false;
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
494 end_unwind_protect
6eb7491a8794 legend.m: fix max recursion error with fltk (bug #52752)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27719
diff changeset
495
11198
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents: 11149
diff changeset
496 endif
21758
ffad2baa90f7 maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents: 21751
diff changeset
497
11198
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents: 11149
diff changeset
498 endfunction
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents: 11149
diff changeset
499
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
500 function update_numchild_cb (hl)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
501
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
502 if (strcmp (get (hl, "autoupdate"), "on"))
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
503
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
504 hax = getappdata (hl, "__axes_handle__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
505 kids = get (hax, "children");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
506 if (iscell (kids))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
507 nkids = numel (cell2mat (get (hax, "children")));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
508 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
509 nkids = numel (get (hax, "children"));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
510 endif
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
511
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
512 setappdata (hl, "__total_num_children__", nkids);
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
513
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
514 endif
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
515
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
516 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
517
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
518 function legend_autoupdate_cb (hax, d, hl)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
519
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
520 ## Get all current children including eventual peer plotyy axes children
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
521 try
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
522 hax = get (hax, "__plotyy_axes__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
523 kids = cell2mat (get (hax, "children"));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
524 catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
525 kids = get (hax, "children");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
526 end_try_catch
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
527
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
528 is_deletion = (getappdata (hl, "__total_num_children__") > numel (kids));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
529 setappdata (hl, "__total_num_children__", numel (kids));
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
530
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
531 ## Remove item for deleted object
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
532 current_obj = getappdata (hl, "__peer_objects__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
533 [~, iold, inew] = setxor (current_obj, kids);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
534 current_obj(iold) = [];
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
535
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
536 if (isempty (current_obj))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
537 delete (hl);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
538 return;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
539 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
540
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
541 if (! is_deletion && strcmp (get (hl, "autoupdate"), "on"))
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
542
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
543 ## We only expect 1 new child
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
544 kids = kids(min (inew));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
545
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
546 ## FIXME: if the latest child is an hggroup, we cannot label it since this
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
547 ## function is called before the hggroup has been properly populated.
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
548 persistent valid_types = {"line", "patch", "surface"};
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
549 if (! any (strcmp (get (kids, "type"), valid_types)))
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
550 kids = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
551 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
552
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
553 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
554 kids = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
555 endif
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
556
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
557 if (any (iold) || any (kids))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
558 setappdata (hl, "__peer_objects__", [current_obj; kids]);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
559 set (hl, "string", displayname_or_default ([current_obj; kids], hl));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
560 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
561
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
562 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
563
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
564 function opts = parse_opts (varargin)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
565
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
566 action = "";
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
567 legend_handle = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
568 axes_handles = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
569 obj_handles = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
570 obj_labels = {};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
571
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
572 nargs = numel (varargin);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
573
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
574 ## Find peer axes
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
575 if (nargs > 0
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
576 && (! ishghandle (varargin{1})
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
577 || (strcmp (get (varargin{1}, "type"), "axes")
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
578 && ! strcmp (get (varargin{1}, "tag"), "legend"))))
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
579 [axes_handles, varargin, nargs] = __plt_get_axis_arg__ ("legend",
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
580 varargin{:});
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
581 if (isempty (axes_handles))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
582 axes_handles = gca ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
583 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
584 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
585 axes_handles = gca ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
586 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
587
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
588 ## Special handling for plotyy which has two axes objects
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
589 if (isprop (axes_handles, "__plotyy_axes__"))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
590 axes_handles = [axes_handles get(axes_handles, "__plotyy_axes__").'];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
591 ## Remove duplicates while preserving order
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
592 [~, n] = unique (axes_handles, "first");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
593 axes_handles = axes_handles(sort (n));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
594 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
595
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
596 ## Find any existing legend object associated with axes
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
597 try
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
598 legend_handle = get (axes_handles, "__legend_handle__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
599 if (iscell (legend_handle))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
600 legend_handle = unique (cell2mat (legend_handle));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
601 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
602 catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
603 end_try_catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
604
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
605 ## Legend actions
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
606 actions = {"show", "hide", "toggle", "boxon", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
607 "boxoff", "right", "left", "off"};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
608 if (nargs > 0 && ischar (varargin{1})
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
609 && any (strcmp (varargin{1}, actions)))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
610 action = varargin{1};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
611 if (nargs > 1)
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
612 warning ("Octave:legend:ignoring-extra-argument",
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
613 'legend: ignoring extra arguments after "%s"', action);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
614 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
615 nargs = 0;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
616 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
617
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
618 ## Now remove property-value pairs for compatibility.
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
619 propval = {};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
620 warn_propval = "";
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
621 persistent legend_props = {"location", "orientation", "numcolumns", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
622 "numcolumnsmode", "textposition", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
623 "position", "units", "autoupdate", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
624 "string", "title", "interpreter", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
625 "fontname", "fontsize", "fontweight", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
626 "fontangle", "textcolor", "color", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
627 "edgecolor", "box", "linewidth", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
628 "visible", "uicontextmenu", "selected", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
629 "selectionhighlight", "itemhitfcn", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
630 "buttondownfcn", "createfcn", "deletefcn" ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
631 "interruptible", "busyaction", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
632 "pickableparts", "hittest", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
633 "beingdeleted", "parent", "children", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
634 "handlevisibility", "tag", "type", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
635 "userdata"};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
636 isprp = @(prop) (ischar (prop) && any (strcmpi (legend_props, prop)));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
637 idx = find (cellfun (isprp, varargin));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
638 if (! isempty (idx))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
639 idx = idx(1);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
640 propval = varargin(idx:end);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
641 warn_propval = varargin{idx};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
642 varargin(idx:end) = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
643 nargs = idx-1;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
644 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
645
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
646 ## List plot objects that can be handled
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
647 warn_extra_obj = false;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
648 persistent valid_types = {"line", "patch", "surface", "hggroup"};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
649
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
650 if (nargs > 0 && all (ishghandle (varargin{1})))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
651
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
652 ## List of plot objects to label given as first argument
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
653 obj_handles = varargin{1};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
654 types = get (obj_handles, "type");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
655 if (! iscell (types))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
656 types = {types};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
657 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
658
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
659 idx = cellfun (@(s) any (strcmp (s, valid_types)), types);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
660 if (! all (idx))
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
661 error ("Octave:legend:bad-object",
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
662 "legend: objects of type \"%s\" can't be labeled",
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
663 types(! idx){1});
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
664 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
665 varargin(1) = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
666 nargs--;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
667 warn_extra_obj = true;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
668
27739
f18f85ec4b96 legend.m: New labels on existing legend to redefine labeled objects.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27738
diff changeset
669 elseif (nargs > 0 || isempty (legend_handle))
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
670
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
671 ## Find list of plot objects from axes "children"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
672 if (isscalar (axes_handles))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
673 obj_handles = flipud (get (axes_handles, "children")(:));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
674 else
27713
e297d20e2d4f legend.m: fix regression with plotyy item order (bug #50497)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27711
diff changeset
675 tmp = get (axes_handles(:), "children");
e297d20e2d4f legend.m: fix regression with plotyy item order (bug #50497)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27711
diff changeset
676 obj_handles = [flipud(tmp{1}); flipud(tmp{2})];
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
677 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
678
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
679 if (isempty (obj_handles))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
680 error ("Octave:legend:no-object", "legend: no valid object to label");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
681 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
682
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
683 idx = arrayfun (@(h) any (strcmp (get (h, "type"), valid_types)), ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
684 obj_handles);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
685 obj_handles(! idx) = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
686
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
687 if (isempty (obj_handles))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
688 error ("Octave:legend:no-object", "legend: no valid object to label");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
689 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
690
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
691 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
692 obj_handles = getappdata (legend_handle, "__peer_objects__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
693 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
694
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
695 nobj = numel (obj_handles);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
696
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
697 ## List labels
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
698 next_idx = 1;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
699 if (nargs > 0)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
700
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
701 if (iscellstr (varargin{1}))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
702 obj_labels = varargin{1};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
703 varargin(1) = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
704 nargs--;
27722
62a57f086bf9 legend.m: fix argument parsing when empty string present (bug #52641)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27721
diff changeset
705 elseif (ischar (varargin{1}) && rows (varargin{1}) > 1)
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
706 obj_labels = cellstr (varargin{1});
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
707 varargin(1) = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
708 nargs--;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
709 elseif (all (cellfun (@ischar, varargin)))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
710 obj_labels = varargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
711 varargin = {};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
712 nargs = 0;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
713 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
714
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
715 if (nargs > 0)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
716 print_usage ("legend");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
717 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
718
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
719 nlab = numel (obj_labels);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
720 if (nlab != nobj)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
721 if (nobj > nlab)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
722 obj_handles = obj_handles(1:nlab);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
723
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
724 msg = "legend: ignoring extra objects.";
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
725 if (! isempty (warn_propval))
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
726 msg = [msg ' "' warn_propval '" interpreted as a property ' , ...
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
727 "name. Use a cell array of strings to specify labels ", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
728 "that match a legend property name."];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
729 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
730 if (warn_extra_obj)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
731 warning ("Octave:legend:object-label-mismatch", msg);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
732 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
733 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
734 obj_labels = obj_labels(1:nobj);
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
735 warning ("Octave:legend:object-label-mismatch",
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
736 "legend: ignoring extra labels.");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
737 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
738 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
739 else
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
740 [tmp_labels, next_idx] = displayname_or_default (obj_handles,
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
741 legend_handle);
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
742 if (isempty (legend_handle)
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
743 || ! isequal (tmp_labels, get (legend_handle, "string")))
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
744 obj_labels = tmp_labels;
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
745 endif
27740
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
746
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
747 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
748
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
749 opts.action = action;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
750 opts.axes_handles = axes_handles;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
751 opts.obj_handles = obj_handles;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
752 opts.obj_labels = obj_labels;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
753 opts.legend_handle = legend_handle;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
754 opts.propval = propval;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
755 opts.next_idx = next_idx;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
756
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
757 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
758
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
759 function [labels, next_idx] = displayname_or_default (hplots, hl = [])
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
760
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
761 next_idx = 1;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
762 if (! isempty (hl))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
763 next_idx = getappdata (hl, "__next_label_index__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
764 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
765
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
766 ## Use the displayname property
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
767 labels = get (hplots, "displayname");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
768 if (! iscell (labels))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
769 labels = {labels};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
770 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
771
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
772 ## Fallback to automatic names for empty labels
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
773 empty_label_idx = cellfun (@isempty, labels);
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
774
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
775 if (any (empty_label_idx) && ! isempty (hl))
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
776 ## Empty strings must not be blindly replaced by data%d. If there exist
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
777 ## an old text object that was affected an empty string, keep it as is.
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
778 kids = get (hl, "children");
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
779 htext = kids(strcmp (get (kids, "type"), "text"));
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
780 old_objects = get (htext, "peer_object");
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
781 if (iscell (old_objects))
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
782 old_objects = cell2mat (old_objects);
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
783 endif
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
784
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
785 for h = hplots(empty_label_idx).'
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
786 idx = (h == old_objects);
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
787 if (any (idx))
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
788 labels(hplots == h) = get (htext(idx), "string");
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
789 empty_label_idx(hplots == h) = false;
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
790 endif
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
791 endfor
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
792
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
793 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
794
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
795 if (any (empty_label_idx))
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
796 default = arrayfun (@(ii) sprintf ("data%d", ii), ...
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
797 [next_idx:(next_idx + sum (empty_label_idx) - 1)], ...
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
798 "uniformoutput", false)(:);
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
799 labels(empty_label_idx) = default;
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
800 endif
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
801
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
802 next_idx += sum (empty_label_idx);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
803
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
804 if (! isempty (hl))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
805 setappdata (hl, "__next_label_index__", next_idx);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
806 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
807
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
808 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
809
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
810 function update_layout_cb (hl, ~, update_item = false)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
811 updating = getappdata (hl, "__updating_layout__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
812 if (! isempty (updating) && updating)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
813 return;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
814 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
815
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
816 setappdata(hl, "__updating_layout__", true);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
817
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
818 ## Scale limits so that item positions are expressed in points, from
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
819 ## top to bottom and from left to right or reverse depending on textposition
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
820 units = get (hl, "units");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
821 set (hl, "units", "points");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
822
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
823 unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
824
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
825 if (update_item)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
826 pos = get (hl, "position")(3:4);
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
827 set (hl, "xlim", [0, pos(1)], "ylim", [0, pos(2)]);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
828
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
829 textright = strcmp (get (hl, "textposition"), "right");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
830 set (hl, "ydir", "reverse", ...
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
831 "xdir", ifelse (textright, "normal", "reverse"));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
832
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
833 ## Create or reuse text and icon graphics objects
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
834 objlist = texticon_objects (hl, textright);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
835 nitem = rows (objlist);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
836
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
837 ## Prepare the array of text/icon pairs and update their position
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
838 sz = update_texticon_position (hl, objlist);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
839 else
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
840 sz = [diff(get (hl, "xlim")), diff(get (hl, "ylim"))];
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
841 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
842
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
843 ## Place the legend
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
844 update_legend_position (hl, sz);
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
845
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
846 unwind_protect_cleanup
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
847 set (hl, "units", units);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
848 setappdata(hl, "__updating_layout__", false);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
849 end_unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
850
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
851 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
852
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
853 function objlist = texticon_objects (hl, textright)
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
854
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
855 ## Delete or set invisible obsolete or unused text/icon objects.
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
856 old_kids = get (hl, "children")(:).';
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
857 old_peer_objects = cell2mat (get (old_kids, "peer_object"))(:).';
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
858 unused = ! ishghandle (old_peer_objects);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
859 delete (old_kids(unused));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
860 old_kids(unused) = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
861 old_peer_objects(unused) = [];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
862
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
863 new_peer_objects = getappdata (hl, "__peer_objects__")(:).';
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
864
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
865 unused = arrayfun (@(h) ! any (h == new_peer_objects), old_peer_objects);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
866 set (old_kids(unused), "visible", "off");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
867
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
868 ## Text properties
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
869 string = get (hl , "string");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
870 if (! iscell (string))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
871 string = {string};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
872 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
873
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
874 txtprops = {"textcolor", "fontsize", "fontweight", "fontname", ...
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
875 "interpreter"};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
876 txtvals = get (hl, txtprops);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
877 txtprops{1} = "color";
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
878 txtprops = [txtprops, "horizontalalignment"];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
879 txtvals = [txtvals, ifelse(textright, "left", "right")];
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
880
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
881 ## Create or reuse text/icon objects as needed
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
882 nitem = numel (new_peer_objects);
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
883 objlist = NaN (nitem, 2);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
884
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
885 for ii = 1:nitem
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
886
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
887 str = string{ii};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
888 hplt = new_peer_objects(ii);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
889
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
890 idx = (old_peer_objects == hplt);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
891
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
892 if (any (idx))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
893 tmp = old_kids(idx);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
894 idx = strcmp (get (tmp, "type"), "text");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
895
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
896 htxt = tmp(idx);
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
897 hicon = tmp(! idx);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
898
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
899 set (htxt, "visible", "on", "string", str, ...
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
900 [txtprops(:)'; txtvals(:)']{:});
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
901 set (hicon, "visible", "on");
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
902
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
903 else
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
904 [htxt, hicon] = create_item (hl, str, [txtprops(:)'; txtvals(:)'], hplt);
27755
b70da79e4ed9 legend.m: Fix storage of listeners for displayname property
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27754
diff changeset
905 add_safe_listener (hl, hplt, "displayname", {@update_displayname_cb, hl});
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
906 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
907
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
908 set (hplt, "displayname", str);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
909
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
910 objlist(ii,:) = [htxt, hicon];
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
911 endfor
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
912
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
913 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
914
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
915 function [htxt, hicon] = create_item (hl, str, txtpval, hplt)
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
916
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
917 typ = get (hplt, "type");
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
918
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
919 ## For unknown hggroups use the first child that can be labeled
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
920 persistent known_creators = {"__contour__", "__errplot__", "__quiver__", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
921 "__scatter__", "__stem__"};
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
922 base_hplt = hplt;
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
923
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
924 if (strcmp (typ, "hggroup"))
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
925 creator = getappdata (hplt, "__creator__");
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
926 kids = get (hplt, "children");
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
927 if (any (strcmp (known_creators, creator)))
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
928 typ = creator;
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
929 switch (creator)
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
930 case "__contour__"
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
931 hplt = [kids(end), kids(1)];
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
932 case {"__errplot__", "__quiver__", "__stem__"}
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
933 hplt = kids(2:-1:1);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
934 otherwise
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
935 hplt = kids(1);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
936 endswitch
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
937 else
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
938 types = get (kids, "type");
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
939 if (! iscell (types))
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
940 types = {types};
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
941 endif
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
942
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
943 idx = cellfun (@(s) any (strcmp (s, {"line", "patch", "surface"})), ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
944 types);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
945 hplt = kids(idx)(1);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
946 typ = types(idx){1};
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
947 endif
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
948 endif
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
949
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
950 persistent lprops = {"color", "linestyle", "linewidth"};
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
951 persistent mprops = {"color", "marker", "markeredgecolor", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
952 "markerfacecolor", "markersize"};
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
953 persistent pprops = {"edgecolor", "facecolor", "cdata", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
954 "linestyle", "linewidth", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
955 "marker", "markeredgecolor", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
956 "markerfacecolor", "markersize"};
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
957
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
958 switch (typ)
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
959 case {"line", "__errplot__", "__quiver__", "__stem__"}
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
960
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
961 ## Main line
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
962 vals = get (hplt(1), lprops);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
963 hicon = __go_line__ (hl, [lprops; vals]{:});
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
964 addproperty ("markerxdata", hicon, "double", 0);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
965 addproperty ("markerydata", hicon, "double", 0);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
966
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
967 ## Additional line for the marker
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
968 vals = get (hplt(end), mprops);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
969 hmarker = __go_line__ (hl, "handlevisibility", "off", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
970 "xdata", 0, "ydata", 0, [mprops; vals]{:});
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
971 update_marker_cb (hmarker);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
972
27840
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
973 ## Listeners
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
974 safe_property_link (hplt(1), hicon, lprops);
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
975 safe_property_link (hplt(end), hmarker, mprops);
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
976 addlistener (hicon, "ydata", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
977 @(h) set (hmarker, "ydata", get (h, "markerydata")));
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
978 addlistener (hicon, "xdata", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
979 @(h) set (hmarker, "xdata", get (h, "markerxdata")));
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
980 addlistener (hmarker, "markersize", @update_marker_cb);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
981 add_safe_listener (hl, hplt(1), "beingdeleted",
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
982 @() delete ([hicon hmarker]))
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
983 if (! strcmp (typ, "__errplot__"))
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
984 setappdata (hicon, "__creator__", typ);
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
985 else
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
986 setappdata (hicon, "__creator__", typ, ...
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
987 "__format__", get (base_hplt, "format"));
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
988 endif
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
989
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
990 case {"patch", "surface", "__scatter__"}
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
991
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
992 vals = get (hplt, pprops);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
993
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
994 hicon = __go_patch__ (hl, [pprops; vals]{:});
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
995
27840
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
996 ## Listeners
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
997 safe_property_link (hplt(1), hicon, pprops);
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
998
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
999 setappdata (hicon, "__creator__", typ);
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1000
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1001 case "__contour__"
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1002
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1003 ## Main patch
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1004
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1005 vals = get (hplt(1), pprops);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1006 hicon = __go_patch__ (hl, [pprops; vals]{:});
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1007
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1008 addproperty ("innerxdata", hicon, "any", 0);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1009 addproperty ("innerydata", hicon, "any", 0);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1010
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1011 ## Additional patch for the inner contour
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1012 vals = get (hplt(end), pprops);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1013 htmp = __go_patch__ (hl, "handlevisibility", "off", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1014 "xdata", 0, "ydata", 0, [pprops; vals]{:});
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1015
27840
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1016 ## Listeners
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1017 safe_property_link (hplt(1), hicon, pprops);
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1018 safe_property_link (hplt(end), htmp, pprops);
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1019 addlistener (hicon, "ydata", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1020 @(h) set (htmp, "ydata", get (h, "innerydata")));
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1021 addlistener (hicon, "xdata", ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1022 @(h) set (htmp, "xdata", get (h, "innerxdata")));
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1023 add_safe_listener (hl, hplt(1), "beingdeleted",
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1024 @() delete ([hicon htmp]))
27840
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1025
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1026 setappdata (hicon, "__creator__", typ);
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1027
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1028 endswitch
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1029
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1030 htxt = __go_text__ (hl, "string", str, txtpval{:});
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1031
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1032 addproperty ("peer_object", htxt, "double", base_hplt);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1033 addproperty ("peer_object", hicon, "double", base_hplt);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1034
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1035 endfunction
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1036
27840
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1037 function safe_property_link (h1, h2, props)
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1038 for ii = 1:numel (props)
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1039 prop = props{ii};
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1040 lsn = {h1, prop, @(h) set (h2, prop, get (h, prop))};
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1041 addlistener (lsn{:});
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1042 addlistener (h2, "beingdeleted", @() dellistener (lsn{:}));
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1043 endfor
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1044 endfunction
27dd7da9e787 legend.m: stop warnings after "clear all; clf" (bug #57401)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27801
diff changeset
1045
27738
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1046 function update_displayname_cb (h, ~, hl)
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1047
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1048 updating = getappdata (hl, "__updating_layout__");
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1049 if (! isempty (updating) && updating)
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1050 return;
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1051 endif
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1052
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1053 str = get (hl, "string");
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1054 if (! iscell (str))
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1055 str = {str};
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1056 endif
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1057
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1058 str{h == getappdata (hl, "__peer_objects__")} = get (h, "displayname");
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1059
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1060 set (hl ,"string", str);
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1061
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1062 endfunction
7fff532afcb1 legend.m: Fix handling of empty strings and displayname (bug #57271)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27723
diff changeset
1063
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1064 function update_marker_cb (h)
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1065
28228
298977286479 legend.m: display actual marker size up to 8 points
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28050
diff changeset
1066 if (get (h, "markersize") > 8)
298977286479 legend.m: display actual marker size up to 8 points
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28050
diff changeset
1067 set (h, "markersize", 8);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1068 endif
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1069
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1070 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1071
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1072 function sz = update_texticon_position (hl, objlist)
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1073
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1074 ## margins in points
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1075 persistent hmargin = 3;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1076 persistent vmargin = 3;
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1077 persistent icon_width = 15;
27749
b3ad1b9417c0 legend.m: Make icon height depend on the fontsize (bug #57269)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27747
diff changeset
1078
b3ad1b9417c0 legend.m: Make icon height depend on the fontsize (bug #57269)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27747
diff changeset
1079 units = get (hl, "fontunits");
b3ad1b9417c0 legend.m: Make icon height depend on the fontsize (bug #57269)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27747
diff changeset
1080 set (hl, "fontunits", "points");
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1081 icon_height = 0.7 * get (hl, "fontsize");
27749
b3ad1b9417c0 legend.m: Make icon height depend on the fontsize (bug #57269)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27747
diff changeset
1082 set (hl, "fontunits", units);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1083
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1084 ext = get (objlist(:,1), "extent");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1085 markers = get (objlist(:,2), "marker");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1086 markersz = get (objlist(:,2), "markersize");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1087 types = get (objlist(:,2), "type");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1088
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1089 ## Simple case of 1 text/icon pair
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1090 nitem = rows (objlist);
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1091 txticon = zeros (nitem, 4);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1092 if (nitem == 1)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1093 ext = abs (ext(:,3:4));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1094 types = {types};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1095 markers = {markers};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1096 markersz = {markersz};
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1097 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1098 ext = abs (cell2mat (ext)(:,3:4));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1099 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1100
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1101 autolayout = strcmp (get (hl, "numcolumnsmode"), "auto");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1102 xmax = ymax = 0;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1103 iter = 1;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1104
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1105 if (strcmp (get (hl, "orientation"), "vertical"))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1106
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1107 if (autolayout)
27843
48c77d47ea81 legend.m: Simplify automatic column number computation (bug #57418)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27840
diff changeset
1108 ncol = 1;
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1109 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1110 ncol = min (nitem, get (hl, "numcolumns"));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1111 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1112
27843
48c77d47ea81 legend.m: Simplify automatic column number computation (bug #57418)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27840
diff changeset
1113 nrow = ceil (nitem / ncol);
48c77d47ea81 legend.m: Simplify automatic column number computation (bug #57418)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27840
diff changeset
1114
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1115 rowheights = arrayfun (@(idx) max([icon_height; ext(idx:nrow:end, 2)]), ...
27723
a0143104b224 legend.m: fix icon height for patch and surface objects (bug #57269)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27722
diff changeset
1116 1:nrow);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1117 x = hmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1118 for ii = 1:ncol
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1119 y = vmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1120 for jj = 1:nrow
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1121 if (iter > nitem)
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1122 continue;
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1123 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1124
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1125 hg = rowheights(jj);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1126 dx = 0;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1127 if (! strcmp (markers{iter}, "none"))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1128 dx = markersz{iter}/2;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1129 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1130
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1131 ybase = y + hg / 2;
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1132 y0 = y + hg/2 - icon_height/2 + dx;
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1133 y1 = y + hg/2 + icon_height/2 - dx;
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1134
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1135 update_icon_position (objlist(iter,2), [x+dx, x+icon_width-dx], ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1136 [y0, y1]);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1137
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1138 set (objlist(iter,1), "position", [x+icon_width+hmargin, ybase, 0]);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1139
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1140 xmax = max ([xmax, x+icon_width+2*hmargin+ext(iter,1)]);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1141 y += (vmargin + hg);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1142 iter++;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1143 endfor
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1144 ymax = max ([ymax, y]);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1145 x = xmax + 2*hmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1146 endfor
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1147
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1148 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1149
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1150 if (autolayout)
27843
48c77d47ea81 legend.m: Simplify automatic column number computation (bug #57418)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27840
diff changeset
1151 ncol = nitem;
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1152 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1153 ncol = min (nitem, get (hl, "numcolumns"));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1154 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1155
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1156 nrow = ceil (nitem / ncol);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1157
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1158 colwidth = arrayfun (@(idx) max(ext(idx:ncol:end, 1)),
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1159 1:ncol);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1160 y = vmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1161 for ii = 1:nrow
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1162 x = hmargin;
27714
a984e6722601 legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27713
diff changeset
1163
a984e6722601 legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27713
diff changeset
1164 endidx = min (iter+ncol-1, nitem);
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1165 hg = max ([icon_height; ext(iter:endidx,2)]);
27714
a984e6722601 legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27713
diff changeset
1166
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1167 for jj = 1:ncol
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1168 if (iter > nitem)
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1169 continue;
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1170 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1171
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1172 wd = colwidth(jj);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1173
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1174 dx = 0;
27714
a984e6722601 legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27713
diff changeset
1175 if (! strcmp (markers{iter}, "none"))
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1176 dx = markersz{iter}/2;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1177 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1178
27714
a984e6722601 legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27713
diff changeset
1179 ybase = y + hg / 2;
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1180 y0 = y + hg/2 - icon_height/2 + dx;
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1181 y1 = y + hg/2 + icon_height/2 - dx;
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1182
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1183 update_icon_position (objlist(iter,2), [x+dx, x+icon_width-dx], ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1184 [y0, y1]);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1185
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1186 set (objlist(iter,1), "position", [x+icon_width+hmargin, ybase, 0]);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1187
27714
a984e6722601 legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27713
diff changeset
1188 ymax = max ([ymax, ybase+hg/2+vmargin]);
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1189 x += (3*hmargin + icon_width + wd);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1190 iter++;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1191 endfor
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1192 xmax = max ([xmax, x-hmargin]);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1193 y = ymax + vmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1194 endfor
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1195
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1196 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1197
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1198 sz = [xmax, ymax];
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1199
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1200 endfunction
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1201
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1202 function update_icon_position (hicon, xdata, ydata)
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1203 creator = getappdata (hicon, "__creator__");
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1204 switch (creator)
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1205 case "line"
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1206 set (hicon, "markerxdata", mean (xdata), "markerydata", mean (ydata), ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1207 "xdata", xdata, "ydata", [mean(ydata), mean(ydata)]);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1208 case {"patch", "surface"}
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1209 set (hicon, ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1210 "xdata", [xdata, fliplr(xdata)], ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1211 "ydata", [ydata; ydata](:).');
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1212 case "__contour__"
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1213 ## Draw two patches
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1214 x0 = xdata(1);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1215 x1 = xdata(2);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1216 xm = mean (xdata);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1217 y0 = ydata(1);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1218 y1 = ydata(2);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1219 ym = mean (ydata);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1220
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1221 xdata = [x0, x1, x1, x0];
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1222 ydata = [y0, y0, y1, y1];
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1223 set (hicon, ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1224 "innerxdata", (xdata-xm) * 0.6 + xm, ...
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1225 "innerydata", (ydata-ym) * 0.4 + ym, ...
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1226 "xdata", xdata, "ydata", ydata);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1227 case "__errplot__"
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1228 x0 = xdata(1);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1229 x1 = xdata(2);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1230 xm = mean (xdata);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1231 y0 = ydata(1);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1232 y1 = ydata(2);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1233 ym = mean (ydata);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1234
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1235 fmt = getappdata (hicon, "__format__");
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1236 if (strcmp (fmt, "yerr"))
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1237 xdata = [xm, xm, xm-2, xm+2, xm, xm, xm-2, xm+2];
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1238 ydata = [ym, y0, y0, y0, y0, y1, y1, y1];
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1239 elseif (strcmp (fmt, "xerr"))
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1240 xdata = [x0+2, x0+2, x0+2, x1-2, x1-2, x1-2, x1-2];
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1241 ydata = [ym+2, ym-2, ym, ym, ym+2, ym-2, ym];
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1242 else # "both"
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1243 xdata = [x0+2, x0+2, x0+2, x1-2, x1-2, x1-2, x1-2, ...
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1244 xm, xm, xm-2, xm+2, xm, xm, xm-2, xm+2];
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1245 ydata = [ym+2, ym-2, ym, ym, ym+2, ym-2, ym, ...
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1246 ym, y0, y0, y0, y0, y1, y1, y1];
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1247 endif
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1248 set (hicon, "markerxdata", xm, "markerydata", ym, ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1249 "xdata", xdata, "ydata", ydata);
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1250
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1251 case "__quiver__"
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1252 ## Draw an arrow
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1253 x0 = xdata(1);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1254 x1 = xdata(2);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1255 y0 = mean (ydata);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1256 xdata = [x0, x1, x1-2, x1, x1-2];
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1257 ydata = [y0, y0, y0+2, y0, y0-2];
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1258 set (hicon, "markerxdata", x0, "markerydata", y0, ...
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1259 "xdata", xdata, "ydata", ydata);
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1260 case "__scatter__"
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1261 set (hicon, "xdata", mean(xdata), "ydata", mean(ydata));
27793
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1262 case "__stem__"
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1263 xdata(2) -= (get (get (hicon, "peer_object"), "markersize") / 2);
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1264 set (hicon, "markerxdata", xdata(2), "markerydata", mean (ydata), ...
507d2e0fcb43 legend.m: Improve hggroup icons (bug #57388)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27792
diff changeset
1265 "xdata", xdata, "ydata", [mean(ydata), mean(ydata)]);
27790
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1266 endswitch
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1267 endfunction
0157c4d4792e legend.m: Handle builtin hggroup-based objects (bug #57260)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27755
diff changeset
1268
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1269 function pos = boxposition (axpos, pbam, pba)
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1270 pos = axpos;
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1271 pbratio = pba(1)/pba(2);
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1272 posratio = axpos(3)/axpos(4);
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1273 if (strcmp (pbam, "manual") && pbratio != posratio)
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1274 if (posratio < pbratio)
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1275 pos(4) = pos(3) / pbratio;
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1276 pos(2) += (axpos(4) - pos(4)) / 2;
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1277 else
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1278 pos(3) = pos(4) * pbratio;
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1279 pos(1) += (axpos(3) - pos(3)) / 2;
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1280 endif
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1281 endif
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1282 endfunction
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1283
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1284 function update_legend_position (hl, sz)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1285
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1286 persistent hmargin = 6;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1287 persistent vmargin = 6;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1288
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1289 location = get (hl, "location");
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1290 outside = strcmp (location(end-3:end), "side");
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1291 if (outside)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1292 location = location(1:end-7);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1293 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1294
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1295 if (strcmp (location, "best"))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1296 orientation = get (hl, "orientation");
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1297 if (outside)
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1298 if (strcmp (orientation, "vertical"))
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1299 location = "northeast";
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1300 else
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1301 location = "south";
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1302 endif
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1303 else
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1304 ## FIXME: implement "best" inside properly
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1305 location = "northeast";
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1306 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1307 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1308
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1309 haxes = getappdata (hl, "__axes_handle__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1310 hax = haxes(end);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1311 units = get (hax, "units");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1312
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1313 unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1314 ## Restore the original looseinset first and set units to points.
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1315 li = getappdata (hl, "__original_looseinset__");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1316 if (isempty (li))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1317 li = get (hax, "looseinset");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1318 setappdata (hl, "__original_looseinset__", li);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1319 setappdata (hl, "__original_units__", units);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1320 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1321
27740
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1322 if (strcmp (get (hl, "visible"), "on"))
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1323 set (hax, "units", getappdata (hl, "__original_units__"),
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1324 "looseinset", li,
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1325 "units", "points");
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1326 else
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1327 ## Return early for invible legends
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1328 set (hax, "units", getappdata (hl, "__original_units__"),
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1329 "looseinset", li,
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1330 "units", units);
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1331 return;
3d5f00d4c847 legend.m: Restore original axes looseinset when the legend is hidden.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27739
diff changeset
1332 endif
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1333
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1334 [li, axpos, pbam, pba] = get (hax, {"looseinset", "position", ...
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1335 "plotboxaspectratiomode", ...
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1336 "plotboxaspectratio"}){:};
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1337 axpos = boxposition (axpos, pbam, pba);
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1338 lpos = [get(hl, "position")(1:2), sz];
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1339
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1340 if (! outside)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1341
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1342 switch (location)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1343 case "southwest"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1344 lpos(1) = axpos(1) + hmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1345 lpos(2) = axpos(2) + vmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1346 case "west"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1347 lpos(1) = axpos(1) + hmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1348 lpos(2) = axpos(2) + axpos(4)/2 - lpos(4)/2;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1349 case "northwest"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1350 lpos(1) = axpos(1) + hmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1351 lpos(2) = axpos(2) + axpos(4) - lpos(4) - vmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1352 case "north"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1353 lpos(1) = axpos(1) + axpos(3)/2 - lpos(3)/2;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1354 lpos(2) = axpos(2) + axpos(4) - lpos(4) - vmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1355 case "northeast"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1356 lpos(1) = axpos(1) + axpos(3) - lpos(3) - hmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1357 lpos(2) = axpos(2) + axpos(4) - lpos(4) - vmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1358 case "east"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1359 lpos(1) = axpos(1) + axpos(3) - lpos(3) - hmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1360 lpos(2) = axpos(2) + axpos(4)/2 - lpos(4)/2;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1361 case "southeast"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1362 lpos(1) = axpos(1) + axpos(3) - lpos(3) - hmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1363 lpos(2) = axpos(2) + vmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1364 case "south"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1365 lpos(1) = axpos(1) + axpos(3)/2 - lpos(3)/2;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1366 lpos(2) = axpos(2) + vmargin;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1367 endswitch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1368
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1369 else
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1370
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1371 ## FIXME: Is there a simpler way to know the size of the box
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1372 ## enclosing labels than temporarily changing the
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1373 ## plotboxaspectratiomode
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1374 if (strcmp (pbam, "auto"))
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1375 ti = get (haxes, "tightinset");
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1376 else
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1377 set (haxes, "plotboxaspectratiomode", "auto");
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1378 ti = get (haxes, "tightinset");
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1379 set (haxes, "plotboxaspectratio", pba);
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1380 endif
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1381
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1382 if (iscell (ti))
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1383 ti = max (cell2mat (ti));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1384 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1385
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1386 switch (location)
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1387 case "southwest"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1388 dx = lpos(3) + hmargin + ti(1);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1389 if (axpos(1) < (dx + hmargin))
27711
63a03d2a20e6 legend.m: don't set too large looseinset for outside legends (bug #50094)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27710
diff changeset
1390 li(1) = min (dx + hmargin, 0.95 * (axpos(1) + axpos(3)));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1391 set (hax, "looseinset", li);
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1392 axpos = boxposition (get (hax, "position"), pbam, pba);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1393 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1394 lpos(1) = axpos(1) - dx;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1395 lpos(2) = axpos(2);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1396 case "west"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1397 dx = lpos(3) + hmargin + ti(1);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1398 if (axpos(1) < (dx + hmargin))
27711
63a03d2a20e6 legend.m: don't set too large looseinset for outside legends (bug #50094)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27710
diff changeset
1399 li(1) = min (dx + hmargin, 0.95 * (axpos(1) + axpos(3)));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1400 set (hax, "looseinset", li);
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1401 axpos = boxposition (get (hax, "position"), pbam, pba);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1402 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1403 lpos(1) = axpos(1) - dx;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1404 lpos(2) = axpos(2) + axpos(4)/2 - lpos(4)/2;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1405 case "northwest"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1406 dx = lpos(3) + hmargin + ti(1);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1407 if (axpos(1) < (dx + hmargin))
27711
63a03d2a20e6 legend.m: don't set too large looseinset for outside legends (bug #50094)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27710
diff changeset
1408 li(1) = min (dx + hmargin, 0.95 * (axpos(1) + axpos(3)));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1409 set (hax, "looseinset", li);
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1410 axpos = boxposition (get (hax, "position"), pbam, pba);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1411 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1412 lpos(1) = axpos(1) - dx;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1413 lpos(2) = axpos(2) + axpos(4) - lpos(4);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1414 case "north"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1415 dy = lpos(4) + vmargin + ti(4);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1416 if (li(4) < (dy + vmargin))
27711
63a03d2a20e6 legend.m: don't set too large looseinset for outside legends (bug #50094)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27710
diff changeset
1417 li(4) = min (dy + vmargin, axpos(4));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1418 set (hax, "looseinset", li);
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1419 axpos = boxposition (get (hax, "position"), pbam, pba);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1420 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1421 lpos(1) = axpos(1) + axpos(3)/2 - lpos(3)/2;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1422 lpos(2) = axpos(2) + axpos(4) + vmargin + ti(4);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1423 case "northeast"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1424 dx = lpos(3) + hmargin + ti(3);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1425 if (li(3) < (dx + hmargin))
27711
63a03d2a20e6 legend.m: don't set too large looseinset for outside legends (bug #50094)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27710
diff changeset
1426 li(3) = min (dx + hmargin, axpos(3));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1427 set (hax, "looseinset", li);
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1428 axpos = boxposition (get (hax, "position"), pbam, pba);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1429 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1430 lpos(1) = axpos(1) + axpos(3) + hmargin + ti(3);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1431 lpos(2) = axpos(2) + axpos(4) - lpos(4);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1432 case "east"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1433 dx = lpos(3) + hmargin + ti(3);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1434 if (li(3) < (dx + hmargin))
27711
63a03d2a20e6 legend.m: don't set too large looseinset for outside legends (bug #50094)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27710
diff changeset
1435 li(3) = min (dx + hmargin, axpos(3));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1436 set (hax, "looseinset", li);
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1437 axpos = boxposition (get (hax, "position"), pbam, pba);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1438 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1439 lpos(1) = axpos(1) + axpos(3) + hmargin + ti(3);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1440 lpos(2) = axpos(2) + axpos(4)/2 - lpos(4)/2;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1441 case "southeast"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1442 dx = lpos(3) + hmargin + ti(3);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1443 if (li(3) < (dx + hmargin))
27711
63a03d2a20e6 legend.m: don't set too large looseinset for outside legends (bug #50094)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27710
diff changeset
1444 li(3) = min (dx + hmargin, axpos(3));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1445 set (hax, "looseinset", li);
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1446 axpos = boxposition (get (hax, "position"), pbam, pba);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1447 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1448 lpos(1) = axpos(1) + axpos(3) + hmargin + ti(3);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1449 lpos(2) = axpos(2);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1450 case "south"
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1451 dy = lpos(4) + vmargin + ti(2);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1452 if (li(2) < (dy + vmargin))
27711
63a03d2a20e6 legend.m: don't set too large looseinset for outside legends (bug #50094)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27710
diff changeset
1453 li(2) = min (dy + vmargin, 0.95 * (axpos(2) + axpos(4)));
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1454 set (hax, "looseinset", li);
28049
9507b3cf5a86 legend.m: take the plot box aspect ratio into account (bug #57685)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 28011
diff changeset
1455 axpos = boxposition (get (hax, "position"), pbam, pba);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1456 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1457 lpos(1) = axpos(1) + axpos(3)/2 - lpos(3)/2;
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1458 lpos(2) = axpos(2) - lpos(4) - vmargin - ti(2);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1459 endswitch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1460 endif
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1461
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1462 set (hl, "xlim", [0, sz(1)], "ylim", [0, sz(2)], ...
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1463 "position", lpos);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1464
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1465 setappdata (hl, "__peer_axes_position__", axpos);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1466
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1467 unwind_protect_cleanup
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1468 set (hax, "units", units);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1469 end_unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1470
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1471 endfunction
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1472
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1473
11418
a140991387fb legend.m: Add demo to legend for inline key.
Ben Abbott <bpabbott@mac.com>
parents: 11363
diff changeset
1474 %!demo
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1475 %! clf;
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1476 %! plot (rand (2));
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1477 %! title ("legend called with string inputs for labels");
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1478 %! h = legend ("foo", "bar");
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1479 %! set (h, "fontsize", 20, "location", "northeastoutside");
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
1480
aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos.
Ben Abbott <bpabbott@mac.com>
parents: 11434
diff changeset
1481 %!demo
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1482 %! clf;
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1483 %! plot (rand (2));
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1484 %! title ("legend called with cell array of strings");
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1485 %! h = legend ({"cellfoo", "cellbar"});
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1486 %! set (h, "fontsize", 20, "location", "northeast");
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1487
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1488 %!demo
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1489 %! clf;
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1490 %! plot (rand (3));
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1491 %! title ("legend () without inputs creates default labels");
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1492 %! h = legend ();
14236
35903f035390 Escaping strings for legend entries are handled by __go_draw_axes__.
Ben Abbott <bpabbott@mac.com>
parents: 14214
diff changeset
1493
35903f035390 Escaping strings for legend entries are handled by __go_draw_axes__.
Ben Abbott <bpabbott@mac.com>
parents: 14214
diff changeset
1494 %!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
1495 %! clf;
11418
a140991387fb legend.m: Add demo to legend for inline key.
Ben Abbott <bpabbott@mac.com>
parents: 11363
diff changeset
1496 %! x = 0:1;
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1497 %! hline = plot (x,x,";I am Blue;", x,2*x, x,3*x,";I am yellow;");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1498 %! h = legend ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1499 %! set (h, "location", "northeastoutside");
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1500 %! ## Placing legend inside returns axes to original size
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1501 %! set (h, "location", "northeast");
22800
5de8670d10a6 Change text describing demo plots to reflect new ColorOrder (bug #49288).
Rik <rik@octave.org>
parents: 22624
diff changeset
1502 %! title ("Blue and Yellow keys, with Orange missing");
8343
9f34f7636fe0 legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents: 8291
diff changeset
1503
9f34f7636fe0 legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents: 8291
diff changeset
1504 %!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
1505 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents: 14236
diff changeset
1506 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
22800
5de8670d10a6 Change text describing demo plots to reflect new ColorOrder (bug #49288).
Rik <rik@octave.org>
parents: 22624
diff changeset
1507 %! title ("incline is blue and decline is orange");
5de8670d10a6 Change text describing demo plots to reflect new ColorOrder (bug #49288).
Rik <rik@octave.org>
parents: 22624
diff changeset
1508 %! legend ({"I am blue", "I am orange"}, "location", "east");
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
1509 %! legend hide
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
1510 %! legend show
11363
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents: 11246
diff changeset
1511
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents: 11246
diff changeset
1512 %!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
1513 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents: 14236
diff changeset
1514 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1515 %! title ("Legend with keys in horizontal orientation");
22800
5de8670d10a6 Change text describing demo plots to reflect new ColorOrder (bug #49288).
Rik <rik@octave.org>
parents: 22624
diff changeset
1516 %! legend ({"I am blue", "I am orange"}, ...
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1517 %! "location", "east", "orientation", "horizontal");
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1518 %! legend boxoff
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
1519 %! 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
1520
aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos.
Ben Abbott <bpabbott@mac.com>
parents: 11434
diff changeset
1521 %!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
1522 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents: 14236
diff changeset
1523 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1524 %! title ("Legend with box off");
22800
5de8670d10a6 Change text describing demo plots to reflect new ColorOrder (bug #49288).
Rik <rik@octave.org>
parents: 22624
diff changeset
1525 %! legend ({"I am blue", "I am orange"}, "location", "east");
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1526 %! legend boxoff
11434
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents: 11418
diff changeset
1527
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents: 11418
diff changeset
1528 %!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
1529 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents: 14236
diff changeset
1530 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1531 %! title ("Legend with text to the left of key");
22800
5de8670d10a6 Change text describing demo plots to reflect new ColorOrder (bug #49288).
Rik <rik@octave.org>
parents: 22624
diff changeset
1532 %! legend ({"I am blue", "I am orange"}, "location", "east");
17532
492d609d2d75 legend.m: Default text labels to "right" alignment for Matlab compatibility.
Rik <rik@octave.org>
parents: 17530
diff changeset
1533 %! legend left
8343
9f34f7636fe0 legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents: 8291
diff changeset
1534
9f34f7636fe0 legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents: 8291
diff changeset
1535 %!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
1536 %! clf;
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1537 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1538 %! title ({"Use properties to place legend text to the left of key", ...
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1539 %! "Legend text color is magenta"});
22800
5de8670d10a6 Change text describing demo plots to reflect new ColorOrder (bug #49288).
Rik <rik@octave.org>
parents: 22624
diff changeset
1540 %! h = legend ({"I am blue", "I am orange"}, "location", "east");
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1541 %! legend ("right");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1542 %! set (h, "textposition", "left");
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1543 %! set (h, "textcolor", [1, 0, 1]);
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1544
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1545 %!demo
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1546 %! clf;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1547 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1548 %! title ("Legend is hidden");
22800
5de8670d10a6 Change text describing demo plots to reflect new ColorOrder (bug #49288).
Rik <rik@octave.org>
parents: 22624
diff changeset
1549 %! legend ({"I am blue", "I am orange"}, "location", "east");
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1550 %! legend hide
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1551
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1552 %!demo
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1553 %! clf;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1554 %! x = 0:1;
22800
5de8670d10a6 Change text describing demo plots to reflect new ColorOrder (bug #49288).
Rik <rik@octave.org>
parents: 22624
diff changeset
1555 %! plot (x,x,";I am Blue;", x,2*x,";I am Orange;", x,3*x,";I am Yellow;");
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1556 %! title ({"Labels are embedded in call to plot", ...
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1557 %! "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
1558 %! legend boxon
11434
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents: 11418
diff changeset
1559 %! legend hide
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents: 11418
diff changeset
1560 %! legend show
11363
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents: 11246
diff changeset
1561
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents: 11246
diff changeset
1562 %!demo
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1563 %! clf;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1564 %! x = 0:1;
22151
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script.
Rik <rik@octave.org>
parents: 22069
diff changeset
1565 %! plot (x,x, x,2*x, x,3*x);
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1566 %! title ("Labels with interpreted Greek text");
22151
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script.
Rik <rik@octave.org>
parents: 22069
diff changeset
1567 %! h = legend ('\alpha', '\beta=2\alpha', '\gamma=3\alpha');
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1568 %! set (h, "interpreter", "tex");
11434
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents: 11418
diff changeset
1569
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents: 11418
diff changeset
1570 %!demo
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1571 %! clf;
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1572 %! plot (rand (2));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1573 %! title ("Labels with TeX interpreter turned off");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1574 %! h = legend ("Hello_World", "foo^bar");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1575 %! set (h, "interpreter", "none");
9451
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1576
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1577 %!demo
15442
015cc3d1f389 legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents: 15441
diff changeset
1578 %! clf;
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
1579 %! labels = {};
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1580 %! colororder = get (gca, "colororder");
6146
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe]
jwe
parents:
diff changeset
1581 %! 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
1582 %! h = plot (1:100, i + rand (100,1)); hold on;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1583 %! set (h, "color", colororder(i,:));
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1584 %! labels = {labels{:}, ["Signal ", num2str(i)]};
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1585 %! endfor
11363
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents: 11246
diff changeset
1586 %! hold off;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1587 %! title ({"Signals with random offset and uniform noise";
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1588 %! "Legend shown below and outside of plot"});
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1589 %! xlabel ("Sample Nr [k]"); ylabel ("Amplitude [V]");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1590 %! legend (labels, "location", "southoutside");
9451
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1591
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1592 %!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
1593 %! clf;
9451
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1594 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1595 %! 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
1596 %! hold on;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1597 %! stem (x, x.^2, "g");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1598 %! title ("First created object gets first label");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1599 %! 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
1600 %! hold off;
9451
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1601
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1602 %!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
1603 %! clf;
9451
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1604 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1605 %! plot (x, x, x, x.^2);
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1606 %! title ("First created object gets first label");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1607 %! legend ("linear");
9451
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1608
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1609 %!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
1610 %! clf;
9451
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1611 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
1612 %! plot (x, x, x, x.^2);
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1613 %! title ("Labels are applied in order of object creation");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1614 %! 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
1615
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo.
Ben Abbott <bpabbott@mac.com>
parents: 9451
diff changeset
1616 %!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
1617 %! clf;
22629
4bd7bab38f39 Add stem example to the hggroup type of legend (bug #49341).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 22489
diff changeset
1618 %! subplot (2,1,1);
11363
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents: 11246
diff changeset
1619 %! 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
1620 %! bar (rand_2x3_data1);
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1621 %! ylim ([0, 1.0]);
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1622 %! title ("legend() works for bar graphs (hggroups)");
22629
4bd7bab38f39 Add stem example to the hggroup type of legend (bug #49341).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 22489
diff changeset
1623 %! legend ({"1st Bar", "2nd Bar", "3rd Bar"}, "location", "northwest");
4bd7bab38f39 Add stem example to the hggroup type of legend (bug #49341).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 22489
diff changeset
1624 %! subplot (2,1,2);
23253
8a1ba13e9914 Correct hggroup plot legends for gnuplot toolkit, add legend demo 17 items (bug #49341)
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23219
diff changeset
1625 %! x = linspace (0, 10, 20);
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1626 %! stem (x, 0.5+x.*rand (size (x))/max (x), "markeredgecolor", [0, 0.7, 0]);
23253
8a1ba13e9914 Correct hggroup plot legends for gnuplot toolkit, add legend demo 17 items (bug #49341)
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23219
diff changeset
1627 %! hold on;
8a1ba13e9914 Correct hggroup plot legends for gnuplot toolkit, add legend demo 17 items (bug #49341)
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23219
diff changeset
1628 %! stem (x+10/(2*20), x.*(1.0+rand (size (x)))/max (x));
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1629 %! xlim ([0, 10+10/(2*20)]);
22629
4bd7bab38f39 Add stem example to the hggroup type of legend (bug #49341).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 22489
diff changeset
1630 %! title ("legend() works for stem plots (hggroups)");
23253
8a1ba13e9914 Correct hggroup plot legends for gnuplot toolkit, add legend demo 17 items (bug #49341)
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23219
diff changeset
1631 %! legend ({"Multicolor", "Unicolor"}, "location", "northwest");
9457
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo.
Ben Abbott <bpabbott@mac.com>
parents: 9451
diff changeset
1632
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo.
Ben Abbott <bpabbott@mac.com>
parents: 9451
diff changeset
1633 %!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
1634 %! clf;
20408
71bd638e0ef6 legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents: 20286
diff changeset
1635 %! colormap (cool (64));
71bd638e0ef6 legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents: 20286
diff changeset
1636 %! surf (peaks ());
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1637 %! legend ("peaks()");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1638 %! title ("legend() works for surface objects too");
20408
71bd638e0ef6 legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents: 20286
diff changeset
1639
71bd638e0ef6 legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents: 20286
diff changeset
1640 %!demo
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1641 %! clf reset; # needed to undo colormap assignment in previous demo
11363
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents: 11246
diff changeset
1642 %! 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
1643 %! bar (rand_2x3_data2);
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1644 %! ylim ([0, 1.2]);
22151
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script.
Rik <rik@octave.org>
parents: 22069
diff changeset
1645 %! title ('"left" option places colors to the left of text label');
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1646 %! legend ("1st Bar", "2nd Bar", "3rd Bar");
18888
962db83e36c3 legend.m: Update demo 19 with more descriptive title.
Rik <rik@octave.org>
parents: 18753
diff changeset
1647 %! legend left;
10662
3afcd24ced61 legend.m: Key labels for specified objects.
Ben Abbott <bpabbott@mac.com>
parents: 10549
diff changeset
1648
3afcd24ced61 legend.m: Key labels for specified objects.
Ben Abbott <bpabbott@mac.com>
parents: 10549
diff changeset
1649 %!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
1650 %! clf;
10662
3afcd24ced61 legend.m: Key labels for specified objects.
Ben Abbott <bpabbott@mac.com>
parents: 10549
diff changeset
1651 %! 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
1652 %! h = plot (x,sin(x), x,cos(x), x,sin(x.^2/10), x,cos(x.^2/10));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1653 %! title ("Only the sin() objects have keylabels");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1654 %! 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
1655
12340
d63007ac067a legend.m: Add demo for inline keys created by two plot commands.
Ben Abbott <bpabbott@mac.com>
parents: 12339
diff changeset
1656 %!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
1657 %! clf;
12340
d63007ac067a legend.m: Add demo for inline keys created by two plot commands.
Ben Abbott <bpabbott@mac.com>
parents: 12339
diff changeset
1658 %! x = 0:0.1:10;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1659 %! plot (x, sin (x), ";sin (x);");
22069
9121d6584f6a Overhaul graphics implementation of hold() (bug #43559).
Rik <rik@octave.org>
parents: 22054
diff changeset
1660 %! hold on;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1661 %! 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
1662 %! hold off;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1663 %! 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
1664
12387
5fb6ea1bff65 legend.m: Add demo for replacing existing legend.
Ben Abbott <bpabbott@mac.com>
parents: 12340
diff changeset
1665 %!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
1666 %! clf;
12387
5fb6ea1bff65 legend.m: Add demo for replacing existing legend.
Ben Abbott <bpabbott@mac.com>
parents: 12340
diff changeset
1667 %! x = 0:0.1:10;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1668 %! plot (x, sin (x), ";sin (x);");
22069
9121d6584f6a Overhaul graphics implementation of hold() (bug #43559).
Rik <rik@octave.org>
parents: 22054
diff changeset
1669 %! hold on;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1670 %! 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
1671 %! hold off;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1672 %! title ("Specified label text overrides previous labels");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1673 %! legend ({"Sine", "Cosine"}, "location", "northeastoutside");
12387
5fb6ea1bff65 legend.m: Add demo for replacing existing legend.
Ben Abbott <bpabbott@mac.com>
parents: 12340
diff changeset
1674
12394
c2e1973d870b legend.m: "legend off" should delete the legend object.
Ben Abbott <bpabbott@mac.com>
parents: 12388
diff changeset
1675 %!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
1676 %! clf;
12394
c2e1973d870b legend.m: "legend off" should delete the legend object.
Ben Abbott <bpabbott@mac.com>
parents: 12388
diff changeset
1677 %! x = 0:10;
c2e1973d870b legend.m: "legend off" should delete the legend object.
Ben Abbott <bpabbott@mac.com>
parents: 12388
diff changeset
1678 %! plot (x, rand (11));
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1679 %! axis ([0, 10, 0, 1]);
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1680 %! xlabel ("Indices");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1681 %! ylabel ("Random Values");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1682 %! title ('Legend "off" deletes the legend');
22624
37b7b86f62f2 Fix legend.m typo in demo example 23 (bug #49341).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 22489
diff changeset
1683 %! legend (cellstr (num2str ((0:10)')), "location", "northeastoutside");
37b7b86f62f2 Fix legend.m typo in demo example 23 (bug #49341).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 22489
diff changeset
1684 %! pause (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
1685 %! legend off;
12387
5fb6ea1bff65 legend.m: Add demo for replacing existing legend.
Ben Abbott <bpabbott@mac.com>
parents: 12340
diff changeset
1686
12395
4d30b4136a3e legend.m: Align legends to plot box, add demo. Bug 32373.
Ben Abbott <bpabbott@mac.com>
parents: 12394
diff changeset
1687 %!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
1688 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents: 14236
diff changeset
1689 %! x = (1:5)';
14363
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents: 14252
diff changeset
1690 %! 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
1691 %! plot (x, rand (numel (x)));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1692 %! 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
1693 %! 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
1694 %! plot (x, rand (numel (x)));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1695 %! 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
1696 %! 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
1697 %! plot (x, rand (numel (x)));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1698 %! 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
1699 %! 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
1700 %! plot (x, rand (numel (x)));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1701 %! legend (cellstr (num2str (x)), "location", "southeastoutside");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1702 %! ## Legend works on a per axes basis for each subplot
12387
5fb6ea1bff65 legend.m: Add demo for replacing existing legend.
Ben Abbott <bpabbott@mac.com>
parents: 12340
diff changeset
1703
12395
4d30b4136a3e legend.m: Align legends to plot box, add demo. Bug 32373.
Ben Abbott <bpabbott@mac.com>
parents: 12394
diff changeset
1704 %!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
1705 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents: 14236
diff changeset
1706 %! plot (rand (2));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1707 %! title ("legend() will warn if extra labels are specified");
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1708 %! legend ("Hello", "World", "foo", "bar");
13979
f35b593688a5 Changing the legend's interpreter property should be inherited by the
Ben Abbott <bpabbott@mac.com>
parents: 13937
diff changeset
1709
f35b593688a5 Changing the legend's interpreter property should be inherited by the
Ben Abbott <bpabbott@mac.com>
parents: 13937
diff changeset
1710 %!demo
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
1711 %! clf;
14207
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1712 %! x = 0:10;
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1713 %! y1 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1714 %! y2 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1715 %! [ax, h1, h2] = plotyy (x, y1, x, y2);
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1716 %! title ({"plotyy legend test #1", "Blue label to left axis, Orange label to right axis"});
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1717 %! drawnow ();
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1718 %! legend ("Blue", "Orange", "location", "south");
12395
4d30b4136a3e legend.m: Align legends to plot box, add demo. Bug 32373.
Ben Abbott <bpabbott@mac.com>
parents: 12394
diff changeset
1719
13979
f35b593688a5 Changing the legend's interpreter property should be inherited by the
Ben Abbott <bpabbott@mac.com>
parents: 13937
diff changeset
1720 %!demo
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
1721 %! clf;
14207
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1722 %! x = 0:10;
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1723 %! y1 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1724 %! y2 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1725 %! [ax, h1, h2] = plotyy (x, y1, x, y2);
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1726 %! ylabel (ax(1), {"Blue", "Y", "Axis"});
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1727 %! title ('plotyy legend test #2: "westoutside" adjusts to ylabel');
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1728 %! drawnow ();
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1729 %! legend ([h1, h2], {"Blue", "Orange"}, "location", "westoutside");
13979
f35b593688a5 Changing the legend's interpreter property should be inherited by the
Ben Abbott <bpabbott@mac.com>
parents: 13937
diff changeset
1730
f35b593688a5 Changing the legend's interpreter property should be inherited by the
Ben Abbott <bpabbott@mac.com>
parents: 13937
diff changeset
1731 %!demo
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
1732 %! clf;
14207
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1733 %! x = 0:10;
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1734 %! y1 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1735 %! y2 = rand (size (x));
57e3490094e1 Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents: 14138
diff changeset
1736 %! [ax, h1, h2] = plotyy (x, y1, x, y2);
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1737 %! ylabel (ax(2), {"Orange", "Y", "Axis"});
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1738 %! title ('plotyy legend test #3: "eastoutside" adjusts to ylabel');
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1739 %! drawnow ();
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1740 %! legend ([h1, h2], {"Blue", "Orange"}, "location", "eastoutside");
13979
f35b593688a5 Changing the legend's interpreter property should be inherited by the
Ben Abbott <bpabbott@mac.com>
parents: 13937
diff changeset
1741
20408
71bd638e0ef6 legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents: 20286
diff changeset
1742 %!demo
71bd638e0ef6 legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents: 20286
diff changeset
1743 %! clf;
71bd638e0ef6 legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents: 20286
diff changeset
1744 %! plot (1:10, 1:10);
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1745 %! title ("a very long label can sometimes cause problems");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1746 %! legend ("hello very big world", "location", "northeastoutside");
20408
71bd638e0ef6 legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents: 20286
diff changeset
1747
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1748 %!demo # bug 36408
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
1749 %! clf;
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1750 %! 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
1751 %! 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
1752 %! 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
1753 %! ylabel ylabel;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1754 %! title ("Subplots adjust to the legend placed outside");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1755 %! legend ({"1"}, "location", "northeastoutside");
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1756 %! 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
1757 %! 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
1758 %! 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
1759 %! ylabel ylabel;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1760 %! legend ({"1234567890"}, "location", "eastoutside");
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1761 %! 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
1762 %! 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
1763 %! 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
1764 %! ylabel ylabel;
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1765 %! legend ({"12345678901234567890"}, "location", "southeastoutside");
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
1766
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1767 %!demo # bug 36408
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
1768 %! clf;
16921
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run.
Rik <rik@octave.org>
parents: 16910
diff changeset
1769 %! 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
1770 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1771 %! title ("Subplots adjust to the legend placed outside");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1772 %! legend ({"1"}, "location", "northwestoutside");
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1773 %! 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
1774 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1775 %! legend ({"1234567890"}, "location", "westoutside");
16805
2281d957cde6 legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents: 16800
diff changeset
1776 %! 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
1777 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1778 %! legend ({"12345678901234567890"}, "location", "southwestoutside");
16799
286904321282 Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents: 16796
diff changeset
1779
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1780 %!demo # bug 36408
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1781 %! clf;
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1782 %! 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
1783 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1784 %! set (gca (), "yaxislocation", "right");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1785 %! xlabel ("xlabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1786 %! ylabel ("ylabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1787 %! title ("Subplots adjust to the legend placed outside");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1788 %! legend ({"1"}, "location", "northeastoutside");
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1789 %! 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
1790 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1791 %! set (gca (), "yaxislocation", "right");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1792 %! xlabel ("xlabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1793 %! ylabel ("ylabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1794 %! legend ({"1234567890"}, "location", "eastoutside");
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1795 %! 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
1796 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1797 %! set (gca (), "yaxislocation", "right");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1798 %! xlabel ("xlabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1799 %! ylabel ("ylabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1800 %! legend ({"12345678901234567890"}, "location", "southeastoutside");
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1801
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1802 %!demo # bug 36408
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1803 %! clf;
16921
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run.
Rik <rik@octave.org>
parents: 16910
diff changeset
1804 %! 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
1805 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1806 %! set (gca (), "yaxislocation", "right");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1807 %! xlabel ("xlabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1808 %! ylabel ("ylabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1809 %! title ("Subplots adjust to the legend placed outside");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1810 %! legend ({"1"}, "location", "northwestoutside");
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1811 %! 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
1812 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1813 %! set (gca (), "yaxislocation", "right");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1814 %! xlabel ("xlabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1815 %! ylabel ("ylabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1816 %! legend ({"1234567890"}, "location", "westoutside");
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1817 %! 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
1818 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1819 %! set (gca (), "yaxislocation", "right");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1820 %! xlabel ("xlabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1821 %! ylabel ("ylabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1822 %! legend ({"12345678901234567890"}, "location", "southwestoutside");
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1823
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1824 %!demo # bug 36408;
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1825 %! clf;
16921
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run.
Rik <rik@octave.org>
parents: 16910
diff changeset
1826 %! 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
1827 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1828 %! set (gca (), "xaxislocation", "top");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1829 %! xlabel ("xlabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1830 %! ylabel ("ylabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1831 %! title ("Subplots adjust to the legend placed outside");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1832 %! legend ({"1"}, "location", "northwestoutside");
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1833 %! 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
1834 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1835 %! set (gca (), "xaxislocation", "top");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1836 %! xlabel ("xlabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1837 %! ylabel ("ylabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1838 %! legend ({"1234567890"}, "location", "westoutside");
16908
1c4be5dcacd5 Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents: 16885
diff changeset
1839 %! 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
1840 %! plot (rand (1,4));
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1841 %! set (gca (), "xaxislocation", "top");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1842 %! xlabel ("xlabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1843 %! ylabel ("ylabel");
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1844 %! legend ({"12345678901234567890"}, "location", "southwestoutside");
16921
9a316ec12b5f legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run.
Rik <rik@octave.org>
parents: 16910
diff changeset
1845
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1846 %!demo # bug 39697
17190
df4c4b7708a4 Add titles and clean-up plotting %!demos.
Rik <rik@octave.org>
parents: 17179
diff changeset
1847 %! clf;
17179
828e8852efa9 legend.m: Add %!demo block showing bug #39697.
Rik <rik@octave.org>
parents: 17174
diff changeset
1848 %! plot (1:10);
22302
1c4cd12987f5 Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents: 22151
diff changeset
1849 %! legend ("Legend Text");
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1850 %! title ({"Multi-line", "titles", "are *not* a", "problem"});
17179
828e8852efa9 legend.m: Add %!demo block showing bug #39697.
Rik <rik@octave.org>
parents: 17174
diff changeset
1851
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1852 ## Test input validation
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1853 %!test
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1854 %! hf = figure ("visible", "off");
16973
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage.
Rik <rik@octave.org>
parents: 16933
diff changeset
1855 %! unwind_protect
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1856 %! try
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1857 %! legend ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1858 %! catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1859 %! [~, id] = lasterr ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1860 %! assert (id, "Octave:legend:no-object");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1861 %! end_try_catch
16973
d429a05dc11c legend.m: Move %!test block below %!demo blocks per standard usage.
Rik <rik@octave.org>
parents: 16933
diff changeset
1862 %! unwind_protect_cleanup
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1863 %! close (hf);
18647
ce36233e4849 legend.m: Correctly handle axis handle as first argument (bug #42035).
Rik <rik@octave.org>
parents: 18644
diff changeset
1864 %! end_unwind_protect
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1865
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1866 %!test
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1867 %! hf = figure ("visible", "off");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1868 %! unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1869 %! axes ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1870 %! try
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1871 %! legend ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1872 %! catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1873 %! [~, id] = lasterr ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1874 %! assert (id, "Octave:legend:no-object");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1875 %! end_try_catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1876 %! unwind_protect_cleanup
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1877 %! close (hf);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1878 %! end_unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1879
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1880 %!test
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1881 %! hf = figure ("visible", "off");
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1882 %! unwind_protect
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1883 %! axes ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1884 %! light ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1885 %! try
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1886 %! legend ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1887 %! catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1888 %! [~, id] = lasterr ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1889 %! assert (id, "Octave:legend:no-object");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1890 %! end_try_catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1891 %! unwind_protect_cleanup
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1892 %! close (hf);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1893 %! end_unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1894
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1895 %!test
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1896 %! hf = figure ("visible", "off");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1897 %! unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1898 %! axes ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1899 %! hli = light ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1900 %! try
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1901 %! legend (hli);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1902 %! catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1903 %! [~, id] = lasterr ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1904 %! assert (id, "Octave:legend:bad-object");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1905 %! end_try_catch
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1906 %! unwind_protect_cleanup
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1907 %! close (hf);
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1908 %! end_unwind_protect
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1909
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1910 %!test
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1911 %! hf = figure ("visible", "off");
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1912 %! unwind_protect
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1913 %! axes ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1914 %! hplot = plot (rand (3));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1915 %! try
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1916 %! legend (hplot, struct);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1917 %! catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1918 %! [~, id] = lasterr ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1919 %! assert (id, "Octave:invalid-fun-call");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1920 %! end_try_catch
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1921 %! unwind_protect_cleanup
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1922 %! close (hf);
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1923 %! end_unwind_protect
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1924
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1925 %!test
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1926 %! hf = figure ("visible", "off");
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1927 %! unwind_protect
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1928 %! axes ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1929 %! hplot = plot (rand (3));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1930 %! try
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1931 %! legend ("a", "b", "c", hplot);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1932 %! catch
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1933 %! [~, id] = lasterr ();
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1934 %! assert (id, "Octave:invalid-fun-call");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1935 %! end_try_catch
24434
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1936 %! unwind_protect_cleanup
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1937 %! close (hf);
436deae9f9ab legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents: 24432
diff changeset
1938 %! end_unwind_protect
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1939
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1940 ## Test bugs in previous implementation
28050
04b2977952cc legend.m: Skip BIST that only succeeds with fltk or qt (bug #39697).
Markus Mützel <markus.muetzel@gmx.de>
parents: 28049
diff changeset
1941 %!testif ; any (strcmp (graphics_toolkit (), {"fltk", "qt"})) <*39697>
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1942 %! hf = figure ("visible", "off");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1943 %! unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1944 %! axes ("units", "normalized");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1945 %! plot (1:10);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1946 %! hl = legend ("Legend Text", "units", "normalized");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1947 %! title ({'Multi-line', 'titles', 'are a', 'problem'});
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1948 %! pos = get (gca, 'position');
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1949 %! axtop = sum (pos(2:2:4));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1950 %! pos = get (hl, 'position');
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1951 %! legtop = sum (pos(2:2:4));
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1952 %! assert (legtop < axtop);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1953 %! unwind_protect_cleanup
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1954 %! close (hf);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1955 %! end_unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1956
28011
b31a118729ed update bug status for tests
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
1957 %!test <*40333>
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1958 %! hf = figure ("visible", "off");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1959 %! unwind_protect
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1960 %! axes ("units", "normalized");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1961 %! plot (1:10);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1962 %! hl = legend ("Legend Text", "units", "normalized");
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1963 %! pos = get (gca, 'position');
27710
9fd8534d3607 legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents: 27708
diff changeset
1964 %! set (hf, 'position', [0, 0, 200, 200]);
27708
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1965 %! set (hl, 'fontsize', 20);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1966 %! assert (get (gca, 'position'), pos, 2*eps);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1967 %! unwind_protect_cleanup
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1968 %! close (hf);
c66467f74278 Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 27465
diff changeset
1969 %! end_unwind_protect