Mercurial > octave
annotate scripts/plot/util/print.m @ 23118:46b914a213db stable
Workaround segfault when an error occurs while printing (bug #49779)
* print.m: check early that the requested directory exists and the requested
file is writable
* __print_parse_opts__.m: error out if the specified device/extension is unknown
author | Avinoam Kalma <a.kalma@gmail.com> |
---|---|
date | Mon, 30 Jan 2017 21:42:38 +0100 |
parents | e9a0469dedd9 |
children | b20bd0cd2f13 900ae902aa90 |
rev | line source |
---|---|
22323
bac0d6f07a3e
maint: Update copyright notices for 2016.
John W. Eaton <jwe@octave.org>
parents:
22099
diff
changeset
|
1 ## Copyright (C) 2008-2016 David Bateman |
5361 | 2 ## |
5362 | 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 | |
7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
8 ## your option) any later version. | |
5362 | 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. | |
5361 | 14 ## |
15 ## You should have received a copy of the GNU General Public License | |
7016 | 16 ## along with Octave; see the file COPYING. If not, see |
17 ## <http://www.gnu.org/licenses/>. | |
5361 | 18 |
19 ## -*- texinfo -*- | |
20852
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20778
diff
changeset
|
20 ## @deftypefn {} {} print () |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20778
diff
changeset
|
21 ## @deftypefnx {} {} print (@var{options}) |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20778
diff
changeset
|
22 ## @deftypefnx {} {} print (@var{filename}, @var{options}) |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20778
diff
changeset
|
23 ## @deftypefnx {} {} print (@var{h}, @var{filename}, @var{options}) |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
24 ## Print a plot, or save it to a file. |
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
25 ## |
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
26 ## Both output formatted for printing (PDF and PostScript), and many bitmapped |
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
27 ## and vector image formats are supported. |
5361 | 28 ## |
20713
2469d78a1d8b
Consistently use 'filename' rather than 'file name' throughout code base.
Rik <rik@octave.org>
parents:
20231
diff
changeset
|
29 ## @var{filename} defines the name of the output file. If the filename has |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
30 ## no suffix, one is inferred from the specified device and appended to the |
20713
2469d78a1d8b
Consistently use 'filename' rather than 'file name' throughout code base.
Rik <rik@octave.org>
parents:
20231
diff
changeset
|
31 ## filename. If no filename is specified, the output is sent to the |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
32 ## printer. |
14456
05635e4c605a
Improve documentation for print().
Ben Abbott <bpabbott@mac.com>
parents:
14382
diff
changeset
|
33 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
34 ## @var{h} specifies the handle of the figure to print. If no handle is |
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
35 ## specified the current figure is used. |
15301
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
36 ## |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
37 ## For output to a printer, PostScript file, or PDF file, the paper size is |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
38 ## specified by the figure's @code{papersize} property. The location and |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
39 ## size of the image on the page are specified by the figure's |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
40 ## @code{paperposition} property. The orientation of the page is specified |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
41 ## by the figure's @code{paperorientation} property. |
14456
05635e4c605a
Improve documentation for print().
Ben Abbott <bpabbott@mac.com>
parents:
14382
diff
changeset
|
42 ## |
05635e4c605a
Improve documentation for print().
Ben Abbott <bpabbott@mac.com>
parents:
14382
diff
changeset
|
43 ## The width and height of images are specified by the figure's |
05635e4c605a
Improve documentation for print().
Ben Abbott <bpabbott@mac.com>
parents:
14382
diff
changeset
|
44 ## @code{paperpositon(3:4)} property values. |
05635e4c605a
Improve documentation for print().
Ben Abbott <bpabbott@mac.com>
parents:
14382
diff
changeset
|
45 ## |
15301
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
46 ## The @code{print} command supports many @var{options}: |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
47 ## |
5361 | 48 ## @table @code |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
49 ## @item -f@var{h} |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
50 ## Specify the handle, @var{h}, of the figure to be printed. The default |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
51 ## is the current figure. |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
52 ## |
5361 | 53 ## @item -P@var{printer} |
15301
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
54 ## Set the @var{printer} name to which the plot is sent if no |
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
55 ## @var{filename} is specified. |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
56 ## |
9152
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
57 ## @item -G@var{ghostscript_command} |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
58 ## Specify the command for calling Ghostscript. For Unix and Windows the |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
59 ## defaults are @qcode{"gs"} and @qcode{"gswin32c"}, respectively. |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
60 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
61 ## @item -color |
5361 | 62 ## @itemx -mono |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
63 ## Color or monochrome output. |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
64 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
65 ## @item -solid |
5361 | 66 ## @itemx -dashed |
15301
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
67 ## Force all lines to be solid or dashed, respectively. |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
68 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
69 ## @item -portrait |
5361 | 70 ## @itemx -landscape |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
71 ## Specify the orientation of the plot for printed output. |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
72 ## For non-printed output the aspect ratio of the output corresponds to the |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
73 ## plot area defined by the @qcode{"paperposition"} property in the |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
74 ## orientation specified. This option is equivalent to changing the figure's |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
75 ## @qcode{"paperorientation"} property. |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
76 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
77 ## @item -TextAlphaBits=@var{n} |
14774
0d6dae0f6bc2
Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits.
John Hunt <huntj@gmx.us>
parents:
14620
diff
changeset
|
78 ## @itemx -GraphicsAlphaBits=@var{n} |
0d6dae0f6bc2
Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits.
John Hunt <huntj@gmx.us>
parents:
14620
diff
changeset
|
79 ## Octave is able to produce output for various printers, bitmaps, and |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
80 ## vector formats by using Ghostscript. For bitmap and printer output |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
81 ## anti-aliasing is applied using Ghostscript's TextAlphaBits and |
22517
34f98c1e4d56
Disable anti-aliasing for graphics in raster outputs (bug #48873).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
22323
diff
changeset
|
82 ## GraphicsAlphaBits options. The default number of bits are 4 and 1 |
34f98c1e4d56
Disable anti-aliasing for graphics in raster outputs (bug #48873).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
22323
diff
changeset
|
83 ## respectively. Allowed values for @var{N} are 1, 2, or 4. |
14774
0d6dae0f6bc2
Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits.
John Hunt <huntj@gmx.us>
parents:
14620
diff
changeset
|
84 ## |
5361 | 85 ## @item -d@var{device} |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
86 ## The available output format is specified by the option @var{device}, and |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
87 ## is one of: |
14366
b76f0740940e
doc: Periodic grammar check of documentation.
Rik <octave@nomad.inbox5.com>
parents:
14356
diff
changeset
|
88 ## |
5361 | 89 ## @table @code |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
90 ## @item ps |
5361 | 91 ## @itemx ps2 |
92 ## @itemx psc | |
93 ## @itemx psc2 | |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
94 ## PostScript (level 1 and 2, mono and color). The FLTK graphics |
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
95 ## toolkit generates PostScript level 3.0. |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
96 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
97 ## @item eps |
5361 | 98 ## @itemx eps2 |
99 ## @itemx epsc | |
100 ## @itemx epsc2 | |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
101 ## Encapsulated PostScript (level 1 and 2, mono and color). The FLTK |
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
102 ## graphic toolkit generates PostScript level 3.0. |
10841
1577accf2ed8
print.m: Update documentation string. Change to active voice.
Rik <octave@nomad.inbox5.com>
parents:
10834
diff
changeset
|
103 ## |
19026
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
104 ## @item pslatex |
6739 | 105 ## @itemx epslatex |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
106 ## @itemx pdflatex |
19026
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
107 ## @itemx pslatexstandalone |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
108 ## @itemx epslatexstandalone |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
109 ## @itemx pdflatexstandalone |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
110 ## Generate a @LaTeX{} file @file{@var{filename}.tex} for the text |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
111 ## portions of a plot and a file @file{@var{filename}.(ps|eps|pdf)} for the |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
112 ## remaining graphics. The graphics file suffix .ps|eps|pdf is determined |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
113 ## by the specified device type. The @LaTeX{} file produced by the |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
114 ## @samp{standalone} option can be processed directly by @LaTeX{}. The file |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
115 ## generated without the @samp{standalone} option is intended to be included |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
116 ## from another @LaTeX{} document. In either case, the @LaTeX{} file |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
117 ## contains an @code{\includegraphics} command so that the generated graphics |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
118 ## file is automatically included when the @LaTeX{} file is processed. The |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
119 ## text that is written to the @LaTeX{} file contains the strings |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
120 ## @strong{exactly} as they were specified in the plot. If any special |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
121 ## characters of the @TeX{} mode interpreter were used, the file must be |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
122 ## edited before @LaTeX{} processing. Specifically, the special characters |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
123 ## must be enclosed with dollar signs (@code{$ @dots{} $}), and other |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
124 ## characters that are recognized by @LaTeX{} may also need editing (.e.g., |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
125 ## braces). The @samp{pdflatex} device, and any of the @samp{standalone} |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
126 ## formats, are not available with the Gnuplot toolkit. |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
127 ## |
21122
dba88797f69f
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
20971
diff
changeset
|
128 ## @item epscairo |
20964
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
129 ## @itemx pdfcairo |
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
130 ## @itemx epscairolatex |
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
131 ## @itemx pdfcairolatex |
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
132 ## @itemx epscairolatexstandalone |
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
133 ## @itemx pdfcairolatexstandalone |
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
134 ## Generate Cairo based output when using the Gnuplot graphics toolkit. |
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
135 ## The @samp{epscairo} and @samp{pdfcairo} devices are synonymous with |
21122
dba88797f69f
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
20971
diff
changeset
|
136 ## the @samp{epsc} device. The @LaTeX{} variants generate a @LaTeX{} file, |
20964
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
137 ## @file{@var{filename}.tex}, for the text portions of a plot, and an image |
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
138 ## file, @file{@var{filename}.(eps|pdf)}, for the graph portion of the plot. |
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
139 ## The @samp{standalone} variants behave as described for |
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
140 ## @samp{epslatexstandalone} above. |
6ac3d299c5ad
Add support for cairo based gnuplot terminals: "cairolatex", "epscairo",
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20936
diff
changeset
|
141 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
142 ## @item ill |
5361 | 143 ## @itemx aifm |
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
144 ## Adobe Illustrator (Obsolete for Gnuplot versions > 4.2) |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
145 ## |
20971
22318eeaca3b
Add gnuplot "canvas" terminal to the print.m doc-string.
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20970
diff
changeset
|
146 ## @item canvas |
22318eeaca3b
Add gnuplot "canvas" terminal to the print.m doc-string.
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20970
diff
changeset
|
147 ## Javascript-based drawing on HTML5 canvas viewable in a web browser |
22318eeaca3b
Add gnuplot "canvas" terminal to the print.m doc-string.
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20970
diff
changeset
|
148 ## (only available for the Gnuplot graphics toolkit). |
22318eeaca3b
Add gnuplot "canvas" terminal to the print.m doc-string.
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20970
diff
changeset
|
149 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
150 ## @item cdr |
10791
3140cb7a05a1
Add spellchecker scripts for Octave and run spellcheck of documentation
Rik <octave@nomad.inbox5.com>
parents:
10727
diff
changeset
|
151 ## @itemx @nospell{corel} |
5361 | 152 ## CorelDraw |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
153 ## |
6965 | 154 ## @item dxf |
155 ## AutoCAD | |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
156 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
157 ## @item emf |
9107
d0d507cbd123
Improvements to printing functionality.
Ben Abbott <bpabbott@mac.com>
parents:
9056
diff
changeset
|
158 ## @itemx meta |
6965 | 159 ## Microsoft Enhanced Metafile |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
160 ## |
6965 | 161 ## @item fig |
11576
8ac9687dbe9f
rename backend to graphics_toolkit
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
162 ## XFig. For the Gnuplot graphics toolkit, the additional options |
22571
83f106bfcb37
Make "pdflatex" an alias of "pdfcairolatex" for gnuplot toolkit print (bug #49223).
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
22517
diff
changeset
|
163 ## @option{-textspecial} or @option{-textnormal} can be used to control |
83f106bfcb37
Make "pdflatex" an alias of "pdfcairolatex" for gnuplot toolkit print (bug #49223).
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
22517
diff
changeset
|
164 ## whether the special flag should be set for the text in the figure. |
83f106bfcb37
Make "pdflatex" an alias of "pdfcairolatex" for gnuplot toolkit print (bug #49223).
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
22517
diff
changeset
|
165 ## (default is @option{-textnormal}) |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
166 ## |
20969
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
167 ## @item gif |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
168 ## GIF image (only available for the Gnuplot graphics toolkit) |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
169 ## |
5361 | 170 ## @item hpgl |
171 ## HP plotter language | |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
172 ## |
20969
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
173 ## @item jpg |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
174 ## @itemx jpeg |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
175 ## JPEG image |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
176 ## |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
177 ## @item latex |
20970
34d0497730e6
Include missing "{}" for @LaTeX{} macro in print.m doc-string,
Ben Abbott <bpabbott@mac.comg>
parents:
20969
diff
changeset
|
178 ## @LaTeX{} picture environment (only available for the Gnuplot graphics |
20969
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
179 ## toolkit). |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
180 ## |
5361 | 181 ## @item mf |
182 ## Metafont | |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
183 ## |
5361 | 184 ## @item png |
185 ## Portable network graphics | |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
186 ## |
5361 | 187 ## @item pbm |
188 ## PBMplus | |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
189 ## |
20969
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
190 ## @item pdf |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
191 ## Portable document format |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
192 ## @end table |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
193 ## |
6965 | 194 ## @item svg |
195 ## Scalable vector graphics | |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
196 ## |
21122
dba88797f69f
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
20971
diff
changeset
|
197 ## @item tikz |
20969
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
198 ## @itemx tikzstandalone |
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
199 ## Generate a @LaTeX{} file using PGF/TikZ@. For the FLTK toolkit |
21122
dba88797f69f
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
20971
diff
changeset
|
200 ## the result is PGF@. The @samp{tikzstandalone} device produces a @LaTeX{} |
20969
984678f19352
Impproved support gnuplot terminals "eepic", "latex", "pstricks", & "texdraw".
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20968
diff
changeset
|
201 ## document which includes the TikZ file (@samp{tikzstandalone} is only |
20971
22318eeaca3b
Add gnuplot "canvas" terminal to the print.m doc-string.
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
20970
diff
changeset
|
202 ## available for the Gnuplot graphics toolkit). |
5361 | 203 ## |
204 ## If the device is omitted, it is inferred from the file extension, | |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
205 ## or if there is no filename it is sent to the printer as PostScript. |
5361 | 206 ## |
10423
dfc662a47b7a
print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents:
10422
diff
changeset
|
207 ## @item -d@var{ghostscript_device} |
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10841
diff
changeset
|
208 ## Additional devices are supported by Ghostscript. |
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10841
diff
changeset
|
209 ## Some examples are; |
9152
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
210 ## |
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
211 ## @table @code |
19026
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
212 ## @item pdfwrite |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
213 ## Produces pdf output from eps |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
214 ## |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11576
diff
changeset
|
215 ## @item ljet2p |
16826
a4969508008e
doc: Periodic spellcheck of the documentation.
Rik <rik@octave.org>
parents:
16766
diff
changeset
|
216 ## HP LaserJet @nospell{IIP} |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
217 ## |
9152
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
218 ## @item pcx24b |
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
219 ## 24-bit color PCX file format |
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
220 ## |
9152
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
221 ## @item ppm |
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
222 ## Portable Pixel Map file format |
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
223 ## @end table |
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
224 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
225 ## For a complete list, type @code{system ("gs -h")} to see what formats |
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10841
diff
changeset
|
226 ## and devices are available. |
9152
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
227 ## |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
228 ## When Ghostscript output is sent to a printer the size is determined by |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
229 ## the figure's @qcode{"papersize"} property. When the output is sent to a |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
230 ## file the size is determined by the plot box defined by the figure's |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
231 ## @qcode{"paperposition"} property. |
9152
4c9aff0c9a61
print.m: Use Ghostscript rather than ImageMagick's 'convert'.
Ben Abbott <bpabbott@mac.com>
parents:
9107
diff
changeset
|
232 ## |
16094
8899c785cc99
doc: Fix warnings associated with Texinfo 5.0 (bug #38392)
Rik <rik@octave.org>
parents:
15301
diff
changeset
|
233 ## @item -append |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
234 ## Append PostScript or PDF output to a pre-existing file of the same type. |
10423
dfc662a47b7a
print.m: Add '-append' option.
Ben Abbott <bpabbott@mac.com>
parents:
10422
diff
changeset
|
235 ## |
16094
8899c785cc99
doc: Fix warnings associated with Texinfo 5.0 (bug #38392)
Rik <rik@octave.org>
parents:
15301
diff
changeset
|
236 ## @item -r@var{NUM} |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
237 ## Resolution of bitmaps in pixels per inch. For both metafiles and SVG |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
238 ## the default is the screen resolution; for other formats it is 150 dpi. To |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
239 ## specify screen resolution, use @qcode{"-r0"}. |
8889
665b264b6a50
Compatible support of figure paper properties and resolution for the gnuplot backend.
Ben Abbott <bpabbott@mac.com>
parents:
8746
diff
changeset
|
240 ## |
17129
9d9fe4361870
print.m: Document that '-loose' is default option for eps.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
241 ## @item -loose |
9d9fe4361870
print.m: Document that '-loose' is default option for eps.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
242 ## @itemx -tight |
9d9fe4361870
print.m: Document that '-loose' is default option for eps.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
243 ## Force a tight or loose bounding box for eps files. The default is loose. |
11009 | 244 ## |
245 ## @item -@var{preview} | |
15301
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
246 ## Add a preview to eps files. Supported formats are: |
11009 | 247 ## |
248 ## @table @code | |
249 ## @item -interchange | |
15301
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
250 ## Provide an interchange preview. |
11009 | 251 ## |
19705
ef3cdadc2a08
doc: print.m: Fix typo metalfile -> metafile
Andreas Weber <andy.weber.aw@gmail.com>
parents:
19697
diff
changeset
|
252 ## @item -metafile |
15301
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
253 ## Provide a metafile preview. |
11009 | 254 ## |
255 ## @item -pict | |
15301
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
256 ## Provide pict preview. |
11009 | 257 ## |
258 ## @item -tiff | |
15301
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
259 ## Provide a tiff preview. |
11009 | 260 ## @end table |
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
|
261 ## |
10841
1577accf2ed8
print.m: Update documentation string. Change to active voice.
Rik <octave@nomad.inbox5.com>
parents:
10834
diff
changeset
|
262 ## @item -S@var{xsize},@var{ysize} |
20173
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
263 ## Plot size in pixels for EMF, GIF, JPEG, PBM, PNG, and SVG@. |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
264 ## For PS, EPS, PDF, and other vector formats the plot size is in points. |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
265 ## This option is equivalent to changing the size of the plot box associated |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
266 ## with the @qcode{"paperposition"} property. When using the command form of |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
267 ## the print function you must quote the @var{xsize},@var{ysize} option. For |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19990
diff
changeset
|
268 ## example, by writing @w{"-S640,480"}. |
6965 | 269 ## |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16933
diff
changeset
|
270 ## @item -F@var{fontname} |
5361 | 271 ## @itemx -F@var{fontname}:@var{size} |
272 ## @itemx -F:@var{size} | |
15301
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
273 ## Use @var{fontname} and/or @var{fontsize} for all text. |
3d05b55c91c7
doc: Clean up docstring for print.m.
Rik <rik@octave.org>
parents:
15214
diff
changeset
|
274 ## @var{fontname} is ignored for some devices: dxf, fig, hpgl, etc. |
5361 | 275 ## @end table |
276 ## | |
277 ## The filename and options can be given in any order. | |
11107
811b51cdddce
print.m: Add examples to the docstring.
Ben Abbott <bpabbott@mac.com>
parents:
11014
diff
changeset
|
278 ## |
19026
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
279 ## Example: Print to a file using the pdf device. |
11107
811b51cdddce
print.m: Add examples to the docstring.
Ben Abbott <bpabbott@mac.com>
parents:
11014
diff
changeset
|
280 ## |
811b51cdddce
print.m: Add examples to the docstring.
Ben Abbott <bpabbott@mac.com>
parents:
11014
diff
changeset
|
281 ## @example |
11563
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11551
diff
changeset
|
282 ## @group |
14327
4d917a6a858b
doc: Use Octave coding conventions in @example blocks of docstrings.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
283 ## figure (1); |
4d917a6a858b
doc: Use Octave coding conventions in @example blocks of docstrings.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
284 ## clf (); |
4d917a6a858b
doc: Use Octave coding conventions in @example blocks of docstrings.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
285 ## surf (peaks); |
19026
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
286 ## print figure1.pdf |
11563
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11551
diff
changeset
|
287 ## @end group |
11107
811b51cdddce
print.m: Add examples to the docstring.
Ben Abbott <bpabbott@mac.com>
parents:
11014
diff
changeset
|
288 ## @end example |
811b51cdddce
print.m: Add examples to the docstring.
Ben Abbott <bpabbott@mac.com>
parents:
11014
diff
changeset
|
289 ## |
19026
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
290 ## Example: Print to a file using jpg device. |
11107
811b51cdddce
print.m: Add examples to the docstring.
Ben Abbott <bpabbott@mac.com>
parents:
11014
diff
changeset
|
291 ## |
811b51cdddce
print.m: Add examples to the docstring.
Ben Abbott <bpabbott@mac.com>
parents:
11014
diff
changeset
|
292 ## @example |
11563
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11551
diff
changeset
|
293 ## @group |
14327
4d917a6a858b
doc: Use Octave coding conventions in @example blocks of docstrings.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
294 ## clf (); |
4d917a6a858b
doc: Use Octave coding conventions in @example blocks of docstrings.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
295 ## surf (peaks); |
19026
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
296 ## print -djpg figure2.jpg |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
297 ## @end group |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
298 ## @end example |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
299 ## |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
300 ## Example: Print to printer named PS_printer using ps format. |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
301 ## |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
302 ## @example |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
303 ## @group |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
304 ## clf (); |
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
305 ## surf (peaks); |
19593
446c46af4b42
strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents:
19026
diff
changeset
|
306 ## print -dpswrite -PPS_printer |
11563
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11551
diff
changeset
|
307 ## @end group |
11107
811b51cdddce
print.m: Add examples to the docstring.
Ben Abbott <bpabbott@mac.com>
parents:
11014
diff
changeset
|
308 ## @end example |
811b51cdddce
print.m: Add examples to the docstring.
Ben Abbott <bpabbott@mac.com>
parents:
11014
diff
changeset
|
309 ## |
18580
13c80c3e9660
Add new functions hgsave and hgload (bug #39532).
Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org>
parents:
17751
diff
changeset
|
310 ## @seealso{saveas, hgsave, orient, figure} |
5361 | 311 ## @end deftypefn |
312 | |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
313 function print (varargin) |
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
314 |
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
315 opts = __print_parse_opts__ (varargin{:}); |
7550
bffb1e2ab732
print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents:
7543
diff
changeset
|
316 |
23118
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
317 folder = fileparts (opts.name); |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
318 if (! isempty (folder) && ! exist (folder,"dir")) |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
319 error ("print: directory %s does not exist", folder); |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
320 endif |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
321 |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
322 fid = fopen (opts.name, "w+"); |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
323 if (fid == -1) |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
324 error ("print: cannot open file %s for writing", opts.name); |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
325 endif |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
326 fclose (fid); |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
327 unlink (opts.name); |
46b914a213db
Workaround segfault when an error occurs while printing (bug #49779)
Avinoam Kalma <a.kalma@gmail.com>
parents:
23083
diff
changeset
|
328 |
11009 | 329 opts.pstoedit_cmd = @pstoedit; |
330 opts.fig2dev_cmd = @fig2dev; | |
331 opts.latex_standalone = @latex_standalone; | |
332 opts.lpr_cmd = @lpr; | |
333 opts.epstool_cmd = @epstool; | |
334 | |
19026
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
335 if (isempty (opts.figure) || ! isfigure (opts.figure)) |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
336 error ("print: no figure to print"); |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
337 endif |
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
338 |
22099
4c0f78b3c86f
print.m: Fix typo "1" (char) to 1 (integer) as argument to findall -depth (bug #48478).
Rik <rik@octave.org>
parents:
21859
diff
changeset
|
339 if (isempty (findall (opts.figure, "-depth", 1, "type", "axes"))) |
19990
9a2d8b1f931e
Issue error when trying to print a figure with no axes object (bug #44655).
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
340 error ("print: no axes object in figure to print"); |
9a2d8b1f931e
Issue error when trying to print a figure with no axes object (bug #44655).
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
341 endif |
9a2d8b1f931e
Issue error when trying to print a figure with no axes object (bug #44655).
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
342 |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
343 orig_figure = get (0, "currentfigure"); |
17146
bbda4d952eb5
Fix pop-up of invisible figures during printing.
Rik <rik@octave.org>
parents:
17129
diff
changeset
|
344 set (0, "currentfigure", opts.figure); |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
345 |
11009 | 346 if (opts.append_to_file) |
347 [~, ~, ext] = fileparts (opts.ghostscript.output); | |
19278
6ca096827123
Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents:
19078
diff
changeset
|
348 opts.ghostscript.prepend = [tempname() ext]; |
11014
92bb25c0da9e
When appending, delete temporary files at the end of the ghostscript pipeline.
Ben Abbott <bpabbott@mac.com>
parents:
11009
diff
changeset
|
349 copyfile (opts.ghostscript.output, opts.ghostscript.prepend); |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
350 endif |
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
351 |
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
352 unwind_protect |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
353 |
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
354 ## Modify properties as specified by options |
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
355 props = []; |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
356 |
14355
a6a5c5008e39
Print() function requires figure units to be "pixels".
Ben Abbott <bpabbott@mac.com>
parents:
14335
diff
changeset
|
357 drawnow (); |
a6a5c5008e39
Print() function requires figure units to be "pixels".
Ben Abbott <bpabbott@mac.com>
parents:
14335
diff
changeset
|
358 |
20936
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
359 ## print() requires children of axes to have units = "normalized", or "data" |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
360 hobj = findall (opts.figure, "-not", "type", "figure", ... |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
361 "-not", "type", "axes", "-property", "units", ... |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
362 "-not", "units", "normalized", "-not", "units", "data"); |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
363 for n = 1:numel(hobj) |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
364 props(n).h = hobj(n); |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
365 props(n).name = "units"; |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
366 props(n).value = {get(hobj(n), "units")}; |
21323
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
367 set (hobj(n), "units", "data"); |
20936
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
368 endfor |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
369 |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
370 ## print() requires axes units = "normalized" |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
371 hax = findall (opts.figure, "-depth", 1, "type", "axes", ... |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
372 "-not", "units", "normalized"); |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
373 m = numel (props); |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
374 for n = 1:numel(hax) |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
375 props(m+n).h = hax(n); |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
376 props(m+n).name = "units"; |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
377 props(m+n).value = {get(hax(n), "units")}; |
21323
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
378 set (hax(n), "units", "normalized"); |
20936
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
379 endfor |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
380 |
14355
a6a5c5008e39
Print() function requires figure units to be "pixels".
Ben Abbott <bpabbott@mac.com>
parents:
14335
diff
changeset
|
381 ## print() requires figure units to be "pixels" |
20936
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
382 m = numel (props); |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
383 props(m+1).h = opts.figure; |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
384 props(m+1).name = "units"; |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
385 props(m+1).value = {get(opts.figure, "units")}; |
14355
a6a5c5008e39
Print() function requires figure units to be "pixels".
Ben Abbott <bpabbott@mac.com>
parents:
14335
diff
changeset
|
386 set (opts.figure, "units", "pixels"); |
a6a5c5008e39
Print() function requires figure units to be "pixels".
Ben Abbott <bpabbott@mac.com>
parents:
14335
diff
changeset
|
387 |
17742
4e225f952885
Fix shrinking axes when printing plots with legends (bug #40333).
Rik <rik@octave.org>
parents:
17723
diff
changeset
|
388 ## graphics toolkit translates figure position to eps bbox (points) |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
389 fpos = get (opts.figure, "position"); |
20936
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
390 props(m+2).h = opts.figure; |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
391 props(m+2).name = "position"; |
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
392 props(m+2).value = {fpos}; |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
393 fpos(3:4) = opts.canvas_size; |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
394 set (opts.figure, "position", fpos); |
7550
bffb1e2ab732
print.m: Figure handle as argument.
Ben Abbott <bpabbott@mac.com>
parents:
7543
diff
changeset
|
395 |
21323
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
396 ## Implement InvertHardCopy option |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
397 do_hardcopy = strcmp (get (opts.figure, "inverthardcopy"), "on"); |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
398 |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
399 if (do_hardcopy) |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
400 ## Set figure background to white. |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
401 props(m+3).h = opts.figure; |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
402 props(m+3).name = "color"; |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
403 props(m+3).value{1} = get (props(m+3).h, props(m+3).name); |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
404 set (props(m+3).h, "color", "white"); |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
405 nfig = m + 3; |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
406 else |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
407 nfig = m + 2; |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
408 endif |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
409 |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
410 if (do_hardcopy) |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
411 ## Set background to white for all top-level axes objects |
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
412 hax = findall (opts.figure, "-depth", 1, "type", "axes", |
21859
ec3adcec1337
Fix "inverthardcopy" for transparent axes and plotyy (bug #48161).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
21759
diff
changeset
|
413 "-not", "tag", "legend", |
ec3adcec1337
Fix "inverthardcopy" for transparent axes and plotyy (bug #48161).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
21759
diff
changeset
|
414 "-not", "color", "none"); |
22578
956f5c71dc3c
Fix printing when axes has color "none" (bug #49243).
Rik <rik@octave.org>
parents:
22571
diff
changeset
|
415 if (! isempty (hax)) |
956f5c71dc3c
Fix printing when axes has color "none" (bug #49243).
Rik <rik@octave.org>
parents:
22571
diff
changeset
|
416 m = numel (props); |
956f5c71dc3c
Fix printing when axes has color "none" (bug #49243).
Rik <rik@octave.org>
parents:
22571
diff
changeset
|
417 for n = 1:numel (hax) |
956f5c71dc3c
Fix printing when axes has color "none" (bug #49243).
Rik <rik@octave.org>
parents:
22571
diff
changeset
|
418 props(m+n).h = hax(n); |
956f5c71dc3c
Fix printing when axes has color "none" (bug #49243).
Rik <rik@octave.org>
parents:
22571
diff
changeset
|
419 props(m+n).name = "color"; |
956f5c71dc3c
Fix printing when axes has color "none" (bug #49243).
Rik <rik@octave.org>
parents:
22571
diff
changeset
|
420 props(m+n).value{1} = get(hax(n), "color"); |
956f5c71dc3c
Fix printing when axes has color "none" (bug #49243).
Rik <rik@octave.org>
parents:
22571
diff
changeset
|
421 set (hax(n), "color", "white"); |
956f5c71dc3c
Fix printing when axes has color "none" (bug #49243).
Rik <rik@octave.org>
parents:
22571
diff
changeset
|
422 endfor |
956f5c71dc3c
Fix printing when axes has color "none" (bug #49243).
Rik <rik@octave.org>
parents:
22571
diff
changeset
|
423 nfig += n; |
956f5c71dc3c
Fix printing when axes has color "none" (bug #49243).
Rik <rik@octave.org>
parents:
22571
diff
changeset
|
424 endif |
21323
030d4d6c2b58
Implement figure property "InvertHardCopy" for printing (bug #47230).
Rik <rik@octave.org>
parents:
21122
diff
changeset
|
425 endif |
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
426 |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
427 if (opts.force_solid != 0) |
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
428 h = findall (opts.figure, "-property", "linestyle"); |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
429 m = numel (props); |
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14852
diff
changeset
|
430 for n = 1:numel (h) |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
431 props(m+n).h = h(n); |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
432 props(m+n).name = "linestyle"; |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
433 props(m+n).value = {get(h(n), "linestyle")}; |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
434 endfor |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
435 if (opts.force_solid > 0) |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
436 linestyle = "-"; |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
437 else |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
438 linestyle = "--"; |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
439 endif |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
440 set (h, "linestyle", linestyle); |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
441 endif |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
442 |
21365
5b9618f4f841
Rely upon print.m for mono/color conversion. This simplifies gnuplot support
Ben Abbott <bpabbott@mac.com>
parents:
21323
diff
changeset
|
443 if (opts.use_color < 0) |
10866
045558999570
print.m: Include 'colormap' when converting RGB to mono.
Ben Abbott <bpabbott@mac.com>
parents:
10860
diff
changeset
|
444 color_props = {"color", "facecolor", "edgecolor", "colormap"}; |
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14852
diff
changeset
|
445 for c = 1:numel (color_props) |
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
446 h = findall (opts.figure, "-property", color_props{c}); |
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
447 hnone = findall (opts.figure, color_props{c}, "none"); |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
448 h = setdiff (h, hnone); |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
449 m = numel (props); |
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14852
diff
changeset
|
450 for n = 1:numel (h) |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
451 if (ishandle (h(n))) |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
452 ## Need to verify objects exist since callbacks may delete objects |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
453 ## as the colors for others are modified. |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
454 rgb = get (h(n), color_props{c}); |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
455 props(end+1).h = h(n); |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
456 props(end).name = color_props{c}; |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
457 props(end).value = {get(h(n), color_props{c})}; |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
458 if (isnumeric (rgb)) |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
459 ## convert RGB color to RGB gray scale |
14872
c2dbdeaa25df
maint: use rows() and columns() to clarify m-files.
Rik <octave@nomad.inbox5.com>
parents:
14868
diff
changeset
|
460 xfer = repmat ([0.30, 0.59, 0.11], rows (rgb), 1); |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
461 ggg = repmat (sum (xfer .* rgb, 2), 1, 3); |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
462 set (h(n), color_props{c}, ggg); |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
463 endif |
10866
045558999570
print.m: Include 'colormap' when converting RGB to mono.
Ben Abbott <bpabbott@mac.com>
parents:
10860
diff
changeset
|
464 endif |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
465 endfor |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
466 endfor |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
467 endif |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
468 |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
469 if (! isempty (opts.font) || ! isempty (opts.fontsize)) |
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
470 h = findall (opts.figure, "-property", "fontname"); |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
471 m = numel (props); |
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14852
diff
changeset
|
472 for n = 1:numel (h) |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
473 if (ishandle (h(n))) |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
474 if (! isempty (opts.font)) |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
475 props(end+1).h = h(n); |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
476 props(end).name = "fontname"; |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
477 props(end).value = {get(h(n), "fontname")}; |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
478 endif |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
479 endif |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
480 if (ishandle (h(n))) |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
481 if (! isempty (opts.fontsize)) |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
482 props(end+1).h = h(n); |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
483 props(end).name = "fontsize"; |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
484 props(end).value = {get(h(n), "fontsize")}; |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
485 endif |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
486 endif |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
487 endfor |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
488 if (! isempty (opts.font)) |
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14852
diff
changeset
|
489 set (h(ishandle (h)), "fontname", opts.font); |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
490 endif |
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
491 if (! isempty (opts.fontsize)) |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
492 if (ischar (opts.fontsize)) |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
493 fontsize = str2double (opts.fontsize); |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
494 else |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
495 fontsize = opts.fontsize; |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
496 endif |
15214
ae6b7ee0a733
print.m: Correct typo preventing fontsize to be set (bug #37163)
Rik <rik@octave.org>
parents:
14872
diff
changeset
|
497 if (! isempty (opts.scalefontsize) && ! opts.scalefontsize != 1) |
14206
df695e37d404
Make sure "print '-SX,Y' ..." doesn't round down a pixel. Bug # 35307.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
498 ## This is done to work around the bbox being whole numbers. |
20231
83792dd9bcc1
Use in-place operators in m-files where possible.
Rik <rik@octave.org>
parents:
20181
diff
changeset
|
499 fontsize *= opts.scalefontsize; |
14206
df695e37d404
Make sure "print '-SX,Y' ..." doesn't round down a pixel. Bug # 35307.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
500 endif |
17723
132d9f543cc5
print.m: 2nd fix for printing when using -F option (bug #40334)
Rik <rik@octave.org>
parents:
17721
diff
changeset
|
501 ## FIXME: legend child objects need to be acted on first. |
132d9f543cc5
print.m: 2nd fix for printing when using -F option (bug #40334)
Rik <rik@octave.org>
parents:
17721
diff
changeset
|
502 ## or legend fontsize callback will destroy them. |
132d9f543cc5
print.m: 2nd fix for printing when using -F option (bug #40334)
Rik <rik@octave.org>
parents:
17721
diff
changeset
|
503 hlist = h(ishandle (h)); |
132d9f543cc5
print.m: 2nd fix for printing when using -F option (bug #40334)
Rik <rik@octave.org>
parents:
17721
diff
changeset
|
504 haxes = strcmp (get (hlist, "type"), "axes"); |
132d9f543cc5
print.m: 2nd fix for printing when using -F option (bug #40334)
Rik <rik@octave.org>
parents:
17721
diff
changeset
|
505 set (hlist(! haxes), "fontsize", fontsize); |
132d9f543cc5
print.m: 2nd fix for printing when using -F option (bug #40334)
Rik <rik@octave.org>
parents:
17721
diff
changeset
|
506 set (hlist(haxes), "fontsize", fontsize); |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
507 endif |
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
508 endif |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
509 |
19026
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
510 ## call the graphics toolkit print script |
11576
8ac9687dbe9f
rename backend to graphics_toolkit
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
511 switch (get (opts.figure, "__graphics_toolkit__")) |
17174
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
512 case "gnuplot" |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
513 opts = __gnuplot_print__ (opts); |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
514 otherwise |
19640
3b0b4d55002d
rename __fltk_print__.m to __opengl_print__.m
John W. Eaton <jwe@octave.org>
parents:
19596
diff
changeset
|
515 opts = __opengl_print__ (opts); |
11009 | 516 endswitch |
19706
18fd412c7dc3
Remove erroneously added "keyboard" in cset ef3cdadc2a08
Andreas Weber <andy.weber.aw@gmail.com>
parents:
19705
diff
changeset
|
517 |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
518 unwind_protect_cleanup |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
519 ## restore modified properties |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
520 if (isstruct (props)) |
17751
e2f83152e64a
print.m: Restore figure position first (in pixels) and then original units.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
521 ## Restore figure position and units first |
20936
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
522 for n = nfig:-1:1 |
17751
e2f83152e64a
print.m: Restore figure position first (in pixels) and then original units.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
523 if (ishandle (props(n).h)) |
e2f83152e64a
print.m: Restore figure position first (in pixels) and then original units.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
524 set (props(n).h, props(n).name, props(n).value{1}); |
e2f83152e64a
print.m: Restore figure position first (in pixels) and then original units.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
525 endif |
e2f83152e64a
print.m: Restore figure position first (in pixels) and then original units.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
526 endfor |
20936
80dd7b3529ee
Convert figure's descendants units to "normalized" during printing (Bug #46292).
Ben Abbott <bpabbott@mac.com>
parents:
20852
diff
changeset
|
527 for n = numel (props):-1:(nfig + 1) |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
528 if (ishandle (props(n).h)) |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
529 set (props(n).h, props(n).name, props(n).value{1}); |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
530 endif |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
531 endfor |
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
532 endif |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
533 |
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
534 ## Unlink temporary files |
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14852
diff
changeset
|
535 for n = 1:numel (opts.unlink) |
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
536 [status, output] = unlink (opts.unlink{n}); |
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
537 if (status != 0) |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
538 warning ("print.m: %s, '%s'", output, opts.unlink{n}); |
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
539 endif |
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10866
diff
changeset
|
540 endfor |
10860
3a5f5c99cc39
print.m: Modify texinfo. Add unwind_protect block.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
541 end_unwind_protect |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
542 |
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
543 if (isfigure (orig_figure)) |
17146
bbda4d952eb5
Fix pop-up of invisible figures during printing.
Rik <rik@octave.org>
parents:
17129
diff
changeset
|
544 set (0, "currentfigure", orig_figure); |
10834
05ba991794d4
Improvements for fltk printing.
Ben Abbott <bpabbott@mac.com>
parents:
10821
diff
changeset
|
545 endif |
5363 | 546 |
5361 | 547 endfunction |
11009 | 548 |
549 function cmd = epstool (opts, filein, fileout) | |
550 ## As epstool does not work with pipes, a subshell is used to | |
21751
b571fc85953f
maint: Use two spaces after period to indicate sentence break.
Rik <rik@octave.org>
parents:
21578
diff
changeset
|
551 ## permit piping. Since this solution does not work with the DOS |
11009 | 552 ## command shell, the -tight and -preview options are disabled if |
553 ## output must be piped. | |
554 | |
555 ## DOS Shell: | |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
556 ## gs.exe [...] -sOutputFile=<filein> - & epstool -bbox -preview-tiff <filein> <fileout> & del <filein> |
11009 | 557 ## Unix Shell; |
558 ## cat > <filein> ; epstool -bbox -preview-tiff <filein> <fileout> ; rm <filein> | |
559 | |
19724
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
560 ## HACK: Keep track of whether ghostscript supports epswrite or eps2write. |
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
561 persistent epsdevice; |
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
562 if (isempty (epsdevice)) |
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
563 [status, devlist] = system (sprintf ("%s -h", opts.ghostscript.binary)); |
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
564 if (isempty (strfind (devlist, "eps2write"))) |
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
565 epsdevice = "epswrite"; |
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
566 else |
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
567 epsdevice = "eps2write"; |
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
568 endif |
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
569 endif |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
570 |
11009 | 571 dos_shell = (ispc () && ! isunix ()); |
572 | |
573 cleanup = ""; | |
574 if (nargin < 3) | |
575 fileout = opts.name; | |
576 elseif (isempty (fileout)) | |
577 fileout = "-"; | |
578 endif | |
579 | |
580 if (nargin < 2 || strcmp (filein, "-") || isempty (filein)) | |
581 pipein = true; | |
19278
6ca096827123
Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents:
19078
diff
changeset
|
582 filein = [tempname() ".eps"]; |
11009 | 583 if (dos_shell) |
11252
d048ce3f7cef
Replace "delete" with "del" in DOS shell commands.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
11120
diff
changeset
|
584 cleanup = sprintf ("& del %s ", strrep (filein, '/', '\')); |
11009 | 585 else |
586 cleanup = sprintf ("; rm %s ", filein); | |
587 endif | |
588 else | |
589 pipein = false; | |
20778
8513c84a13cb
Use parser string concatenation rather than strcat() for performance in m-files.
Rik <rik@octave.org>
parents:
20713
diff
changeset
|
590 filein = ["'" strtrim(filein) "'"]; |
11009 | 591 endif |
592 if (strcmp (fileout, "-")) | |
593 pipeout = true; | |
19278
6ca096827123
Use tempname() rather than tmpnam() in core Octave.
Rik <rik@octave.org>
parents:
19078
diff
changeset
|
594 fileout = [tempname() ".eps"]; |
11009 | 595 if (dos_shell) |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
596 cleanup = [cleanup, sprintf("& del %s ", strrep (fileout, '/', '\'))]; |
11009 | 597 else |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
598 cleanup = [cleanup, sprintf("; rm %s ", fileout)]; |
11009 | 599 endif |
600 else | |
601 pipeout = false; | |
20778
8513c84a13cb
Use parser string concatenation rather than strcat() for performance in m-files.
Rik <rik@octave.org>
parents:
20713
diff
changeset
|
602 fileout = ["'" strtrim(fileout) "'"]; |
11009 | 603 endif |
604 | |
605 if (! isempty (opts.preview) && opts.tight_flag) | |
606 warning ("print:previewandtight", | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
607 "print.m: eps preview may not be combined with -tight"); |
11009 | 608 endif |
609 if (! isempty (opts.preview) || opts.tight_flag) | |
610 if (! isempty (opts.epstool_binary)) | |
611 if (opts.tight_flag) | |
612 cmd = "--copy --bbox"; | |
613 elseif (! isempty (opts.preview)) | |
16933
e39f00a32dc7
maint: Use parentheses around condition for switch(),while(),if() statements.
Rik <rik@octave.org>
parents:
16826
diff
changeset
|
614 switch (opts.preview) |
17174
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
615 case "tiff" |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
616 cmd = sprintf ("--add-%s-preview --device tiffg3", opts.preview); |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
617 case {"tiff6u", "tiff6p", "metafile"} |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
618 cmd = sprintf ("--add-%s-preview --device bmpgray", opts.preview); |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
619 case {"tiff4", "interchange"} |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
620 cmd = sprintf ("--add-%s-preview", opts.preview); |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
621 case "pict" |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
622 cmd = sprintf ("--add-%s-preview --mac-single", opts.preview); |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
623 otherwise |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
624 error ("print:invalidpreview", |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
625 "print.m: epstool cannot include preview for format '%s'", |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
626 opts.preview); |
11009 | 627 endswitch |
628 if (! isempty (opts.ghostscript.resolution)) | |
19725
5f2c0ca0ef51
Ensure that numbers passed to integer *printf format codes are integers (bug #44245).
Rik <rik@octave.org>
parents:
19724
diff
changeset
|
629 cmd = sprintf ("%s --dpi %d", cmd, fix (opts.ghostscript.resolution)); |
11009 | 630 endif |
631 else | |
632 cmd = ""; | |
633 endif | |
634 if (! isempty (cmd)) | |
635 cmd = sprintf ("%s --quiet %s %s %s ", opts.epstool_binary, | |
636 cmd, filein, fileout); | |
637 endif | |
638 if (pipein) | |
639 if (dos_shell) | |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
640 filein(filein=="'") = "\""; |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
641 gs_cmd = __ghostscript__ ("binary", opts.ghostscript.binary, |
19724
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
642 "device", epsdevice, |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
643 "source", "-", |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
644 "output", filein); |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
645 cmd = sprintf ("%s %s & %s", gs_cmd, filein, cmd); |
11009 | 646 else |
647 cmd = sprintf ("cat > %s ; %s", filein, cmd); | |
648 endif | |
649 endif | |
650 if (pipeout) | |
651 if (dos_shell) | |
652 cmd = sprintf ("%s & type %s", cmd, fileout); | |
653 else | |
654 cmd = sprintf ("%s ; cat %s", cmd, fileout); | |
655 endif | |
656 endif | |
657 if (! isempty (cleanup)) | |
658 if (pipeout && dos_shell) | |
659 error ("print:epstoolpipe", | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
660 "print.m: cannot pipe output of 'epstool' for DOS shell"); |
11009 | 661 elseif (pipeout) |
662 cmd = sprintf ("( %s %s )", cmd, cleanup); | |
663 else | |
664 cmd = sprintf ("%s %s", cmd, cleanup); | |
665 endif | |
666 endif | |
667 elseif (isempty (opts.epstool_binary)) | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
668 error ("print:noepstool", "print.m: 'epstool' not found in PATH"); |
11009 | 669 endif |
670 else | |
671 if (pipein && pipeout) | |
672 if (dos_shell) | |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
673 cmd = __ghostscript__ ("binary", opts.ghostscript.binary, |
19724
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
674 "device", epsdevice, |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
675 "source", "-", |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
676 "output", "-"); |
11009 | 677 else |
678 cmd = " cat "; | |
679 endif | |
680 elseif (pipein && ! pipeout) | |
681 if (dos_shell) | |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
682 ## ghostscript expects double, not single, quotes |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
683 fileout(fileout=="'") = "\""; |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
684 cmd = __ghostscript__ ("binary", opts.ghostscript.binary, |
19724
abc158e7122e
Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186).
Rik <rik@octave.org>
parents:
19706
diff
changeset
|
685 "device", epsdevice, |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
686 "source", "-", |
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
687 "output", fileout); |
11009 | 688 else |
689 cmd = sprintf (" cat > %s ", fileout); | |
690 endif | |
691 elseif (! pipein && pipeout) | |
692 if (dos_shell) | |
693 cmd = sprintf (" type %s ", filein); | |
694 else | |
695 cmd = sprintf (" cat %s ", filein); | |
696 endif | |
697 else | |
698 if (dos_shell) | |
699 cmd = sprintf (" copy %s %s ", filein, fileout); | |
700 else | |
701 cmd = sprintf (" cp %s %s ", filein, fileout); | |
702 endif | |
703 endif | |
704 endif | |
705 if (opts.debug) | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
706 fprintf ("epstool command: '%s'\n", cmd); |
11009 | 707 endif |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
708 |
11009 | 709 endfunction |
710 | |
711 function cmd = fig2dev (opts, devopt) | |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
712 |
11009 | 713 if (nargin < 2) |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
714 devopt = opts.devopt; |
11009 | 715 endif |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
716 |
11009 | 717 dos_shell = (ispc () && ! isunix ()); |
718 if (! isempty (opts.fig2dev_binary)) | |
719 if (dos_shell) | |
18857
7bbe3658c5ef
maint: Use "FIXME:" coding convention in m-files.
Rik <rik@octave.org>
parents:
18598
diff
changeset
|
720 ## FIXME: Is this the right thing to do for DOS? |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
721 cmd = sprintf ("%s -L %s 2> NUL", opts.fig2dev_binary, devopt); |
11009 | 722 else |
723 cmd = sprintf ("%s -L %s 2> /dev/null", opts.fig2dev_binary, devopt); | |
724 endif | |
725 elseif (isempty (opts.fig2dev_binary)) | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
726 error ("print:nofig2dev", "print.m: 'fig2dev' not found in PATH"); |
11009 | 727 endif |
728 if (opts.debug) | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
729 fprintf ("fig2dev command: '%s'\n", cmd); |
11009 | 730 endif |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
731 |
11009 | 732 endfunction |
733 | |
12199
3fc07861449b
Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
734 function latex_standalone (opts) |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
735 |
12199
3fc07861449b
Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
736 n = find (opts.name == ".", 1, "last"); |
3fc07861449b
Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
737 if (! isempty (n)) |
3fc07861449b
Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
738 opts.name = opts.name(1:n-1); |
3fc07861449b
Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
739 endif |
20778
8513c84a13cb
Use parser string concatenation rather than strcat() for performance in m-files.
Rik <rik@octave.org>
parents:
20713
diff
changeset
|
740 latexfile = [opts.name ".tex"]; |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
741 |
16933
e39f00a32dc7
maint: Use parentheses around condition for switch(),while(),if() statements.
Rik <rik@octave.org>
parents:
16826
diff
changeset
|
742 switch (opts.devopt) |
17174
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
743 case {"pdflatexstandalone"} |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
744 packages = "\\usepackage{graphicx,color}"; |
20778
8513c84a13cb
Use parser string concatenation rather than strcat() for performance in m-files.
Rik <rik@octave.org>
parents:
20713
diff
changeset
|
745 graphicsfile = [opts.name "-inc.pdf"]; |
17174
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
746 case {"pslatexstandalone"} |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
747 packages = "\\usepackage{epsfig,color}"; |
20778
8513c84a13cb
Use parser string concatenation rather than strcat() for performance in m-files.
Rik <rik@octave.org>
parents:
20713
diff
changeset
|
748 graphicsfile = [opts.name "-inc.ps"]; |
17174
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
749 otherwise |
c3c1ebfaa7dc
maint: Use common indentation for switch statement.
Rik <rik@octave.org>
parents:
17146
diff
changeset
|
750 packages = "\\usepackage{epsfig,color}"; |
20778
8513c84a13cb
Use parser string concatenation rather than strcat() for performance in m-files.
Rik <rik@octave.org>
parents:
20713
diff
changeset
|
751 graphicsfile = [opts.name "-inc.eps"]; |
12199
3fc07861449b
Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
752 endswitch |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
753 |
12199
3fc07861449b
Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
754 papersize = sprintf ("\\usepackage[papersize={%.2fbp,%.2fbp},text={%.2fbp,%.2fbp}]{geometry}", |
19725
5f2c0ca0ef51
Ensure that numbers passed to integer *printf format codes are integers (bug #44245).
Rik <rik@octave.org>
parents:
19724
diff
changeset
|
755 fix (opts.canvas_size), fix (opts.canvas_size)); |
11009 | 756 prepend = {"\\documentclass{minimal}"; |
12199
3fc07861449b
Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
757 packages; |
3fc07861449b
Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
758 papersize; |
11009 | 759 "\\begin{document}"; |
760 "\\centering"}; | |
761 postpend = {"\\end{document}"}; | |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
762 |
11009 | 763 fid = fopen (latexfile, "r"); |
21759
b002b4331a12
maint: Use two newlines after endfunction and start of BIST tests.
Rik <rik@octave.org>
parents:
21758
diff
changeset
|
764 if (fid < 0) |
11009 | 765 error ("print:erroropeningfile", |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
766 "print.m: error opening file '%s'", latexfile); |
11009 | 767 endif |
21759
b002b4331a12
maint: Use two newlines after endfunction and start of BIST tests.
Rik <rik@octave.org>
parents:
21758
diff
changeset
|
768 latex = fscanf (fid, "%c", Inf); |
b002b4331a12
maint: Use two newlines after endfunction and start of BIST tests.
Rik <rik@octave.org>
parents:
21758
diff
changeset
|
769 status = fclose (fid); |
b002b4331a12
maint: Use two newlines after endfunction and start of BIST tests.
Rik <rik@octave.org>
parents:
21758
diff
changeset
|
770 if (status != 0) |
b002b4331a12
maint: Use two newlines after endfunction and start of BIST tests.
Rik <rik@octave.org>
parents:
21758
diff
changeset
|
771 error ("print:errorclosingfile", |
b002b4331a12
maint: Use two newlines after endfunction and start of BIST tests.
Rik <rik@octave.org>
parents:
21758
diff
changeset
|
772 "print.m: error closing file '%s'", latexfile); |
b002b4331a12
maint: Use two newlines after endfunction and start of BIST tests.
Rik <rik@octave.org>
parents:
21758
diff
changeset
|
773 endif |
b002b4331a12
maint: Use two newlines after endfunction and start of BIST tests.
Rik <rik@octave.org>
parents:
21758
diff
changeset
|
774 ## FIXME: should this be fixed in GL2PS? |
b002b4331a12
maint: Use two newlines after endfunction and start of BIST tests.
Rik <rik@octave.org>
parents:
21758
diff
changeset
|
775 latex = strrep (latex, "\\includegraphics{}", |
b002b4331a12
maint: Use two newlines after endfunction and start of BIST tests.
Rik <rik@octave.org>
parents:
21758
diff
changeset
|
776 sprintf ("\\includegraphics{%s}", graphicsfile)); |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
777 |
11009 | 778 fid = fopen (latexfile, "w"); |
779 if (fid >= 0) | |
780 fprintf (fid, "%s\n", prepend{:}); | |
781 fprintf (fid, "%s", latex); | |
782 fprintf (fid, "%s\n", postpend{:}); | |
783 status = fclose (fid); | |
784 if (status != 0) | |
785 error ("print:errorclosingfile", | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
786 "print.m: error closing file '%s'", latexfile); |
11009 | 787 endif |
788 else | |
789 error ("print:erroropeningfile", | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
790 "print.m: error opening file '%s'", latexfile); |
11009 | 791 endif |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
792 |
11009 | 793 endfunction |
794 | |
795 function cmd = lpr (opts) | |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
796 |
11009 | 797 if (nargin < 2) |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
798 devopt = opts.devopt; |
11009 | 799 endif |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
800 |
11009 | 801 if (! isempty (opts.lpr_binary)) |
802 cmd = opts.lpr_binary; | |
803 if (! isempty (opts.lpr_options)) | |
804 cmd = sprintf ("%s %s", cmd, opts.lpr_options); | |
11113
a8ac114ec9ab
Stylefixes, replace end by endif.
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
11107
diff
changeset
|
805 endif |
11009 | 806 if (! isempty (opts.printer)) |
19026
d6f1f46e5b8f
Fix double '-P' in print command to printer (bug #41957).
Michael Godfrey <michaeldgodfrey@gmail.com>
parents:
17751
diff
changeset
|
807 cmd = sprintf ("%s %s", cmd, opts.printer); |
11113
a8ac114ec9ab
Stylefixes, replace end by endif.
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
11107
diff
changeset
|
808 endif |
11009 | 809 elseif (isempty (opts.lpr_binary)) |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
810 error ("print:nolpr", "print.m: 'lpr' not found in PATH"); |
11009 | 811 endif |
812 if (opts.debug) | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
813 fprintf ("lpr command: '%s'\n", cmd); |
11009 | 814 endif |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
815 |
11009 | 816 endfunction |
817 | |
818 function cmd = pstoedit (opts, devopt) | |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
819 |
11009 | 820 if (nargin < 2) |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
821 devopt = opts.devopt; |
11009 | 822 endif |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
823 |
11009 | 824 dos_shell = (ispc () && ! isunix ()); |
825 if (! isempty (opts.pstoedit_binary)) | |
826 if (dos_shell) | |
11551
84fa2ba414ee
print.m: Fix printing to eps for DOS.
Ben Abbott <bpabbott@mac.com>
parents:
11523
diff
changeset
|
827 cmd = sprintf ("%s -f %s 2> NUL", opts.pstoedit_binary, devopt); |
11009 | 828 else |
18857
7bbe3658c5ef
maint: Use "FIXME:" coding convention in m-files.
Rik <rik@octave.org>
parents:
18598
diff
changeset
|
829 ## FIXME: Is this the right thing to do for DOS? |
11009 | 830 cmd = sprintf ("%s -f %s 2> /dev/null", opts.pstoedit_binary, devopt); |
831 endif | |
832 elseif (isempty (opts.pstoedit_binary)) | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
833 error ("print:nopstoedit", "print.m: 'pstoedit' not found in PATH"); |
11009 | 834 endif |
835 if (opts.debug) | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
836 fprintf ("pstoedit command: '%s'\n", cmd); |
11009 | 837 endif |
21758
ffad2baa90f7
maint: Use newlines to make code more readable.
Rik <rik@octave.org>
parents:
21751
diff
changeset
|
838 |
11009 | 839 endfunction |