octave-lyh: scripts/plot/print.m annotate

annotate scripts/plot/print.m @ 10834:05ba991794d4

Improvements for fltk printing.

author	Ben Abbott <bpabbott@mac.com>
date	Thu, 29 Jul 2010 19:44:07 -0400
parents	693e22af08ae
children	1577accf2ed8

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})
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	24 ## Print a graph, or save it to a file
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	25 ##
10472 944aa97069ed print.m: Provide default suffixes & validate hardcopy format. Ben Abbott <bpabbott@mac.com> parents: 10423 diff changeset	26 ## @var{filename} defines the file name of the output file. If the
944aa97069ed print.m: Provide default suffixes & validate hardcopy format. Ben Abbott <bpabbott@mac.com> parents: 10423 diff changeset	27 ## file name has no suffix, one is inferred from the specified
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
9393 d6c99b2ee941 print.m: reimplement options -landscape and -portrait. Ben Abbott <bpabbott@mac.com> parents: 9337 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 ##
9040 dbd0c77e575e Cleanup documentation file plot.texi Rik <rdrider0-list@yahoo.com> parents: 8920 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}
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	38 ## Specify the handle, @var{h}, of the figure to be printed. The
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	39 ## default is the current figure.
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}
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	42 ## Set the @var{printer} name to which the graph is sent if no
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: 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}
9209 923c7cb7f13f Simplify TeXinfo files by eliminating redundant @iftex followed by @tex construction. Rik <rdrider0-list@yahoo.com> parents: 9157 diff changeset	46 ## Specify the command for calling Ghostscript. For Unix and Windows,
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 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
9040 dbd0c77e575e Cleanup documentation file plot.texi Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	51 ## Monochrome or color lines.
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
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	55 ## Solid or dashed lines.
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
9393 d6c99b2ee941 print.m: reimplement options -landscape and -portrait. Ben Abbott <bpabbott@mac.com> parents: 9337 diff changeset	59 ## Specify the orientation of the plot for printed output.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	60 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	61 ## @item -d@var{device}
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	62 ## Output device, where @var{device} is one of:
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	63 ## @table @code
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	64 ## @item ps
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	65 ## @itemx ps2
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	66 ## @itemx psc
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	67 ## @itemx psc2
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	68 ## Postscript (level 1 and 2, mono and color)
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	69 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	70 ## @item eps
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	71 ## @itemx eps2
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	72 ## @itemx epsc
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	73 ## @itemx epsc2
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	74 ## Encapsulated postscript (level 1 and 2, mono and color)
6739 db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	75 ## @item tex
db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	76 ## @itemx epslatex
db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	77 ## @itemx epslatexstandalone
db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	78 ## @itemx pstex
db0a05a61d09 [project @ 2007-06-15 21:59:16 by jwe] jwe parents: 6727 diff changeset	79 ## @itemx pslatex
9209 923c7cb7f13f Simplify TeXinfo files by eliminating redundant @iftex followed by @tex construction. Rik <rdrider0-list@yahoo.com> parents: 9157 diff changeset	80 ## Generate a @LaTeX{} (or @TeX{}) file for labels, and eps/ps for
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	81 ## 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	82 ## 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	83 ## be included in a @LaTeX{} (or @TeX{}) document. The @code{tex} device
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	84 ## is the same as the @code{epslatex} device.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	85 ##
9468 5af462716bff Add support for gnuplot's Lua-TikZ terminal. Ben Abbott <bpabbott@mac.com> parents: 9393 diff changeset	86 ## @item tikz
9758 09da0bd91412 Periodic grammar check of Octave documentation files to ensure common format Rik <rdrider0-list@yahoo.com> parents: 9468 diff changeset	87 ## Generate a @LaTeX{} file using gnuplot's Lua/TikZ terminal.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	88 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	89 ## @item ill
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	90 ## @itemx aifm
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	91 ## Adobe Illustrator
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	92 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	93 ## @item cdr
10791 3140cb7a05a1 Add spellchecker scripts for Octave and run spellcheck of documentation Rik <octave@nomad.inbox5.com> parents: 10727 diff changeset	94 ## @itemx @nospell{corel}
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	95 ## CorelDraw
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	96 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	97 ## @item dxf
c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	98 ## AutoCAD
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	99 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	100 ## @item emf
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	101 ## @itemx meta
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	102 ## Microsoft Enhanced Metafile
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	103 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	104 ## @item fig
7037 b1ca2c453b77 [project @ 2007-10-17 21:25:44 by jwe] jwe parents: 7032 diff changeset	105 ## XFig. If this format is selected the additional options
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10791 diff changeset	106 ## @option{-textspecial} or @option{-textnormal} can be used to control
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	107 ## whether the special flag should be set for the text in
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10791 diff changeset	108 ## the figure (default is @option{-textnormal}).
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	109 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	110 ## @item hpgl
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	111 ## HP plotter language
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	112 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	113 ## @item mf
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	114 ## Metafont
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	115 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	116 ## @item png
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	117 ## Portable network graphics
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	118 ##
7543 b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	119 ## @item jpg
b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	120 ## @itemx jpeg
b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	121 ## JPEG image
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	122 ##
7543 b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	123 ## @item gif
b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7540 diff changeset	124 ## GIF image
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 pbm
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	127 ## PBMplus
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	128 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	129 ## @item svg
c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	130 ## Scalable vector graphics
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	131 ##
7396 0114d8cd1587 [project @ 2008-01-17 21:55:55 by jwe] jwe parents: 7341 diff changeset	132 ## @item pdf
0114d8cd1587 [project @ 2008-01-17 21:55:55 by jwe] jwe parents: 7341 diff changeset	133 ## Portable document format
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	134 ## @end table
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	135 ##
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	136 ## 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	137 ## 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	138 ##
10423 dfc662a47b7a print.m: Add '-append' option. Ben Abbott <bpabbott@mac.com> parents: 10422 diff changeset	139 ## @item -d@var{ghostscript_device}
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	140 ## Additional devices are supported by Ghostscript.
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	141 ## Some examples are;
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	142 ##
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	143 ## @table @code
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	144 ## @item ljet2p
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	145 ## HP LaserJet IIP
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	146 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	147 ## @item ljet3
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	148 ## HP LaserJet III
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	149 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	150 ## @item deskjet
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	151 ## HP DeskJet and DeskJet Plus
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	152 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	153 ## @item cdj550
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	154 ## HP DeskJet 550C
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	155 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	156 ## @item paintjet
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	157 ## HP PointJet
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	158 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	159 ## @item pcx24b
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	160 ## 24-bit color PCX file format
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	161 ##
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	162 ## @item ppm
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	163 ## Portable Pixel Map file format
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	164 ##
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	165 ## @item pdfwrite
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	166 ## Converts ps or eps to pdf
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	167 ## @end table
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	168 ##
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	169 ## For a complete list, type `system ("gs -h")' to see what formats
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	170 ## and devices are available.
4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	171 ##
10791 3140cb7a05a1 Add spellchecker scripts for Octave and run spellcheck of documentation Rik <octave@nomad.inbox5.com> parents: 10727 diff changeset	172 ## 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	173 ## by the figure's "papersize" property. When the output
9393 d6c99b2ee941 print.m: reimplement options -landscape and -portrait. Ben Abbott <bpabbott@mac.com> parents: 9337 diff changeset	174 ## is sent to a file the size is determined by the figure's
d6c99b2ee941 print.m: reimplement options -landscape and -portrait. Ben Abbott <bpabbott@mac.com> parents: 9337 diff changeset	175 ## "paperposition" property.
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	176 ##
10423 dfc662a47b7a print.m: Add '-append' option. Ben Abbott <bpabbott@mac.com> parents: 10422 diff changeset	177 ## @itemx -append
10711 fbd7843974fa Periodic grammar check of documentation files to ensure common format. Rik <octave@nomad.inbox5.com> parents: 10635 diff changeset	178 ## Appends the output to a pre-existing file. Presently only PDF,
10423 dfc662a47b7a print.m: Add '-append' option. Ben Abbott <bpabbott@mac.com> parents: 10422 diff changeset	179 ## and Postscript files are supported.
dfc662a47b7a print.m: Add '-append' option. Ben Abbott <bpabbott@mac.com> parents: 10422 diff changeset	180 ##
8889 665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 8746 diff changeset	181 ## @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	182 ## Resolution of bitmaps in pixels per inch. For both metafiles and
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	183 ## SVG the default is the screen resolution, for other it is 150 dpi.
d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	184 ## 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	185 ##
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	186 ## @item -tight
10791 3140cb7a05a1 Add spellchecker scripts for Octave and run spellcheck of documentation Rik <octave@nomad.inbox5.com> parents: 10727 diff changeset	187 ## Forces a tight bounding box for eps-files. Since the Ghostscript
3140cb7a05a1 Add spellchecker scripts for Octave and run spellcheck of documentation Rik <octave@nomad.inbox5.com> parents: 10727 diff changeset	188 ## devices are conversions of an eps-file, this option works for those
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	189 ## devices as well.
fce7315c1eee print.m: Fix typo, improvments to code, and allow for creation of tight bbox. Ben Abbott <bpabbott@mac.com> parents: 9152 diff changeset	190 ##
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	191 ## @itemx -S@var{xsize},@var{ysize}
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10791 diff changeset	192 ## Plot size in pixels for EMF, GIF, JPEG, PBM, PNG and SVG@. If
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	193 ## using the command form of the print function, you must quote the
d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	194 ## @var{xsize},@var{ysize} option. For example, by writing
9209 923c7cb7f13f Simplify TeXinfo files by eliminating redundant @iftex followed by @tex construction. Rik <rdrider0-list@yahoo.com> parents: 9157 diff changeset	195 ## @w{@code{"-S640,480"}}. The size defaults to that specified by the
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	196 ## figure's paperposition property.
6965 c962cc09067a [project @ 2007-10-06 04:54:36 by jwe] jwe parents: 6895 diff changeset	197 ##
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	198 ## @item -F@var{fontname}
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	199 ## @itemx -F@var{fontname}:@var{size}
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	200 ## @itemx -F:@var{size}
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	201 ## @var{fontname} set the postscript font (for use with postscript,
10791 3140cb7a05a1 Add spellchecker scripts for Octave and run spellcheck of documentation Rik <octave@nomad.inbox5.com> parents: 10727 diff changeset	202 ## aifm, @nospell{corel} and fig). By default, 'Helvetica' is set for PS/aifm,
9107 d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	203 ## and 'SwitzerlandLight' for Corel. It can also be 'Times-Roman'.
d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	204 ## @var{size} is given in points. @var{fontname} is ignored for the
d0d507cbd123 Improvements to printing functionality. Ben Abbott <bpabbott@mac.com> parents: 9056 diff changeset	205 ## fig device.
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	206 ## @end table
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	207 ##
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	208 ## The filename and options can be given in any order.
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	209 ## @end deftypefn
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	210
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	211 function print (varargin)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	212
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	213 opts = __print_parse_opts__ (varargin{:});
7550 bffb1e2ab732 print.m: Figure handle as argument. Ben Abbott <bpabbott@mac.com> parents: 7543 diff changeset	214
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	215 if (! isfigure (opts.figure))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	216 error ("print: no figure to print.")
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	217 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	218
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	219 orig_figure = get (0, "currentfigure");
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	220 figure (opts.figure)
10727 570f30a48732 split printing between backends Shai Ayal <shaiay@users.sourceforge.net> parents: 10711 diff changeset	221 drawnow ();
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	222 backend = (get (opts.figure, "__backend__"));
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	223
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	224 if (strcmp (backend, "gnuplot"))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	225 ## FIXME - this can be removed when __gnuplot_print__ has been modified
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	226 ## to work consistently with __fltk_print__
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	227 __gnuplot_print__ (varargin{:});
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	228 return
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	229 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	230
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	231 ## FIXME - this can be moved to __print_parse_opts__ when __gnuplot_print__
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	232 ## has been modified to work consistently with __fltk_print__
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	233 if (! isempty (opts.canvas_size) && ischar (opts.resolution))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	234 opts.canvas_size = str2num (strrep (strrep (opts.canvas_size, "X", ""), "Y", ""));
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	235 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	236 if (! isempty (opts.resolution) && ischar (opts.resolution))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	237 opts.resolution = str2num (opts.resolution);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	238 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	239 if (! isempty (opts.fontsize) && ischar (opts.fontsize))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	240 opts.fontsize = str2num (opts.fontsize);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	241 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	242
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	243 if (opts.append_to_file)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	244 saved_original_file = strcat (tmpnam (), ".", opts.devopt);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	245 opts.unlink(end+1) = {save_original_file};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	246 movefile (opts.name, saved_original_file);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	247 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	248
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	249 ## Modify properties as specified by options
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	250 ## FIXME - need an unwind_protect block
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	251 props = [];
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	252
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	253 if ((! isempty (opts.canvas_size))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	254 \|\| (! strcmpi (get (opts.figure, "paperorientation"), opts.orientation)))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	255 m = numel (props);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	256 props(m+1).h = opts.figure;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	257 props(m+1).name = "paperposition";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	258 props(m+1).value = {get(opts.figure, "paperposition")};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	259 props(m+2).h = opts.figure;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	260 props(m+2).name = "paperunits";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	261 props(m+2).value = {get(opts.figure, "paperunits")};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	262 props(m+3).h = opts.figure;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	263 props(m+3).name = "papersize";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	264 props(m+3).value = {get(opts.figure, "papersize")};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	265 props(m+4).h = opts.figure;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	266 props(m+4).name = "paperorientation";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	267 props(m+4).value = {get(opts.figure, "paperorientation")};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	268 props(m+5).h = opts.figure;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	269 props(m+5).name = "papertype";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	270 props(m+5).value = {get(opts.figure, "papertype")};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	271 if (! isempty (opts.canvas_size))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	272 ## canvas_size is in pixels/points
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	273 set (opts.figure, "paperorientation", "portrait");
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	274 set (opts.figure, "paperposition", [0, 0, opts.canvas_size]);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	275 set (opts.figure, "paperunits", "points");
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	276 set (opts.figure, "papersize", opts.canvas_size);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	277 fpos = get (opts.figure, "position");
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	278 props(m+6).h = opts.figure;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	279 props(m+6).name = "position";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	280 props(m+6).value = {fpos};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	281 fpos(3:4) = opts.canvas_size;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	282 set (opts.figure, "position", fpos);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	283 elseif (opts.paperoutput)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	284 ## FIXME - should the backend handle this?
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	285 orient (opts.orientation)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	286 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	287 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	288
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	289 if (opts.force_solid != 0)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	290 h = findobj (opts.figure, "-property", "linestyle");
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	291 m = numel (props);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	292 for n = 1:numel(h)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	293 props(m+n).h = h(n);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	294 props(m+n).name = "linestyle";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	295 props(m+n).value = {get(h(n), "linestyle")};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	296 endfor
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	297 if (opts.force_solid > 0)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	298 linestyle = "-";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	299 else
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	300 linestyle = "--";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	301 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	302 set (h, "linestyle", linestyle)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	303 endif
7550 bffb1e2ab732 print.m: Figure handle as argument. Ben Abbott <bpabbott@mac.com> parents: 7543 diff changeset	304
10834 05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	305 if (opts.use_color < 0)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	306 color_props = {"color", "facecolor", "edgecolor"};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	307 for c = 1:numel(color_props)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	308 h = findobj (opts.figure, "-property", color_props{c});
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	309 hnone = findobj (opts.figure, color_props{c}, "none");
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	310 h = setdiff (h, hnone);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	311 m = numel (props);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	312 for n = 1:numel(h)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	313 rgb = get (h(n), color_props{c});
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	314 props(m+n).h = h(n);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	315 props(m+n).name = color_props{c};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	316 props(m+n).value = {get(h(n), color_props{c})};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	317 xfer = repmat ([0.30, 0.59, 0.11], size (rgb, 1), 1);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	318 ## convert RGB color to RGB gray scale
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	319 ggg = repmat (sum (xfer .* rgb, 2), 1, 3);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	320 set (h(n), color_props{c}, ggg)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	321 endfor
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	322 endfor
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	323 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	324
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	325 if (! isempty (opts.font) \|\| ! isempty (opts.fontsize))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	326 h = findobj (opts.figure, "-property", "fontname");
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	327 m = numel (props);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	328 for n = 1:numel(h)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	329 if (! isempty (opts.font))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	330 props(end+1).h = h(n);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	331 props(end).name = "fontname";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	332 props(end).value = {get(h(n), "fontname")};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	333 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	334 if (! isempty (opts.fontsize))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	335 props(end+1).h = h(n);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	336 props(end).name = "fontsize";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	337 props(end).value = {get(h(n), "fontsize")};
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	338 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	339 endfor
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	340 if (! isempty (opts.font))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	341 set (h, "fontname", opts.font)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	342 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	343 if (! isempty (opts.fontsize))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	344 if (ischar (opts.fontsize))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	345 fontsize = str2double (opts.fontsize);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	346 else
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	347 fontsize = opts.fontsize;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	348 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	349 set (h, "fontsize", fontsize)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	350 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	351 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	352
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	353 ## call the backend print script
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	354 drawnow ("expose")
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	355 feval (strcat ("__", backend, "_print__"), opts);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	356
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	357 ## restore modified properties
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	358 if (isstruct (props))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	359 for n = 1:numel(props)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	360 set (props(n).h, props(n).name, props(n).value{1})
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	361 endfor
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
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	364 ## Send to the printer
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	365 if (opts.send_to_printer)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	366 if (isempty (opts.ghostscript_output))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	367 prn_datafile = opts.name;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	368 else
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	369 prn_datafile = opts.ghostscript_output;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	370 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	371 if (isempty (opts.printer))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	372 prn_cmd = sprintf ("lpr %s '%s' 2>&1", opts.lpr_options, prn_datafile);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	373 else
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	374 prn_cmd = sprintf ("lpr %s -P %s '%s' 2>&1", opts.lpr_options,
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	375 opts.printer, prn_datafile);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	376 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	377 if (opts.debug)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	378 fprintf ("lpr command: %s\n", prn_cmd)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	379 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	380 [status, output] = system (prn_cmd);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	381 if (status != 0)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	382 disp (output)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	383 warning ("print.m: printing failed.")
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	384 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	385 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	386
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	387 ## Append to file using GS
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	388 if (opts.append_to_file)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	389 if (strcmp (opts.devopt, "pdf"))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	390 suffix = "pdf";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	391 elseif (strcmp (opts.devopt(1:2), "ps"))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	392 suffix = "ps";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	393 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	394 tmp_combined_file = strcat (tmpnam (), ".", suffix);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	395 opts.unlink{end+1} = tmp_combined_file;
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	396 gs_opts = "-q -dNOPAUSE -dBATCH";
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	397 gs_cmd = sprintf ("%s %s -sDEVICE=%swrite -sOutputFile=%s %s %s",
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	398 opts.ghostscript_binary, gs_opts, suffix, tmp_combined_file,
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	399 saved_original_file, opts.name);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	400 [status, output] = system (gs_cmd);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	401 if (opts.debug)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	402 fprintf ("Append files: %s\n", gs_cmd);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	403 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	404 if (status != 0)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	405 warning ("print:failedtoappendfile",
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	406 "print.m: failed to append output to file '%s'.", opts.name)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	407 movefile (saved_original_file, opts.name);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	408 else
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	409 movefile (tmp_combined_file, opts.name);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	410 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	411 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	412
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	413 ## Unlink temporary files
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	414 for n = 1:numel(opts.unlink)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	415 [status, output] = unlink (opts.unlink{n});
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	416 if (status != 0)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	417 disp (output)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	418 warning ("print.m: failed to delete temporay file, '%s'.", opts.name)
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	419 endif
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	420 endfor
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	421
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	422 if (isfigure (orig_figure))
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	423 figure (orig_figure);
05ba991794d4 Improvements for fltk printing. Ben Abbott <bpabbott@mac.com> parents: 10821 diff changeset	424 endif
5363 37f62a7778c2 [project @ 2005-05-23 19:52:15 by jwe] jwe parents: 5362 diff changeset	425
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	426 endfunction

Mercurial > hg > octave-lyh

annotate scripts/plot/print.m @ 10834:05ba991794d4