Mercurial > octave-nkf
annotate scripts/plot/gnuplot_drawnow.m @ 9107:d0d507cbd123
Improvements to printing functionality.
author | Ben Abbott <bpabbott@mac.com> |
---|---|
date | Fri, 10 Apr 2009 12:11:14 -0400 |
parents | 8651fcc89556 |
children | 4bb94a71913b |
rev | line source |
---|---|
8920 | 1 ## Copyright (C) 2005, 2006, 2007, 2008, 2009 John W. Eaton |
7408 | 2 ## |
3 ## This file is part of Octave. | |
4 ## | |
5 ## Octave is free software; you can redistribute it and/or modify it | |
6 ## under the terms of the GNU General Public License as published by | |
7 ## the Free Software Foundation; either version 3 of the License, or (at | |
8 ## your option) any later version. | |
9 ## | |
10 ## Octave is distributed in the hope that it will be useful, but | |
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 ## General Public License for more details. | |
14 ## | |
15 ## You should have received a copy of the GNU General Public License | |
16 ## along with Octave; see the file COPYING. If not, see | |
17 ## <http://www.gnu.org/licenses/>. | |
18 | |
19 ## -*- texinfo -*- | |
20 ## @deftypefn {Function File} {} drawnow () | |
21 ## Update and display the current graphics. | |
22 ## | |
23 ## Octave automatically calls drawnow just before printing a prompt, | |
24 ## when @code{sleep} or @code{pause} is called, or while waiting for | |
25 ## command-line input. | |
26 ## @end deftypefn | |
27 | |
28 ## Author: jwe | |
29 | |
30 function gnuplot_drawnow (h, term, file, mono, debug_file) | |
31 | |
32 if (nargin < 4) | |
33 mono = false; | |
34 endif | |
35 | |
36 if (nargin >= 3 && nargin <= 5) | |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
37 ## Produce various output formats, or redirect gnuplot stream to a |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
38 ## debug file. |
7408 | 39 plot_stream = []; |
40 fid = []; | |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
41 printing = ! output_to_screen (gnuplot_trim_term (term)); |
9055
8651fcc89556
gnuplot_drawnow.m: Always set figure property "__plot_stream__" to the active gnuplot steam.
Ben Abbott <bpabbott@mac.com>
parents:
9011
diff
changeset
|
42 default_plot_stream = get (h, "__plot_stream__"); |
7408 | 43 unwind_protect |
9107
d0d507cbd123
Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents:
9055
diff
changeset
|
44 plot_stream = open_gnuplot_stream (2, h); |
9008
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
45 if (__gnuplot_has_feature__ ("variable_GPVAL_TERMINALS")) |
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
46 available_terminals = __gnuplot_get_var__ (plot_stream, "GPVAL_TERMINALS"); |
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
47 available_terminals = regexp (available_terminals, "\\b\\w+\\b", "match"); |
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
48 gnuplot_supports_term = any (strcmpi (available_terminals, |
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
49 gnuplot_trim_term (term))); |
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
50 else |
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
51 gnuplot_supports_term = true; |
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
52 endif |
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
53 if (gnuplot_supports_term) |
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
54 [enhanced, implicit_margin] = gnuplot_set_term (plot_stream (1), true, |
7a7cf569528d
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
Ben Abbott <bpabbott@mac.com>
parents:
9002
diff
changeset
|
55 h, term, file); |
9011
dd5725531732
gnuplot_drawnow.m: When printing, pass scalar plot_stream to __gnuplot_draw_figure__, and close all plot streams when done.
Ben Abbott <bpabbott@mac.com>
parents:
9008
diff
changeset
|
56 __go_draw_figure__ (h, plot_stream(1), enhanced, mono, printing, implicit_margin); |
9002
5cc15e4b4e5c
gnuplot_drawnow.m: Verify the gnuplot terminal is supported.
Ben Abbott <bpabbott@mac.com>
parents:
8920
diff
changeset
|
57 if (nargin == 5) |
5cc15e4b4e5c
gnuplot_drawnow.m: Verify the gnuplot terminal is supported.
Ben Abbott <bpabbott@mac.com>
parents:
8920
diff
changeset
|
58 fid = fopen (debug_file, "wb"); |
5cc15e4b4e5c
gnuplot_drawnow.m: Verify the gnuplot terminal is supported.
Ben Abbott <bpabbott@mac.com>
parents:
8920
diff
changeset
|
59 [enhanced, implicit_margin] = gnuplot_set_term (fid, true, h, term, file); |
5cc15e4b4e5c
gnuplot_drawnow.m: Verify the gnuplot terminal is supported.
Ben Abbott <bpabbott@mac.com>
parents:
8920
diff
changeset
|
60 __go_draw_figure__ (h, fid, enhanced, mono, printing, implicit_margin); |
5cc15e4b4e5c
gnuplot_drawnow.m: Verify the gnuplot terminal is supported.
Ben Abbott <bpabbott@mac.com>
parents:
8920
diff
changeset
|
61 endif |
5cc15e4b4e5c
gnuplot_drawnow.m: Verify the gnuplot terminal is supported.
Ben Abbott <bpabbott@mac.com>
parents:
8920
diff
changeset
|
62 else |
5cc15e4b4e5c
gnuplot_drawnow.m: Verify the gnuplot terminal is supported.
Ben Abbott <bpabbott@mac.com>
parents:
8920
diff
changeset
|
63 error ("gnuplot_drawnow: the gnuplot terminal, \"%s\", is not available.", |
5cc15e4b4e5c
gnuplot_drawnow.m: Verify the gnuplot terminal is supported.
Ben Abbott <bpabbott@mac.com>
parents:
8920
diff
changeset
|
64 gnuplot_trim_term (term)) |
7408 | 65 endif |
66 unwind_protect_cleanup | |
9055
8651fcc89556
gnuplot_drawnow.m: Always set figure property "__plot_stream__" to the active gnuplot steam.
Ben Abbott <bpabbott@mac.com>
parents:
9011
diff
changeset
|
67 set (h, "__plot_stream__", default_plot_stream); |
7408 | 68 if (! isempty (plot_stream)) |
9011
dd5725531732
gnuplot_drawnow.m: When printing, pass scalar plot_stream to __gnuplot_draw_figure__, and close all plot streams when done.
Ben Abbott <bpabbott@mac.com>
parents:
9008
diff
changeset
|
69 pclose (plot_stream(1)); |
dd5725531732
gnuplot_drawnow.m: When printing, pass scalar plot_stream to __gnuplot_draw_figure__, and close all plot streams when done.
Ben Abbott <bpabbott@mac.com>
parents:
9008
diff
changeset
|
70 if (numel (plot_stream) == 2) |
dd5725531732
gnuplot_drawnow.m: When printing, pass scalar plot_stream to __gnuplot_draw_figure__, and close all plot streams when done.
Ben Abbott <bpabbott@mac.com>
parents:
9008
diff
changeset
|
71 pclose (plot_stream(2)); |
dd5725531732
gnuplot_drawnow.m: When printing, pass scalar plot_stream to __gnuplot_draw_figure__, and close all plot streams when done.
Ben Abbott <bpabbott@mac.com>
parents:
9008
diff
changeset
|
72 endif |
7408 | 73 endif |
74 if (! isempty (fid)) | |
75 fclose (fid); | |
76 endif | |
77 end_unwind_protect | |
78 elseif (nargin == 1) | |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
79 ## Graphics terminal for display. |
8249 | 80 plot_stream = get (h, "__plot_stream__"); |
7408 | 81 if (isempty (plot_stream)) |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
82 plot_stream = open_gnuplot_stream (2, h); |
8789
d9bff42fec43
gnuplot_drawnow.m: Only close the gnuplot window and send position/size info when the figure's position property has changed.
Ben Abbott <bpabbott@mac.com>
parents:
8762
diff
changeset
|
83 new_stream = true; |
d9bff42fec43
gnuplot_drawnow.m: Only close the gnuplot window and send position/size info when the figure's position property has changed.
Ben Abbott <bpabbott@mac.com>
parents:
8762
diff
changeset
|
84 else |
d9bff42fec43
gnuplot_drawnow.m: Only close the gnuplot window and send position/size info when the figure's position property has changed.
Ben Abbott <bpabbott@mac.com>
parents:
8762
diff
changeset
|
85 new_stream = false; |
7408 | 86 endif |
8789
d9bff42fec43
gnuplot_drawnow.m: Only close the gnuplot window and send position/size info when the figure's position property has changed.
Ben Abbott <bpabbott@mac.com>
parents:
8762
diff
changeset
|
87 enhanced = gnuplot_set_term (plot_stream (1), new_stream, h); |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
88 __go_draw_figure__ (h, plot_stream (1), enhanced, mono, 0); |
7680
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
89 fflush (plot_stream (1)); |
7408 | 90 else |
91 print_usage (); | |
92 endif | |
93 | |
94 endfunction | |
95 | |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
96 function implicit_margin = gnuplot_implicit_margin (term, opts_str) |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
97 ## gnuplot has an implicit margin of 50pts for PS output. |
8901
821f0242e8c1
gnuplot_drawnow.m: Fix unintended shift of plot image for the gnuplot postscript+eps terminal.
Ben Abbott <bpabbott@mac.com>
parents:
8889
diff
changeset
|
98 if (strcmpi (term, "postscript")) |
821f0242e8c1
gnuplot_drawnow.m: Fix unintended shift of plot image for the gnuplot postscript+eps terminal.
Ben Abbott <bpabbott@mac.com>
parents:
8889
diff
changeset
|
99 if (isempty (strfind (opts_str, " eps")) |
821f0242e8c1
gnuplot_drawnow.m: Fix unintended shift of plot image for the gnuplot postscript+eps terminal.
Ben Abbott <bpabbott@mac.com>
parents:
8889
diff
changeset
|
100 && isempty (strfind (opts_str, "eps "))) |
821f0242e8c1
gnuplot_drawnow.m: Fix unintended shift of plot image for the gnuplot postscript+eps terminal.
Ben Abbott <bpabbott@mac.com>
parents:
8889
diff
changeset
|
101 implicit_margin = 50/72; |
821f0242e8c1
gnuplot_drawnow.m: Fix unintended shift of plot image for the gnuplot postscript+eps terminal.
Ben Abbott <bpabbott@mac.com>
parents:
8889
diff
changeset
|
102 else |
821f0242e8c1
gnuplot_drawnow.m: Fix unintended shift of plot image for the gnuplot postscript+eps terminal.
Ben Abbott <bpabbott@mac.com>
parents:
8889
diff
changeset
|
103 ## When zero, the behavior of gnuplot changes. |
821f0242e8c1
gnuplot_drawnow.m: Fix unintended shift of plot image for the gnuplot postscript+eps terminal.
Ben Abbott <bpabbott@mac.com>
parents:
8889
diff
changeset
|
104 implicit_margin = 1/72; |
821f0242e8c1
gnuplot_drawnow.m: Fix unintended shift of plot image for the gnuplot postscript+eps terminal.
Ben Abbott <bpabbott@mac.com>
parents:
8889
diff
changeset
|
105 endif |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
106 else |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
107 implicit_margin = 0.0; |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
108 endif |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
109 endfunction |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
110 |
8789
d9bff42fec43
gnuplot_drawnow.m: Only close the gnuplot window and send position/size info when the figure's position property has changed.
Ben Abbott <bpabbott@mac.com>
parents:
8762
diff
changeset
|
111 function plot_stream = open_gnuplot_stream (npipes, h) |
7408 | 112 cmd = gnuplot_binary (); |
7680
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
113 if (npipes > 1) |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
114 [plot_stream(1), plot_stream(2), pid] = popen2 (cmd); |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
115 if (pid < 0) |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
116 error ("drawnow: failed to open connection to gnuplot"); |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
117 endif |
7408 | 118 else |
7680
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
119 plot_stream = popen (cmd, "w"); |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
120 if (plot_stream < 0) |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
121 error ("drawnow: failed to open connection to gnuplot"); |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
122 endif |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
123 endif |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
124 if (! isempty (h)) |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
125 set (h, "__plot_stream__", plot_stream); |
a0ec02774303
Use popen2 for communication with gnuplot
David Bateman <dbateman@free.fr>
parents:
7408
diff
changeset
|
126 endif |
7408 | 127 endfunction |
128 | |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
129 function [enhanced, implicit_margin] = gnuplot_set_term (plot_stream, new_stream, h, term, file) |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
130 ## Generate the gnuplot "set terminal <term> ..." command. Include |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
131 ## the subset of properties "position", "units", "paperposition", |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
132 ## "paperunits", "name", and "numbertitle". When "term" originates |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
133 ## from print.m, it may include gnuplot terminal options. |
8793
4c989d52f35c
gnuplot_drawnow.m (gnuplot_set_term): adjust nargin checks for new signature
John W. Eaton <jwe@octave.org>
parents:
8789
diff
changeset
|
134 if (nargin < 4) |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
135 ## This supports the gnuplot backend. |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
136 term = gnuplot_default_term (); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
137 opts_str = ""; |
7408 | 138 else |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
139 ## Get the one word terminal id and save the remaining as options to |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
140 ## be passed on to gnuplot. The terminal may respect the backend. |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
141 [term, opts_str] = gnuplot_trim_term (term); |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
142 if (strcmpi (term, "pdf") && strcmpi (opts_str, "color")) |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
143 ## FIXME -- "color" for the pdf terminal produces a gnuplot error. |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
144 opts_str = ""; |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
145 endif |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
146 endif |
7408 | 147 |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
148 implicit_margin = gnuplot_implicit_margin (term, opts_str); |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
149 |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
150 enhanced = gnuplot_is_enhanced_term (term); |
7408 | 151 |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
152 ## Set the terminal. |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
153 if (! isempty (term)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
154 |
7408 | 155 if (enhanced) |
156 enh_str = "enhanced"; | |
157 else | |
158 enh_str = ""; | |
159 endif | |
160 | |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
161 if (! isempty (h) && isfigure (h)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
162 |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
163 ## Generate gnuoplot title string for backend plot windows. |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
164 if (output_to_screen (term)) |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
165 fig.numbertitle = get (h, "numbertitle"); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
166 fig.name = get (h, "name"); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
167 if (strcmpi (get (h, "numbertitle"), "on")) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
168 title_str = sprintf ("Figure %d", h); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
169 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
170 title_str = ""; |
8610
85c9906abfd1
use endif and endfor instead of end
John W. Eaton <jwe@octave.org>
parents:
8530
diff
changeset
|
171 endif |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
172 if (! isempty (fig.name) && ! isempty (title_str)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
173 title_str = sprintf ("%s: %s", title_str, fig.name); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
174 elseif (! isempty (fig.name) && isempty (title_str)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
175 title_str = fig.name; |
8610
85c9906abfd1
use endif and endfor instead of end
John W. Eaton <jwe@octave.org>
parents:
8530
diff
changeset
|
176 endif |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
177 if (! isempty (title_str)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
178 title_str = sprintf ("title \"%s\"", title_str); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
179 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
180 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
181 title_str = ""; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
182 endif |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
183 if (! (any (strfind (opts_str, " size ") > 0) |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
184 || any (strfind (opts_str, "size ") == 1))) |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
185 ## Convert position to units used by gnuplot. |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
186 if (output_to_screen (term)) |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
187 ## Get figure size in pixels. |
8638
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
188 [gnuplot_size, gnuplot_pos] = get_figsize (h); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
189 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
190 ## Get size of the printed plot in inches. |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
191 gnuplot_size = get_papersize (h); |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
192 if (term_units_are_pixels (term)) |
9107
d0d507cbd123
Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents:
9055
diff
changeset
|
193 ## Convert to inches using the property set by print(). |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
194 gnuplot_size = gnuplot_size * get (h, "__pixels_per_inch__"); |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
195 else |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
196 ## Implicit margins are in units of "inches" |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
197 gnuplot_size = gnuplot_size - implicit_margin; |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
198 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
199 endif |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
200 [begin_match, end_match, te, match] = regexp (opts_str, "(\\s-r\\d+)|(^-r\\d+)"); |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
201 if (! isempty (begin_match)) |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
202 error ("gnuplot_drawnow.m: specifying resultion, '%s', not supported for terminal '%s'", |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
203 strtrim (match{1}), term) |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
204 endif |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
205 if (all (gnuplot_size > 0)) |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
206 ## Set terminal size. |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
207 terminals_with_size = {"emf", "gif", "jpeg", "latex", "pbm", ... |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
208 "pdf", "png", "postscript", "svg", "wxt", ... |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
209 "epslatex", "pstex", "pslatex"}; |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
210 if (__gnuplot_has_feature__ ("x11_figure_position")) |
8638
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
211 terminals_with_size{end+1} = "x11"; |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
212 endif |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
213 if (any (strncmpi (term, terminals_with_size, 3))) |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
214 if (term_units_are_pixels (term)) |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
215 size_str = sprintf ("size %d,%d", gnuplot_size(1), gnuplot_size(2)); |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
216 else |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
217 size_str = sprintf ("size %.15g,%.15g", gnuplot_size(1), gnuplot_size(2)); |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
218 endif |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
219 if (strncmpi (term, "X11", 3) && __gnuplot_has_feature__ ("x11_figure_position")) |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
220 ## X11 allows the window to be positioned as well. |
8638
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
221 screen_size = get (0, "screensize")(3:4); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
222 if (all (screen_size > 0)) |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
223 ## For X11, set the figure positon as well as the size |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
224 ## gnuplot position is UL, Octave's is LL (same for screen/window) |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
225 gnuplot_pos(2) = screen_size(2) - gnuplot_pos(2) - gnuplot_size(2); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
226 gnuplot_pos = max (gnuplot_pos, 1); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
227 size_str = sprintf ("%s position %d,%d", size_str, |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
228 gnuplot_pos(1), gnuplot_pos(2)); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
229 endif |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
230 endif |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
231 elseif (strncmpi (term, "aqua", 3)) |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
232 ## Aqua has size, but the format is different. |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
233 size_str = sprintf ("size %d %d", gnuplot_size(1), gnuplot_size(2)); |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
234 elseif (strncmpi (term, "fig", 3)) |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
235 ## Fig also has size, but the format is different. |
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
236 size_str = sprintf ("size %.15g %.15g", gnuplot_size(1), gnuplot_size(2)); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
237 elseif (any (strncmpi (term, {"corel", "hpgl"}, 3))) |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
238 ## The size for corel and hpgl are goes at the end (implicit). |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
239 size_str = sprintf ("%.15g %.15g",gnuplot_size(1), gnuplot_size(2)); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
240 elseif (any (strncmpi (term, {"dxf"}, 3))) |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
241 ## DXF uses autocad units. |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
242 size_str = ""; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
243 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
244 size_str = ""; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
245 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
246 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
247 size_str = ""; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
248 warning ("gnuplot_set_term: size is zero") |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
249 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
250 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
251 ## A specified size take priority over the figure properies. |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
252 size_str = ""; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
253 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
254 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
255 if isempty (h) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
256 disp ("gnuplot_set_term: figure handle is empty") |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
257 elseif !isfigure(h) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
258 disp ("gnuplot_set_term: not a figure handle") |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
259 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
260 title_str = ""; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
261 size_str = ""; |
7408 | 262 endif |
263 | |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
264 ## Set the gnuplot terminal (type, enhanced?, title, & size). |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
265 if (! isempty (term)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
266 term_str = sprintf ("set terminal %s", term); |
8789
d9bff42fec43
gnuplot_drawnow.m: Only close the gnuplot window and send position/size info when the figure's position property has changed.
Ben Abbott <bpabbott@mac.com>
parents:
8762
diff
changeset
|
267 if (any (strncmpi (term, {"x11", "wxt"}, 3)) && new_stream |
8638
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
268 && __gnuplot_has_feature__ ("x11_figure_position")) |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
269 ## The "close" is added to allow the figure position property |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
270 ## to remain active. |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
271 term_str = sprintf ("%s close", term_str); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
272 endif |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
273 if (! isempty (enh_str)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
274 term_str = sprintf ("%s %s", term_str, enh_str); |
8610
85c9906abfd1
use endif and endfor instead of end
John W. Eaton <jwe@octave.org>
parents:
8530
diff
changeset
|
275 endif |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
276 if (! isempty (title_str)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
277 term_str = sprintf ("%s %s", term_str, title_str); |
8610
85c9906abfd1
use endif and endfor instead of end
John W. Eaton <jwe@octave.org>
parents:
8530
diff
changeset
|
278 endif |
9107
d0d507cbd123
Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents:
9055
diff
changeset
|
279 if (nargin > 3 && ischar (opts_str)) |
d0d507cbd123
Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents:
9055
diff
changeset
|
280 ## Options must go last. |
d0d507cbd123
Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents:
9055
diff
changeset
|
281 term_str = sprintf ("%s %s", term_str, opts_str); |
d0d507cbd123
Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents:
9055
diff
changeset
|
282 endif |
8789
d9bff42fec43
gnuplot_drawnow.m: Only close the gnuplot window and send position/size info when the figure's position property has changed.
Ben Abbott <bpabbott@mac.com>
parents:
8762
diff
changeset
|
283 if (! isempty (size_str) && new_stream) |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
284 ## size_str goes last to permit specification of canvas size |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
285 ## for terminals cdr/corel. |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
286 term_str = sprintf ("%s %s", term_str, size_str); |
8610
85c9906abfd1
use endif and endfor instead of end
John W. Eaton <jwe@octave.org>
parents:
8530
diff
changeset
|
287 endif |
9107
d0d507cbd123
Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents:
9055
diff
changeset
|
288 fprintf (plot_stream, "%s\n", term_str); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
289 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
290 ## gnuplot will pick up the GNUTERM environment variable itself |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
291 ## so no need to set the terminal type if not also setting the |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
292 ## figure title, enhanced mode, or position. |
8610
85c9906abfd1
use endif and endfor instead of end
John W. Eaton <jwe@octave.org>
parents:
8530
diff
changeset
|
293 endif |
7408 | 294 endif |
295 | |
8793
4c989d52f35c
gnuplot_drawnow.m (gnuplot_set_term): adjust nargin checks for new signature
John W. Eaton <jwe@octave.org>
parents:
8789
diff
changeset
|
296 if (nargin == 5) |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
297 if (! isempty (file)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
298 fprintf (plot_stream, "set output \"%s\";\n", file); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
299 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
300 endif |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
301 |
7408 | 302 endfunction |
303 | |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
304 function term = gnuplot_default_term () |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
305 term = getenv ("GNUTERM"); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
306 ## If not specified, guess the terminal type. |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
307 if (isempty (term)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
308 if (ismac ()) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
309 term = "aqua"; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
310 elseif (! isunix ()) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
311 term = "windows"; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
312 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
313 term = "x11"; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
314 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
315 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
316 endfunction |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
317 |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
318 function [term, opts] = gnuplot_trim_term (string) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
319 ## Extract the terminal type and terminal options (from print.m) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
320 string = deblank (string); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
321 n = strfind (string, ' '); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
322 if (isempty (n)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
323 term = string; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
324 opts = ""; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
325 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
326 term = string(1:(n-1)); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
327 opts = string((n+1):end); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
328 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
329 endfunction |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
330 |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
331 function have_enhanced = gnuplot_is_enhanced_term (term) |
7408 | 332 persistent enhanced_terminals; |
333 if (isempty (enhanced_terminals)) | |
334 ## Don't include pstex, pslatex or epslatex here as the TeX commands | |
335 ## should not be interpreted in that case. | |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
336 enhanced_terminals = {"aqua", "dumb", "png", "jpeg", "gif", "pm", ... |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
337 "windows", "wxt", "svg", "postscript", "x11", "pdf"}; |
7408 | 338 endif |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
339 if (nargin < 1) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
340 ## Determine the default gnuplot terminal. |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
341 term = gnuplot_default_term (); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
342 endif |
7408 | 343 have_enhanced = false; |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
344 for n = 1 : length (enhanced_terminals) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
345 t = enhanced_terminals{n}; |
7408 | 346 if (strncmp (term, t, min (length (term), length (t)))) |
347 have_enhanced = true; | |
348 break; | |
349 endif | |
350 endfor | |
351 endfunction | |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
352 |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
353 function ret = output_to_screen (term) |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
354 ret = any (strcmpi ({"aqua", "wxt", "x11", "windows", "pm"}, term)); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
355 endfunction |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
356 |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
357 function ret = term_units_are_pixels (term) |
9107
d0d507cbd123
Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents:
9055
diff
changeset
|
358 ret = any (strcmpi ({"emf", "gif", "jpeg", "pbm", "png", "svg"}, term)); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
359 endfunction |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
360 |
8638
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
361 function [fig_size, fig_pos] = get_figsize (h) |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
362 ## Determine the size of the figure in pixels. |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
363 position = get (h, "position"); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
364 units = get (h, "units"); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
365 t.inches = 1; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
366 t.centimeters = 2.54; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
367 t.pixels = get (0, "screenpixelsperinch"); |
8638
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
368 ## gnuplot treats pixels/points for the screen the same (?). |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
369 t.points = t.pixels; |
8638
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
370 screensize = get (0, "screensize")(3:4); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
371 t.normalized = screensize / t.pixels; |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
372 fig_size = position(3:4) * (t.pixels / t.(units)); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
373 fig_pos = position(1:2) * (t.pixels / t.(units)); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
374 fig_pos(1) = max (min (fig_pos(1), screensize(1)), 10); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
375 fig_pos(2) = max (min (fig_pos(2), screensize(2)), 10); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
376 fig_size(1) = max (min (fig_size(1), screensize(1)), 10-fig_pos(1)); |
20e93feaa7f8
gnuplot_drawnow.m: gnuplot_drawnow.m: respect x11 figure position property
Ben Abbott <bpabbott@mac.com>
parents:
8624
diff
changeset
|
377 fig_size(2) = max (min (fig_size(2), screensize(2)), 10-fig_pos(2)); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
378 endfunction |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
379 |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
380 function papersize = get_papersize (h) |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
381 ## Returns the papersize in inches |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8813
diff
changeset
|
382 ## FIXME - a listener should hanlde this. |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
383 persistent papertypes papersizes |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
384 if (isempty (papertypes)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
385 papertypes = {"usletter", "uslegal", ... |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
386 "a0", "a1", "a2", "a3", "a4", "a5", ... |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
387 "b0", "b1", "b2", "b3", "b4", "b5", ... |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
388 "arch-a", "arch-b", "arch-c", "arch-d", "arch-e", ... |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
389 "a", "b", "c", "d", "e", ... |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
390 "tabloid", "<custom>"}; |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
391 papersizes = [ 8.500, 11.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
392 8.500, 14.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
393 33.135, 46.847; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
394 23.404, 33.135; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
395 16.548, 23.404; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
396 11.694, 16.528; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
397 8.268, 11.693; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
398 5.847, 8.264; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
399 40.543, 57.366; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
400 28.683, 40.503; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
401 20.252, 28.683; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
402 14.342, 20.252; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
403 10.126, 14.342; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
404 7.171, 10.126; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
405 9.000, 12.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
406 12.000, 18.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
407 18.000, 24.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
408 24.000, 36.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
409 36.000, 48.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
410 8.500, 11.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
411 11.000, 17.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
412 17.000, 22.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
413 22.000, 34.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
414 34.000, 44.000; |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
415 11.000, 17.000; |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
416 8.500, 11.000]; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
417 ## <custom> has a page size since we're not doing any checking here. |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
418 papersizes = round (1000 * papersizes); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
419 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
420 |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
421 paperunits = get (h, "paperunits"); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
422 if (strcmpi (paperunits, "normalized")) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
423 papertype = get (h, "papertype"); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
424 n = find (strcmpi (papertypes, papertype)); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
425 papersize = 0.001 * papersizes(n, :); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
426 paperunits = "inches"; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
427 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
428 t.points = 72; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
429 t.centimeters = 2.54; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
430 t.inches = 1.00; |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
431 ## FIXME -- this papersize/type administration should be done at a |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
432 ## lower level. |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
433 if (strcmpi (get (h, "papertype"), "<custom>")) |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
434 ## If the type is custom but the size is a standard, then set the |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
435 ## standard type. |
8762
2476ce55d4b5
typo in gnuplot_drawnow.m
Jaroslav Hajek <highegg@gmail.com>
parents:
8638
diff
changeset
|
436 papersize = get (h, "papersize"); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
437 papersize = papersize * t.(paperunits); |
8624
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
438 n = find (all ((ones ([size(papersizes, 1), 1]) |
ff7d90d92db8
gnuplot_drawnow.m: style fixes.
Ben Abbott <bpabbott@mac.com>
parents:
8610
diff
changeset
|
439 * round (1000*papersize) - papersizes) == 0, 2)); |
8356
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
440 if (! isempty (n)) |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
441 set (h, "papertype", papertypes{n}); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
442 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
443 else |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
444 papertype = get (h, "papertype"); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
445 n = find (strcmpi (papertypes, papertype)); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
446 papersize = papersizes(n,:) * 0.001; |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
447 set (h, "papersize", papersize * t.(paperunits)); |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
448 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
449 endif |
d750feaefa8e
gnuplot_drawnow.m: Add support of properites to gp backend.
Ben Abbott <bpabbott@mac.com>
parents:
8249
diff
changeset
|
450 endfunction |