Mercurial > hg > octave-nkf

annotate scripts/plot/__gnuplot_print__.m @ 10854:d5a7db05d591

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add PS and PDF output for the fltk backend.
author Ben Abbott <bpabbott@mac.com>
date Wed, 04 Aug 2010 20:32:49 -0400
parents 05ba991794d4
children dd6b90f44ae5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
8920
eb63fbe60fab update copyright notices
John W. Eaton <jwe@octave.org>
parents: 8889
diff changeset
1 ## Copyright (C) 1999, 2005, 2006, 2007, 2008, 2009 Daniel Heiserer
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
2 ## Copyright (C) 2001 Laurent Mazet
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
3 ##
5362
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe]
jwe
parents: 5361
diff changeset
4 ## This file is part of Octave.
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe]
jwe
parents: 5361
diff changeset
5 ##
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe]
jwe
parents: 5361
diff changeset
6 ## Octave is free software; you can redistribute it and/or modify it
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe]
jwe
parents: 5361
diff changeset
7 ## under the terms of the GNU General Public License as published by
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6965
diff changeset
8 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6965
diff changeset
9 ## your option) any later version.
5362
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe]
jwe
parents: 5361
diff changeset
10 ##
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe]
jwe
parents: 5361
diff changeset
11 ## Octave is distributed in the hope that it will be useful, but
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe]
jwe
parents: 5361
diff changeset
12 ## WITHOUT ANY WARRANTY; without even the implied warranty of
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe]
jwe
parents: 5361
diff changeset
13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe]
jwe
parents: 5361
diff changeset
14 ## General Public License for more details.
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
15 ##
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
16 ## You should have received a copy of the GNU General Public License
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6965
diff changeset
17 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6965
diff changeset
18 ## <http://www.gnu.org/licenses/>.
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
19
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
20 ## -*- texinfo -*-
10793
be55736a0783 Grammarcheck the documentation from m-files.
Rik <octave@nomad.inbox5.com>
parents: 10789
diff changeset
21 ## @deftypefn {Function File} {} __gnuplot_ginput__ (@var{@dots{}})
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
22 ## Undocumented internal function.
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
23 ## @end deftypefn
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
24
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
25 ## Author: Daniel Heiserer <Daniel.heiserer@physik.tu-muenchen.de>
5362
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe]
jwe
parents: 5361
diff changeset
26 ## Adapted-By: jwe
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
27
10854
d5a7db05d591 Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents: 10834
diff changeset
28 function __gnuplot_print__ (opts)
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
29
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
30 persistent warn_on_inconsistent_orientation = true
9847
131d8c70920a print.m: Properly set the default ghostscript_binary under Windows.
Ben Abbott <bpabbott@mac.com>
parents: 9758
diff changeset
31
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
32 old_fig = get (0, "currentfigure");
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
33 unwind_protect
10834
05ba991794d4 Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents: 10793
diff changeset
34 have_ghostscript = ! isempty (opts.ghostscript_binary);
9157
fce7315c1eee print.m: Fix typo, improvments to code, and allow for creation of tight bbox.
Ben Abbott <bpabbott@mac.com>
parents: 9152
diff changeset
35
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
36 doprint = isempty (opts.name);
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
37 if (doprint)
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
38 if (isempty (opts.devopt))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
39 if (opts.use_color < 0)
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
40 opts.devopt = "ps";
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
41 printname = cstrcat (tmpnam, ".ps");
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
42 else
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
43 opts.devopt = "psc";
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
44 printname = cstrcat (tmpnam, ".psc");
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
45 endif
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
46 else
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
47 printname = cstrcat (tmpnam, ".", devopt);
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
48 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
49 opts.name = printname;
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
50 endif
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
51
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
52 dot = rindex (opts.name, ".");
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
53 if (isempty (opts.devopt))
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
54 if (dot == 0)
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
55 error ("print: no format specified");
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
56 else
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
57 dev = tolower (opts.name(dot+1:end));
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
58 endif
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
59 else
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
60 dev = opts.devopt;
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
61 endif
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
62
10472
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
63 dev_list = {"aifm", "corel", "fig", "png", "jpeg", ...
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
64 "gif", "pbm", "dxf", "mf", "svg", "hpgl", ...
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
65 "ps", "ps2", "psc", "psc2", "eps", "eps2", ...
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
66 "epsc", "epsc2", "emf", "pdf", "pslatex", ...
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
67 "epslatex", "epslatexstandalone", "pstex", "tikz"};
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
68 suffixes = {"ai", "cdr", "fig", "png", "jpeg", ...
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
69 "gif", "pbm", "dxf", "mf", "svg", "hpgl", ...
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
70 "ps", "ps", "ps", "ps", "eps", "eps", ...
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
71 "eps", "eps", "emf", "pdf", "tex", ...
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
72 "tex", "tex", "tex", "tikz"};
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
73 if (dot == 0)
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
74 opts.name = strcat (opts.name, ".", suffixes {strcmpi (dev_list, dev)});
10472
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
75 dot = rindex (name, ".");
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
76 endif
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
77
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
78 if (opts.append_to_file)
10423
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
79 if (any (strcmpi (dev, {"ps", "ps2", "psc", "psc2", "pdf"})))
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
80 if (have_ghostscript)
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
81 file_exists = ((numel (dir (opts.name)) == 1) && (! isdir (opts.name)));
10423
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
82 if (! file_exists)
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
83 opts.append_to_file = 0;
10423
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
84 end
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
85 end
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
86 else
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
87 warning ("print.m: appended output is not supported for device '%s'", dev)
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
88 opts.append_to_file = 0;
10423
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
89 endif
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
90 endif
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
91
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
92 if (strcmp (dev, "tex"))
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
93 dev = "epslatex";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
94 elseif (strcmp (dev, "ill"))
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
95 dev = "aifm";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
96 elseif (strcmp (dev, "cdr"))
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
97 dev = "corel";
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
98 elseif (strcmp (dev, "meta"))
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
99 dev = "emf";
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
100 elseif (strcmp (dev, "jpg"))
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
101 dev = "jpeg";
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
102 endif
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
103
10472
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
104 if (strcmp (dev, "epslatex"))
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
105 ## gnuplot 4.0 wants ".eps" in the output name
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
106 if (! __gnuplot_has_feature__ ("epslatex_implies_eps_filesuffix"))
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
107 opts.name = cstrcat (name(1:dot), "eps");
10472
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
108 endif
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
109 endif
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
110
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
111 ## Check if the specified device is one that is supported by gnuplot.
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
112 ## If not, assume it is a device/format supported by Ghostscript.
9337
878df7c11e3d print.m: Fix logic associated with 'have_ghostscript'.
Ben Abbott <bpabbott@mac.com>
parents: 9334
diff changeset
113 if (! any (strcmp (dev, dev_list)) && have_ghostscript)
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
114 ghostscript_output = opts.name;
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
115 ghostscript_device = dev;
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
116 if (doprint)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
117 ## If printing, use color postscript.
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
118 dev = "psc";
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
119 opts.name = cstrcat (tmpnam, ".ps");
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
120 else
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
121 ## If saving to a file, use color encapsulated postscript.
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
122 dev = "epsc";
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
123 opts.name = cstrcat (tmpnam, ".eps");
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
124 endif
10472
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
125 elseif (doprint && all (! strcmpi (suffixes {strcmpi (dev_list, dev)},
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
126 {"ps", "eps", "hpgl"})))
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
127 ## When not using Ghostscript, verify the format is compatible with
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
128 ## hard copy output.
944aa97069ed print.m: Provide default suffixes & validate hardcopy format.
Ben Abbott <bpabbott@mac.com>
parents: 10423
diff changeset
129 error ("print: missing file name, or invalid print format.");
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
130 else
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
131 ghostscript_output = "";
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
132 endif
5363
37f62a7778c2 [project @ 2005-05-23 19:52:15 by jwe]
jwe
parents: 5362
diff changeset
133
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
134 termn = dev;
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
135
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
136 ## SVG isn't actually a bitmap, but gnuplot treats its size option as it
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
137 ## does the bitmap terminals.
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
138 bitmap_devices = {"emf", "gif", "jpeg", "pbm", "png", "svg"};
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
139
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
140 if (any (strcmp (dev, {"ps", "ps2", "psc", "psc2", "epsc", "epsc2", ...
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
141 "eps", "eps2", "pstex", "pslatex", "epslatex", ...
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
142 "epslatexstandalone"})))
6727
3d1e0a056e6e [project @ 2007-06-14 20:45:10 by jwe]
jwe
parents: 6272
diff changeset
143
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
144 ## Various postscript options
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
145 if (any (strcmp (dev, {"pstex", "pslatex", "epslatex"})))
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
146 options = "";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
147 elseif (strcmp (dev, "epslatexstandalone"))
8639
399af34bb4bf # User Ben Abbott <bpabbott@mac.com>
John W. Eaton <jwe@octave.org>
parents: 8239
diff changeset
148 if (__gnuplot_has_feature__ ("epslatexstandalone_terminal"))
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
149 termn = "epslatex";
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
150 options = "standalone ";
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
151 else
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
152 error ("print: epslatexstandalone needs gnuplot 4.2 or higher");
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
153 endif
6727
3d1e0a056e6e [project @ 2007-06-14 20:45:10 by jwe]
jwe
parents: 6272
diff changeset
154 else
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
155 if (dev(1) == "e")
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
156 options = "eps ";
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
157 else
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
158 options = "";
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
159 endif
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
160 termn = "postscript";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
161 endif
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
162
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
163 if (any (dev == "c") || opts.use_color > 0
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
164 || (! isempty (strfind (dev, "tex")) && opts.use_color == 0))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
165 opts.use_color = 1;
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
166 else
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
167 opts.use_color = -1;
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
168 endif
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
169
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
170 if (opts.use_color > 0)
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
171 if (opts.force_solid < 0)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
172 options = cstrcat (options, "color dashed ");
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
173 else
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
174 options = cstrcat (options, "color solid ");
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
175 endif
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
176 else
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
177 if (opts.force_solid > 0)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
178 options = cstrcat (options, "mono solid ");
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
179 else
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
180 options = cstrcat (options, "mono dashed ");
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
181 endif
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
182 endif
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
183
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
184 if (! isempty (opts.font))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
185 options = cstrcat (options, "\"", opts.font, "\" ");
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
186 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
187 if (! isempty (opts.fontsize))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
188 options = cstrcat (options, " ", opts.fontsize);
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
189 endif
9468
5af462716bff Add support for gnuplot's Lua-TikZ terminal.
Ben Abbott <bpabbott@mac.com>
parents: 9393
diff changeset
190
5af462716bff Add support for gnuplot's Lua-TikZ terminal.
Ben Abbott <bpabbott@mac.com>
parents: 9393
diff changeset
191 elseif (strcmp (dev, "tikz"))
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
192 if (! isempty (font) && ! isempty (opts.fontsize))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
193 options = cstrcat (options, "\"", opts.font, ",", opts.fontsize, "\" ");
9468
5af462716bff Add support for gnuplot's Lua-TikZ terminal.
Ben Abbott <bpabbott@mac.com>
parents: 9393
diff changeset
194 elseif (! isempty (font))
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
195 options = cstrcat (options, "\"", opts.font, "\" ");
9468
5af462716bff Add support for gnuplot's Lua-TikZ terminal.
Ben Abbott <bpabbott@mac.com>
parents: 9393
diff changeset
196 else
5af462716bff Add support for gnuplot's Lua-TikZ terminal.
Ben Abbott <bpabbott@mac.com>
parents: 9393
diff changeset
197 options = "";
5af462716bff Add support for gnuplot's Lua-TikZ terminal.
Ben Abbott <bpabbott@mac.com>
parents: 9393
diff changeset
198 endif
5af462716bff Add support for gnuplot's Lua-TikZ terminal.
Ben Abbott <bpabbott@mac.com>
parents: 9393
diff changeset
199
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
200 elseif (strcmp (dev, "aifm") || strcmp (dev, "corel"))
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
201 ## Adobe Illustrator, CorelDraw
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
202 if (opts.use_color >= 0)
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
203 options = " color";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
204 else
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
205 options = " mono";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
206 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
207 if (! isempty (opts.font))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
208 options = cstrcat (options, " \"", opts.font, "\"");
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
209 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
210 if (! isempty (opts.fontsize))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
211 options = cstrcat (options, " ", opts.fontsize);
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
212 endif
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
213
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
214 elseif (strcmp (dev, "fig"))
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
215 ## XFig
10789
6f640ed5bb93 __gnuplot_print__.m: Fix broken options.
Ben Abbott <bpabbott@mac.com>
parents: 10727
diff changeset
216 options = opts.orientation;
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
217 if (opts.use_color >= 0)
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
218 options = " color";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
219 else
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
220 options = " mono";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
221 endif
10789
6f640ed5bb93 __gnuplot_print__.m: Fix broken options.
Ben Abbott <bpabbott@mac.com>
parents: 10727
diff changeset
222 options = cstrcat (options, " ", opts.special_flag);
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
223 if (! isempty (opts.fontsize))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
224 options = cstrcat (options, " fontsize ", opts.fontsize);
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
225 endif
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
226
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
227 elseif (strcmp (dev, "emf"))
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
228 ## Enhanced Metafile format
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
229 options = " ";
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
230 if (opts.use_color >= 0)
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
231 options = " color";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
232 else
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
233 options = " mono";
6727
3d1e0a056e6e [project @ 2007-06-14 20:45:10 by jwe]
jwe
parents: 6272
diff changeset
234 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
235 if (opts.force_solid >= 0)
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
236 options = cstrcat (options, " solid");
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
237 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
238 if (! isempty (opts.font))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
239 options = cstrcat (options, " \"", opts.font, "\"");
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
240 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
241 if (! isempty (opts.fontsize))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
242 options = cstrcat (options, " ", opts.fontsize);
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
243 endif
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
244
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
245 elseif (any (strcmp (dev, bitmap_devices)))
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
246
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
247 if (isempty (opts.canvas_size) && isempty (opts.resolution)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
248 && any (strcmp (dev, {"pbm", "gif", "jpeg", "png"})))
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
249 options = "";
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
250 elseif (strcmp (dev, "svg"))
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
251 ## Referring to size, either "dynamic" or "fixed"
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
252 options = "fixed";
6727
3d1e0a056e6e [project @ 2007-06-14 20:45:10 by jwe]
jwe
parents: 6272
diff changeset
253 else
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
254 options = "";
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
255 end
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
256 if (! isempty (opts.canvas_size))
10854
d5a7db05d591 Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents: 10834
diff changeset
257 options = sprintf ("%s size %d, %d", options, opts.canvas_size);
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
258 endif
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
259
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
260 elseif (any (strcmp (dev, {"dxf", "mf", "hpgl"})))
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
261 ## AutoCad DXF, METAFONT, HPGL
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
262 options = "";
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
263
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
264 elseif (strcmp (dev, "pdf"))
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
265 ## Portable Document format
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
266 options = " ";
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
267 if (opts.use_color >= 0)
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
268 options = "color";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
269 else
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
270 options = "mono";
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
271 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
272 if (opts.force_solid >= 0)
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
273 options = cstrcat (options, " solid");
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
274 elseif (opts.force_solid < 0)
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
275 options = cstrcat (options, " dashed");
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
276 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
277 if (! isempty (opts.font))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
278 options = cstrcat (options, "\"", opts.font, "\" ");
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
279 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
280 if (! isempty (opts.fontsize))
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
281 options = cstrcat (options, " ", opts.fontsize);
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
282 endif
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
283
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
284 endif
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
285
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
286 if (__gnuplot_has_feature__ ("variable_GPVAL_TERMINALS"))
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
287 available_terminals = __gnuplot_get_var__ (gcf, "GPVAL_TERMINALS");
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
288 available_terminals = regexp (available_terminals, "\\b\\w+\\b", "match");
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
289 ## Favor the cairo terminals.
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
290 if (strcmp (termn, "pdf")
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
291 && any (strcmp (available_terminals, "pdfcairo")))
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
292 termn = "pdfcairo";
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
293 gnuplot_supports_term = true;
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
294 elseif (strcmp (termn, "png")
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
295 && any (strcmp (available_terminals, "pngcairo")))
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
296 termn = "pngcairo";
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
297 gnuplot_supports_term = true;
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
298 else
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
299 gnuplot_supports_term = any (strcmp (available_terminals, termn));
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
300 endif
9337
878df7c11e3d print.m: Fix logic associated with 'have_ghostscript'.
Ben Abbott <bpabbott@mac.com>
parents: 9334
diff changeset
301 elseif (strcmp (termn, "pdf"))
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
302 ## Some Linux variants do not include a "pdf" capable gnuplot.
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
303 ## To be safe, use Ghostscript.
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
304 if (have_ghostscript)
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
305 gnuplot_supports_term = false;
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
306 ghostscript_device = "pdfwrite";
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
307 else
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
308 gnuplot_supports_term = true;
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
309 endif
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
310 else
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
311 gnuplot_supports_term = true;
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
312 endif
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
313
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
314 if (! gnuplot_supports_term)
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
315 if (strcmp (termn, "pdf"))
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
316 ## If there the installed gnuplot does not support pdf, use Ghostscript.
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
317 ghostscript_device = "pdfwrite";
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
318 if (strfind (opts.name, ".pdf") == numel (opts.name) - 3)
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
319 ghostscript_output = opts.name;
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
320 else
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
321 ghostscript_output = strcat (opts.name, ".pdf");
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
322 endif
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
323 name = cstrcat (tmpnam, ".ps");
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
324 termn = "postscript";
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
325 ## All "options" for pdf work for postscript as well.
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
326 else
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
327 error ("print: the device, \"%s\", is not available.", dev)
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
328 endif
6179
235a1b456cf4 [project @ 2006-11-17 17:33:09 by jwe]
jwe
parents: 6178
diff changeset
329 endif
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
330
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
331 is_eps_file = strncmp (dev, "eps", 3);
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
332 p.units = get (gcf, "units");
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
333 p.paperunits = get (gcf, "paperunits");
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
334 p.papersize = get (gcf, "papersize");
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
335 p.paperposition = get (gcf, "paperposition");
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
336 p.paperpositionmode = get (gcf, "paperpositionmode");
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
337 p.paperorientation = get (gcf, "paperorientation");
10567
79410269cd21 print.m: Set figure color property to 'none' when printing.
Ben Abbott <bpabbott@mac.com>
parents: 10472
diff changeset
338 p.color = get (gcf, "color");
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
339 if (p.papersize(1) > p.papersize(2))
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
340 paperorientation = "landscape";
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
341 else
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
342 paperorientation = "portrait";
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
343 endif
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
344 if (! strcmp (paperorientation, get (gcf, "paperorientation"))
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
345 && warn_on_inconsistent_orientation)
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
346 msg = {"print.m - inconsistent papersize and paperorientation properties.\n",
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
347 sprintf(" papersize = %.2f, %.2f\n", p.papersize),
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
348 sprintf(" paperorientation = \"%s\"\n", p.paperorientation),
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
349 " the paperorientation property has been ignored"};
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
350 warning ("%s",msg{:})
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
351 warn_on_inconsistent_orientation = false;
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
352 endif
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
353
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
354 if (strcmp (termn, "postscript") && ! strncmp (dev, "eps", 3))
10789
6f640ed5bb93 __gnuplot_print__.m: Fix broken options.
Ben Abbott <bpabbott@mac.com>
parents: 10727
diff changeset
355 if (isempty (opts.orientation))
6f640ed5bb93 __gnuplot_print__.m: Fix broken options.
Ben Abbott <bpabbott@mac.com>
parents: 10727
diff changeset
356 opts.orientation = paperorientation;
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
357 endif
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
358 ## This is done here to accommodate ghostscript conversion.
10789
6f640ed5bb93 __gnuplot_print__.m: Fix broken options.
Ben Abbott <bpabbott@mac.com>
parents: 10727
diff changeset
359 options = cstrcat (opts.orientation, " ", options);
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
360 end
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
361
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
362 new_terminal = cstrcat (termn, " ", options);
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
363
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
364 mono = (opts.use_color < 0);
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
365
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
366 terminals_for_prn = {"postscript", "pdf", "pdfcairo"};
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
367 output_for_printer = any (strncmp (termn, terminals_for_prn, numel(termn)));
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
368
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
369 if (isempty (opts.resolution))
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
370 if (any (strcmp (dev, {"emf", "svg"})) || output_for_printer)
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
371 opts.resolution = get (0, "screenpixelsperinch");
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
372 else
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
373 opts.resolution = 150;
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
374 endif
8889
665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents: 8746
diff changeset
375 else
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
376 opts.resolution = str2num (opts.resolution);
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
377 if (opts.resolution == 0)
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
378 opts.resolution = get (0, "screenpixelsperinch");
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
379 endif
8889
665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents: 8746
diff changeset
380 endif
665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents: 8746
diff changeset
381 figure_properties = get (gcf);
665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents: 8746
diff changeset
382 if (! isfield (figure_properties, "__pixels_per_inch__"))
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
383 addproperty ("__pixels_per_inch__", gcf, "double", opts.resolution);
8889
665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents: 8746
diff changeset
384 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
385 set (gcf, "__pixels_per_inch__", opts.resolution)
8889
665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents: 8746
diff changeset
386
9000
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
387 unwind_protect
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
388 set (gcf, "paperunits", "inches");
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
389 set (gcf, "units", "pixels");
10567
79410269cd21 print.m: Set figure color property to 'none' when printing.
Ben Abbott <bpabbott@mac.com>
parents: 10472
diff changeset
390 set (gcf, "color", "none");
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
391 restore_properties = true;
9157
fce7315c1eee print.m: Fix typo, improvments to code, and allow for creation of tight bbox.
Ben Abbott <bpabbott@mac.com>
parents: 9152
diff changeset
392 if ((! output_for_printer || is_eps_file) && ! doprint)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
393 ## If not PDF or PostScript, and the result is not being sent to a printer,
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
394 ## render an image the size of the paperposition box.
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
395 ## Trigger the listener to convert all paper props to inches.
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
396 if (! isempty (opts.canvas_size))
10854
d5a7db05d591 Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents: 10834
diff changeset
397 size_in_pixels = opts.canvas_size;
9056
b06dc393ac42 print.m: For eps output the bounding box should represent the figure's position.
Ben Abbott <bpabbott@mac.com>
parents: 9042
diff changeset
398 size_in_pixels = reshape (size_in_pixels, [1, numel(size_in_pixels)]);
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
399 papersize_in_inches = size_in_pixels ./ opts.resolution;
9056
b06dc393ac42 print.m: For eps output the bounding box should represent the figure's position.
Ben Abbott <bpabbott@mac.com>
parents: 9042
diff changeset
400 paperposition_in_inches = [0, 0, papersize_in_inches];
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
401 else
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
402 paperposition_in_inches = get (gcf, "paperposition");
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
403 paperposition_in_inches(1:2) = 0;
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
404 papersize_in_inches = paperposition_in_inches(3:4);
9056
b06dc393ac42 print.m: For eps output the bounding box should represent the figure's position.
Ben Abbott <bpabbott@mac.com>
parents: 9042
diff changeset
405 endif
b06dc393ac42 print.m: For eps output the bounding box should represent the figure's position.
Ben Abbott <bpabbott@mac.com>
parents: 9042
diff changeset
406 set (gcf, "papersize", papersize_in_inches);
b06dc393ac42 print.m: For eps output the bounding box should represent the figure's position.
Ben Abbott <bpabbott@mac.com>
parents: 9042
diff changeset
407 set (gcf, "paperposition", paperposition_in_inches);
9000
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
408 set (gcf, "paperpositionmode", "manual");
9393
d6c99b2ee941 print.m: reimplement options -landscape and -portrait.
Ben Abbott <bpabbott@mac.com>
parents: 9337
diff changeset
409 else
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
410 if (strcmp (p.paperpositionmode, "auto"))
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
411 size_in_pixels = get (gcf, "position")(3:4);
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
412 paperposition_in_inches(3:4) = size_in_pixels ./ opts.resolution;
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
413 paperposition_in_inches(1:2) = (p.papersize - paperposition_in_inches(3:4))/2;
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
414 else
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
415 paperposition_in_inches = p.paperposition;
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
416 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
417 if (! isempty (opts.orientation) && ! strcmp (opts.orientation, paperorientation))
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
418 ## When -landscape/portrait changes the orientation, flip both the
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
419 ## papersize and paperposition.
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
420 restore_properties = true;
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
421 set (gcf, "papersize", p.papersize([2, 1]));
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
422 set (gcf, "paperposition", paperposition_in_inches([2, 1, 4, 3]));
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
423 else
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
424 set (gcf, "paperposition", paperposition_in_inches);
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
425 endif
9000
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
426 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
427 if (opts.use_color < 0)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
428 [objs_with_color, color_of_objs] = convert_color2mono (gcf);
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
429 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
430 if (opts.append_to_file)
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
431 appended_file_name = opts.name;
10423
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
432 if (index(termn, "pdf"))
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
433 opts.name = cstrcat (tmpnam, ".pdf");
10423
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
434 temp_name = cstrcat (tmpnam, ".pdf");
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
435 ghostscript_device = "pdfwrite";
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
436 else
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
437 opts.name = cstrcat (tmpnam, ".ps");
10423
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
438 temp_name = cstrcat (tmpnam, ".ps");
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
439 ghostscript_device = "pswrite";
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
440 endif
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
441 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
442 if (opts.debug)
10789
6f640ed5bb93 __gnuplot_print__.m: Fix broken options.
Ben Abbott <bpabbott@mac.com>
parents: 10727
diff changeset
443 drawnow (new_terminal, opts.name, mono, opts.debug_file);
9000
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
444 else
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
445 drawnow (new_terminal, opts.name, mono);
9000
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
446 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
447 if (opts.append_to_file)
10423
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
448 ghostscript_options = "-q -dBATCH -dSAFER -dNOPAUSE";
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
449 command = sprintf ("%s %s -sDEVICE=%s -sOutputFile=%s %s %s -q", ...
10834
05ba991794d4 Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents: 10793
diff changeset
450 opts.ghostscript_binary, ghostscript_options, ghostscript_device, ...
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
451 temp_name, appended_file_name, opts.name);
10423
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
452 status1 = system (command);
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
453 status2 = system (sprintf ("mv %s %s", temp_name, appended_file_name));
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
454 if (status1 != 0 || status2 != 0)
10635
d1978e7364ad Print name of function in error() string messages.
Rik <octave@nomad.inbox5.com>
parents: 10567
diff changeset
455 error ("print: output failed to append to '%s'.", appended_file_name);
10423
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
456 endif
dfc662a47b7a print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents: 10422
diff changeset
457 endif
9000
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
458 unwind_protect_cleanup
9056
b06dc393ac42 print.m: For eps output the bounding box should represent the figure's position.
Ben Abbott <bpabbott@mac.com>
parents: 9042
diff changeset
459 ## FIXME - it would be nice to delete "__pixels_per_inch__" property here.
9107
d0d507cbd123 Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents: 9056
diff changeset
460 if (restore_properties)
9000
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
461 props = fieldnames (p);
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
462 for n = 1:numel(props)
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
463 set (gcf, props{n}, p.(props{n}))
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
464 endfor
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
465 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
466 if (opts.use_color < 0)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
467 convert_mono_to_or_from_color (objs_with_color, color_of_objs, false);
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
468 endif
9000
cc916241e811 print.m: Restore the old behavior for -S<num>,<num>.
Ben Abbott <bpabbott@mac.com>
parents: 8920
diff changeset
469 end_unwind_protect
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
470
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
471 if (! isempty (ghostscript_output))
10789
6f640ed5bb93 __gnuplot_print__.m: Fix broken options.
Ben Abbott <bpabbott@mac.com>
parents: 10727
diff changeset
472 if (is_eps_file && opts.tight_flag)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
473 ## If gnuplot's output is an eps-file then crop at the bounding box.
10834
05ba991794d4 Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents: 10793
diff changeset
474 __fix_eps_bbox__ (name);
9157
fce7315c1eee print.m: Fix typo, improvments to code, and allow for creation of tight bbox.
Ben Abbott <bpabbott@mac.com>
parents: 9152
diff changeset
475 endif
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
476 ghostscript_options = "-q -dBATCH -dSAFER -dNOPAUSE -dTextAlphaBits=4";
9157
fce7315c1eee print.m: Fix typo, improvments to code, and allow for creation of tight bbox.
Ben Abbott <bpabbott@mac.com>
parents: 9152
diff changeset
477 if (is_eps_file)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
478 ghostscript_options = sprintf ("%s -dEPSCrop", ghostscript_options);
9157
fce7315c1eee print.m: Fix typo, improvments to code, and allow for creation of tight bbox.
Ben Abbott <bpabbott@mac.com>
parents: 9152
diff changeset
479 endif
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
480 if (isempty (strfind (lower (ghostscript_device), "write")))
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
481 ## If output is a bitmap then include the resolution
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
482 ghostscript_options = sprintf ("%s -r%d", ghostscript_options, opts.resolution);
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
483 endif
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
484 ghostscript_options = sprintf ("%s -sDEVICE=%s", ghostscript_options,
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
485 ghostscript_device);
10834
05ba991794d4 Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents: 10793
diff changeset
486 command = sprintf ("\"%s\" %s -sOutputFile=\"%s\" \"%s\" 2>&1",
05ba991794d4 Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents: 10793
diff changeset
487 opts.ghostscript_binary,
05ba991794d4 Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents: 10793
diff changeset
488 ghostscript_options, ghostscript_output, opts.name);
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
489 [errcode, output] = system (command);
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
490 unlink (name);
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
491 if (errcode)
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
492 error ("print: Conversion failed, %s -> %s.\nError was:\n%s\n",
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
493 name, ghostscript_output, output);
5625
f88f2e35ad6e [project @ 2006-02-15 18:42:22 by jwe]
jwe
parents: 5521
diff changeset
494 endif
10727
570f30a48732 split printing between backends
Shai Ayal <shaiay@users.sourceforge.net>
parents: 10711
diff changeset
495 elseif (is_eps_file && opts.tight_flag && ! doprint)
9157
fce7315c1eee print.m: Fix typo, improvments to code, and allow for creation of tight bbox.
Ben Abbott <bpabbott@mac.com>
parents: 9152
diff changeset
496 ## If the saved output file is an eps file, use ghostscript to set a tight bbox.
fce7315c1eee print.m: Fix typo, improvments to code, and allow for creation of tight bbox.
Ben Abbott <bpabbott@mac.com>
parents: 9152
diff changeset
497 ## This may result in a smaller or larger bbox geometry.
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
498 if (have_ghostscript)
10834
05ba991794d4 Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents: 10793
diff changeset
499 __fix_eps_bbox__ (name);
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
500 endif
6179
235a1b456cf4 [project @ 2006-11-17 17:33:09 by jwe]
jwe
parents: 6178
diff changeset
501 endif
6178
830235f4984f [project @ 2006-11-17 00:16:57 by jwe]
jwe
parents: 6019
diff changeset
502
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
503 if (doprint)
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
504 if (isunix ())
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
505 prn_opt = "-l";
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
506 elseif (ispc ())
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
507 prn_opt = "-o l";
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
508 else
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
509 ## FIXME - besides Unix and Windows, what other OS's might be considered.
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
510 prn_opt = "";
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
511 endif
10789
6f640ed5bb93 __gnuplot_print__.m: Fix broken options.
Ben Abbott <bpabbott@mac.com>
parents: 10727
diff changeset
512 if (isempty (opts.printer))
9157
fce7315c1eee print.m: Fix typo, improvments to code, and allow for creation of tight bbox.
Ben Abbott <bpabbott@mac.com>
parents: 9152
diff changeset
513 prn_cmd = sprintf ("lpr %s '%s' 2>&1", prn_opt, printname);
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
514 else
10789
6f640ed5bb93 __gnuplot_print__.m: Fix broken options.
Ben Abbott <bpabbott@mac.com>
parents: 10727
diff changeset
515 prn_cmd = sprintf ("lpr %s -P %s '%s' 2>&1", prn_opt, opts.printer, printname);
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
516 endif
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
517 [status, output] = system (prn_cmd);
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
518 if (status != 0)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
519 disp (output)
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
520 warning ("print.m: printing failed.")
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
521 endif
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
522 [status, output] = unlink (printname);
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
523 if (status != 0)
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
524 disp (output)
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
525 warning ("print.m: failed to delete temporay file, '%s'.", printname)
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
526 endif
6179
235a1b456cf4 [project @ 2006-11-17 17:33:09 by jwe]
jwe
parents: 6178
diff changeset
527 endif
235a1b456cf4 [project @ 2006-11-17 17:33:09 by jwe]
jwe
parents: 6178
diff changeset
528
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
529 unwind_protect_cleanup
8239
041bb0c64f07 orient.m,print.f: validate figure handle
Ben Abbott <bpabbott@mac.com>
parents: 8049
diff changeset
530 if (isfigure (old_fig))
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
531 figure (old_fig)
6965
c962cc09067a [project @ 2007-10-06 04:54:36 by jwe]
jwe
parents: 6895
diff changeset
532 endif
7550
bffb1e2ab732 print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents: 7543
diff changeset
533 end_unwind_protect
5363
37f62a7778c2 [project @ 2005-05-23 19:52:15 by jwe]
jwe
parents: 5362
diff changeset
534
5361
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe]
jwe
parents:
diff changeset
535 endfunction
9152
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents: 9107
diff changeset
536
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
537 function [h, c] = convert_color2mono (hfig)
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
538 unwind_protect
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
539 showhiddenhandles = get (0, "showhiddenhandles");
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
540 set (0, "showhiddenhandles", "on");
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
541 h.color = findobj (hfig, "-property", "color");
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
542 h.facecolor = findobj (hfig, "-property", "facecolor");
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
543 h.edgecolor = findobj (hfig, "-property", "edgecolor");
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
544 h.backgroundcolor = findobj (hfig, "-property", "backgroundcolor");
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
545 h.colormap = findobj (hfig, "-property", "colormap");
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
546 unwind_protect_cleanup
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
547 set (0, "showhiddenhandles", showhiddenhandles);
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
548 end_unwind_protect
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
549 f = fieldnames (h);
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
550 for nf = 1:numel(f)
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
551 if (! isempty (h.(f{nf})))
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
552 v = get (h.(f{nf}), f{nf});
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
553 if (! iscell (v))
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
554 v = {v};
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
555 endif
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
556 c.(f{nf}) = v;
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
557 endif
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
558 endfor
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
559 convert_mono_to_or_from_color (h, c, true)
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
560 endfunction
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
561
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
562 function convert_mono_to_or_from_color (h, c, mono)
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
563 f = fieldnames (h);
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
564 for nf = 1:numel(f)
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
565 for nh = 1:numel (h.(f{nf}))
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
566 color = c.(f{nf}){nh};
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
567 ## Ignore color == {"none", "flat", ...}
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
568 if (isfloat (color))
10422
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
569 if (mono)
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
570 ## Same method as used by rgb2gray in the image pkg.
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
571 color = rgb2ntsc (color)(:,1) * ones (1, 3);
9c4f403bec2b print.m: print.m: Detabify.
Ben Abbott <bpabbott@mac.com>
parents: 9847
diff changeset
572 endif
9334
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
573 set (h.(f{nf})(nh), f{nf}, color);
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
574 endif
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
575 endfor
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
576 endfor
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
577 endfunction
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals.
Ben Abbott <bpabbott@mac.com>
parents: 9249
diff changeset
578