Mercurial > hg > octave-lyh
annotate scripts/plot/private/__ghostscript__.m @ 16108:3cce6b4e0f7c
Update gnuplot plotting scripts for faster or more modern synta
* scripts/plot/__gnuplot_drawnow__.m: Use default values in function header.
Check number of arguments to function immediately. Use single quotes to
avoid lots of backslashing. Use strtok() to replace hand-coded functionality.
Initialize persistent variables in declaration (10% faster).
* scripts/plot/gnuplot_binary.in: Replace tabs with spaces. Simplify input
validation. Add %!test block.
* scripts/plot/private/__gnuplot_get_var__.m: Use default values in function
header. Use "*char" in fread to automatically convert to char variable.
* scripts/plot/private/__gnuplot_ginput__.m: Check immediately for required
version of gnuplot. Use "*char" in fread to automatically convert to char
variable. Use fputs in place of fprintf to match rest of code.
* scripts/plot/private/__gnuplot_has_feature__.m: Initialize persistent varibles
in declaration. Use false () rather than logical (zeros()) construction.
* scripts/plot/private/__gnuplot_has_terminal__.m: Use strtok() to replace
hand-coded functionality
* scripts/plot/private/__gnuplot_print__.m: Replace sprintf calls with direct
string char matrix concatenation (2.4x faster) where possible. Replace for
loop with multiple argument form of set(). Use single quotes to avoid lots
of backslashing.
* scripts/plot/private/__gnuplot_version__.m: Use single quotes to avoid lots
of backslashing.
| author | Rik <rik@octave.org> |
|---|---|
| date | Mon, 25 Feb 2013 21:01:36 -0800 |
| parents | 5d3a684236b0 |
| children |
| rev | line source |
|---|---|
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
12931
diff
changeset
|
1 ## Copyright (C) 2010-2012 Ben Abbott |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
2 ## |
| 11104 | 3 ## This file is part of Octave. |
| 4 ## | |
| 5 ## Octave is free software; you can redistribute it and/or modify it | |
| 6 ## under the terms of the GNU General Public License as published by | |
| 7 ## the Free Software Foundation; either version 3 of the License, or (at | |
| 8 ## your option) any later version. | |
| 9 ## | |
| 10 ## Octave is distributed in the hope that it will be useful, but | |
| 11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 13 ## General Public License for more details. | |
| 14 ## | |
| 10834 | 15 ## You should have received a copy of the GNU General Public License |
| 16 ## along with Octave; see the file COPYING. If not, see | |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 18 | |
| 19 ## -*- texinfo -*- | |
| 20 ## @deftypefn {Function File} {} __ghostscript__ (@var{@dots{}}) | |
| 21 ## Undocumented internal function. | |
| 22 ## @end deftypefn | |
| 23 | |
| 24 ## Author: Ben Abbott <bpabbott@mac.com> | |
| 25 ## Created: 2010-07-26 | |
| 26 | |
| 11009 | 27 function [gs_cmd, cleanup_cmd] = __ghostscript__ (varargin); |
| 10834 | 28 |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
29 opts.binary = ""; |
| 11009 | 30 opts.source = "-"; |
| 31 opts.output = "-"; | |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
32 opts.device = ""; |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
33 opts.epscrop = false; |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
34 opts.antialiasing = false; |
|
14774
0d6dae0f6bc2
Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits.
John Hunt <huntj@gmx.us>
parents:
14768
diff
changeset
|
35 opts.antialiasing_textalphabits = 4;, |
|
0d6dae0f6bc2
Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits.
John Hunt <huntj@gmx.us>
parents:
14768
diff
changeset
|
36 opts.antialiasing_graphicsalphabits = 4; |
| 11009 | 37 opts.resolution = 150; |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
38 opts.papersize = ""; |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
39 opts.pageoffset = [0 0]; |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
40 opts.debug = false; |
|
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
41 opts.level = []; |
| 11009 | 42 opts.prepend = ""; |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
43 |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
44 offsetfile = ""; |
| 11009 | 45 offset_ps = {}; |
| 46 cleanup_cmd = ""; | |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
47 |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
48 args = varargin; |
|
12931
cefd568ea073
Replace function handles with function names in cellfun calls for 15% speedup.
Rik <octave@nomad.inbox5.com>
parents:
12460
diff
changeset
|
49 n = find (cellfun ("isclass", args, "struct")); |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
50 if (! isempty (n)) |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
51 f = fieldnames (args{n}); |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
52 for m = 1:numel (f) |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
53 opts.(f{m}) = args{n}.(f{m}); |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
54 endfor |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
55 args(n) = []; |
| 10834 | 56 endif |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
57 for n = 1:2:numel (args) |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
58 opts.(args{n}) = args{n+1}; |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
59 endfor |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
60 |
| 11009 | 61 if (isempty (opts.papersize)) |
| 62 format_for_printer = false; | |
| 63 else | |
| 64 format_for_printer = true; | |
| 65 endif | |
| 66 | |
| 67 gs_opts = sprintf ("-dQUIET -dNOPAUSE -dBATCH -dSAFER -sDEVICE=%s", opts.device); | |
|
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
68 |
|
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
69 if (! isempty (opts.level) && ismember (opts.level, [1, 2, 3])) |
|
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
70 gs_opts = sprintf ("%s -dLanguageLevel=%d", gs_opts, round (opts.level)); |
|
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
71 endif |
|
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
72 |
| 11009 | 73 if (opts.antialiasing && isempty (strfind (opts.device, "write"))) |
| 74 ## Apply anti-aliasing to all bitmap formats/devices | |
|
14774
0d6dae0f6bc2
Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits.
John Hunt <huntj@gmx.us>
parents:
14768
diff
changeset
|
75 gs_opts = sprintf ("%s -dTextAlphaBits=%d -dGraphicsAlphaBits=%d", |
|
0d6dae0f6bc2
Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits.
John Hunt <huntj@gmx.us>
parents:
14768
diff
changeset
|
76 gs_opts, opts.antialiasing_textalphabits, |
|
0d6dae0f6bc2
Allow setting of ghostscript TextAlphaBits and GraphicsAlphaBits.
John Hunt <huntj@gmx.us>
parents:
14768
diff
changeset
|
77 opts.antialiasing_graphicsalphabits); |
| 11009 | 78 gs_opts = sprintf ("%s -r%dx%d", gs_opts, [1, 1] * opts.resolution); |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
79 elseif (any (strcmp (opts.device, {"pswrite", "ps2write", "pdfwrite"}))) |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
80 gs_opts = sprintf ("%s -dEmbedAllFonts=true", gs_opts); |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
81 if (strcmp (opts.device, "pdfwrite")) |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
82 ## Optimize for loading |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
83 gs_opts = sprintf ("%s -dOptimize=true", gs_opts); |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
84 endif |
| 10834 | 85 endif |
| 86 | |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
87 if (opts.epscrop) |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
88 ## papersize is specified by the eps bbox |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
89 gs_opts = sprintf ("%s -dEPSCrop", gs_opts); |
| 11009 | 90 endif |
| 91 if (format_for_printer) | |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
92 if (ischar (opts.papersize)) |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
93 gs_opts = sprintf ("%s -sPAPERSIZE=%s", gs_opts, opts.papersize); |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
94 elseif (isnumeric (opts.papersize) && numel (opts.papersize) == 2) |
|
10954
ee9d74048827
Consolidate gs code into print.m.
Ben Abbott <bpabbott@mac.com>
parents:
10919
diff
changeset
|
95 gs_opts = sprintf ("%s -dDEVICEWIDTHPOINTS=%d -dDEVICEHEIGHTPOINTS=%d", |
|
ee9d74048827
Consolidate gs code into print.m.
Ben Abbott <bpabbott@mac.com>
parents:
10919
diff
changeset
|
96 gs_opts, opts.papersize); |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
97 if (opts.papersize(1) > opts.papersize(2)) |
|
10954
ee9d74048827
Consolidate gs code into print.m.
Ben Abbott <bpabbott@mac.com>
parents:
10919
diff
changeset
|
98 ## Lanscape mode: This option will result in automatic rotation of the |
|
ee9d74048827
Consolidate gs code into print.m.
Ben Abbott <bpabbott@mac.com>
parents:
10919
diff
changeset
|
99 ## document page if the requested page size matches one |
| 11009 | 100 ## of the default page sizes |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
101 gs_opts = sprintf ("%s -dNORANGEPAGESIZE", gs_opts); |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
102 endif |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
103 else |
|
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11588
diff
changeset
|
104 error ("print:badpapersize", "__ghostscript__.m: invalid 'papersize'"); |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
105 endif |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
106 gs_opts = sprintf ("%s -dFIXEDMEDIA", gs_opts); |
| 11009 | 107 ## "pageoffset" is relative to the coordinates, not the BBox LLHC. |
| 108 str = sprintf ("%s [%d %d] %s", "<< /Margins [0 0] /.HWMargins [0 0 0 0] /PageOffset", | |
| 109 opts.pageoffset, ">> setpagedevice"); | |
| 110 offset_ps = {"%!PS-Adobe-3.0", str, "%%EOF"}; | |
| 111 if (isfield (opts, "offsetfile")) | |
| 112 offsetfile = opts.offsetfile; | |
| 113 cleanup_cmd = ""; | |
| 114 else | |
| 115 offsetfile = strcat (tmpnam (), ".ps"); | |
| 116 cleanup_cmd = sprintf ("rm %s", offsetfile); | |
| 117 endif | |
|
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
118 unwind_protect |
|
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
119 fid = fopen (offsetfile, "w"); |
|
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
120 if (fid == -1) |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14774
diff
changeset
|
121 error ("print:fopenfailed", "__ghostscript__.m: fopen () failed"); |
|
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
122 endif |
|
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11588
diff
changeset
|
123 fprintf (fid, "%s\n", offset_ps{:}); |
|
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
124 unwind_protect_cleanup |
|
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
125 status = fclose (fid); |
|
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
126 if (status == -1) |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14774
diff
changeset
|
127 error ("print:fclosefailed", "__ghostscript__.m: fclose () failed"); |
|
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
128 endif |
|
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10854
diff
changeset
|
129 end_unwind_protect |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
130 if (opts.debug) |
|
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11588
diff
changeset
|
131 fprintf ("---- begin %s ----\n", offsetfile); |
|
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11588
diff
changeset
|
132 fprintf ("%s\n", offset_ps{:}); |
|
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11588
diff
changeset
|
133 fprintf ("----- end %s -----\n", offsetfile); |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
134 endif |
| 10834 | 135 endif |
| 136 | |
|
12460
952e52dda82e
Improve warnings when shell utilties needed for printing are missing.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
137 if (isempty (opts.binary)) |
|
952e52dda82e
Improve warnings when shell utilties needed for printing are missing.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
138 error ("print:no_ghostscript", "__ghostscript__.m: ghostscript is required."); |
|
952e52dda82e
Improve warnings when shell utilties needed for printing are missing.
Ben Abbott <bpabbott@mac.com>
parents:
11589
diff
changeset
|
139 elseif (isempty (opts.output)) |
| 11009 | 140 cmd = sprintf ("%s %s", opts.binary, gs_opts); |
| 141 else | |
|
14768
1c7956c661a8
Support spaces into the path to ghostscript.
Fabio Rossi <rossi.f@inwind.it>
parents:
14138
diff
changeset
|
142 cmd = sprintf ("%s %s -sOutputFile=\"%s\"", opts.binary, gs_opts, opts.output); |
| 11009 | 143 endif |
| 144 if (! isempty (opts.prepend) | |
| 145 && any (strcmpi (opts.device, {"pswrite", "ps2write", "pdfwrite"}))) | |
| 146 ## FIXME - Fonts get may be mangled when appending ps/ps2. | |
| 147 ## See "How to concatenate several PS files" at the link, | |
| 148 ## http://en.wikibooks.org/wiki/PostScript_FAQ | |
| 149 cmd = sprintf ("%s %s", cmd, opts.prepend); | |
|
11014
92bb25c0da9e
When appending, delete temporary files at the end of the ghostscript pipeline.
Ben Abbott <bpabbott@mac.com>
parents:
11009
diff
changeset
|
150 if (isempty (cleanup_cmd)) |
|
92bb25c0da9e
When appending, delete temporary files at the end of the ghostscript pipeline.
Ben Abbott <bpabbott@mac.com>
parents:
11009
diff
changeset
|
151 cleanup_cmd = sprintf ("rm %s", opts.prepend); |
|
92bb25c0da9e
When appending, delete temporary files at the end of the ghostscript pipeline.
Ben Abbott <bpabbott@mac.com>
parents:
11009
diff
changeset
|
152 else |
|
92bb25c0da9e
When appending, delete temporary files at the end of the ghostscript pipeline.
Ben Abbott <bpabbott@mac.com>
parents:
11009
diff
changeset
|
153 cleanup_cmd = sprintf ("%s ; rm %s", cleanup_cmd, opts.prepend); |
|
92bb25c0da9e
When appending, delete temporary files at the end of the ghostscript pipeline.
Ben Abbott <bpabbott@mac.com>
parents:
11009
diff
changeset
|
154 endif |
| 11009 | 155 endif |
| 156 if (! isempty (offsetfile) && format_for_printer) | |
| 157 cmd = sprintf ("%s %s", cmd, offsetfile); | |
| 158 endif | |
| 159 if (! isempty (opts.source)) | |
| 160 cmd = sprintf ("%s %s", cmd, opts.source); | |
| 161 endif | |
| 10834 | 162 |
| 163 if (opts.debug) | |
| 11009 | 164 fprintf ("Ghostscript command: '%s'\n", cmd); |
| 10834 | 165 endif |
| 166 | |
| 11009 | 167 gs_cmd = cmd; |
| 10834 | 168 |
| 169 endfunction | |
|
10854
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
170 |
|
d5a7db05d591
Add PS and PDF output for the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
171 |