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