octave: scripts/plot/print.m annotate

annotate scripts/plot/print.m @ 11113:a8ac114ec9ab

Stylefixes, replace end by endif.

author	Thorsten Meyer <thorsten.meyier@gmx.de>
date	Mon, 18 Oct 2010 20:40:12 +0200
parents	811b51cdddce
children	a44f979a35ce

rev	line source
10727 570f30a48732 split printing between backends Shai Ayal <shaiay@users.sourceforge.net> parents: 10711 diff changeset	1 ## Copyright (C) 2008, 2009 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})
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	24 ## Print a graph, or save it to a file
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	25 ##
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	26 ## @var{filename} defines the file name of the output file. If the
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	27 ## file name has no suffix, one is inferred from the specified
10472 944aa97069ed print.m: Provide default suffixes & validate hardcopy format. Ben Abbott <bpabbott@mac.com> parents: 10423 diff changeset	28 ## device and appended to the file name. If no
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	29 ## filename is specified, the output is sent to the printer.
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	30 ##
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	31 ## @var{h} specifies the figure handle. If no handle is specified
7550 bffb1e2ab732 print.m: Figure handle as argument. Ben Abbott <bpabbott@mac.com> parents: 7543 diff changeset	32 ## the handle for the current figure is used.
bffb1e2ab732 print.m: Figure handle as argument. Ben Abbott <bpabbott@mac.com> parents: 7543 diff changeset	33 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	34 ## @var{options}:
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	35 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	36 ## @table @code
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	37 ## @item -f@var{h}
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	38 ## Specify the handle, @var{h}, of the figure to be printed. The
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	39 ## default is the current figure.
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	40 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	41 ## @item -P@var{printer}
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	42 ## Set the @var{printer} name to which the graph is sent if no
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	43 ## @var{filename} is specified.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	44 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	45 ## @item -G@var{ghostscript_command}
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	46 ## Specify the command for calling Ghostscript. For Unix and Windows,
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	47 ## the defaults are 'gs' and 'gswin32c', respectively.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	48 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	49 ## @item -color
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	50 ## @itemx -mono
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	51 ## Monochrome or color output.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	52 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	53 ## @item -solid
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	54 ## @itemx -dashed
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	55 ## Forces all lines to be solid or dashed, respectively.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	56 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	57 ## @item -portrait
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	58 ## @itemx -landscape
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	59 ## Specify the orientation of the plot for printed output. For
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	60 ## non-printed output the aspect ratio of the output corresponds to
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	61 ## the plot area defined by the "paperposition" property in the
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	62 ## orientation specified. This options is equivalent to changing
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	63 ## the figure's "paperorientation" property.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	64 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	65 ## @item -d@var{device}
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	66 ## Output device, where @var{device} is one of:
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	67 ## @table @code
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	68 ## @item ps
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	69 ## @itemx ps2
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	70 ## @itemx psc
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	71 ## @itemx psc2
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	72 ## Postscript (level 1 and 2, mono and color). The FLTK backend
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	73 ## generates Postscript level 3.0.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	74 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	75 ## @item eps
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	76 ## @itemx eps2
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	77 ## @itemx epsc
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	78 ## @itemx epsc2
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	79 ## Encapsulated postscript (level 1 and 2, mono and color). The FLTK backend
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	80 ## 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	81 ##
6739 db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	82 ## @item tex
db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	83 ## @itemx epslatex
db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	84 ## @itemx epslatexstandalone
db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	85 ## @itemx pstex
db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	86 ## @itemx pslatex
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	87 ## @itemx pdflatex
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	88 ## Generate a @LaTeX{} (or @TeX{}) file for labels, and eps/ps/pdf
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	89 ## for graphics. The file produced by @code{epslatexstandalone} can be
9209 923c7cb7f13f Simplify TeXinfo files by eliminating redundant @iftex followed by @tex construction. Rik <rdrider0-list@yahoo.com> parents: 9157 diff changeset	90 ## processed directly by @LaTeX{}. The other formats are intended to
923c7cb7f13f Simplify TeXinfo files by eliminating redundant @iftex followed by @tex construction. Rik <rdrider0-list@yahoo.com> parents: 9157 diff changeset	91 ## be included in a @LaTeX{} (or @TeX{}) document. The @code{tex} device
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	92 ## is the same as the @code{epslatex} device. The @code{pdflatex} device
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	93 ## is only available for the FLTK backend.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	94 ##
9468 5af462716bff Add support for gnuplot's Lua-TikZ terminal. Ben Abbott <bpabbott@mac.com> parents: 9393 diff changeset	95 ## @item tikz
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	96 ## Generate a @LaTeX{} file using PGF/TikZ. For the FLTK the result is
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	97 ## PGF.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	98 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	99 ## @item ill
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	100 ## @itemx aifm
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	101 ## Adobe Illustrator (Obsolete for Gnuplot versions > 4.2)
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	102 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	103 ## @item cdr
10791 3140cb7a05a1 Add spellchecker scripts for Octave and run spellcheck of documentation Rik <octave@nomad.inbox5.com> parents: 10727 diff changeset	104 ## @itemx @nospell{corel}
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	105 ## CorelDraw
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	106 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	107 ## @item dxf
c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	108 ## AutoCAD
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	109 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	110 ## @item emf
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	111 ## @itemx meta
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	112 ## Microsoft Enhanced Metafile
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	113 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	114 ## @item fig
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	115 ## XFig. For the Gnuplot backend, the additional options
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	116 ## @option{-textspecial} or @option{-textnormal} can be used to control
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	117 ## whether the special flag should be set for the text in
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	118 ## the figure (default is @option{-textnormal}).
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	119 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	120 ## @item hpgl
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	121 ## HP plotter language
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	122 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	123 ## @item mf
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	124 ## Metafont
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	125 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	126 ## @item png
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	127 ## Portable network graphics
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	128 ##
7543 b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	129 ## @item jpg
b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	130 ## @itemx jpeg
b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	131 ## JPEG image
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	132 ##
7543 b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	133 ## @item gif
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	134 ## GIF image (only available for the Gnuplot backend)
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	135 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	136 ## @item pbm
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	137 ## PBMplus
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	138 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	139 ## @item svg
c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	140 ## Scalable vector graphics
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	141 ##
7396 0114d8cd1587 [project @ 2008-01-17 21:55:55 by jwe] jwe parents: 7341 diff changeset	142 ## @item pdf
0114d8cd1587 [project @ 2008-01-17 21:55:55 by jwe] jwe parents: 7341 diff changeset	143 ## Portable document format
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	144 ## @end table
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	145 ##
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	146 ## If the device is omitted, it is inferred from the file extension,
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	147 ## 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	148 ##
10423 dfc662a47b7a print.m: Add '-append' option. Ben Abbott <bpabbott@mac.com> parents: 10422 diff changeset	149 ## @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	150 ## 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	151 ## Some examples are;
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	152 ##
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	153 ## @table @code
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	154 ## @item ljet2p
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	155 ## HP LaserJet IIP
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	156 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	157 ## @item ljet3
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	158 ## HP LaserJet III
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	159 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	160 ## @item deskjet
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	161 ## HP DeskJet and DeskJet Plus
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	162 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	163 ## @item cdj550
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	164 ## HP DeskJet 550C
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	165 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	166 ## @item paintjet
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	167 ## HP PointJet
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	168 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	169 ## @item pcx24b
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	170 ## 24-bit color PCX file format
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	171 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	172 ## @item ppm
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	173 ## Portable Pixel Map file format
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	174 ##
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	175 ## @item pdfwrite
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	176 ## Produces pdf output from eps
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	177 ## @end table
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	178 ##
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	179 ## For a complete list, type `system ("gs -h")' to see what formats
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	180 ## and devices are available.
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	181 ##
10791 3140cb7a05a1 Add spellchecker scripts for Octave and run spellcheck of documentation Rik <octave@nomad.inbox5.com> parents: 10727 diff changeset	182 ## When Ghostscript output is sent to a printer the size is determined
3140cb7a05a1 Add spellchecker scripts for Octave and run spellcheck of documentation Rik <octave@nomad.inbox5.com> parents: 10727 diff changeset	183 ## by the figure's "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	184 ## is sent to a file the size is determined by the plot box defined by
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	185 ## the figure's "paperposition" property.
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	186 ##
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	187 ## @itemx -append
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	188 ## Appends the PS, or PDF output to a pre-existing file of the
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	189 ## same type.
10423 dfc662a47b7a print.m: Add '-append' option. Ben Abbott <bpabbott@mac.com> parents: 10422 diff changeset	190 ##
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	191 ## @itemx -r@var{NUM}
9209 923c7cb7f13f Simplify TeXinfo files by eliminating redundant @iftex followed by @tex construction. Rik <rdrider0-list@yahoo.com> parents: 9157 diff changeset	192 ## Resolution of bitmaps in pixels per inch. For both metafiles and
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	193 ## SVG the default is the screen resolution, for other it is 150 dpi.
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	194 ## To specify screen resolution, use "-r0".
8889 665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 8746 diff changeset	195 ##
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	196 ## @item -tight
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	197 ## Forces a tight bounding box for eps-files.
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	198 ##
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	199 ## @item -@var{preview}
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	200 ## Adds a preview to eps-files. Supported formats are;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	201 ##
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	202 ## @table @code
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	203 ## @item -interchange
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	204 ## Provides a interchange preview.
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	205 ##
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	206 ## @item -metalfile
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	207 ## Provides a metafile preview.
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	208 ##
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	209 ## @item -pict
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	210 ## Provides pict preview.
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	211 ##
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	212 ## @item -tiff
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	213 ## Provides a tiff preview.
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	214 ## @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	215 ##
10841 1577accf2ed8 print.m: Update documentation string. Change to active voice. Rik <octave@nomad.inbox5.com> parents: 10834 diff changeset	216 ## @item -S@var{xsize},@var{ysize}
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	217 ## Plot size in pixels for EMF, GIF, JPEG, PBM, PNG and SVG. For
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	218 ## 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	219 ## This option is equivalent to changing the size of the plot box
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	220 ## associated with "paperposition" property. Using the command form of
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	221 ## the print function, you must quote the @var{xsize},@var{ysize}
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	222 ## option. For example, by writing @w{@code{"-S640,480"}}.
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	223 ##
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	224 ## @item -F@var{fontname}
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	225 ## @itemx -F@var{fontname}:@var{size}
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	226 ## @itemx -F:@var{size}
10854 d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	227 ## Associates all text with the @var{fontname} and/or @var{fontsize}.
d5a7db05d591 Add PS and PDF output for the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10841 diff changeset	228 ## @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	229 ## @end table
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	230 ##
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	231 ## 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	232 ##
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	233 ## Example: Print to a file, using the svg device.
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	234 ##
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	235 ## @example
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	236 ## figure (1)
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	237 ## clf ()
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	238 ## surf (peaks)
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	239 ## print -dsvg figure1.svg
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	240 ## @end example
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	241 ##
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	242 ## Example: Print to an HP Deskjet 550C.
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	243 ##
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	244 ## @example
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	245 ## figure (1)
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	246 ## clf ()
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	247 ## surf (peaks)
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	248 ## print -dcdj550
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	249 ## @end example
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	250 ##
811b51cdddce print.m: Add examples to the docstring. Ben Abbott <bpabbott@mac.com> parents: 11014 diff changeset	251 ## @seealso{figure, orient}
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	252 ## @end deftypefn
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	253
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	254 function print (varargin)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	255
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	256 opts = __print_parse_opts__ (varargin{:});
7550 bffb1e2ab732 print.m: Figure handle as argument. Ben Abbott <bpabbott@mac.com> parents: 7543 diff changeset	257
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	258 opts.pstoedit_cmd = @pstoedit;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	259 opts.fig2dev_cmd = @fig2dev;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	260 opts.latex_standalone = @latex_standalone;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	261 opts.lpr_cmd = @lpr;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	262 opts.epstool_cmd = @epstool;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	263
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	264 if (! isfigure (opts.figure))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	265 error ("print: no figure to print.")
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	266 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	267
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	268 orig_figure = get (0, "currentfigure");
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	269 figure (opts.figure)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	270
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	271 if (opts.append_to_file)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	272 [~, ~, ext] = fileparts (opts.ghostscript.output);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	273 opts.ghostscript.prepend = strcat (tmpnam (), ext);
11014 92bb25c0da9e When appending, delete temporary files at the end of the ghostscript pipeline. Ben Abbott <bpabbott@mac.com> parents: 11009 diff changeset	274 copyfile (opts.ghostscript.output, opts.ghostscript.prepend);
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	275 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	276
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	277 unwind_protect
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	278
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	279 ## Modify properties as specified by options
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	280 props = [];
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	281
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	282 ## backend tranlates figure position to eps bbox in points
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	283 fpos = get (opts.figure, "position");
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	284 props(1).h = opts.figure;
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	285 props(1).name = "position";
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	286 props(1).value = {fpos};
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	287 fpos(3:4) = opts.canvas_size;
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	288 set (opts.figure, "position", fpos)
7550 bffb1e2ab732 print.m: Figure handle as argument. Ben Abbott <bpabbott@mac.com> parents: 7543 diff changeset	289
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	290 ## Set figure background to none. This is done both for
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	291 ## consistency with Matlab and to elliminate the visible
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	292 ## box along the figure's perimeter.
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	293 props(2).h = opts.figure;
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	294 props(2).name = "color";
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	295 props(2).value{1} = get (props(2).h, props(2).name);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	296 set (props(2).h, props(2).name, "none");
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	297
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	298 if (opts.force_solid != 0)
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	299 h = findall (opts.figure, "-property", "linestyle");
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	300 m = numel (props);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	301 for n = 1:numel(h)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	302 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	303 props(m+n).name = "linestyle";
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	304 props(m+n).value = {get(h(n), "linestyle")};
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	305 endfor
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	306 if (opts.force_solid > 0)
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	307 linestyle = "-";
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	308 else
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	309 linestyle = "--";
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	310 endif
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	311 set (h, "linestyle", linestyle)
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	312 endif
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	313
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	314 if (opts.use_color < 0
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	315 && ! strcmp (get (opts.figure, "__backend__"), "gnuplot"))
10866 045558999570 print.m: Include 'colormap' when converting RGB to mono. Ben Abbott <bpabbott@mac.com> parents: 10860 diff changeset	316 color_props = {"color", "facecolor", "edgecolor", "colormap"};
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	317 for c = 1:numel(color_props)
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	318 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	319 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	320 h = setdiff (h, hnone);
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	321 m = numel (props);
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	322 for n = 1:numel(h)
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	323 rgb = get (h(n), color_props{c});
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	324 props(m+n).h = h(n);
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	325 props(m+n).name = color_props{c};
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	326 props(m+n).value = {get(h(n), color_props{c})};
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	327 xfer = repmat ([0.30, 0.59, 0.11], size (rgb, 1), 1);
10866 045558999570 print.m: Include 'colormap' when converting RGB to mono. Ben Abbott <bpabbott@mac.com> parents: 10860 diff changeset	328 if (isnumeric (rgb))
045558999570 print.m: Include 'colormap' when converting RGB to mono. Ben Abbott <bpabbott@mac.com> parents: 10860 diff changeset	329 ## convert RGB color to RGB gray scale
045558999570 print.m: Include 'colormap' when converting RGB to mono. Ben Abbott <bpabbott@mac.com> parents: 10860 diff changeset	330 ggg = repmat (sum (xfer .* rgb, 2), 1, 3);
045558999570 print.m: Include 'colormap' when converting RGB to mono. Ben Abbott <bpabbott@mac.com> parents: 10860 diff changeset	331 set (h(n), color_props{c}, ggg)
045558999570 print.m: Include 'colormap' when converting RGB to mono. Ben Abbott <bpabbott@mac.com> parents: 10860 diff changeset	332 endif
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	333 endfor
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	334 endfor
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	335 endif
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	336
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	337 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	338 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	339 m = numel (props);
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	340 for n = 1:numel(h)
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	341 if (! isempty (opts.font))
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	342 props(end+1).h = h(n);
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	343 props(end).name = "fontname";
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	344 props(end).value = {get(h(n), "fontname")};
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	345 endif
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	346 if (! isempty (opts.fontsize))
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	347 props(end+1).h = h(n);
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	348 props(end).name = "fontsize";
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	349 props(end).value = {get(h(n), "fontsize")};
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	350 endif
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	351 endfor
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	352 if (! isempty (opts.font))
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	353 set (h, "fontname", opts.font)
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	354 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	355 if (! isempty (opts.fontsize))
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	356 if (ischar (opts.fontsize))
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	357 fontsize = str2double (opts.fontsize);
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	358 else
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	359 fontsize = opts.fontsize;
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	360 endif
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	361 set (h, "fontsize", fontsize)
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	362 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	363 endif
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	364
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	365 ## call the backend print script
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	366 switch get (opts.figure, "__backend__")
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	367 case "gnuplot"
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	368 opts = __gnuplot_print__ (opts);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	369 otherwise
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	370 opts = __fltk_print__ (opts);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	371 endswitch
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	372
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	373 unwind_protect_cleanup
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	374 ## restore modified properties
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	375 if (isstruct (props))
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	376 for n = 1:numel(props)
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	377 set (props(n).h, props(n).name, props(n).value{1})
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	378 endfor
3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	379 endif
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	380
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	381 ## Unlink temporary files
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	382 for n = 1:numel(opts.unlink)
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	383 [status, output] = unlink (opts.unlink{n});
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	384 if (status != 0)
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	385 warning ("print.m: %s, '%s'.", output, opts.unlink{n})
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	386 endif
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10866 diff changeset	387 endfor
10860 3a5f5c99cc39 print.m: Modify texinfo. Add unwind_protect block. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	388 end_unwind_protect
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	389
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	390 if (isfigure (orig_figure))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	391 figure (orig_figure);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	392 endif
5363 37f62a7778c2 [project @ 2005-05-23 19:52:15 by jwe] jwe parents: 5362 diff changeset	393
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	394 endfunction
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	395
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	396 function cmd = epstool (opts, filein, fileout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	397 ## 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	398 ## 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	399 ## command shell, the -tight and -preview options are disabled if
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	400 ## output must be piped.
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	401
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	402 ## DOS Shell:
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	403 ## copy con <filein> & epstool -bbox -preview-tiff <filein> <fileout> & delete <filein>
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	404 ## Unix Shell;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	405 ## cat > <filein> ; epstool -bbox -preview-tiff <filein> <fileout> ; rm <filein>
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	406
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	407 dos_shell = (ispc () && ! isunix ());
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	408
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	409 cleanup = "";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	410 if (nargin < 3)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	411 fileout = opts.name;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	412 elseif (isempty (fileout))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	413 fileout = "-";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	414 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	415
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	416 if (nargin < 2 \|\| strcmp (filein, "-") \|\| isempty (filein))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	417 pipein = true;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	418 filein = strcat (tmpnam (), ".eps");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	419 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	420 cleanup = sprintf ("& delete %s ", filein);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	421 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	422 cleanup = sprintf ("; rm %s ", filein);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	423 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	424 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	425 pipein = false;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	426 filein = strcat ("'", strtrim (filein), "'");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	427 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	428 if (strcmp (fileout, "-"))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	429 pipeout = true;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	430 fileout = strcat (tmpnam (), ".eps");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	431 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	432 cleanup = horzcat (cleanup, sprintf ("& delete %s ", fileout));
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	433 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	434 cleanup = horzcat (cleanup, sprintf ("; rm %s ", fileout));
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	435 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	436 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	437 pipeout = false;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	438 fileout = strcat ("'", strtrim (fileout), "'");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	439 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	440
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	441 if (! isempty (opts.preview) && opts.tight_flag)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	442 warning ("print:previewandtight",
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	443 "print.m: eps preview may not be combined with -tight.")
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	444 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	445 if (! isempty (opts.preview) \|\| opts.tight_flag)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	446 if (! isempty (opts.epstool_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	447 if (opts.tight_flag)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	448 cmd = "--copy --bbox";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	449 elseif (! isempty (opts.preview))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	450 switch opts.preview
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	451 case "tiff"
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	452 cmd = sprintf ("--add-%s-preview --device tiffg3", opts.preview);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	453 case {"tiff6u", "tiff6p", "metafile"}
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	454 cmd = sprintf ("--add-%s-preview --device bmpgray", opts.preview);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	455 case {"tiff4", "interchange"}
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	456 cmd = sprintf ("--add-%s-preview", opts.preview);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	457 case "pict"
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	458 cmd = sprintf ("--add-%s-preview --mac-single", opts.preview);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	459 otherwise
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	460 error ("print:invalidpreview",
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	461 "print.m: epstool cannot include preview for format '%s'",
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	462 opts.preview);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	463 endswitch
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	464 if (! isempty (opts.ghostscript.resolution))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	465 cmd = sprintf ("%s --dpi %d", cmd, opts.ghostscript.resolution);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	466 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	467 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	468 cmd = "";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	469 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	470 if (! isempty (cmd))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	471 cmd = sprintf ("%s --quiet %s %s %s ", opts.epstool_binary,
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	472 cmd, filein, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	473 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	474 if (pipein)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	475 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	476 cmd = sprintf ("copy con %s & %s", filein, cmd);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	477 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	478 cmd = sprintf ("cat > %s ; %s", filein, cmd);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	479 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	480 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	481 if (pipeout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	482 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	483 cmd = sprintf ("%s & type %s", cmd, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	484 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	485 cmd = sprintf ("%s ; cat %s", cmd, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	486 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	487 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	488 if (! isempty (cleanup))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	489 if (pipeout && dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	490 error ("print:epstoolpipe",
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	491 "print.m: cannot pipe output of 'epstool' for DOS shell.")
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	492 elseif (pipeout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	493 cmd = sprintf ("( %s %s )", cmd, cleanup);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	494 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	495 cmd = sprintf ("%s %s", cmd, cleanup);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	496 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	497 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	498 elseif (isempty (opts.epstool_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	499 error ("print:noepstool", "print.m: 'epstool' not found in EXEC_PATH.")
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	500 endif
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 if (pipein && pipeout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	503 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	504 cmd = sprintf ("copy con %s & type %s", filein, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	505 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	506 cmd = " cat ";
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 elseif (pipein && ! pipeout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	509 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	510 cmd = sprintf (" copy con %s ", fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	511 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	512 cmd = sprintf (" cat > %s ", fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	513 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	514 elseif (! pipein && pipeout)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	515 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	516 cmd = sprintf (" type %s ", filein);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	517 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	518 cmd = sprintf (" cat %s ", filein);
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 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	521 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	522 cmd = sprintf (" copy %s %s ", filein, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	523 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	524 cmd = sprintf (" cp %s %s ", filein, fileout);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	525 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	526 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	527 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	528 if (opts.debug)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	529 fprintf ("epstool command: '%s'\n", cmd)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	530 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	531 endfunction
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	532
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	533 function cmd = fig2dev (opts, devopt)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	534 if (nargin < 2)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	535 devopt = opts.devopt;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	536 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	537 dos_shell = (ispc () && ! isunix ());
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	538 if (! isempty (opts.fig2dev_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	539 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	540 ## FIXME - is this the right thing to do for DOS?
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	541 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	542 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	543 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	544 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	545 elseif (isempty (opts.fig2dev_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	546 error ("print:nofig2dev", "print.m: 'fig2dev' not found in EXEC_PATH.")
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	547 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	548 if (opts.debug)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	549 fprintf ("fig2dev command: '%s'\n", cmd)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	550 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	551 endfunction
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	552
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	553 function latex_standalone (latexfile)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	554 prepend = {"\\documentclass{minimal}";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	555 "\\usepackage{epsfig,color}";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	556 "\\begin{document}";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	557 "\\centering"};
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	558 postpend = {"\\end{document}"};
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	559 fid = fopen (latexfile, "r");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	560 if (fid >= 0)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	561 latex = fscanf (fid, "%c", Inf);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	562 status = fclose (fid);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	563 if (status != 0)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	564 error ("print:errorclosingfile",
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	565 "print.m: error closing file '%s'", latexfile)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	566 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	567 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	568 error ("print:erroropeningfile",
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	569 "print.m: error opening file '%s'", latexfile)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	570 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	571 fid = fopen (latexfile, "w");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	572 if (fid >= 0)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	573 fprintf (fid, "%s\n", prepend{:});
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	574 fprintf (fid, "%s", latex);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	575 fprintf (fid, "%s\n", postpend{:});
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	576 status = fclose (fid);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	577 if (status != 0)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	578 error ("print:errorclosingfile",
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	579 "print.m: error closing file '%s'", latexfile)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	580 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	581 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	582 error ("print:erroropeningfile",
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	583 "print.m: error opening file '%s'", latexfile)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	584 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	585 endfunction
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	586
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	587 function cmd = lpr (opts)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	588 if (nargin < 2)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	589 devopt = opts.devopt;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	590 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	591 if (! isempty (opts.lpr_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	592 cmd = opts.lpr_binary;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	593 if (! isempty (opts.lpr_options))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	594 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	595 endif
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	596 if (! isempty (opts.printer))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	597 cmd = sprintf ("%s -P %s", cmd, opts.printer);
11113 a8ac114ec9ab Stylefixes, replace end by endif. Thorsten Meyer <thorsten.meyier@gmx.de> parents: 11107 diff changeset	598 endif
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	599 elseif (isempty (opts.lpr_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	600 error ("print:nolpr", "print.m: 'lpr' not found in EXEC_PATH.")
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	601 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	602 if (opts.debug)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	603 fprintf ("lpr command: '%s'\n", cmd)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	604 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	605 endfunction
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	606
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	607 function cmd = pstoedit (opts, devopt)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	608 if (nargin < 2)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	609 devopt = opts.devopt;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	610 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	611 dos_shell = (ispc () && ! isunix ());
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	612 if (! isempty (opts.pstoedit_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	613 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	614 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	615 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	616 ## FIXME - is this the right thing to do for DOS?
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	617 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	618 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	619 elseif (isempty (opts.pstoedit_binary))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	620 error ("print:nopstoedit", "print.m: 'pstoedit' not found in EXEC_PATH.")
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	621 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	622 if (opts.debug)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	623 fprintf ("pstoedit command: '%s'\n", cmd)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	624 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	625 endfunction
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	626
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	627

Mercurial > octave

annotate scripts/plot/print.m @ 11113:a8ac114ec9ab