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