Mercurial > octave
annotate scripts/plot/util/private/__gnuplot_draw_figure__.m @ 30564:796f54d4ddbf stable
update Octave Project Developers copyright for the new year
In files that have the "Octave Project Developers" copyright notice,
update for 2021.
In all .txi and .texi files except gpl.txi and gpl.texi in the
doc/liboctave and doc/interpreter directories, change the copyright
to "Octave Project Developers", the same as used for other source
files. Update copyright notices for 2022 (not done since 2019). For
gpl.txi and gpl.texi, change the copyright notice to be "Free Software
Foundation, Inc." and leave the date at 2007 only because this file
only contains the text of the GPL, not anything created by the Octave
Project Developers.
Add Paul Thomas to contributors.in.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 28 Dec 2021 18:22:40 -0500 |
parents | 0a5b15007766 |
children | 597f3ee61a48 |
rev | line source |
---|---|
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
1 ######################################################################## |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
2 ## |
30564
796f54d4ddbf
update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents:
29358
diff
changeset
|
3 ## Copyright (C) 2005-2022 The Octave Project Developers |
27918
b442ec6dda5c
use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents:
27898
diff
changeset
|
4 ## |
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
5 ## See the file COPYRIGHT.md in the top-level directory of this |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
6 ## distribution or <https://octave.org/copyright/>. |
6405 | 7 ## |
8 ## This file is part of Octave. | |
9 ## | |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
24498
diff
changeset
|
10 ## Octave is free software: you can redistribute it and/or modify it |
6405 | 11 ## under the terms of the GNU General Public License as published by |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
24498
diff
changeset
|
12 ## the Free Software Foundation, either version 3 of the License, or |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22602
diff
changeset
|
13 ## (at your option) any later version. |
6405 | 14 ## |
15 ## Octave is distributed in the hope that it will be useful, but | |
16 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22602
diff
changeset
|
17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22602
diff
changeset
|
18 ## GNU General Public License for more details. |
6405 | 19 ## |
20 ## You should have received a copy of the GNU General Public License | |
7016 | 21 ## along with Octave; see the file COPYING. If not, see |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
24498
diff
changeset
|
22 ## <https://www.gnu.org/licenses/>. |
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
23 ## |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
24 ######################################################################## |
6405 | 25 |
8812
7d48766c21a5
use consistent format for doc strings of internal functions
John W. Eaton <jwe@octave.org>
parents:
8249
diff
changeset
|
26 ## -*- texinfo -*- |
21365
5b9618f4f841
Rely upon print.m for mono/color conversion. This simplifies gnuplot support
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
27 ## @deftypefn {} {} __gnuplot_draw_figure__ (@var{h}, @var{plot_stream}, @var{enhanced}) |
6895 | 28 ## Undocumented internal function. |
8812
7d48766c21a5
use consistent format for doc strings of internal functions
John W. Eaton <jwe@octave.org>
parents:
8249
diff
changeset
|
29 ## @end deftypefn |
6405 | 30 |
21365
5b9618f4f841
Rely upon print.m for mono/color conversion. This simplifies gnuplot support
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
31 function __gnuplot_draw_figure__ (h, plot_stream, enhanced) |
6405 | 32 |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
33 htype = get (h, "type"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
34 if (strcmp (htype, "figure")) |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
35 ## Get complete list of children. |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
36 kids = allchild (h); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
37 nkids = length (kids); |
6405 | 38 |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
39 if (nkids > 0) |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
40 fputs (plot_stream, "\nreset;\n"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
41 fputs (plot_stream, "set autoscale keepfix;\n"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
42 fputs (plot_stream, "set origin 0, 0\n"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
43 fputs (plot_stream, "set size 1, 1\n"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
44 bg = get (h, "color"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
45 if (isnumeric (bg)) |
24370
b1d1229d9e83
maint: Use single quotes to simplify excessive backslash escapes in code.
Rik <rik@octave.org>
parents:
23220
diff
changeset
|
46 fprintf (plot_stream, ['if (GPVAL_TERM eq "qt") set obj 1 rectangle from screen 0,0 to screen 1,1 behind fc rgb "#%02x%02x%02x" fs solid noborder;' "\n"], round (255 * bg)); |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
47 bg_is_set = true; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
48 else |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
49 bg_is_set = false; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
50 endif |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
51 fg_was_set = false; |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
52 |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
53 for i = nkids:-1:1 |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
54 type = get (kids(i), "type"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
55 switch (type) |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
56 case "axes" |
24498 | 57 if (strcmp (get (kids(i), "tag"), "legend")) |
21751
b571fc85953f
maint: Use two spaces after period to indicate sentence break.
Rik <rik@octave.org>
parents:
21365
diff
changeset
|
58 ## This is so ugly. If there was a way of getting |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
59 ## gnuplot to give us the text extents of strings |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
60 ## then we could get rid of this mess. |
24498 | 61 lh = getappdata (kids(i), "__axes_handle__"); |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
62 if (isscalar (lh)) |
21751
b571fc85953f
maint: Use two spaces after period to indicate sentence break.
Rik <rik@octave.org>
parents:
21365
diff
changeset
|
63 ## We have a legend with a single parent. It'll be handled |
24472
19d63669d174
Don't use "userdata" property internally for legend private data.
Rik <rik@octave.org>
parents:
24423
diff
changeset
|
64 ## below as a gnuplot key to the axis it corresponds to. |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
65 continue; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
66 else |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
67 ca = lh(1); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
68 ## Rely upon listener to convert axes position |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
69 ## to "normalized" units. |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
70 legend_axes_units = get (kids(i), "units"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
71 legend_axes_position = get (kids(i), "position"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
72 legend_axes_outerposition = get (kids(i), "outerposition"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
73 legend_axes_box = get (kids(i), "box"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
74 legend_axes_ylim = get (kids(i), "ylim"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
75 orig_axes_units = get (ca, "units"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
76 hlgnd = get (kids(i)); |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
77 |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
78 unwind_protect |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
79 set (ca, "units", "normalized"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
80 set (kids(i), "units", "normalized", "box", "off", |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
81 "ylim", [-2, -1], "position", get (ca(1), "position"), |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
82 "outerposition", get (ca(1), "outerposition")); |
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10913
diff
changeset
|
83 |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
84 ## Create a new set of lines with the appropriate |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
85 ## displaynames, etc |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
86 toberm = []; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
87 hobj = get (kids(i), "children"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
88 for j = numel (hobj) : -1 : 1 |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
89 if (! strcmp (get (hobj(j), "type"), "text")) |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
90 continue; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
91 endif |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
92 displayname = get (hobj(j), "string"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
93 ll = []; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
94 lm = []; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
95 for k = numel (hobj) : -1 : 1 |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
96 if (! strcmp (get (hobj(k), "type"), "line")) |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
97 continue; |
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
98 endif |
24472
19d63669d174
Don't use "userdata" property internally for legend private data.
Rik <rik@octave.org>
parents:
24423
diff
changeset
|
99 if (getappdata (hobj(j), "handle") |
19d63669d174
Don't use "userdata" property internally for legend private data.
Rik <rik@octave.org>
parents:
24423
diff
changeset
|
100 != getappdata (hobj(k), "handle")) |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
101 continue; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
102 endif |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
103 if (! strcmp (get (hobj(k), "linestyle"), "none")) |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
104 ll = hobj(k); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
105 endif |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
106 if (! strcmp (get (hobj(k), "marker"), "none")) |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
107 lm = hobj(k); |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
108 endif |
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
109 endfor |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
110 |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
111 if (! isempty (ll)) |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
112 if (! isempty (lm)) |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
113 toberm = [toberm, line("xdata",[0,0],"ydata",[0,0], "color", get(lm,"color"), "linestyle", get(ll,"linestyle"), "marker", get(lm,"marker"), "markeredgecolor", get(lm,"markeredgecolor"), "markerfacecolor", get(lm,"markerfacecolor"), "markersize", get (lm, "markersize"), "displayname", displayname, "parent", kids(i))]; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
114 else |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
115 toberm = [toberm, line("xdata",[0,0],"ydata",[0,0], "color", get(ll,"color"), "linestyle", get(ll,"linestyle"), "marker", "none", "displayname", displayname, "parent", kids(i))]; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
116 endif |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
117 elseif (! isempty (lm)) |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
118 toberm = [toberm, line("xdata",[0,0],"ydata",[0,0], "color", get(lm,"color"), "linestyle", "none", "marker", get(lm,"marker"), "markeredgecolor", get(lm,"markeredgecolor"), "markerfacecolor", get(lm,"markerfacecolor"), "markersize", get (lm, "markersize"), "displayname", displayname, "parent", kids(i))]; |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
119 endif |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
120 endfor |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
121 if (bg_is_set) |
24370
b1d1229d9e83
maint: Use single quotes to simplify excessive backslash escapes in code.
Rik <rik@octave.org>
parents:
23220
diff
changeset
|
122 fprintf (plot_stream, ['set border linecolor rgb "#%02x%02x%02x"' "\n"], round (255 * (1 - bg))); |
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10913
diff
changeset
|
123 endif |
21365
5b9618f4f841
Rely upon print.m for mono/color conversion. This simplifies gnuplot support
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
124 __gnuplot_draw_axes__ (kids(i), plot_stream, enhanced, |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
125 bg_is_set, false, hlgnd); |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
126 unwind_protect_cleanup |
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
127 ## Return axes "units" and "position" back to |
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
128 ## their original values. |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
129 set (ca, "units", orig_axes_units); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
130 set (kids(i), "units", legend_axes_units, |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
131 "box", legend_axes_box, |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
132 "ylim", legend_axes_ylim, |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
133 "position", legend_axes_position, |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
134 "outerposition", legend_axes_outerposition); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
135 delete (toberm); |
11198
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
136 bg_is_set = false; |
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
137 end_unwind_protect |
9f080d23396f
Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522)
David Bateman <dbateman@free.fr>
parents:
11155
diff
changeset
|
138 endif |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
139 else |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
140 ## Rely upon listener to convert axes position |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
141 ## to "normalized" units. |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
142 orig_axes_units = get (kids(i), "units"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
143 orig_axes_position = get (kids(i), "position"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
144 unwind_protect |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
145 set (kids(i), "units", "normalized"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
146 fg = get (kids(i), "color"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
147 if (isnumeric (fg) && strcmp (get (kids(i), "visible"), "on")) |
24370
b1d1229d9e83
maint: Use single quotes to simplify excessive backslash escapes in code.
Rik <rik@octave.org>
parents:
23220
diff
changeset
|
148 fprintf (plot_stream, ['set obj 2 rectangle from graph 0,0 to graph 1,1 behind fc rgb "#%02x%02x%02x" fs solid noborder' "\n"], round (255 * fg)); |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
149 fg_is_set = true; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
150 fg_was_set = true; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
151 elseif (fg_was_set) |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
152 fprintf (plot_stream, "unset obj 2\n"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
153 fg_is_set = false; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
154 fg_was_set = false; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
155 else |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
156 fg_is_set = false; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
157 endif |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
158 if (bg_is_set) |
24370
b1d1229d9e83
maint: Use single quotes to simplify excessive backslash escapes in code.
Rik <rik@octave.org>
parents:
23220
diff
changeset
|
159 fprintf (plot_stream, ['set border linecolor rgb "#%02x%02x%02x"' "\n"], round (255 * (1 - bg))); |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
160 endif |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
161 ## Find if this axes has an associated legend axes and pass it |
20400
755ba248fb4a
build: Rename __go_draw_XXX to __gnuplot_draw_XXX for clarity.
Rik <rik@octave.org>
parents:
20093
diff
changeset
|
162 ## to __gnuplot_draw_axes__ |
24498 | 163 try |
164 hlegend = get (kids(i), "__legend_handle__"); | |
165 hlegend = get (hlegend); | |
166 catch | |
167 hlegend = []; | |
168 end_try_catch | |
21365
5b9618f4f841
Rely upon print.m for mono/color conversion. This simplifies gnuplot support
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
169 __gnuplot_draw_axes__ (kids(i), plot_stream, enhanced, |
24472
19d63669d174
Don't use "userdata" property internally for legend private data.
Rik <rik@octave.org>
parents:
24423
diff
changeset
|
170 bg_is_set, fg_is_set, hlegend); |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
171 unwind_protect_cleanup |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
172 ## Return axes "units" and "position" back to |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
173 ## their original values. |
27106
6bfd3a890185
Consolidate separate calls to set() in to one call for interpreter efficiency.
Rik <rik@octave.org>
parents:
26376
diff
changeset
|
174 set (kids(i), "units", orig_axes_units, |
6bfd3a890185
Consolidate separate calls to set() in to one call for interpreter efficiency.
Rik <rik@octave.org>
parents:
26376
diff
changeset
|
175 "position", orig_axes_position); |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
176 bg_is_set = false; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
177 fg_is_set = false; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
178 end_unwind_protect |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
179 endif |
27157
e2061085dc5e
Restore hability to switch from qt to gnuplot toolkit (bug #56452)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
27106
diff
changeset
|
180 case {"uimenu", "uicontextmenu", "uitoolbar"} |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
181 ## ignore uimenu objects |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
182 kids(i) = []; |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
183 otherwise |
20400
755ba248fb4a
build: Rename __go_draw_XXX to __gnuplot_draw_XXX for clarity.
Rik <rik@octave.org>
parents:
20093
diff
changeset
|
184 error ("__gnuplot_draw_figure__: unknown object class, %s", type); |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
185 endswitch |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
186 endfor |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
187 if (isempty (kids)) |
10473
169be980faf9
__go_draw_figure__.m: Untabify.
Ben Abbott <bpabbott@mac.com>
parents:
10159
diff
changeset
|
188 fputs (plot_stream, "\nreset; clear;\n"); |
169be980faf9
__go_draw_figure__.m: Untabify.
Ben Abbott <bpabbott@mac.com>
parents:
10159
diff
changeset
|
189 fflush (plot_stream); |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
190 else |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
191 fputs (plot_stream, "\nunset multiplot;\n"); |
9098
5ecdb3d3568f
Allow fontsize to be specified for all objects with fontname == "*".
Ben Abbott <bpabbott@mac.com>
parents:
9062
diff
changeset
|
192 endif |
6405 | 193 else |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
194 fputs (plot_stream, "\nreset; clear;\n"); |
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
195 fflush (plot_stream); |
6405 | 196 endif |
197 else | |
20400
755ba248fb4a
build: Rename __go_draw_XXX to __gnuplot_draw_XXX for clarity.
Rik <rik@octave.org>
parents:
20093
diff
changeset
|
198 error ("__gnuplot_draw_figure__: expecting figure object, found '%s'", |
17176
abf384f5d243
maint: Remove unneeded input validation from internal fcns in private/ directories.
Rik <rik@octave.org>
parents:
15467
diff
changeset
|
199 htype); |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
200 endif |
6405 | 201 |
202 endfunction |