Mercurial > octave
annotate scripts/plot/appearance/legend.m @ 27715:95cc1f535ba8
legend.m: handle plotyy with ones axes already legend aware (bug #57257)
* legend.m: handle the __legend_handle__ property one axes ata time.
author | Pantxo Diribarne <pantxo.diribarne@gmail.com> |
---|---|
date | Tue, 19 Nov 2019 13:23:32 +0100 |
parents | a984e6722601 |
children | 790038c12003 |
rev | line source |
---|---|
26376
00f796120a6d
maint: Update copyright dates in all source files.
John W. Eaton <jwe@octave.org>
parents:
26341
diff
changeset
|
1 ## Copyright (C) 2010-2019 David Bateman |
6146 | 2 ## |
6440 | 3 ## This file is part of Octave. |
4 ## | |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
24498
diff
changeset
|
5 ## Octave is free software: you can redistribute it and/or modify it |
6440 | 6 ## 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
|
7 ## 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
|
8 ## (at your option) any later version. |
6440 | 9 ## |
10 ## Octave is distributed in the hope that it will be useful, but | |
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22631
diff
changeset
|
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22631
diff
changeset
|
13 ## GNU General Public License for more details. |
6146 | 14 ## |
15 ## You should have received a copy of the GNU General Public License | |
7016 | 16 ## 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
|
17 ## <https://www.gnu.org/licenses/>. |
6146 | 18 |
19 ## -*- texinfo -*- | |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
20 ## @deftypefn {} {} legend () |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
21 ## @deftypefnx {} {} legend @var{command} |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
22 ## @deftypefnx {} {} legend (@var{str1}, @var{str2}, @dots{}) |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
23 ## @deftypefnx {} {} legend (@var{charmat}) |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
24 ## @deftypefnx {} {} legend (@{@var{cellstr}@}) |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
25 ## @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
|
26 ## @deftypefnx {} {} legend (@var{hobjs}, @dots{}) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
27 ## @deftypefnx {} {} legend ("@var{command}") |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
28 ## @deftypefnx {} {} legend (@var{hax}, @dots{}) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
29 ## @deftypefnx {} {@var{hleg, hplt} =} legend (@dots{}) |
6146 | 30 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
17119
diff
changeset
|
31 ## Display a legend for the current axes using the specified strings as labels. |
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
17119
diff
changeset
|
32 ## |
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
17119
diff
changeset
|
33 ## Legend entries may be specified as individual character string arguments, |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
34 ## 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
|
35 ## 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
|
36 ## 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
|
37 ## strings. |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
38 ## |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
39 ## 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
|
40 ## 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
|
41 ## |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
42 ## 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
|
43 ## 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
|
44 ## 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
|
45 ## 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
|
46 ## @var{hobjs}. |
6146 | 47 ## |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
48 ## The optional parameter @var{loc} specifies the location of the legend as |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
49 ## follows: |
6146 | 50 ## |
6977 | 51 ## @multitable @columnfractions 0.06 0.14 0.80 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
52 ## @headitem @tab loc @tab location of the legend |
17204
d87179b38bcf
doc: Touch up alignment of @multitables in plot, legend, newplot.
Rik <rik@octave.org>
parents:
17190
diff
changeset
|
53 ## @item @tab north @tab center top |
d87179b38bcf
doc: Touch up alignment of @multitables in plot, legend, newplot.
Rik <rik@octave.org>
parents:
17190
diff
changeset
|
54 ## @item @tab south @tab center bottom |
d87179b38bcf
doc: Touch up alignment of @multitables in plot, legend, newplot.
Rik <rik@octave.org>
parents:
17190
diff
changeset
|
55 ## @item @tab east @tab right center |
d87179b38bcf
doc: Touch up alignment of @multitables in plot, legend, newplot.
Rik <rik@octave.org>
parents:
17190
diff
changeset
|
56 ## @item @tab west @tab left center |
d87179b38bcf
doc: Touch up alignment of @multitables in plot, legend, newplot.
Rik <rik@octave.org>
parents:
17190
diff
changeset
|
57 ## @item @tab northeast @tab right top (default) |
d87179b38bcf
doc: Touch up alignment of @multitables in plot, legend, newplot.
Rik <rik@octave.org>
parents:
17190
diff
changeset
|
58 ## @item @tab northwest @tab left top |
d87179b38bcf
doc: Touch up alignment of @multitables in plot, legend, newplot.
Rik <rik@octave.org>
parents:
17190
diff
changeset
|
59 ## @item @tab southeast @tab right bottom |
d87179b38bcf
doc: Touch up alignment of @multitables in plot, legend, newplot.
Rik <rik@octave.org>
parents:
17190
diff
changeset
|
60 ## @item @tab southwest @tab left bottom |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
61 ## @sp 1 |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
62 ## @item @tab outside @tab can be appended to any location string @* |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
63 ## @item @tab @tab which will place the legend outside the axes |
6146 | 64 ## @end multitable |
65 ## | |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
66 ## The following customizations are available using @var{command}: |
6146 | 67 ## |
7148 | 68 ## @table @asis |
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17204
diff
changeset
|
69 ## @item @qcode{"show"} |
10666
7a43499f074a
legend.m: Improve documentation string
Rik <octave@nomad.inbox5.com>
parents:
10662
diff
changeset
|
70 ## Show legend on the plot |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10666
diff
changeset
|
71 ## |
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17204
diff
changeset
|
72 ## @item @qcode{"hide"} |
10666
7a43499f074a
legend.m: Improve documentation string
Rik <octave@nomad.inbox5.com>
parents:
10662
diff
changeset
|
73 ## Hide legend on the plot |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10666
diff
changeset
|
74 ## |
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17204
diff
changeset
|
75 ## @item @qcode{"toggle"} |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
76 ## 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
|
77 ## |
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17204
diff
changeset
|
78 ## @item @qcode{"boxon"} |
17532
492d609d2d75
legend.m: Default text labels to "right" alignment for Matlab compatibility.
Rik <rik@octave.org>
parents:
17530
diff
changeset
|
79 ## Show a box around legend (default) |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10666
diff
changeset
|
80 ## |
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17204
diff
changeset
|
81 ## @item @qcode{"boxoff"} |
10666
7a43499f074a
legend.m: Improve documentation string
Rik <octave@nomad.inbox5.com>
parents:
10662
diff
changeset
|
82 ## Hide the box around legend |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10666
diff
changeset
|
83 ## |
17532
492d609d2d75
legend.m: Default text labels to "right" alignment for Matlab compatibility.
Rik <rik@octave.org>
parents:
17530
diff
changeset
|
84 ## @item @qcode{"right"} |
492d609d2d75
legend.m: Default text labels to "right" alignment for Matlab compatibility.
Rik <rik@octave.org>
parents:
17530
diff
changeset
|
85 ## 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
|
86 ## |
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17204
diff
changeset
|
87 ## @item @qcode{"left"} |
15442
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
88 ## 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
|
89 ## |
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17204
diff
changeset
|
90 ## @item @qcode{"off"} |
12394
c2e1973d870b
legend.m: "legend off" should delete the legend object.
Ben Abbott <bpabbott@mac.com>
parents:
12388
diff
changeset
|
91 ## Delete the legend object |
6146 | 92 ## @end table |
15442
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
93 ## |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
94 ## 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
|
95 ## 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
|
96 ## 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
|
97 ## including @var{property}/@var{value} pairs. If using this calling form, the |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
98 ## labels must be specified as a cell array of strings. |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
99 ## |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
100 ## 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
|
101 ## |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
102 ## 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
|
103 ## @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
|
104 ## 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
|
105 ## 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
|
106 ## 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
|
107 ## 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
|
108 ## @nospell{@qcode{"dataN"}}. |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
17119
diff
changeset
|
109 ## |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
110 ## 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
|
111 ## @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
|
112 ## if necessary. |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
113 ## |
24498 | 114 ## A legend is implemented as an additional axes object with the @code{tag} |
115 ## property set to @qcode{"legend"}. Properties of the legend object may be | |
116 ## manipulated directly by using @code{set}. | |
6146 | 117 ## @end deftypefn |
118 | |
17503
d99785217634
legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064).
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
119 function [hleg, hleg_obj, hplot, labels] = legend (varargin) |
6146 | 120 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
121 ## Use the old legend code to handle gnuplot toolkit |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
122 if (strcmp (graphics_toolkit (), "gnuplot")) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
123 [hleg, hleg_obj, hplot, labels] = __gnuplot_legend__ (varargin{:}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
124 return; |
6146 | 125 endif |
126 | |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
127 opts = parse_opts (varargin{:}); |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
128 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
129 hl = opts.legend_handle; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
130 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
131 ## Fix property/value pairs |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
132 pval = ["string", {opts.obj_labels}, opts.propval(:)']; |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
133 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
134 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
|
135 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
136 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
|
137 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
138 switch (opts.action) |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
139 case "boxoff" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
140 tmp_pval = {"box", "off"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
141 do_set_box = false; |
24403
b9462090773a
legend.m: Setting DisplayName to "" should delete legend (bug #52641).
Rik <rik@octave.org>
parents:
24399
diff
changeset
|
142 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
143 case "boxon" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
144 tmp_pval = {"box", "on"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
145 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
|
146 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
147 case "hide" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
148 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
|
149 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
150 case "show" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
151 tmp_pval = {"visible", "on"}; |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
152 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
153 case "toggle" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
154 if (! isempty (hl)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
155 if (strcmp (get (hl, "visible"), "on")) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
156 tmp_pval = {"visible", "off"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
157 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
158 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
|
159 endif |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11149
diff
changeset
|
160 endif |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
161 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
162 case "left" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
163 tmp_pval = {"textposition", "left"}; |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
164 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
165 case "right" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
166 tmp_pval = {"textposition", "right"}; |
16799
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
167 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
168 case "off" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
169 if (! isempty (hl)) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
170 delete (hl); |
16799
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
171 endif |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
172 return; |
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10990
diff
changeset
|
173 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
174 endswitch |
17503
d99785217634
legend.m: Text objects should inherit textcolor, interpreter properties from legend (bug #40064).
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
175 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
176 pval = [tmp_pval, pval]; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
177 if (do_set_box) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
178 pval = [pval, "box", "on"]; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
179 endif |
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10990
diff
changeset
|
180 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
181 elseif (isempty (hl)) |
17537
4f57d4de0383
legend.m: Implement correct listener for DisplayName on line objects.
Rik <rik@octave.org>
parents:
17536
diff
changeset
|
182 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
183 pval = ["fontsize", (0.9 * get (opts.axes_handles(1), "fontsize")), ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
184 "box", "on", pval]; |
24498 | 185 |
6147 | 186 endif |
187 | |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
188 if (isempty (hl)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
189 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
190 hl = axes ("tag", "legend", "handlevisibility", "off", "ydir", "reverse", |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
191 "position", [.5 .5 .3 .3], "xtick", [], "ytick", []); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
192 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
193 ## 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
|
194 ## 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
|
195 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
|
196 try |
95cc1f535ba8
legend.m: handle plotyy with ones axes already legend aware (bug #57257)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27714
diff
changeset
|
197 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
|
198 catch |
95cc1f535ba8
legend.m: handle plotyy with ones axes already legend aware (bug #57257)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27714
diff
changeset
|
199 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
|
200 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
|
201 endfor |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
202 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
203 ## Add and update legend specific properties |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
204 addproperties (hl); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
205 try |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
206 set (hl, pval{:}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
207 catch ee |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
208 delete (hl); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
209 set (opts.axes_handles, "__legend_handle__", []); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
210 rethrow (ee); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
211 end_try_catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
212 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
213 ## Update legend layout |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
214 setappdata (hl, "__axes_handle__", opts.axes_handles, |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
215 "__next_label_index__", opts.next_idx, |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
216 "__peer_objects__", opts.obj_handles); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
217 update_location_cb (hl, [], false); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
218 update_layout_cb (hl, [], true); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
219 update_numchild_cb (hl); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
220 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
221 ## 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
|
222 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
|
223 "visible", "off", "handlevisibility", "off", |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
224 "deletefcn", {@reset_cb, hl}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
225 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
226 ## Listeners to foreign objects properties are stored for later |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
227 ## deletion in "delfunction" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
228 setappdata (hl, "__listeners__", {}); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
229 add_safe_listener (hl, ancestor (opts.axes_handles(1), "figure"), |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
230 "position", {@maybe_update_layout_cb, hl}); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
231 add_safe_listener (hl, opts.axes_handles(1), |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
232 "position", {@maybe_update_layout_cb, hl}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
233 add_safe_listener (hl, opts.axes_handles(1), ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
234 "tightinset", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
235 @(h) update_layout_cb (get (h, "__legend_handle__"))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
236 add_safe_listener (hl, opts.axes_handles(1), ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
237 "colormap", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
238 @(hax) set (hl, "colormap", get (hax, "colormap"))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
239 add_safe_listener (hl, opts.axes_handles(1), ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
240 "fontsize", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
241 @(hax) set (hl, "fontsize", 0.9*get (hax, "fontsize"))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
242 add_safe_listener (hl, opts.axes_handles(1), ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
243 "children", {@legend_autoupdate_cb, hl}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
244 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
245 ## Listeners to legend properties |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
246 props = {"fontsize", "fontweight", "fontname", "interpreter", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
247 "textposition", "numcolumnsmode", "numcolumns", "orientation"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
248 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
249 for ii = 1:numel (props) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
250 addlistener (hl, props{ii}, {@update_layout_cb, true}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
251 endfor |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
252 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
253 addlistener (hl, "autoupdate", @update_numchild_cb); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
254 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
255 addlistener (hl, "beingdeleted", @delete_legend_cb); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
256 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
257 addlistener (hl, "box", @update_box_cb); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
258 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
259 addlistener (hl, "edgecolor", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
260 @(h) set (hl, "xcolor", get (hl, "edgecolor"), ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
261 "ycolor", get (hl, "edgecolor"))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
262 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
263 addlistener (hl, "location", @update_location_cb); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
264 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
265 addlistener (hl, "position", @update_position_cb); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
266 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
267 addlistener (hl, "string", @update_string_cb); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
268 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
269 addlistener (hl, "textcolor", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
270 @(h) set (findobj (h, "type", "text"), ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
271 "color", get (hl, "textcolor"))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
272 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
273 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
274 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
275 ## 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
|
276 ## 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
|
277 ## appdata bool property for performance? |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
278 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
279 ## Update properties |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
280 setappdata (hl, "__peer_objects__", opts.obj_handles); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
281 set (hl, pval{:}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
282 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
283 endif |
24403
b9462090773a
legend.m: Setting DisplayName to "" should delete legend (bug #52641).
Rik <rik@octave.org>
parents:
24399
diff
changeset
|
284 |
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10990
diff
changeset
|
285 if (nargout > 0) |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
286 hleg = hl; |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
287 ## These ones are needed for backward compatibility |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
288 hleg_obj = get (hl, "children"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
289 hplot = getappdata (hl, "__peer_objects__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
290 labels = get (hl, "string"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
291 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
292 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
293 set (hl, "handlevisibility", "on"); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
294 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
295 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
296 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
297 function update_box_cb (hl) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
298 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
299 if (strcmp (get (hl, "box"), "on")) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
300 if (strcmp (get (hl, "color"), "none")) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
301 set (hl, "color", "w"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
302 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
303 else |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
304 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
|
305 endif |
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10990
diff
changeset
|
306 |
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10990
diff
changeset
|
307 endfunction |
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10990
diff
changeset
|
308 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
309 function update_location_cb (hl, ~, do_layout = true) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
310 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
311 if (strcmp (get (hl, "location"), "best")) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
312 warning ("Octave:legend:unimplemented-location", |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
313 ["legend: 'best' not yet implemented for location ", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
314 "specifier, using 'northeast' instead\n"]); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
315 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
316 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
317 if (do_layout) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
318 update_layout_cb (hl); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
319 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
320 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
321 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
322 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
323 function update_position_cb (hl) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
324 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
325 updating = getappdata (hl, "__updating_layout__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
326 if (isempty (updating) || ! updating) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
327 set (hl, "location", "none"); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
328 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
329 |
26832
ca40628fff39
legend.m: Update legend when target axes colormap changes (bug #54757).
Rik <rik@octave.org>
parents:
26815
diff
changeset
|
330 endfunction |
ca40628fff39
legend.m: Update legend when target axes colormap changes (bug #54757).
Rik <rik@octave.org>
parents:
26815
diff
changeset
|
331 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
332 function update_string_cb (hl) |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
333 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
334 ## 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
|
335 ## before calling update_layout_cb. |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
336 persistent updating = false; |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
337 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
338 if (! updating) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
339 updating = true; |
12339
eda5eabd5d0b
Fix for inline legends (#32022, #32343)
David Bateman <dbateman@free.fr>
parents:
11587
diff
changeset
|
340 unwind_protect |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
341 str = get (hl, "string"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
342 nstr = numel (str); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
343 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
344 obj = getappdata (hl, "__peer_objects__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
345 nobj = numel (obj); |
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 if (ischar (str) && nobj != 1) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
348 setappdata (hl, "__peer_objects__", obj(1)); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
349 elseif (iscellstr (str) && nobj != nstr) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
350 if (nobj > nstr) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
351 setappdata (hl, "__peer_objects__", obj(1:nstr)); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
352 elseif (nobj == 1) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
353 set (hl, "string", str{1}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
354 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
355 set (hl, "string", str(1:nobj)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
356 endif |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
357 endif |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
358 update_layout_cb (hl, [], true); |
12339
eda5eabd5d0b
Fix for inline legends (#32022, #32343)
David Bateman <dbateman@free.fr>
parents:
11587
diff
changeset
|
359 unwind_protect_cleanup |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
360 updating = false; |
12339
eda5eabd5d0b
Fix for inline legends (#32022, #32343)
David Bateman <dbateman@free.fr>
parents:
11587
diff
changeset
|
361 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
|
362 endif |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
363 |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11149
diff
changeset
|
364 endfunction |
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11149
diff
changeset
|
365 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
366 function reset_cb (ht, evt, hl, deletelegend = true) |
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10990
diff
changeset
|
367 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
368 if (ishghandle (hl)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
369 listeners = getappdata (hl, "__listeners__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
370 for ii = 1:numel (listeners) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
371 dellistener (listeners{ii}{:}); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
372 endfor |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
373 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
374 if (deletelegend) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
375 delete (hl); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
376 endif |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
377 endif |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
378 |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
379 endfunction |
24498 | 380 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
381 function delete_legend_cb (hl) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
382 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
383 reset_cb ([], [], hl, false); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
384 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
385 hax = getappdata (hl, "__axes_handle__")(1); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
386 units = get (hax, "units"); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
387 set (hax, "units", getappdata (hl, "__original_units__"), |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
388 "looseinset", getappdata (hl, "__original_looseinset__"), |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
389 "units", units, |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
390 "__legend_handle__", []); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
391 |
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10990
diff
changeset
|
392 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
|
393 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
394 function add_safe_listener (hl, varargin) |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
395 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
396 addlistener (varargin{:}); |
24426
a51497205f4c
Change uses of gcbf after Matlab compatibility change in bug #52621.
Rik <rik@octave.org>
parents:
24423
diff
changeset
|
397 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
398 lsn = getappdata (hl, "__listeners__"); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
399 lsn = [lsn, {varargin}]; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
400 setappdata (hl, "__listeners__", lsn); |
24498 | 401 |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11149
diff
changeset
|
402 endfunction |
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11149
diff
changeset
|
403 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
404 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
|
405 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
406 persistent default = {"north", "northoutside", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
407 "south", "southoutside", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
408 "east", "eastoutside", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
409 "west", "westoutside", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
410 "{northeast}", "northeastoutside", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
411 "northwest", "northwestoutside", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
412 "southeast", "southeastoutside", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
413 "southwest", "southwestoutside", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
414 "best", "bestoutside", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
415 "none"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
416 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
417 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
|
418 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
419 addproperty ("orientation", hl, "radio", "{vertical}|horizontal"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
420 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
421 addproperty ("numcolumns", hl, "double", 1); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
422 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
423 addproperty ("numcolumnsmode", hl, "radio", "{auto}|manual"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
424 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
425 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
|
426 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
427 addproperty ("autoupdate", hl, "radio", "{on}|off"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
428 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
429 addproperty ("string", hl, "textstring", {}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
430 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
431 addproperty ("interpreter", hl, "textinterpreter"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
432 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
433 addproperty ("edgecolor", hl, "color", [.15 .15 .15]); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
434 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
435 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
|
436 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
437 addproperty ("textposition", hl, "radio", "left|{right}"); |
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 addproperty ("itemhitfcn", hl, "axesbuttondownfcn"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
440 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
441 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
442 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
443 function pos = get_position_points (h) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
444 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
445 units = get (h, "units"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
446 unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
447 set (h, "units", "points"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
448 pos = get (h, "position"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
449 unwind_protect_cleanup |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
450 set (h, "units", units); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
451 end_unwind_protect |
17537
4f57d4de0383
legend.m: Implement correct listener for DisplayName on line objects.
Rik <rik@octave.org>
parents:
17536
diff
changeset
|
452 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
453 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
454 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
455 function maybe_update_layout_cb (h, d, hl) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
456 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
457 if (isaxes (h)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
458 pos = get_position_points (h); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
459 old_pos = getappdata (hl, "__peer_axes_position__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
460 if (! all (pos == old_pos)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
461 update_layout_cb (hl); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
462 setappdata (hl, "__peer_axes_position__", pos); |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11149
diff
changeset
|
463 endif |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
464 elseif (isfigure (h)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
465 pos = get_position_points (h)(3:4); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
466 old_pos = getappdata (hl, "__peer_figure_position__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
467 if (isempty (old_pos) || ! all (pos == old_pos)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
468 update_layout_cb (hl); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
469 setappdata (hl, "__peer_figure_position__", pos); |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11149
diff
changeset
|
470 endif |
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11149
diff
changeset
|
471 endif |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
472 |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11149
diff
changeset
|
473 endfunction |
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11149
diff
changeset
|
474 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
475 function update_numchild_cb (hl) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
476 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
477 if (strcmp (get (hl, "autoupdate"), "on")) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
478 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
479 hax = getappdata (hl, "__axes_handle__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
480 kids = get (hax, "children"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
481 if (iscell (kids)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
482 nkids = numel (cell2mat (get (hax, "children"))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
483 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
484 nkids = numel (get (hax, "children")); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
485 endif |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
486 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
487 setappdata (hl, "__total_num_children__", nkids); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
488 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
489 endif |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
490 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
491 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
492 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
493 function legend_autoupdate_cb (hax, d, hl) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
494 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
495 ## 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
|
496 try |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
497 hax = get (hax, "__plotyy_axes__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
498 kids = cell2mat (get (hax, "children")); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
499 catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
500 kids = get (hax, "children"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
501 end_try_catch |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
502 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
503 is_deletion = getappdata (hl, "__total_num_children__") > numel (kids); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
504 setappdata (hl, "__total_num_children__", numel (kids)); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
505 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
506 ## Remove item for deleted object |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
507 current_obj = getappdata (hl, "__peer_objects__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
508 [~, iold, inew] = setxor (current_obj, kids); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
509 kids = kids(inew); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
510 current_obj(iold) = []; |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
511 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
512 if (isempty (current_obj)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
513 delete (hl); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
514 return; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
515 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
516 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
517 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
|
518 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
519 ## Add item for the latest created object |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
520 persistent valid_types = {"line", "patch", "surface", "hggroup"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
521 valid = arrayfun (@(h) any (strcmp (get (h, "type"), valid_types)), kids); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
522 kids(! valid) = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
523 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
524 ## 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
|
525 ## function is called before the hggroup has been properly populated. |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
526 if (numel (kids) > 0 && strcmp (get (kids(1), "type"), "hggroup")) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
527 kids = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
528 elseif (numel (kids) > 1) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
529 kids = kids(1); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
530 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
531 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
532 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
533 kids = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
534 endif |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
535 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
536 if (any (iold) || any (kids)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
537 setappdata (hl, "__peer_objects__", [current_obj; kids]); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
538 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
|
539 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
540 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
541 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
542 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
543 function opts = parse_opts (varargin) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
544 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
545 action = ""; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
546 legend_handle = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
547 axes_handles = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
548 obj_handles = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
549 obj_labels = {}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
550 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
551 nargs = numel (varargin); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
552 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
553 ## Find peer axes |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
554 if (nargs > 0 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
555 && (! ishghandle (varargin{1}) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
556 || (strcmp (get (varargin{1}, "type"), "axes") |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
557 && ! strcmp (get (varargin{1}, "tag"), "legend")))) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
558 [axes_handles, varargin, nargs] = __plt_get_axis_arg__ ("legend", |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
559 varargin{:}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
560 if (isempty (axes_handles)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
561 axes_handles = gca (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
562 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
563 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
564 axes_handles = gca (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
565 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
566 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
567 ## Special handling for plotyy which has two axes objects |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
568 if (isprop (axes_handles, "__plotyy_axes__")) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
569 axes_handles = [axes_handles get(axes_handles, "__plotyy_axes__").']; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
570 ## Remove duplicates while preserving order |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
571 [~, n] = unique (axes_handles, "first"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
572 axes_handles = axes_handles(sort (n)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
573 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
574 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
575 ## Find any existing legend object associated with axes |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
576 try |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
577 legend_handle = get (axes_handles, "__legend_handle__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
578 if (iscell (legend_handle)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
579 legend_handle = unique (cell2mat (legend_handle)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
580 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
581 catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
582 end_try_catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
583 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
584 ## Legend actions |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
585 actions = {"show", "hide", "toggle", "boxon", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
586 "boxoff", "right", "left", "off"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
587 if (nargs > 0 && ischar (varargin{1}) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
588 && any (strcmp (varargin{1}, actions))) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
589 action = varargin{1}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
590 if (nargs > 1) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
591 warning ("Octave:legend:ignoring-extra-argument", |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
592 'legend: ignoring extra arguments after "%s"', action); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
593 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
594 nargs = 0; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
595 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
596 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
597 ## Now remove property-value pairs for compatibility. |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
598 propval = {}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
599 warn_propval = ""; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
600 persistent legend_props = {"location", "orientation", "numcolumns", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
601 "numcolumnsmode", "textposition", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
602 "position", "units", "autoupdate", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
603 "string", "title", "interpreter", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
604 "fontname", "fontsize", "fontweight", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
605 "fontangle", "textcolor", "color", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
606 "edgecolor", "box", "linewidth", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
607 "visible", "uicontextmenu", "selected", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
608 "selectionhighlight", "itemhitfcn", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
609 "buttondownfcn", "createfcn", "deletefcn" ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
610 "interruptible", "busyaction", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
611 "pickableparts", "hittest", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
612 "beingdeleted", "parent", "children", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
613 "handlevisibility", "tag", "type", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
614 "userdata"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
615 isprp = @(prop) (ischar (prop) && any (strcmpi (legend_props, prop))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
616 idx = find (cellfun (isprp, varargin)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
617 if (! isempty (idx)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
618 idx = idx(1); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
619 propval = varargin(idx:end); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
620 warn_propval = varargin{idx}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
621 varargin(idx:end) = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
622 nargs = idx-1; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
623 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
624 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
625 ## List plot objects that can be handled |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
626 warn_extra_obj = false; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
627 persistent valid_types = {"line", "patch", "surface", "hggroup"}; |
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 if (nargs > 0 && all (ishghandle (varargin{1}))) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
630 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
631 ## 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
|
632 obj_handles = varargin{1}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
633 types = get (obj_handles, "type"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
634 if (! iscell (types)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
635 types = {types}; |
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 idx = cellfun (@(s) any (strcmp (s, valid_types)), types); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
639 if (! all (idx)) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
640 error ("Octave:legend:bad-object", |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
641 "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
|
642 types(! idx){1}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
643 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
644 varargin(1) = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
645 nargs--; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
646 warn_extra_obj = true; |
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 elseif (isempty (legend_handle)) |
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 list of plot objects from axes "children" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
651 if (isscalar (axes_handles)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
652 obj_handles = flipud (get (axes_handles, "children")(:)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
653 else |
27713
e297d20e2d4f
legend.m: fix regression with plotyy item order (bug #50497)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27711
diff
changeset
|
654 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
|
655 obj_handles = [flipud(tmp{1}); flipud(tmp{2})]; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
656 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
657 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
658 if (isempty (obj_handles)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
659 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
|
660 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
661 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
662 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
|
663 obj_handles); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
664 obj_handles(! idx) = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
665 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
666 if (isempty (obj_handles)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
667 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
|
668 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
669 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
670 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
671 obj_handles = getappdata (legend_handle, "__peer_objects__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
672 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
673 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
674 nobj = numel (obj_handles); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
675 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
676 ## List labels |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
677 next_idx = 1; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
678 if (nargs > 0) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
679 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
680 if (iscellstr (varargin{1})) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
681 obj_labels = varargin{1}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
682 varargin(1) = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
683 nargs--; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
684 elseif (ischar (varargin{1}) && ! isvector (varargin{1})) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
685 obj_labels = cellstr (varargin{1}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
686 varargin(1) = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
687 nargs--; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
688 elseif (all (cellfun (@ischar, varargin))) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
689 obj_labels = varargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
690 varargin = {}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
691 nargs = 0; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
692 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
693 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
694 if (nargs > 0) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
695 print_usage ("legend"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
696 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
697 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
698 nlab = numel (obj_labels); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
699 if (nlab != nobj) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
700 if (nobj > nlab) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
701 obj_handles = obj_handles(1:nlab); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
702 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
703 msg = "legend: ignoring extra objects."; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
704 if (! isempty (warn_propval)) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
705 msg = [msg ' "' warn_propval '" interpreted as a property ' , ... |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
706 "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
|
707 "that match a legend property name."]; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
708 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
709 if (warn_extra_obj) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
710 warning ("Octave:legend:object-label-mismatch", msg); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
711 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
712 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
713 obj_labels = obj_labels(1:nobj); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
714 warning ("Octave:legend:object-label-mismatch", |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
715 "legend: ignoring extra labels."); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
716 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
717 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
718 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
719 [obj_labels, next_idx] = displayname_or_default (obj_handles); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
720 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
721 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
722 opts.action = action; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
723 opts.axes_handles = axes_handles; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
724 opts.obj_handles = obj_handles; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
725 opts.obj_labels = obj_labels; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
726 opts.legend_handle = legend_handle; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
727 opts.propval = propval; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
728 opts.next_idx = next_idx; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
729 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
730 endfunction |
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 function [labels, next_idx] = displayname_or_default (hplots, hl = []) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
733 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
734 next_idx = 1; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
735 if (! isempty (hl)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
736 next_idx = getappdata (hl, "__next_label_index__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
737 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
738 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
739 labels = get (hplots, "displayname"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
740 if (! iscell (labels)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
741 labels = {labels}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
742 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
743 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
744 idx = cellfun (@isempty, labels); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
745 if (any (idx)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
746 default = arrayfun (@(ii) sprintf ("data%d", ii), ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
747 [next_idx:(next_idx + sum (idx) - 1)], ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
748 "uniformoutput", false)(:); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
749 labels(idx) = default; |
27708
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 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
752 next_idx += sum (idx); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
753 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
754 if (! isempty (hl)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
755 setappdata (hl, "__next_label_index__", next_idx); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
756 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
757 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
758 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
759 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
760 function update_layout_cb (hl, ~, update_item = false) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
761 updating = getappdata (hl, "__updating_layout__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
762 if (! isempty (updating) && updating) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
763 return; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
764 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
765 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
766 setappdata(hl, "__updating_layout__", true); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
767 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
768 ## 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
|
769 ## 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
|
770 units = get (hl, "units"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
771 set (hl, "units", "points"); |
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 unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
774 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
775 if (update_item) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
776 pos = get (hl, "position")(3:4); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
777 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
|
778 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
779 textright = strcmp (get (hl, "textposition"), "right"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
780 set (hl, "ydir", "reverse", ... |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
781 "xdir", ifelse (textright, "normal", "reverse")); |
27708
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 ## Create or reuse text and item graphics objects |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
784 objlist = textitem_objects (hl, textright); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
785 nitem = rows (objlist); |
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 ## Prepare the array of text/item pairs and update their position |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
788 [sz, txtdata, itemdata] = textitem_data (hl, objlist); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
789 for ii = 1:nitem |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
790 set (objlist(ii,1), "position", txtdata(ii,:)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
791 if (strcmp (get (objlist(ii,2), "type"), "line")) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
792 set (objlist(ii,2), "xdata", itemdata(ii,1:2), |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
793 "ydata", itemdata(ii,3:4)); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
794 else |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
795 set (objlist(ii,2), "xdata", [itemdata(ii,1:2), itemdata(ii,[2 1])], |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
796 "ydata", [itemdata(ii,3), itemdata(ii,3), ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
797 itemdata(ii,4), itemdata(ii,4)]); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
798 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
799 endfor |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
800 else |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
801 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
|
802 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
803 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
804 ## Place the legend |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
805 update_legend_position (hl, sz); |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
806 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
807 unwind_protect_cleanup |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
808 set (hl, "units", units); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
809 setappdata(hl, "__updating_layout__", false); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
810 end_unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
811 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
812 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
813 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
814 function objlist = textitem_objects (hl, textright) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
815 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
816 ## Delete or set invisible obsolete or unused text/item objects. |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
817 old_kids = get (hl, "children")(:).'; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
818 old_peer_objects = cell2mat (get (old_kids, "peer_object"))(:).'; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
819 unused = ! ishghandle (old_peer_objects); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
820 delete (old_kids(unused)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
821 old_kids(unused) = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
822 old_peer_objects(unused) = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
823 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
824 new_peer_objects = getappdata (hl, "__peer_objects__")(:).'; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
825 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
826 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
|
827 set (old_kids(unused), "visible", "off"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
828 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
829 ## Text properties |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
830 string = get (hl , "string"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
831 if (! iscell (string)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
832 string = {string}; |
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 txtprops = {"textcolor", "fontsize", "fontweight", "fontname", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
836 "interpreter"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
837 txtvals = get (hl, txtprops); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
838 txtprops{1} = "color"; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
839 txtprops = [txtprops, "horizontalalignment"]; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
840 txtvals = [txtvals, ifelse(textright, "left", "right")]; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
841 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
842 ## Create or reuse text/item objects as needed |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
843 nitem = numel (new_peer_objects); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
844 objlist = NaN (nitem, 2); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
845 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
846 for ii = 1:nitem |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
847 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
848 str = string{ii}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
849 hplt = new_peer_objects(ii); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
850 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
851 idx = (old_peer_objects == hplt); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
852 typ = get (hplt, "type"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
853 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
854 if (any (idx)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
855 tmp = old_kids(idx); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
856 idx = strcmp (get (tmp, "type"), "text"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
857 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
858 htxt = tmp(idx); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
859 hitem = tmp(! idx); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
860 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
861 set (htxt, "visible", "on", "string", str, ... |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
862 [txtprops(:)'; txtvals(:)']{:}); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
863 set (hitem, "visible", "on"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
864 set (hplt, "displayname", str); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
865 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
866 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
867 ## For hggroups use the first child that can be labeled |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
868 base_hplt = hplt; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
869 if (strcmp (typ, "hggroup")) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
870 kids = get (hplt, "children"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
871 types = get (kids, "type"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
872 if (! iscell (types)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
873 types = {types}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
874 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
875 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
876 idx = cellfun (@(s) any (strcmp (s, {"line", "patch", "surface"})), ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
877 types); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
878 hplt = kids(idx)(1); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
879 typ = types(idx){1}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
880 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
881 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
882 hmarker = []; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
883 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
884 switch (typ) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
885 case "line" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
886 persistent lprops = {"color", "linestyle", "linewidth"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
887 persistent mprops = {"color", "marker", "markeredgecolor", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
888 "markerfacecolor", "markersize"}; |
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 ## Main line |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
891 vals = get (hplt, lprops); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
892 hitem = __go_line__ (hl, [lprops; vals]{:}); |
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 ## Additional line for the marker |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
895 vals = get (hplt, mprops); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
896 hmarker = __go_line__ (hl, "handlevisibility", "off", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
897 "xdata", 0, "ydata", 0, [mprops; vals]{:}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
898 update_marker_cb (hmarker); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
899 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
900 case {"patch", "surface"} |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
901 persistent pprops = {"edgecolor", "facecolor", "cdata", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
902 "linestyle", "linewidth", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
903 "marker", "markeredgecolor", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
904 "markerfacecolor", "markersize"}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
905 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
906 vals = get (hplt, pprops); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
907 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
908 hitem = __go_patch__ (hl, [pprops; vals]{:}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
909 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
910 endswitch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
911 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
912 htxt = __go_text__ (hl, "string", str, [txtprops(:)'; txtvals(:)']{:}); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
913 set (base_hplt, "displayname", str); |
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 addproperty ("peer_object", htxt, "double", base_hplt); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
916 addproperty ("peer_object", hitem, "double", base_hplt); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
917 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
918 if (isempty (hmarker)) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
919 setappdata (hplt, "__item_link__", linkprop ([hplt, hitem], pprops)); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
920 else |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
921 setappdata (hplt, "__item_link__", linkprop ([hplt, hitem], lprops)); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
922 setappdata (hplt, "__marker_link__", linkprop ([hplt hmarker], mprops)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
923 addlistener (hitem, "ydata", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
924 @(h) set (hmarker, "ydata", mean (get (h, "ydata")))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
925 addlistener (hitem, "xdata", ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
926 @(h) set (hmarker, "xdata", mean (get (h, "xdata")))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
927 addlistener (hmarker, "markersize", @update_marker_cb); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
928 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
929 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
930 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
931 objlist(ii,:) = [htxt, hitem]; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
932 endfor |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
933 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
934 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
935 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
936 function update_marker_cb (h) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
937 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
938 if (get (h, "markersize") > 6) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
939 set (h, "markersize", 6); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
940 endif |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
941 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
942 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
943 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
944 function [sz, txtdata, itemdata] = textitem_data (hl, objlist) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
945 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
946 ## margins in points |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
947 persistent hmargin = 3; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
948 persistent vmargin = 3; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
949 persistent item_width = 15; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
950 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
951 ext = get (objlist(:,1), "extent"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
952 markers = get (objlist(:,2), "marker"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
953 markersz = get (objlist(:,2), "markersize"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
954 types = get (objlist(:,2), "type"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
955 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
956 ## Simple case of 1 text/item pair |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
957 nitem = rows (objlist); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
958 txtitem = zeros (nitem, 4); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
959 if (nitem == 1) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
960 ext = abs (ext(:,3:4)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
961 types = {types}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
962 markers = {markers}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
963 markersz = {markersz}; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
964 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
965 ext = abs (cell2mat (ext)(:,3:4)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
966 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
967 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
968 ## Maximum allowable size for the legend |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
969 hax = getappdata (hl, "__axes_handle__")(1); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
970 units = get (hax, "units"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
971 unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
972 set (hax, "units", "points"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
973 max_size = get (hax, "position")(3:4); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
974 unwind_protect_cleanup |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
975 set (hax, "units", units); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
976 end_unwind_protect |
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 location = get (hl, "location"); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
979 outside = strcmp (location(end-3:end), "side"); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
980 if (! outside) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
981 max_size *= .90; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
982 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
983 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
984 autolayout = strcmp (get (hl, "numcolumnsmode"), "auto"); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
985 itemdata = NaN (nitem, 4); |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
986 txtdata = NaN (nitem, 3); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
987 xmax = ymax = 0; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
988 iter = 1; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
989 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
990 if (strcmp (get (hl, "orientation"), "vertical")) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
991 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
992 if (autolayout) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
993 if (any (strcmpi (location, {"north", "northoutside", |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
994 "south", "southoutside"}))) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
995 ##FIXME: handle autolayout for these in a better fashion |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
996 nrow = 1; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
997 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
998 nrow = max (find ((cumsum (ext(:,2) + vmargin) + vmargin) ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
999 < max_size(2))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1000 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1001 ncol = ceil (nitem / nrow); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1002 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1003 ncol = min (nitem, get (hl, "numcolumns")); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1004 nrow = ceil (nitem / ncol); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1005 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1006 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1007 rowheights = arrayfun (@(idx) max(ext(idx:nrow:end, 2)), 1:nrow); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1008 x = hmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1009 for ii = 1:ncol |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1010 y = vmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1011 for jj = 1:nrow |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1012 if (iter > nitem) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1013 continue; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1014 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1015 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1016 hg = rowheights(jj); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1017 dx = 0; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1018 if (! strcmp (markers{iter}, "none")) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1019 dx = markersz{iter}/2; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1020 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1021 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1022 y0 = y1 = y + hg/2; |
27714
a984e6722601
legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27713
diff
changeset
|
1023 if (! strcmp (types{iter}, "line")) |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1024 y0 = y + dx; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1025 y1 = y + hg - dx; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1026 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1027 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1028 ## [x0, x1, y0, y1] |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1029 itemdata(iter,:) = [x+dx, x+item_width-dx, y0, y1]; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1030 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1031 ## [x, y, z] |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1032 txtdata(iter,:) = [x+item_width+hmargin, y+hg/2, 0]; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1033 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1034 xmax = max ([xmax, x+item_width+2*hmargin+ext(iter,1)]); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1035 y += (vmargin + hg); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1036 iter++; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1037 endfor |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1038 ymax = max ([ymax, y]); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1039 x = xmax + 2*hmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1040 endfor |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1041 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1042 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1043 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1044 if (autolayout) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1045 if (any (strcmpi (location, {"north", "northoutside", |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1046 "south", "southoutside"}))) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1047 ##FIXME: handle autolayout for these in a better fashion |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1048 ncol = nitem; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1049 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1050 ncol = max (find ((cumsum (ext(:,1) + 2*hmargin ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1051 + item_width) + hmargin) ... |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1052 < max_size(1))); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1053 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1054 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1055 ncol = min (nitem, get (hl, "numcolumns")); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1056 nrow = ceil (nitem / ncol); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1057 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1058 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1059 nrow = ceil (nitem / ncol); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1060 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1061 colwidth = arrayfun (@(idx) max(ext(idx:ncol:end, 1)), |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1062 1:ncol); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1063 y = vmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1064 for ii = 1:nrow |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1065 x = hmargin; |
27714
a984e6722601
legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27713
diff
changeset
|
1066 |
a984e6722601
legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27713
diff
changeset
|
1067 endidx = min (iter+ncol-1, nitem); |
a984e6722601
legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27713
diff
changeset
|
1068 hg = max (ext(iter:endidx,2)); |
a984e6722601
legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27713
diff
changeset
|
1069 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1070 for jj = 1:ncol |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1071 if (iter > nitem) |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1072 continue; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1073 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1074 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1075 wd = colwidth(jj); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1076 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1077 dx = 0; |
27714
a984e6722601
legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27713
diff
changeset
|
1078 if (! strcmp (markers{iter}, "none")) |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1079 dx = markersz{iter}/2; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1080 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1081 |
27714
a984e6722601
legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27713
diff
changeset
|
1082 ybase = y + hg / 2; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1083 y0 = y1 = ybase; |
27714
a984e6722601
legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27713
diff
changeset
|
1084 if (! strcmp (types{iter}, "line")) |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1085 y0 = y + dx; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1086 y1 = y + hg - dx; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1087 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1088 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1089 ## [x0, x1, y0, y1] |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1090 itemdata(iter,:) = [x+dx, x+item_width-dx, y0, y1]; |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1091 ## [x, y, z] |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1092 txtdata(iter,:) = [x+item_width+hmargin, ybase, 0]; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1093 |
27714
a984e6722601
legend.m: better vertical alignment for horizontal orientation (bug #57264)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27713
diff
changeset
|
1094 ymax = max ([ymax, ybase+hg/2+vmargin]); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1095 x += (3*hmargin + item_width + wd); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1096 iter++; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1097 endfor |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1098 xmax = max ([xmax, x-hmargin]); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1099 y = ymax + vmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1100 endfor |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1101 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1102 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1103 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1104 sz = [xmax, ymax]; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1105 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1106 endfunction |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1107 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1108 function update_legend_position (hl, sz) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1109 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1110 persistent hmargin = 6; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1111 persistent vmargin = 6; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1112 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1113 location = get (hl, "location"); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1114 outside = strcmp (location(end-3:end), "side"); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1115 if (outside) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1116 location = location(1:end-7); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1117 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1118 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1119 if (strcmp (location, "best")) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1120 orientation = get (hl, "orientation"); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1121 if (outside) |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1122 if (strcmp (orientation, "vertical")) |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1123 location = "northeast"; |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1124 else |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1125 location = "south"; |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1126 endif |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1127 else |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1128 ## FIXME: implement "best" inside properly |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1129 location = "northeast"; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1130 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1131 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1132 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1133 haxes = getappdata (hl, "__axes_handle__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1134 hax = haxes(end); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1135 units = get (hax, "units"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1136 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1137 unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1138 ## 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
|
1139 li = getappdata (hl, "__original_looseinset__"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1140 if (isempty (li)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1141 li = get (hax, "looseinset"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1142 setappdata (hl, "__original_looseinset__", li); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1143 setappdata (hl, "__original_units__", units); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1144 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1145 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1146 set (hax, "units", getappdata (hl, "__original_units__"), |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1147 "looseinset", li, |
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1148 "units", "points"); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1149 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1150 [li, axpos] = get (hax, {"looseinset", "position"}){:}; |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1151 lpos = [get(hl, "position")(1:2), sz]; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1152 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1153 if (! outside) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1154 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1155 switch (location) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1156 case "southwest" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1157 lpos(1) = axpos(1) + hmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1158 lpos(2) = axpos(2) + vmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1159 case "west" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1160 lpos(1) = axpos(1) + hmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1161 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
|
1162 case "northwest" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1163 lpos(1) = axpos(1) + hmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1164 lpos(2) = axpos(2) + axpos(4) - lpos(4) - vmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1165 case "north" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1166 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
|
1167 lpos(2) = axpos(2) + axpos(4) - lpos(4) - vmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1168 case "northeast" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1169 lpos(1) = axpos(1) + axpos(3) - lpos(3) - hmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1170 lpos(2) = axpos(2) + axpos(4) - lpos(4) - vmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1171 case "east" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1172 lpos(1) = axpos(1) + axpos(3) - lpos(3) - hmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1173 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
|
1174 case "southeast" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1175 lpos(1) = axpos(1) + axpos(3) - lpos(3) - hmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1176 lpos(2) = axpos(2) + vmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1177 case "south" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1178 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
|
1179 lpos(2) = axpos(2) + vmargin; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1180 endswitch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1181 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1182 else |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1183 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1184 ti = get (haxes, "tightinset"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1185 if (iscell (ti)) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1186 ti = max (cell2mat (ti)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1187 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1188 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1189 switch (location) |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1190 case "southwest" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1191 dx = lpos(3) + hmargin + ti(1); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1192 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
|
1193 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
|
1194 set (hax, "looseinset", li); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1195 axpos = get (hax, "position"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1196 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1197 lpos(1) = axpos(1) - dx; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1198 lpos(2) = axpos(2); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1199 case "west" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1200 dx = lpos(3) + hmargin + ti(1); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1201 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
|
1202 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
|
1203 set (hax, "looseinset", li); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1204 axpos = get (hax, "position"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1205 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1206 lpos(1) = axpos(1) - dx; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1207 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
|
1208 case "northwest" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1209 dx = lpos(3) + hmargin + ti(1); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1210 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
|
1211 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
|
1212 set (hax, "looseinset", li); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1213 axpos = get (hax, "position"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1214 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1215 lpos(1) = axpos(1) - dx; |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1216 lpos(2) = axpos(2) + axpos(4) - lpos(4); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1217 case "north" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1218 dy = lpos(4) + vmargin + ti(4); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1219 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
|
1220 li(4) = min (dy + vmargin, axpos(4)); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1221 set (hax, "looseinset", li); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1222 axpos = get (hax, "position"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1223 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1224 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
|
1225 lpos(2) = axpos(2) + axpos(4) + vmargin + ti(4); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1226 case "northeast" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1227 dx = lpos(3) + hmargin + ti(3); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1228 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
|
1229 li(3) = min (dx + hmargin, axpos(3)); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1230 set (hax, "looseinset", li); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1231 axpos = get (hax, "position"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1232 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1233 lpos(1) = axpos(1) + axpos(3) + hmargin + ti(3); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1234 lpos(2) = axpos(2) + axpos(4) - lpos(4); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1235 case "east" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1236 dx = lpos(3) + hmargin + ti(3); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1237 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
|
1238 li(3) = min (dx + hmargin, axpos(3)); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1239 set (hax, "looseinset", li); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1240 axpos = get (hax, "position"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1241 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1242 lpos(1) = axpos(1) + axpos(3) + hmargin + ti(3); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1243 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
|
1244 case "southeast" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1245 dx = lpos(3) + hmargin + ti(3); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1246 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
|
1247 li(3) = min (dx + hmargin, axpos(3)); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1248 set (hax, "looseinset", li); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1249 axpos = get (hax, "position"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1250 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1251 lpos(1) = axpos(1) + axpos(3) + hmargin + ti(3); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1252 lpos(2) = axpos(2); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1253 case "south" |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1254 dy = lpos(4) + vmargin + ti(2); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1255 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
|
1256 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
|
1257 set (hax, "looseinset", li); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1258 axpos = get (hax, "position"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1259 endif |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1260 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
|
1261 lpos(2) = axpos(2) - lpos(4) - vmargin - ti(2); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1262 endswitch |
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 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1265 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
|
1266 "position", lpos); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1267 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1268 setappdata (hl, "__peer_axes_position__", axpos); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1269 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1270 unwind_protect_cleanup |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1271 set (hax, "units", units); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1272 end_unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1273 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1274 endfunction |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
1275 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1276 |
11418
a140991387fb
legend.m: Add demo to legend for inline key.
Ben Abbott <bpabbott@mac.com>
parents:
11363
diff
changeset
|
1277 %!demo |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
1278 %! clf; |
15442
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1279 %! plot (rand (2)); |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1280 %! 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
|
1281 %! h = legend ("foo", "bar"); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1282 %! 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
|
1283 |
aed2c50c3082
legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos.
Ben Abbott <bpabbott@mac.com>
parents:
11434
diff
changeset
|
1284 %!demo |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
1285 %! clf; |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1286 %! plot (rand (2)); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1287 %! 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
|
1288 %! h = legend ({"cellfoo", "cellbar"}); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1289 %! set (h, "fontsize", 20, "location", "northeast"); |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1290 |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1291 %!demo |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1292 %! clf; |
15442
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1293 %! plot (rand (3)); |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1294 %! title ("legend () without inputs creates default labels"); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1295 %! h = legend (); |
14236
35903f035390
Escaping strings for legend entries are handled by __go_draw_axes__.
Ben Abbott <bpabbott@mac.com>
parents:
14214
diff
changeset
|
1296 |
35903f035390
Escaping strings for legend entries are handled by __go_draw_axes__.
Ben Abbott <bpabbott@mac.com>
parents:
14214
diff
changeset
|
1297 %!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
|
1298 %! clf; |
11418
a140991387fb
legend.m: Add demo to legend for inline key.
Ben Abbott <bpabbott@mac.com>
parents:
11363
diff
changeset
|
1299 %! x = 0:1; |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1300 %! 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
|
1301 %! h = legend (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1302 %! set (h, "location", "northeastoutside"); |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1303 %! ## Placing legend inside returns axes to original size |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1304 %! 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
|
1305 %! 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
|
1306 |
9f34f7636fe0
legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents:
8291
diff
changeset
|
1307 %!demo |
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14236
diff
changeset
|
1308 %! clf; |
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14236
diff
changeset
|
1309 %! 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
|
1310 %! 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
|
1311 %! 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
|
1312 %! legend hide |
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
1313 %! legend show |
11363
a0dfd7e8e3e2
Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents:
11246
diff
changeset
|
1314 |
a0dfd7e8e3e2
Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents:
11246
diff
changeset
|
1315 %!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
|
1316 %! clf; |
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14236
diff
changeset
|
1317 %! 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
|
1318 %! 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
|
1319 %! legend ({"I am blue", "I am orange"}, ... |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1320 %! "location", "east", "orientation", "horizontal"); |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
1321 %! legend boxoff |
16799
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
1322 %! 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
|
1323 |
aed2c50c3082
legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos.
Ben Abbott <bpabbott@mac.com>
parents:
11434
diff
changeset
|
1324 %!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
|
1325 %! clf; |
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14236
diff
changeset
|
1326 %! 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
|
1327 %! 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
|
1328 %! 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
|
1329 %! legend boxoff |
11434
1f54ee6760b5
legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents:
11418
diff
changeset
|
1330 |
1f54ee6760b5
legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents:
11418
diff
changeset
|
1331 %!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
|
1332 %! clf; |
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14236
diff
changeset
|
1333 %! 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
|
1334 %! 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
|
1335 %! 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
|
1336 %! legend left |
8343
9f34f7636fe0
legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents:
8291
diff
changeset
|
1337 |
9f34f7636fe0
legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents:
8291
diff
changeset
|
1338 %!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
|
1339 %! clf; |
15442
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1340 %! 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
|
1341 %! 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
|
1342 %! "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
|
1343 %! 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
|
1344 %! legend ("right"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1345 %! set (h, "textposition", "left"); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1346 %! 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
|
1347 |
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1348 %!demo |
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1349 %! clf; |
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1350 %! 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
|
1351 %! 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
|
1352 %! 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
|
1353 %! legend hide |
15442
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1354 |
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1355 %!demo |
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1356 %! clf; |
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1357 %! x = 0:1; |
22800
5de8670d10a6
Change text describing demo plots to reflect new ColorOrder (bug #49288).
Rik <rik@octave.org>
parents:
22624
diff
changeset
|
1358 %! 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
|
1359 %! title ({"Labels are embedded in call to plot", ... |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1360 %! "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
|
1361 %! legend boxon |
11434
1f54ee6760b5
legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents:
11418
diff
changeset
|
1362 %! legend hide |
1f54ee6760b5
legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents:
11418
diff
changeset
|
1363 %! legend show |
11363
a0dfd7e8e3e2
Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents:
11246
diff
changeset
|
1364 |
a0dfd7e8e3e2
Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents:
11246
diff
changeset
|
1365 %!demo |
15442
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1366 %! clf; |
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1367 %! x = 0:1; |
22151
283d8dfcad37
Make demos Matlab compatible for comparison with dump_demos script.
Rik <rik@octave.org>
parents:
22069
diff
changeset
|
1368 %! 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
|
1369 %! 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
|
1370 %! 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
|
1371 %! set (h, "interpreter", "tex"); |
11434
1f54ee6760b5
legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents:
11418
diff
changeset
|
1372 |
1f54ee6760b5
legend.m: Only one legend per axes (bug 32022)
Ben Abbott <bpabbott@mac.com>
parents:
11418
diff
changeset
|
1373 %!demo |
15442
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1374 %! clf; |
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1375 %! plot (rand (2)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1376 %! title ("Labels with TeX interpreter turned off"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1377 %! h = legend ("Hello_World", "foo^bar"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1378 %! set (h, "interpreter", "none"); |
9451 | 1379 |
1380 %!demo | |
15442
015cc3d1f389
legend.m: Overhaul function and add support for automatic data labels.
Rik <rik@octave.org>
parents:
15441
diff
changeset
|
1381 %! clf; |
6146 | 1382 %! labels = {}; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1383 %! colororder = get (gca, "colororder"); |
6146 | 1384 %! 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
|
1385 %! 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
|
1386 %! set (h, "color", colororder(i,:)); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1387 %! labels = {labels{:}, ["Signal ", num2str(i)]}; |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1388 %! endfor |
11363
a0dfd7e8e3e2
Assign data used in demo plots for reproducibility between runs
Rik <octave@nomad.inbox5.com>
parents:
11246
diff
changeset
|
1389 %! hold off; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1390 %! title ({"Signals with random offset and uniform noise"; |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1391 %! "Legend shown below and outside of plot"}); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1392 %! xlabel ("Sample Nr [k]"); ylabel ("Amplitude [V]"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1393 %! legend (labels, "location", "southoutside"); |
9451 | 1394 |
1395 %!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
|
1396 %! clf; |
9451 | 1397 %! x = linspace (0, 10); |
1398 %! 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
|
1399 %! hold on; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1400 %! stem (x, x.^2, "g"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1401 %! title ("First created object gets first label"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1402 %! 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
|
1403 %! hold off; |
9451 | 1404 |
1405 %!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
|
1406 %! clf; |
9451 | 1407 %! x = linspace (0, 10); |
1408 %! plot (x, x, x, x.^2); | |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1409 %! title ("First created object gets first label"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1410 %! legend ("linear"); |
9451 | 1411 |
1412 %!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
|
1413 %! clf; |
9451 | 1414 %! x = linspace (0, 10); |
1415 %! plot (x, x, x, x.^2); | |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1416 %! title ("Labels are applied in order of object creation"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1417 %! 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
|
1418 |
f9fb8c1a8e45
legend.m: Add an hggroup demo using bar(). Include clf() in each demo.
Ben Abbott <bpabbott@mac.com>
parents:
9451
diff
changeset
|
1419 %!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
|
1420 %! 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
|
1421 %! 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
|
1422 %! 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
|
1423 %! bar (rand_2x3_data1); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1424 %! ylim ([0, 1.0]); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1425 %! 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
|
1426 %! 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
|
1427 %! 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
|
1428 %! x = linspace (0, 10, 20); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1429 %! 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
|
1430 %! 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
|
1431 %! 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
|
1432 %! 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
|
1433 %! 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
|
1434 %! 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
|
1435 |
f9fb8c1a8e45
legend.m: Add an hggroup demo using bar(). Include clf() in each demo.
Ben Abbott <bpabbott@mac.com>
parents:
9451
diff
changeset
|
1436 %!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
|
1437 %! clf; |
20408
71bd638e0ef6
legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents:
20286
diff
changeset
|
1438 %! colormap (cool (64)); |
71bd638e0ef6
legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents:
20286
diff
changeset
|
1439 %! surf (peaks ()); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1440 %! legend ("peaks()"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1441 %! 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
|
1442 |
71bd638e0ef6
legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents:
20286
diff
changeset
|
1443 %!demo |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1444 %! 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
|
1445 %! 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
|
1446 %! bar (rand_2x3_data2); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1447 %! ylim ([0, 1.2]); |
22151
283d8dfcad37
Make demos Matlab compatible for comparison with dump_demos script.
Rik <rik@octave.org>
parents:
22069
diff
changeset
|
1448 %! 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
|
1449 %! 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
|
1450 %! legend left; |
10662
3afcd24ced61
legend.m: Key labels for specified objects.
Ben Abbott <bpabbott@mac.com>
parents:
10549
diff
changeset
|
1451 |
3afcd24ced61
legend.m: Key labels for specified objects.
Ben Abbott <bpabbott@mac.com>
parents:
10549
diff
changeset
|
1452 %!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
|
1453 %! clf; |
10662
3afcd24ced61
legend.m: Key labels for specified objects.
Ben Abbott <bpabbott@mac.com>
parents:
10549
diff
changeset
|
1454 %! x = 0:0.1:7; |
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14236
diff
changeset
|
1455 %! 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
|
1456 %! title ("Only the sin() objects have keylabels"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1457 %! 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
|
1458 |
12340
d63007ac067a
legend.m: Add demo for inline keys created by two plot commands.
Ben Abbott <bpabbott@mac.com>
parents:
12339
diff
changeset
|
1459 %!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
|
1460 %! clf; |
12340
d63007ac067a
legend.m: Add demo for inline keys created by two plot commands.
Ben Abbott <bpabbott@mac.com>
parents:
12339
diff
changeset
|
1461 %! x = 0:0.1:10; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1462 %! plot (x, sin (x), ";sin (x);"); |
22069
9121d6584f6a
Overhaul graphics implementation of hold() (bug #43559).
Rik <rik@octave.org>
parents:
22054
diff
changeset
|
1463 %! hold on; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1464 %! 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
|
1465 %! hold off; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1466 %! 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
|
1467 |
12387
5fb6ea1bff65
legend.m: Add demo for replacing existing legend.
Ben Abbott <bpabbott@mac.com>
parents:
12340
diff
changeset
|
1468 %!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
|
1469 %! clf; |
12387
5fb6ea1bff65
legend.m: Add demo for replacing existing legend.
Ben Abbott <bpabbott@mac.com>
parents:
12340
diff
changeset
|
1470 %! x = 0:0.1:10; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1471 %! plot (x, sin (x), ";sin (x);"); |
22069
9121d6584f6a
Overhaul graphics implementation of hold() (bug #43559).
Rik <rik@octave.org>
parents:
22054
diff
changeset
|
1472 %! hold on; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1473 %! 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
|
1474 %! hold off; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1475 %! title ("Specified label text overrides previous labels"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1476 %! legend ({"Sine", "Cosine"}, "location", "northeastoutside"); |
12387
5fb6ea1bff65
legend.m: Add demo for replacing existing legend.
Ben Abbott <bpabbott@mac.com>
parents:
12340
diff
changeset
|
1477 |
12394
c2e1973d870b
legend.m: "legend off" should delete the legend object.
Ben Abbott <bpabbott@mac.com>
parents:
12388
diff
changeset
|
1478 %!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
|
1479 %! clf; |
12394
c2e1973d870b
legend.m: "legend off" should delete the legend object.
Ben Abbott <bpabbott@mac.com>
parents:
12388
diff
changeset
|
1480 %! x = 0:10; |
c2e1973d870b
legend.m: "legend off" should delete the legend object.
Ben Abbott <bpabbott@mac.com>
parents:
12388
diff
changeset
|
1481 %! plot (x, rand (11)); |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1482 %! axis ([0, 10, 0, 1]); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1483 %! xlabel ("Indices"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1484 %! ylabel ("Random Values"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1485 %! 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
|
1486 %! 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
|
1487 %! 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
|
1488 %! legend off; |
12387
5fb6ea1bff65
legend.m: Add demo for replacing existing legend.
Ben Abbott <bpabbott@mac.com>
parents:
12340
diff
changeset
|
1489 |
12395
4d30b4136a3e
legend.m: Align legends to plot box, add demo. Bug 32373.
Ben Abbott <bpabbott@mac.com>
parents:
12394
diff
changeset
|
1490 %!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
|
1491 %! clf; |
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14236
diff
changeset
|
1492 %! x = (1:5)'; |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14252
diff
changeset
|
1493 %! 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
|
1494 %! plot (x, rand (numel (x))); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1495 %! 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
|
1496 %! 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
|
1497 %! plot (x, rand (numel (x))); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1498 %! 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
|
1499 %! 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
|
1500 %! plot (x, rand (numel (x))); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1501 %! 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
|
1502 %! 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
|
1503 %! plot (x, rand (numel (x))); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1504 %! legend (cellstr (num2str (x)), "location", "southeastoutside"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1505 %! ## 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
|
1506 |
12395
4d30b4136a3e
legend.m: Align legends to plot box, add demo. Bug 32373.
Ben Abbott <bpabbott@mac.com>
parents:
12394
diff
changeset
|
1507 %!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
|
1508 %! clf; |
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14236
diff
changeset
|
1509 %! plot (rand (2)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1510 %! 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
|
1511 %! 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
|
1512 |
f35b593688a5
Changing the legend's interpreter property should be inherited by the
Ben Abbott <bpabbott@mac.com>
parents:
13937
diff
changeset
|
1513 %!demo |
16799
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
1514 %! clf; |
14207
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1515 %! x = 0:10; |
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1516 %! y1 = rand (size (x)); |
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1517 %! y2 = rand (size (x)); |
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1518 %! [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
|
1519 %! 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
|
1520 %! drawnow (); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1521 %! 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
|
1522 |
13979
f35b593688a5
Changing the legend's interpreter property should be inherited by the
Ben Abbott <bpabbott@mac.com>
parents:
13937
diff
changeset
|
1523 %!demo |
16799
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
1524 %! clf; |
14207
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1525 %! x = 0:10; |
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1526 %! y1 = rand (size (x)); |
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1527 %! y2 = rand (size (x)); |
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1528 %! [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
|
1529 %! ylabel (ax(1), {"Blue", "Y", "Axis"}); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1530 %! 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
|
1531 %! drawnow (); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1532 %! 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
|
1533 |
f35b593688a5
Changing the legend's interpreter property should be inherited by the
Ben Abbott <bpabbott@mac.com>
parents:
13937
diff
changeset
|
1534 %!demo |
16799
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
1535 %! clf; |
14207
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1536 %! x = 0:10; |
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1537 %! y1 = rand (size (x)); |
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1538 %! y2 = rand (size (x)); |
57e3490094e1
Fix order of legend entries for plotyy. Bug # 35314.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
1539 %! [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
|
1540 %! ylabel (ax(2), {"Orange", "Y", "Axis"}); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1541 %! 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
|
1542 %! drawnow (); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1543 %! 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
|
1544 |
20408
71bd638e0ef6
legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents:
20286
diff
changeset
|
1545 %!demo |
71bd638e0ef6
legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents:
20286
diff
changeset
|
1546 %! clf; |
71bd638e0ef6
legend.m: Fix listeners on legend line objects (bug #45563).
Rik <rik@octave.org>
parents:
20286
diff
changeset
|
1547 %! plot (1:10, 1:10); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1548 %! title ("a very long label can sometimes cause problems"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1549 %! 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
|
1550 |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1551 %!demo # bug 36408 |
16799
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
1552 %! clf; |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
1553 %! 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
|
1554 %! 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
|
1555 %! xlabel xlabel; |
9a316ec12b5f
legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run.
Rik <rik@octave.org>
parents:
16910
diff
changeset
|
1556 %! ylabel ylabel; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1557 %! title ("Subplots adjust to the legend placed outside"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1558 %! legend ({"1"}, "location", "northeastoutside"); |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
1559 %! 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
|
1560 %! plot (rand (1,4)); |
9a316ec12b5f
legend.m: Use Matlab coding conventions in %!demo blocks so comparison script can run.
Rik <rik@octave.org>
parents:
16910
diff
changeset
|
1561 %! 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
|
1562 %! ylabel ylabel; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1563 %! legend ({"1234567890"}, "location", "eastoutside"); |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
1564 %! 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
|
1565 %! 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
|
1566 %! 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
|
1567 %! ylabel ylabel; |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1568 %! legend ({"12345678901234567890"}, "location", "southeastoutside"); |
16799
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
1569 |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1570 %!demo # bug 36408 |
16799
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
1571 %! 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
|
1572 %! 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
|
1573 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1574 %! title ("Subplots adjust to the legend placed outside"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1575 %! legend ({"1"}, "location", "northwestoutside"); |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
1576 %! 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
|
1577 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1578 %! legend ({"1234567890"}, "location", "westoutside"); |
16805
2281d957cde6
legend.m: Tweak code for Octave coding conventions.
Rik <rik@octave.org>
parents:
16800
diff
changeset
|
1579 %! 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
|
1580 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1581 %! legend ({"12345678901234567890"}, "location", "southwestoutside"); |
16799
286904321282
Use unmodified axes "position" and "outerposition" properties for legend().
Ben Abbott <bpabbott@mac.com>
parents:
16796
diff
changeset
|
1582 |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1583 %!demo # bug 36408 |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1584 %! clf; |
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1585 %! 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
|
1586 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1587 %! set (gca (), "yaxislocation", "right"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1588 %! xlabel ("xlabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1589 %! ylabel ("ylabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1590 %! title ("Subplots adjust to the legend placed outside"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1591 %! legend ({"1"}, "location", "northeastoutside"); |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1592 %! 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
|
1593 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1594 %! set (gca (), "yaxislocation", "right"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1595 %! xlabel ("xlabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1596 %! ylabel ("ylabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1597 %! legend ({"1234567890"}, "location", "eastoutside"); |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1598 %! 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
|
1599 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1600 %! set (gca (), "yaxislocation", "right"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1601 %! xlabel ("xlabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1602 %! ylabel ("ylabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1603 %! legend ({"12345678901234567890"}, "location", "southeastoutside"); |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1604 |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1605 %!demo # bug 36408 |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1606 %! 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
|
1607 %! 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
|
1608 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1609 %! set (gca (), "yaxislocation", "right"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1610 %! xlabel ("xlabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1611 %! ylabel ("ylabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1612 %! title ("Subplots adjust to the legend placed outside"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1613 %! legend ({"1"}, "location", "northwestoutside"); |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1614 %! 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
|
1615 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1616 %! set (gca (), "yaxislocation", "right"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1617 %! xlabel ("xlabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1618 %! ylabel ("ylabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1619 %! legend ({"1234567890"}, "location", "westoutside"); |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1620 %! 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
|
1621 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1622 %! set (gca (), "yaxislocation", "right"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1623 %! xlabel ("xlabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1624 %! ylabel ("ylabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1625 %! legend ({"12345678901234567890"}, "location", "southwestoutside"); |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1626 |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1627 %!demo # bug 36408; |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1628 %! 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
|
1629 %! 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
|
1630 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1631 %! set (gca (), "xaxislocation", "top"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1632 %! xlabel ("xlabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1633 %! ylabel ("ylabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1634 %! title ("Subplots adjust to the legend placed outside"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1635 %! legend ({"1"}, "location", "northwestoutside"); |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1636 %! 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
|
1637 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1638 %! set (gca (), "xaxislocation", "top"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1639 %! xlabel ("xlabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1640 %! ylabel ("ylabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1641 %! legend ({"1234567890"}, "location", "westoutside"); |
16908
1c4be5dcacd5
Add demos to legend.m using subplots.
Ben Abbott <bpabbott@mac.com>
parents:
16885
diff
changeset
|
1642 %! 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
|
1643 %! plot (rand (1,4)); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1644 %! set (gca (), "xaxislocation", "top"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1645 %! xlabel ("xlabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1646 %! ylabel ("ylabel"); |
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1647 %! 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
|
1648 |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1649 %!demo # bug 39697 |
17190
df4c4b7708a4
Add titles and clean-up plotting %!demos.
Rik <rik@octave.org>
parents:
17179
diff
changeset
|
1650 %! clf; |
17179
828e8852efa9
legend.m: Add %!demo block showing bug #39697.
Rik <rik@octave.org>
parents:
17174
diff
changeset
|
1651 %! plot (1:10); |
22302
1c4cd12987f5
Use Octave syntax in graphics demos.
Rik <rik@octave.org>
parents:
22151
diff
changeset
|
1652 %! legend ("Legend Text"); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1653 %! 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
|
1654 |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1655 ## Test input validation |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1656 %!test |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1657 %! 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
|
1658 %! unwind_protect |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1659 %! try |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1660 %! legend (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1661 %! catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1662 %! [~, id] = lasterr (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1663 %! assert (id, "Octave:legend:no-object"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1664 %! end_try_catch |
16973
d429a05dc11c
legend.m: Move %!test block below %!demo blocks per standard usage.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
1665 %! unwind_protect_cleanup |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1666 %! close (hf); |
18647
ce36233e4849
legend.m: Correctly handle axis handle as first argument (bug #42035).
Rik <rik@octave.org>
parents:
18644
diff
changeset
|
1667 %! end_unwind_protect |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1668 |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1669 %!test |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1670 %! hf = figure ("visible", "off"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1671 %! unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1672 %! axes (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1673 %! try |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1674 %! legend (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1675 %! catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1676 %! [~, id] = lasterr (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1677 %! assert (id, "Octave:legend:no-object"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1678 %! end_try_catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1679 %! unwind_protect_cleanup |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1680 %! close (hf); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1681 %! end_unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1682 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1683 %!test |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1684 %! hf = figure ("visible", "off"); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1685 %! unwind_protect |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1686 %! axes (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1687 %! light (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1688 %! try |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1689 %! legend (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1690 %! catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1691 %! [~, id] = lasterr (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1692 %! assert (id, "Octave:legend:no-object"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1693 %! end_try_catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1694 %! unwind_protect_cleanup |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1695 %! close (hf); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1696 %! end_unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1697 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1698 %!test |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1699 %! hf = figure ("visible", "off"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1700 %! unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1701 %! axes (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1702 %! hli = light (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1703 %! try |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1704 %! legend (hli); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1705 %! catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1706 %! [~, id] = lasterr (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1707 %! assert (id, "Octave:legend:bad-object"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1708 %! end_try_catch |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1709 %! unwind_protect_cleanup |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1710 %! close (hf); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1711 %! end_unwind_protect |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1712 |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1713 %!test |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1714 %! hf = figure ("visible", "off"); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1715 %! unwind_protect |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1716 %! axes (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1717 %! hplot = plot (rand (3)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1718 %! try |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1719 %! legend (hplot, struct); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1720 %! catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1721 %! [~, id] = lasterr (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1722 %! assert (id, "Octave:invalid-fun-call"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1723 %! end_try_catch |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1724 %! unwind_protect_cleanup |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1725 %! close (hf); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1726 %! end_unwind_protect |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1727 |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1728 %!test |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1729 %! hf = figure ("visible", "off"); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1730 %! unwind_protect |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1731 %! axes (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1732 %! hplot = plot (rand (3)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1733 %! try |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1734 %! legend ("a", "b", "c", hplot); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1735 %! catch |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1736 %! [~, id] = lasterr (); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1737 %! assert (id, "Octave:invalid-fun-call"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1738 %! end_try_catch |
24434
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1739 %! unwind_protect_cleanup |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1740 %! close (hf); |
436deae9f9ab
legend.m: Overhaul function for greater Matlab compatibility.
Rik <rik@octave.org>
parents:
24432
diff
changeset
|
1741 %! end_unwind_protect |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1742 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1743 ## Test bugs in previous implementation |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1744 %!test <39697> |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1745 %! hf = figure ("visible", "off"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1746 %! unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1747 %! axes ("units", "normalized"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1748 %! plot (1:10); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1749 %! hl = legend ("Legend Text", "units", "normalized"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1750 %! title ({'Multi-line', 'titles', 'are a', 'problem'}); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1751 %! pos = get (gca, 'position'); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1752 %! axtop = sum (pos(2:2:4)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1753 %! pos = get (hl, 'position'); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1754 %! legtop = sum (pos(2:2:4)); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1755 %! assert (legtop < axtop); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1756 %! unwind_protect_cleanup |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1757 %! close (hf); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1758 %! end_unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1759 |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1760 %!test <40333> |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1761 %! hf = figure ("visible", "off"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1762 %! unwind_protect |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1763 %! axes ("units", "normalized"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1764 %! plot (1:10); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1765 %! hl = legend ("Legend Text", "units", "normalized"); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1766 %! pos = get (gca, 'position'); |
27710
9fd8534d3607
legend.m: Code cleanup for cset c66467f74278.
Rik <rik@octave.org>
parents:
27708
diff
changeset
|
1767 %! set (hf, 'position', [0, 0, 200, 200]); |
27708
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1768 %! set (hl, 'fontsize', 20); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1769 %! assert (get (gca, 'position'), pos, 2*eps); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1770 %! unwind_protect_cleanup |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1771 %! close (hf); |
c66467f74278
Rewrite legend (task #14243)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27465
diff
changeset
|
1772 %! end_unwind_protect |