octave-nkf: scripts/plot/util/print.m annotate

annotate scripts/plot/util/print.m @ 19929:abc158e7122e

Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). * print.m: Test whether ghostscript supports newer eps2write or only older epswrite. Cache value for future print jobs.

author	Rik <rik@octave.org>
date	Mon, 16 Feb 2015 14:29:43 -0800
parents	18fd412c7dc3
children	5f2c0ca0ef51

rev	line source
19898 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19837 diff changeset	1 ## Copyright (C) 2008-2015 David Bateman
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	2 ##
5362 ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	3 ## This file is part of Octave.
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	4 ##
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6965 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6965 diff changeset	8 ## your option) any later version.
5362 ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	9 ##
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	13 ## General Public License for more details.
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	14 ##
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6965 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6965 diff changeset	17 ## <http://www.gnu.org/licenses/>.
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	18
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	19 ## -- texinfo --
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10791 diff changeset	20 ## @deftypefn {Function File} {} print ()
9393 d6c99b2ee941 print.m: reimplement options -landscape and -portrait. Ben Abbott <bpabbott@mac.com> parents: 9337 diff changeset	21 ## @deftypefnx {Function File} {} print (@var{options})
d6c99b2ee941 print.m: reimplement options -landscape and -portrait. Ben Abbott <bpabbott@mac.com> parents: 9337 diff changeset	22 ## @deftypefnx {Function File} {} print (@var{filename}, @var{options})
7550 bffb1e2ab732 print.m: Figure handle as argument. Ben Abbott <bpabbott@mac.com> parents: 7543 diff changeset	23 ## @deftypefnx {Function File} {} 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 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	28 ##
14456 05635e4c605a Improve documentation for print(). Ben Abbott <bpabbott@mac.com> parents: 14382 diff changeset	29 ## @var{filename} defines the name of the output file. If the
05635e4c605a Improve documentation for print(). Ben Abbott <bpabbott@mac.com> parents: 14382 diff changeset	30 ## file name has no suffix, one is inferred from the specified
05635e4c605a Improve documentation for print(). Ben Abbott <bpabbott@mac.com> parents: 14382 diff changeset	31 ## device and appended to the file name. If no filename is
05635e4c605a Improve documentation for print(). Ben Abbott <bpabbott@mac.com> parents: 14382 diff changeset	32 ## specified, the output is sent to the printer.
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 ##
3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	37 ## For output to a printer, PostScript file, or PDF file,
14456 05635e4c605a Improve documentation for print(). Ben Abbott <bpabbott@mac.com> parents: 14382 diff changeset	38 ## the paper size is specified by the figure's @code{papersize}
14620 cd375519eab0 doc: Periodic grammar check of documentation Rik <octave@nomad.inbox5.com> parents: 14456 diff changeset	39 ## property. The location and size of the image on the page are
cd375519eab0 doc: Periodic grammar check of documentation Rik <octave@nomad.inbox5.com> parents: 14456 diff changeset	40 ## specified by the figure's @code{paperposition} property. The
14456 05635e4c605a Improve documentation for print(). Ben Abbott <bpabbott@mac.com> parents: 14382 diff changeset	41 ## orientation of the page is specified by the figure's
05635e4c605a Improve documentation for print(). Ben Abbott <bpabbott@mac.com> parents: 14382 diff changeset	42 ## @code{paperorientation} property.
05635e4c605a Improve documentation for print(). Ben Abbott <bpabbott@mac.com> parents: 14382 diff changeset	43 ##
05635e4c605a Improve documentation for print(). Ben Abbott <bpabbott@mac.com> parents: 14382 diff changeset	44 ## 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	45 ## @code{paperpositon(3:4)} property values.
05635e4c605a Improve documentation for print(). Ben Abbott <bpabbott@mac.com> parents: 14382 diff changeset	46 ##
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	47 ## The @code{print} command supports many @var{options}:
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	48 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	49 ## @table @code
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	50 ## @item -f@var{h}
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11551 diff changeset	51 ## Specify the handle, @var{h}, of the figure to be printed. The
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	52 ## default is the current figure.
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	53 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	54 ## @item -P@var{printer}
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	55 ## 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	56 ## @var{filename} is specified.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	57 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	58 ## @item -G@var{ghostscript_command}
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	59 ## Specify the command for calling Ghostscript. For Unix and Windows
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17174 diff changeset	60 ## the defaults are @qcode{"gs"} and @qcode{"gswin32c"}, respectively.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	61 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	62 ## @item -color
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	63 ## @itemx -mono
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	64 ## Color or monochrome output.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	65 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	66 ## @item -solid
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	67 ## @itemx -dashed
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	68 ## 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	69 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	70 ## @item -portrait
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	71 ## @itemx -landscape
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11551 diff changeset	72 ## Specify the orientation of the plot for printed output. For
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	73 ## non-printed output the aspect ratio of the output corresponds to
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17174 diff changeset	74 ## the plot area defined by the @qcode{"paperposition"} property in the
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	75 ## orientation specified. This option is equivalent to changing
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17174 diff changeset	76 ## the figure's @qcode{"paperorientation"} property.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	77 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	78 ## @item -TextAlphaBits=@var{n}
14774 0d6dae0f6bc2 Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits. John Hunt <huntj@gmx.us> parents: 14620 diff changeset	79 ## @itemx -GraphicsAlphaBits=@var{n}
0d6dae0f6bc2 Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits. John Hunt <huntj@gmx.us> parents: 14620 diff changeset	80 ## Octave is able to produce output for various printers, bitmaps, and
14852 53d2c3598d33 doc: Periodic spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 14774 diff changeset	81 ## vector formats by using Ghostscript.
53d2c3598d33 doc: Periodic spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 14774 diff changeset	82 ## For bitmap and printer output anti-aliasing is applied using
53d2c3598d33 doc: Periodic spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 14774 diff changeset	83 ## Ghostscript's TextAlphaBits and GraphicsAlphaBits options.
14774 0d6dae0f6bc2 Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits. John Hunt <huntj@gmx.us> parents: 14620 diff changeset	84 ## The default number of bits for each is 4.
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	85 ## 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	86 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	87 ## @item -d@var{device}
14774 0d6dae0f6bc2 Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits. John Hunt <huntj@gmx.us> parents: 14620 diff changeset	88 ## The available output format is specified by the option @var{device},
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	89 ## and is one of:
14366 b76f0740940e doc: Periodic grammar check of documentation. Rik <octave@nomad.inbox5.com> parents: 14356 diff changeset	90 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	91 ## @table @code
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	92 ## @item ps
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	93 ## @itemx ps2
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	94 ## @itemx psc
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	95 ## @itemx psc2
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	96 ## 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	97 ## toolkit generates PostScript level 3.0.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	98 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	99 ## @item eps
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	100 ## @itemx eps2
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	101 ## @itemx epsc
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	102 ## @itemx epsc2
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	103 ## 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	104 ## 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	105 ##
19218 d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	106 ## @item pslatex
6739 db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	107 ## @itemx epslatex
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	108 ## @itemx pdflatex
19218 d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	109 ## @itemx pslatexstandalone
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	110 ## @itemx epslatexstandalone
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	111 ## @itemx pdflatexstandalone
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	112 ## 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	113 ## 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	114 ## 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	115 ## 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	116 ## @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	117 ## 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	118 ## 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	119 ## 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	120 ## 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	121 ## 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	122 ## @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	123 ## 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	124 ## 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	125 ## 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	126 ## 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	127 ## 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	128 ## formats, are not available with the Gnuplot toolkit.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	129 ##
9468 5af462716bff Add support for gnuplot's Lua-TikZ terminal. Ben Abbott <bpabbott@mac.com> parents: 9393 diff changeset	130 ## @item tikz
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	131 ## Generate a @LaTeX{} file using PGF/TikZ@. For the FLTK toolkit
3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	132 ## the result is PGF.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	133 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	134 ## @item ill
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	135 ## @itemx aifm
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	136 ## Adobe Illustrator (Obsolete for Gnuplot versions > 4.2)
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	137 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	138 ## @item cdr
10791 3140cb7a05a1 Add spellchecker scripts for Octave and run spellcheck of documentation Rik <octave@nomad.inbox5.com> parents: 10727 diff changeset	139 ## @itemx @nospell{corel}
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	140 ## CorelDraw
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	141 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	142 ## @item dxf
c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	143 ## AutoCAD
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	144 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	145 ## @item emf
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	146 ## @itemx meta
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	147 ## Microsoft Enhanced Metafile
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	148 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	149 ## @item fig
11576 8ac9687dbe9f rename backend to graphics_toolkit John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	150 ## XFig. For the Gnuplot graphics toolkit, the additional options
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	151 ## @option{-textspecial} or @option{-textnormal} can be used to control
3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	152 ## whether the special flag should be set for the text in
3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	153 ## the figure. (default is @option{-textnormal})
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	154 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	155 ## @item hpgl
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	156 ## HP plotter language
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	157 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	158 ## @item mf
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	159 ## Metafont
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	160 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	161 ## @item png
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	162 ## Portable network graphics
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	163 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	164 ## @item jpg
7543 b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	165 ## @itemx jpeg
b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	166 ## JPEG image
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	167 ##
7543 b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	168 ## @item gif
11576 8ac9687dbe9f rename backend to graphics_toolkit John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	169 ## GIF image (only available for the Gnuplot graphics toolkit)
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	170 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	171 ## @item pbm
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	172 ## PBMplus
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	173 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	174 ## @item svg
c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	175 ## Scalable vector graphics
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	176 ##
7396 0114d8cd1587 [project @ 2008-01-17 21:55:55 by jwe] jwe parents: 7341 diff changeset	177 ## @item pdf
0114d8cd1587 [project @ 2008-01-17 21:55:55 by jwe] jwe parents: 7341 diff changeset	178 ## Portable document format
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	179 ## @end table
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	180 ##
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	181 ## 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	182 ## or if there is no filename it is sent to the printer as PostScript.
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	183 ##
10423 dfc662a47b7a print.m: Add '-append' option. Ben Abbott <bpabbott@mac.com> parents: 10422 diff changeset	184 ## @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	185 ## 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	186 ## Some examples are;
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	187 ##
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	188 ## @table @code
19218 d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	189 ## @item pdfwrite
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	190 ## 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	191 ##
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11576 diff changeset	192 ## @item ljet2p
16826 a4969508008e doc: Periodic spellcheck of the documentation. Rik <rik@octave.org> parents: 16766 diff changeset	193 ## HP LaserJet @nospell{IIP}
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	194 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	195 ## @item pcx24b
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	196 ## 24-bit color PCX file format
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	197 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	198 ## @item ppm
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	199 ## Portable Pixel Map file format
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	200 ## @end table
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	201 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	202 ## 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	203 ## and devices are available.
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	204 ##
10791 3140cb7a05a1 Add spellchecker scripts for Octave and run spellcheck of documentation Rik <octave@nomad.inbox5.com> parents: 10727 diff changeset	205 ## When Ghostscript output is sent to a printer the size is determined
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17174 diff changeset	206 ## by the figure's @qcode{"papersize"} property. When the output
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	207 ## is sent to a file the size is determined by the plot box defined by
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17174 diff changeset	208 ## the figure's @qcode{"paperposition"} property.
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	209 ##
16094 8899c785cc99 doc: Fix warnings associated with Texinfo 5.0 (bug #38392) Rik <rik@octave.org> parents: 15301 diff changeset	210 ## @item -append
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	211 ## 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	212 ##
16094 8899c785cc99 doc: Fix warnings associated with Texinfo 5.0 (bug #38392) Rik <rik@octave.org> parents: 15301 diff changeset	213 ## @item -r@var{NUM}
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11576 diff changeset	214 ## Resolution of bitmaps in pixels per inch. For both metafiles and
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	215 ## SVG the default is the screen resolution; for other formats it is 150 dpi.
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17174 diff changeset	216 ## To 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	217 ##
17129 9d9fe4361870 print.m: Document that '-loose' is default option for eps. Rik <rik@octave.org> parents: 17122 diff changeset	218 ## @item -loose
9d9fe4361870 print.m: Document that '-loose' is default option for eps. Rik <rik@octave.org> parents: 17122 diff changeset	219 ## @itemx -tight
9d9fe4361870 print.m: Document that '-loose' is default option for eps. Rik <rik@octave.org> parents: 17122 diff changeset	220 ## Force a tight or loose bounding box for eps files. The default is loose.
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	221 ##
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	222 ## @item -@var{preview}
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	223 ## Add a preview to eps files. Supported formats are:
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	224 ##
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	225 ## @table @code
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	226 ## @item -interchange
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	227 ## Provide an interchange preview.
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	228 ##
19906 ef3cdadc2a08 doc: print.m: Fix typo metalfile -> metafile Andreas Weber <andy.weber.aw@gmail.com> parents: 19898 diff changeset	229 ## @item -metafile
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	230 ## Provide a metafile preview.
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	231 ##
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	232 ## @item -pict
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	233 ## Provide pict preview.
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	234 ##
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	235 ## @item -tiff
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	236 ## Provide a tiff preview.
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	237 ## @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	238 ##
10841 1577accf2ed8 print.m: Update documentation string. Change to active voice. Rik <octave@nomad.inbox5.com> parents: 10834 diff changeset	239 ## @item -S@var{xsize},@var{ysize}
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	240 ## Plot size in pixels for EMF, GIF, JPEG, PBM, PNG, and SVG@. For
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	241 ## PS, EPS, PDF, and other vector formats the plot size is in points.
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	242 ## This option is equivalent to changing the size of the plot box
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17174 diff changeset	243 ## associated with the @qcode{"paperposition"} property. When using the
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17174 diff changeset	244 ## command form of the print function you must quote the
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17174 diff changeset	245 ## @var{xsize},@var{ysize} option. For example, by writing @w{"-S640,480"}.
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	246 ##
17122 eaab03308c0b doc: Rewrite docstrings for most plot functions. Rik <rik@octave.org> parents: 16933 diff changeset	247 ## @item -F@var{fontname}
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	248 ## @itemx -F@var{fontname}:@var{size}
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	249 ## @itemx -F:@var{size}
15301 3d05b55c91c7 doc: Clean up docstring for print.m. Rik <rik@octave.org> parents: 15214 diff changeset	250 ## 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	251 ## @var{fontname} is ignored for some devices: dxf, fig, hpgl, etc.
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	252 ## @end table
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	253 ##
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	254 ## 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	255 ##
19218 d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	256 ## 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	257 ##
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	258 ## @example
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11551 diff changeset	259 ## @group
14327 4d917a6a858b doc: Use Octave coding conventions in @example blocks of docstrings. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	260 ## figure (1);
4d917a6a858b doc: Use Octave coding conventions in @example blocks of docstrings. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	261 ## clf ();
4d917a6a858b doc: Use Octave coding conventions in @example blocks of docstrings. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	262 ## surf (peaks);
19218 d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	263 ## print figure1.pdf
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11551 diff changeset	264 ## @end group
11107 811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	265 ## @end example
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	266 ##
19218 d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	267 ## 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	268 ##
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	269 ## @example
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11551 diff changeset	270 ## @group
14327 4d917a6a858b doc: Use Octave coding conventions in @example blocks of docstrings. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	271 ## clf ();
4d917a6a858b doc: Use Octave coding conventions in @example blocks of docstrings. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	272 ## surf (peaks);
19218 d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	273 ## print -djpg figure2.jpg
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	274 ## @end group
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	275 ## @end example
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	276 ##
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	277 ## 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	278 ##
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	279 ## @example
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	280 ## @group
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	281 ## clf ();
d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	282 ## surf (peaks);
19790 446c46af4b42 strip trailing whitespace from most source files John W. Eaton <jwe@octave.org> parents: 19218 diff changeset	283 ## print -dpswrite -PPS_printer
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11551 diff changeset	284 ## @end group
11107 811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	285 ## @end example
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	286 ##
18715 13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: 17751 diff changeset	287 ## @seealso{saveas, hgsave, orient, figure}
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	288 ## @end deftypefn
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	289
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	290 function print (varargin)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	291
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	292 opts = __print_parse_opts__ (varargin{:});
7550 bffb1e2ab732 print.m: Figure handle as argument. Ben Abbott <bpabbott@mac.com> parents: 7543 diff changeset	293
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	294 opts.pstoedit_cmd = @pstoedit;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	295 opts.fig2dev_cmd = @fig2dev;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	296 opts.latex_standalone = @latex_standalone;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	297 opts.lpr_cmd = @lpr;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	298 opts.epstool_cmd = @epstool;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	299
19218 d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	300 if (isempty (opts.figure) \|\| ! isfigure (opts.figure))
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	301 error ("print: no figure to print");
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	302 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	303
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	304 orig_figure = get (0, "currentfigure");
17146 bbda4d952eb5 Fix pop-up of invisible figures during printing. Rik <rik@octave.org> parents: 17129 diff changeset	305 set (0, "currentfigure", opts.figure);
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	306
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	307 if (opts.append_to_file)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	308 [~, ~, ext] = fileparts (opts.ghostscript.output);
19470 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 19270 diff changeset	309 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	310 copyfile (opts.ghostscript.output, opts.ghostscript.prepend);
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	311 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	312
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	313 unwind_protect
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	314
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	315 ## Modify properties as specified by options
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	316 props = [];
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	317
14355 a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	318 drawnow ();
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	319
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	320 ## print() requires figure units to be "pixels"
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	321 props(1).h = opts.figure;
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	322 props(1).name = "units";
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	323 props(1).value = {get(opts.figure, "units")};
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	324 set (opts.figure, "units", "pixels");
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	325
17742 4e225f952885 Fix shrinking axes when printing plots with legends (bug #40333). Rik <rik@octave.org> parents: 17723 diff changeset	326 ## 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	327 fpos = get (opts.figure, "position");
14355 a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	328 props(2).h = opts.figure;
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	329 props(2).name = "position";
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	330 props(2).value = {fpos};
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	331 fpos(3:4) = opts.canvas_size;
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	332 set (opts.figure, "position", fpos);
7550 bffb1e2ab732 print.m: Figure handle as argument. Ben Abbott <bpabbott@mac.com> parents: 7543 diff changeset	333
17742 4e225f952885 Fix shrinking axes when printing plots with legends (bug #40333). Rik <rik@octave.org> parents: 17723 diff changeset	334 ## Set figure background to none.
4e225f952885 Fix shrinking axes when printing plots with legends (bug #40333). Rik <rik@octave.org> parents: 17723 diff changeset	335 ## This is done both for consistency with Matlab and to eliminate
4e225f952885 Fix shrinking axes when printing plots with legends (bug #40333). Rik <rik@octave.org> parents: 17723 diff changeset	336 ## the visible box along the figure's perimeter.
14355 a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	337 props(3).h = opts.figure;
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	338 props(3).name = "color";
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	339 props(3).value{1} = get (props(3).h, props(3).name);
a6a5c5008e39 Print() function requires figure units to be "pixels". Ben Abbott <bpabbott@mac.com> parents: 14335 diff changeset	340 set (props(3).h, "color", "none");
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	341
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	342 if (opts.force_solid != 0)
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	343 h = findall (opts.figure, "-property", "linestyle");
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	344 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	345 for n = 1:numel (h)
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	346 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	347 props(m+n).name = "linestyle";
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	348 props(m+n).value = {get(h(n), "linestyle")};
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	349 endfor
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	350 if (opts.force_solid > 0)
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	351 linestyle = "-";
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	352 else
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	353 linestyle = "--";
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	354 endif
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	355 set (h, "linestyle", linestyle);
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	356 endif
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	357
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	358 if (opts.use_color < 0
11576 8ac9687dbe9f rename backend to graphics_toolkit John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	359 && ! strcmp (get (opts.figure, "__graphics_toolkit__"), "gnuplot"))
10866 045558999570 print.m: Include 'colormap' when converting RGB to mono. Ben Abbott <bpabbott@mac.com> parents: 10860 diff changeset	360 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	361 for c = 1:numel (color_props)
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	362 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	363 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	364 h = setdiff (h, hnone);
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	365 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	366 for n = 1:numel (h)
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	367 if (ishandle (h(n)))
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	368 ## 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	369 ## 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	370 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	371 props(end+1).h = h(n);
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	372 props(end).name = color_props{c};
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	373 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	374 if (isnumeric (rgb))
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	375 ## 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	376 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	377 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	378 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	379 endif
10866 045558999570 print.m: Include 'colormap' when converting RGB to mono. Ben Abbott <bpabbott@mac.com> parents: 10860 diff changeset	380 endif
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	381 endfor
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	382 endfor
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	383 endif
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	384
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	385 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	386 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	387 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	388 for n = 1:numel (h)
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	389 if (ishandle (h(n)))
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	390 if (! isempty (opts.font))
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	391 props(end+1).h = h(n);
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	392 props(end).name = "fontname";
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	393 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	394 endif
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	395 endif
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	396 if (ishandle (h(n)))
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	397 if (! isempty (opts.fontsize))
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	398 props(end+1).h = h(n);
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	399 props(end).name = "fontsize";
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	400 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	401 endif
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	402 endif
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	403 endfor
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	404 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	405 set (h(ishandle (h)), "fontname", opts.font);
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	406 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	407 if (! isempty (opts.fontsize))
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	408 if (ischar (opts.fontsize))
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	409 fontsize = str2double (opts.fontsize);
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	410 else
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	411 fontsize = opts.fontsize;
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	412 endif
15214 ae6b7ee0a733 print.m: Correct typo preventing fontsize to be set (bug #37163) Rik <rik@octave.org> parents: 14872 diff changeset	413 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	414 ## This is done to work around the bbox being whole numbers.
df695e37d404 Make sure "print '-SX,Y' ..." doesn't round down a pixel. Bug # 35307. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	415 fontsize = fontsize * opts.scalefontsize;
df695e37d404 Make sure "print '-SX,Y' ..." doesn't round down a pixel. Bug # 35307. Ben Abbott <bpabbott@mac.com> parents: 14138 diff changeset	416 endif
17723 132d9f543cc5 print.m: 2nd fix for printing when using -F option (bug #40334) Rik <rik@octave.org> parents: 17721 diff changeset	417 ## 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	418 ## 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	419 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	420 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	421 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	422 set (hlist(haxes), "fontsize", fontsize);
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	423 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	424 endif
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	425
19218 d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	426 ## call the graphics toolkit print script
11576 8ac9687dbe9f rename backend to graphics_toolkit John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	427 switch (get (opts.figure, "__graphics_toolkit__"))
17174 c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	428 case "gnuplot"
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	429 opts = __gnuplot_print__ (opts);
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	430 otherwise
19837 3b0b4d55002d rename __fltk_print__.m to __opengl_print__.m John W. Eaton <jwe@octave.org> parents: 19793 diff changeset	431 opts = __opengl_print__ (opts);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	432 endswitch
19907 18fd412c7dc3 Remove erroneously added "keyboard" in cset ef3cdadc2a08 Andreas Weber <andy.weber.aw@gmail.com> parents: 19906 diff changeset	433
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	434 unwind_protect_cleanup
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	435 ## restore modified properties
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	436 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	437 ## Restore figure position and units first
e2f83152e64a print.m: Restore figure position first (in pixels) and then original units. Rik <rik@octave.org> parents: 17744 diff changeset	438 for n = 2:-1:1
e2f83152e64a print.m: Restore figure position first (in pixels) and then original units. Rik <rik@octave.org> parents: 17744 diff changeset	439 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	440 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	441 endif
e2f83152e64a print.m: Restore figure position first (in pixels) and then original units. Rik <rik@octave.org> parents: 17744 diff changeset	442 endfor
e2f83152e64a print.m: Restore figure position first (in pixels) and then original units. Rik <rik@octave.org> parents: 17744 diff changeset	443 for n = numel (props):-1:3
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	444 if (ishandle (props(n).h))
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	445 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	446 endif
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	447 endfor
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	448 endif
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	449
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	450 ## 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	451 for n = 1:numel (opts.unlink)
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	452 [status, output] = unlink (opts.unlink{n});
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	453 if (status != 0)
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	454 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	455 endif
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	456 endfor
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	457 end_unwind_protect
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	458
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	459 if (isfigure (orig_figure))
17146 bbda4d952eb5 Fix pop-up of invisible figures during printing. Rik <rik@octave.org> parents: 17129 diff changeset	460 set (0, "currentfigure", orig_figure);
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	461 endif
5363 37f62a7778c2 [project @ 2005-05-23 19:52:15 by jwe] jwe parents: 5362 diff changeset	462
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	463 endfunction
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	464
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	465 function cmd = epstool (opts, filein, fileout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	466 ## As epstool does not work with pipes, a subshell is used to
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	467 ## permit piping. Since this solution does not work with the DOS
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	468 ## command shell, the -tight and -preview options are disabled if
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	469 ## output must be piped.
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	470
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	471 ## DOS Shell:
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	472 ## gs.exe [...] -sOutputFile=<filein> - & epstool -bbox -preview-tiff <filein> <fileout> & del <filein>
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	473 ## Unix Shell;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	474 ## cat > <filein> ; epstool -bbox -preview-tiff <filein> <fileout> ; rm <filein>
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	475
19929 abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	476 ## 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: 19907 diff changeset	477 persistent epsdevice;
abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	478 if (isempty (epsdevice))
abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	479 [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: 19907 diff changeset	480 if (isempty (strfind (devlist, "eps2write")))
abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	481 epsdevice = "epswrite";
abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	482 else
abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	483 epsdevice = "eps2write";
abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	484 endif
abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	485 endif
abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	486
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	487 dos_shell = (ispc () && ! isunix ());
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	488
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	489 cleanup = "";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	490 if (nargin < 3)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	491 fileout = opts.name;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	492 elseif (isempty (fileout))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	493 fileout = "-";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	494 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	495
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	496 if (nargin < 2 \|\| strcmp (filein, "-") \|\| isempty (filein))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	497 pipein = true;
19470 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 19270 diff changeset	498 filein = [tempname() ".eps"];
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	499 if (dos_shell)
11252 d048ce3f7cef Replace "delete" with "del" in DOS shell commands. Michael Goffioul <michael.goffioul@gmail.com> parents: 11120 diff changeset	500 cleanup = sprintf ("& del %s ", strrep (filein, '/', '\'));
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	501 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	502 cleanup = sprintf ("; rm %s ", filein);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	503 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	504 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	505 pipein = false;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	506 filein = strcat ("'", strtrim (filein), "'");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	507 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	508 if (strcmp (fileout, "-"))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	509 pipeout = true;
19470 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 19270 diff changeset	510 fileout = [tempname() ".eps"];
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	511 if (dos_shell)
11252 d048ce3f7cef Replace "delete" with "del" in DOS shell commands. Michael Goffioul <michael.goffioul@gmail.com> parents: 11120 diff changeset	512 cleanup = horzcat (cleanup, sprintf ("& del %s ", strrep (fileout, '/', '\')));
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	513 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	514 cleanup = horzcat (cleanup, sprintf ("; rm %s ", fileout));
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	515 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	516 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	517 pipeout = false;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	518 fileout = strcat ("'", strtrim (fileout), "'");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	519 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	520
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	521 if (! isempty (opts.preview) && opts.tight_flag)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	522 warning ("print:previewandtight",
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	523 "print.m: eps preview may not be combined with -tight");
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	524 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	525 if (! isempty (opts.preview) \|\| opts.tight_flag)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	526 if (! isempty (opts.epstool_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	527 if (opts.tight_flag)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	528 cmd = "--copy --bbox";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	529 elseif (! isempty (opts.preview))
16933 e39f00a32dc7 maint: Use parentheses around condition for switch(),while(),if() statements. Rik <rik@octave.org> parents: 16826 diff changeset	530 switch (opts.preview)
17174 c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	531 case "tiff"
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	532 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	533 case {"tiff6u", "tiff6p", "metafile"}
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	534 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	535 case {"tiff4", "interchange"}
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	536 cmd = sprintf ("--add-%s-preview", opts.preview);
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	537 case "pict"
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	538 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	539 otherwise
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	540 error ("print:invalidpreview",
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	541 "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	542 opts.preview);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	543 endswitch
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	544 if (! isempty (opts.ghostscript.resolution))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	545 cmd = sprintf ("%s --dpi %d", cmd, opts.ghostscript.resolution);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	546 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	547 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	548 cmd = "";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	549 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	550 if (! isempty (cmd))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	551 cmd = sprintf ("%s --quiet %s %s %s ", opts.epstool_binary,
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	552 cmd, filein, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	553 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	554 if (pipein)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	555 if (dos_shell)
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	556 filein(filein=="'") = "\"";
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	557 gs_cmd = __ghostscript__ ("binary", opts.ghostscript.binary,
19929 abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	558 "device", epsdevice,
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	559 "source", "-",
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	560 "output", filein);
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	561 cmd = sprintf ("%s %s & %s", gs_cmd, filein, cmd);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	562 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	563 cmd = sprintf ("cat > %s ; %s", filein, cmd);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	564 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	565 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	566 if (pipeout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	567 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	568 cmd = sprintf ("%s & type %s", cmd, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	569 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	570 cmd = sprintf ("%s ; cat %s", cmd, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	571 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	572 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	573 if (! isempty (cleanup))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	574 if (pipeout && dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	575 error ("print:epstoolpipe",
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	576 "print.m: cannot pipe output of 'epstool' for DOS shell");
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	577 elseif (pipeout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	578 cmd = sprintf ("( %s %s )", cmd, cleanup);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	579 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	580 cmd = sprintf ("%s %s", cmd, cleanup);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	581 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	582 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	583 elseif (isempty (opts.epstool_binary))
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	584 error ("print:noepstool", "print.m: 'epstool' not found in PATH");
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	585 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	586 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	587 if (pipein && pipeout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	588 if (dos_shell)
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	589 cmd = __ghostscript__ ("binary", opts.ghostscript.binary,
19929 abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	590 "device", epsdevice,
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	591 "source", "-",
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	592 "output", "-");
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	593 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	594 cmd = " cat ";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	595 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	596 elseif (pipein && ! pipeout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	597 if (dos_shell)
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	598 ## ghostscript expects double, not single, quotes
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	599 fileout(fileout=="'") = "\"";
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	600 cmd = __ghostscript__ ("binary", opts.ghostscript.binary,
19929 abc158e7122e Use epswrite/eps2write depending on capabilities of ghostscript (bug #44186). Rik <rik@octave.org> parents: 19907 diff changeset	601 "device", epsdevice,
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	602 "source", "-",
84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	603 "output", fileout);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	604 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	605 cmd = sprintf (" cat > %s ", fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	606 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	607 elseif (! pipein && pipeout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	608 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	609 cmd = sprintf (" type %s ", filein);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	610 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	611 cmd = sprintf (" cat %s ", filein);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	612 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	613 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	614 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	615 cmd = sprintf (" copy %s %s ", filein, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	616 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	617 cmd = sprintf (" cp %s %s ", filein, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	618 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	619 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	620 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	621 if (opts.debug)
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	622 fprintf ("epstool command: '%s'\n", cmd);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	623 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	624 endfunction
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	625
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	626 function cmd = fig2dev (opts, devopt)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	627 if (nargin < 2)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	628 devopt = opts.devopt;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	629 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	630 dos_shell = (ispc () && ! isunix ());
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	631 if (! isempty (opts.fig2dev_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	632 if (dos_shell)
19047 7bbe3658c5ef maint: Use "FIXME:" coding convention in m-files. Rik <rik@octave.org> parents: 18746 diff changeset	633 ## 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	634 cmd = sprintf ("%s -L %s 2> NUL", opts.fig2dev_binary, devopt);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	635 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	636 cmd = sprintf ("%s -L %s 2> /dev/null", opts.fig2dev_binary, devopt);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	637 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	638 elseif (isempty (opts.fig2dev_binary))
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	639 error ("print:nofig2dev", "print.m: 'fig2dev' not found in PATH");
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	640 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	641 if (opts.debug)
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	642 fprintf ("fig2dev command: '%s'\n", cmd);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	643 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	644 endfunction
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	645
12199 3fc07861449b Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	646 function latex_standalone (opts)
3fc07861449b Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	647 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	648 if (! isempty (n))
3fc07861449b Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	649 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	650 endif
3fc07861449b Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	651 latexfile = strcat (opts.name, ".tex");
16933 e39f00a32dc7 maint: Use parentheses around condition for switch(),while(),if() statements. Rik <rik@octave.org> parents: 16826 diff changeset	652 switch (opts.devopt)
17174 c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	653 case {"pdflatexstandalone"}
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	654 packages = "\\usepackage{graphicx,color}";
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	655 graphicsfile = strcat (opts.name, "-inc.pdf");
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	656 case {"pslatexstandalone"}
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	657 packages = "\\usepackage{epsfig,color}";
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	658 graphicsfile = strcat (opts.name, "-inc.ps");
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	659 otherwise
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	660 packages = "\\usepackage{epsfig,color}";
c3c1ebfaa7dc maint: Use common indentation for switch statement. Rik <rik@octave.org> parents: 17146 diff changeset	661 graphicsfile = strcat (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	662 endswitch
3fc07861449b Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	663 papersize = sprintf ("\\usepackage[papersize={%.2fbp,%.2fbp},text={%.2fbp,%.2fbp}]{geometry}",
3fc07861449b Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	664 opts.canvas_size, opts.canvas_size);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	665 prepend = {"\\documentclass{minimal}";
12199 3fc07861449b Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	666 packages;
3fc07861449b Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	667 papersize;
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	668 "\\begin{document}";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	669 "\\centering"};
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	670 postpend = {"\\end{document}"};
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	671 fid = fopen (latexfile, "r");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	672 if (fid >= 0)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	673 latex = fscanf (fid, "%c", Inf);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	674 status = fclose (fid);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	675 if (status != 0)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	676 error ("print:errorclosingfile",
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	677 "print.m: error closing file '%s'", latexfile);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	678 endif
12199 3fc07861449b Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	679 ## TODO - should this be fixed in GL2PS?
13141 e81ddf9cacd5 maint: untabify and remove trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 12199 diff changeset	680 latex = strrep (latex, "\\includegraphics{}",
12199 3fc07861449b Fix {eps,ps,pdf}latexstandalone printing for fltk, bug 32262. Ben Abbott <bpabbott@mac.com> parents: 11589 diff changeset	681 sprintf ("\\includegraphics{%s}", graphicsfile));
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	682 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	683 error ("print:erroropeningfile",
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	684 "print.m: error opening file '%s'", latexfile);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	685 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	686 fid = fopen (latexfile, "w");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	687 if (fid >= 0)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	688 fprintf (fid, "%s\n", prepend{:});
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	689 fprintf (fid, "%s", latex);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	690 fprintf (fid, "%s\n", postpend{:});
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	691 status = fclose (fid);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	692 if (status != 0)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	693 error ("print:errorclosingfile",
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	694 "print.m: error closing file '%s'", latexfile);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	695 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	696 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	697 error ("print:erroropeningfile",
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	698 "print.m: error opening file '%s'", latexfile);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	699 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	700 endfunction
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	701
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	702 function cmd = lpr (opts)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	703 if (nargin < 2)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	704 devopt = opts.devopt;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	705 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	706 if (! isempty (opts.lpr_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	707 cmd = opts.lpr_binary;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	708 if (! isempty (opts.lpr_options))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	709 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	710 endif
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	711 if (! isempty (opts.printer))
19218 d6f1f46e5b8f Fix double '-P' in print command to printer (bug #41957). Michael Godfrey <michaeldgodfrey@gmail.com> parents: 17751 diff changeset	712 cmd = sprintf ("%s %s", cmd, opts.printer);
11113 a8ac114ec9ab Stylefixes, replace end by endif. Thorsten Meyer <thorsten.meyier@gmx.de> parents: 11107 diff changeset	713 endif
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	714 elseif (isempty (opts.lpr_binary))
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	715 error ("print:nolpr", "print.m: 'lpr' not found in PATH");
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	716 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	717 if (opts.debug)
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	718 fprintf ("lpr command: '%s'\n", cmd);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	719 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	720 endfunction
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	721
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	722 function cmd = pstoedit (opts, devopt)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	723 if (nargin < 2)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	724 devopt = opts.devopt;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	725 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	726 dos_shell = (ispc () && ! isunix ());
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	727 if (! isempty (opts.pstoedit_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	728 if (dos_shell)
11551 84fa2ba414ee print.m: Fix printing to eps for DOS. Ben Abbott <bpabbott@mac.com> parents: 11523 diff changeset	729 cmd = sprintf ("%s -f %s 2> NUL", opts.pstoedit_binary, devopt);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	730 else
19047 7bbe3658c5ef maint: Use "FIXME:" coding convention in m-files. Rik <rik@octave.org> parents: 18746 diff changeset	731 ## FIXME: Is this the right thing to do for DOS?
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	732 cmd = sprintf ("%s -f %s 2> /dev/null", opts.pstoedit_binary, devopt);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	733 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	734 elseif (isempty (opts.pstoedit_binary))
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	735 error ("print:nopstoedit", "print.m: 'pstoedit' not found in PATH");
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	736 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	737 if (opts.debug)
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	738 fprintf ("pstoedit command: '%s'\n", cmd);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	739 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	740 endfunction
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	741

Mercurial > hg > octave-nkf

annotate scripts/plot/util/print.m @ 19929:abc158e7122e