| 2 |
- |
1 |
% Copyright (C) 1990, 2000 Aladdin Enterprises. All rights reserved.
|
|
|
2 |
%
|
|
|
3 |
% This software is provided AS-IS with no warranty, either express or
|
|
|
4 |
% implied.
|
|
|
5 |
%
|
|
|
6 |
% This software is distributed under license and may not be copied,
|
|
|
7 |
% modified or distributed except as expressly authorized under the terms
|
|
|
8 |
% of the license contained in the file LICENSE in this distribution.
|
|
|
9 |
%
|
|
|
10 |
% For more information about licensing, please refer to
|
|
|
11 |
% http://www.ghostscript.com/licensing/. For information on
|
|
|
12 |
% commercial licensing, go to http://www.artifex.com/licensing/ or
|
|
|
13 |
% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
|
|
|
14 |
% San Rafael, CA 94903, U.S.A., +1(415)492-9861.
|
|
|
15 |
|
|
|
16 |
% $Id: ps2epsi.ps,v 1.10 2003/05/07 16:37:17 ray Exp $
|
|
|
17 |
% Convert an arbitrary PostScript file to an EPSI file.
|
|
|
18 |
%
|
|
|
19 |
% Please do not contact these users if you have questions. They no longer
|
|
|
20 |
% have the time, interest, or current expertise to keep this code working.
|
|
|
21 |
% If you find bugs, please send proposed fixes to bug-gs@ghostscript.com.
|
|
|
22 |
%
|
|
|
23 |
% Bug fix 2002-04-20 by rayjj: Bounding box was incorrect since it depended
|
|
|
24 |
% on the dither pattern and gray shade at the boundary. Changed to use
|
|
|
25 |
% 8-bit grayscale preview image to allow correct bounding box (at the
|
|
|
26 |
% expense of a 8x larger preview image). Also moved .setsafe until after
|
|
|
27 |
% the device and file operations are complete (but still before the input
|
|
|
28 |
% file is processed.
|
|
|
29 |
% Bug fix 2000-04-11 by lpd: if a font didn't have a FontName (which is the
|
|
|
30 |
% case for bitmap fonts produced by recent versions of dvips), setfont
|
|
|
31 |
% caused an error.
|
|
|
32 |
% Bug fix 8/21/99 by lpd: many of the margin and width computations were
|
|
|
33 |
% wrong (off by 1). The code only "worked" because the bugs were
|
|
|
34 |
% (mostly) in conservative directions.
|
|
|
35 |
% Modified 3/17/98 by lpd to make it possible to run this file without
|
|
|
36 |
% running the ps2epsi script first, for debugging.
|
|
|
37 |
% Bug fix 9/29/97 by lpd <ghost@aladdin.com>: if the page size wasn't an
|
|
|
38 |
% exact multiple of 8 bits, an incorrect bounding box (or a rangecheck
|
|
|
39 |
% error) could occur.
|
|
|
40 |
% Patched 7/26/95 by
|
|
|
41 |
% Greg P. Kochanski <gpk@bell-labs.com>
|
|
|
42 |
% to add many new DSC comments and make the comments conforming.
|
|
|
43 |
% Original version contributed by
|
|
|
44 |
% George Cameron <george@bio-medical-physics.aberdeen.ac.uk>
|
|
|
45 |
%
|
|
|
46 |
|
|
|
47 |
% Initialize, and redefine copypage and showpage.
|
|
|
48 |
|
|
|
49 |
% ps2edict is normally defined in the pre-loaded code created by the
|
|
|
50 |
% ps2epsi script.
|
|
|
51 |
/ps2edict where { pop } { /ps2edict 25 dict def } ifelse
|
|
|
52 |
ps2edict begin
|
|
|
53 |
|
|
|
54 |
% The main procedure
|
|
|
55 |
/ps2epsi
|
|
|
56 |
{ % Open the file
|
|
|
57 |
outfile (w) file /epsifile exch def
|
|
|
58 |
% Get the device parameters
|
|
|
59 |
currentdevice getdeviceprops .dicttomark
|
|
|
60 |
/HWSize get aload pop
|
|
|
61 |
/devheight exch def
|
|
|
62 |
/devwidth exch def
|
|
|
63 |
matrix defaultmatrix
|
|
|
64 |
/devmatrix exch def
|
|
|
65 |
% Make a corresponding 8-bit deep memory device
|
|
|
66 |
devmatrix devwidth devheight
|
|
|
67 |
256 string 0 1 255 { 1 index exch dup 255 exch sub put } for
|
|
|
68 |
makeimagedevice
|
|
|
69 |
/arraydevice exch def
|
|
|
70 |
arraydevice
|
|
|
71 |
% Turn on anti-aliasing
|
|
|
72 |
mark /TextAlphaBits 4 /GraphicsAlphaBits 4 6 -1 roll
|
|
|
73 |
putdeviceprops
|
|
|
74 |
setdevice % (does an erasepage)
|
|
|
75 |
/rowwidth devwidth def
|
|
|
76 |
/row rowwidth string def
|
|
|
77 |
/zerorow rowwidth string def % all zero
|
|
|
78 |
% Replace the definition of showpage
|
|
|
79 |
userdict /showpage { ps2edict begin epsipage end } bind put
|
|
|
80 |
userdict /setfont { ps2edict begin epsisetfont end } bind put
|
|
|
81 |
//systemdict /.setsafe known { .setsafe } if
|
|
|
82 |
} bind def
|
|
|
83 |
|
|
|
84 |
/epsifontdict 100 dict def
|
|
|
85 |
|
|
|
86 |
/epsisetfont
|
|
|
87 |
{
|
|
|
88 |
% code here keeps a list of font names in dictionary epsifontdict
|
|
|
89 |
/tmpfont exch def
|
|
|
90 |
tmpfont /FontName known {
|
|
|
91 |
/tmpfontname tmpfont /FontName get def
|
|
|
92 |
epsifontdict tmpfontname known not { epsifontdict tmpfontname 0 put } if
|
|
|
93 |
epsifontdict tmpfontname 2 copy get 1 add put
|
|
|
94 |
} if
|
|
|
95 |
tmpfont setfont
|
|
|
96 |
} bind def
|
|
|
97 |
|
|
|
98 |
% Get a scan line from the memory device, zeroing any bits beyond
|
|
|
99 |
% the device width.
|
|
|
100 |
/getscanline { % <device> <y> <string> getscanline <string>
|
|
|
101 |
dup 4 1 roll copyscanlines pop
|
|
|
102 |
16#ff00 devwidth 7 and neg bitshift 255 and
|
|
|
103 |
dup 0 ne {
|
|
|
104 |
1 index dup length 1 sub 2 copy get 4 -1 roll and put
|
|
|
105 |
} {
|
|
|
106 |
pop
|
|
|
107 |
} ifelse
|
|
|
108 |
} bind def
|
|
|
109 |
|
|
|
110 |
/margintest { % <y-start> <step> <y-limit> margintest <y-non-blank>
|
|
|
111 |
% <y-start> <step> <y-limit> margintest -
|
|
|
112 |
{ dup arraydevice exch row getscanline
|
|
|
113 |
zerorow ne { exit } if pop
|
|
|
114 |
} for
|
|
|
115 |
} bind def
|
|
|
116 |
|
|
|
117 |
|
|
|
118 |
/epsiNameStr 200 string def
|
|
|
119 |
/epsiNpages 0 def
|
|
|
120 |
/epsiNpageStr 20 string def
|
|
|
121 |
/epsipage
|
|
|
122 |
{
|
|
|
123 |
/epsiNpages epsiNpages 1 add def
|
|
|
124 |
/loopcount devheight 1 sub def
|
|
|
125 |
|
|
|
126 |
% Find top margin -- minimum Y of non-blank scan line.
|
|
|
127 |
-1 0 1 loopcount margintest
|
|
|
128 |
dup -1 eq { (blank page!!\n) print quit }{ exch pop } ifelse
|
|
|
129 |
/tm exch def
|
|
|
130 |
|
|
|
131 |
% Find bottom margin -- maximum Y of non-blank scan line.
|
|
|
132 |
loopcount -1 0 margintest
|
|
|
133 |
/bm exch def
|
|
|
134 |
|
|
|
135 |
% Initialise limit variables
|
|
|
136 |
/loopcount rowwidth 1 sub def
|
|
|
137 |
/lm loopcount def
|
|
|
138 |
/rm 0 def
|
|
|
139 |
|
|
|
140 |
% Find left and right boundaries of image
|
|
|
141 |
tm 1 bm
|
|
|
142 |
{ % Get more data
|
|
|
143 |
arraydevice exch row getscanline pop
|
|
|
144 |
% Scan from left to find first non-zero element
|
|
|
145 |
% We save first the element, then the index
|
|
|
146 |
-1 0 1 loopcount
|
|
|
147 |
{ dup row exch get 0 ne { exch pop exit }{ pop } ifelse
|
|
|
148 |
} for
|
|
|
149 |
% If we found -1, row is blank ..
|
|
|
150 |
dup -1 ne
|
|
|
151 |
{ % Find the leftmost index
|
|
|
152 |
dup lm lt
|
|
|
153 |
% If the new index is less, we save index and element
|
|
|
154 |
{ /lm exch def } { pop } ifelse
|
|
|
155 |
% Now find the rightmost index
|
|
|
156 |
loopcount -1 0
|
|
|
157 |
{ dup row exch get 0 ne { exit }{ pop } ifelse
|
|
|
158 |
} for
|
|
|
159 |
dup rm gt
|
|
|
160 |
% If the new index is greater, we save index and element
|
|
|
161 |
{ /rm exch def } { pop } ifelse
|
|
|
162 |
} if
|
|
|
163 |
} for
|
|
|
164 |
|
|
|
165 |
% Calculate the bounding box values.
|
|
|
166 |
% Note that these must be corrected to produce closed-open intervals.
|
|
|
167 |
/llx lm def
|
|
|
168 |
/lly devheight bm sub 1 sub def
|
|
|
169 |
/urx rm 1 add def
|
|
|
170 |
/ury devheight tm sub def
|
|
|
171 |
|
|
|
172 |
% Write out the magic string and bounding box information
|
|
|
173 |
epsifile (%!PS-Adobe-2.0 EPSF-1.2\n) writestring
|
|
|
174 |
/epsititle where { pop epsifile epsititle writestring } if
|
|
|
175 |
/epsicreator where { pop epsifile epsicreator writestring } if
|
|
|
176 |
/epsicrdt where { pop epsifile epsicrdt writestring } if
|
|
|
177 |
/epsifor where { pop epsifile epsifor writestring } if
|
|
|
178 |
epsifile flushfile
|
|
|
179 |
|
|
|
180 |
% Write out the page count:
|
|
|
181 |
epsifile (%%Pages: ) writestring
|
|
|
182 |
epsifile epsiNpages epsiNpageStr cvs writestring
|
|
|
183 |
epsifile (\n) writestring
|
|
|
184 |
epsifile flushfile
|
|
|
185 |
|
|
|
186 |
% Write out the list of used fonts:
|
|
|
187 |
epsifile (%%DocumentFonts:) writestring
|
|
|
188 |
epsifontdict {
|
|
|
189 |
epsifile ( ) writestring
|
|
|
190 |
pop epsiNameStr cvs epsifile exch writestring
|
|
|
191 |
} forall
|
|
|
192 |
epsifile (\n) writestring
|
|
|
193 |
epsifile flushfile
|
|
|
194 |
|
|
|
195 |
epsifile (%%BoundingBox: ) writestring
|
|
|
196 |
epsifile llx write==only epsifile ( ) writestring
|
|
|
197 |
epsifile lly write==only epsifile ( ) writestring
|
|
|
198 |
epsifile urx write==only epsifile ( ) writestring
|
|
|
199 |
epsifile ury write==
|
|
|
200 |
|
|
|
201 |
% Define character and bit widths for the output line buffer:
|
|
|
202 |
/cwidth rm lm sub 1 add def
|
|
|
203 |
/out cwidth string def
|
|
|
204 |
|
|
|
205 |
epsifile (%%EndComments\n\n) writestring
|
|
|
206 |
epsifile (%%BeginProlog\n) writestring
|
|
|
207 |
epsifile (%%BeginPreview: ) writestring
|
|
|
208 |
epsifile cwidth write==only epsifile ( ) writestring
|
|
|
209 |
epsifile bm tm sub 1 add write==only epsifile ( 8 ) writestring
|
|
|
210 |
epsifile bm tm sub 1 add
|
|
|
211 |
cwidth 39 add 40 idiv mul write==
|
|
|
212 |
epsifile flushfile
|
|
|
213 |
|
|
|
214 |
gsave
|
|
|
215 |
|
|
|
216 |
tm 1 bm
|
|
|
217 |
{ % Get a scan line interval from the array device
|
|
|
218 |
arraydevice exch row copyscanlines lm cwidth getinterval
|
|
|
219 |
% Write out the hex data as 40 bytes per line (82 chars)
|
|
|
220 |
|
|
|
221 |
{ epsifile (% ) writestring
|
|
|
222 |
epsifile exch 2 index exch
|
|
|
223 |
dup cwidth exch sub 40 .min getinterval writehexstring
|
|
|
224 |
epsifile (\n) writestring
|
|
|
225 |
} for
|
|
|
226 |
pop
|
|
|
227 |
} for
|
|
|
228 |
|
|
|
229 |
epsifile (%%EndImage\n) writestring
|
|
|
230 |
epsifile (%%EndPreview\n) writestring
|
|
|
231 |
epsifile flushfile
|
|
|
232 |
grestore
|
|
|
233 |
erasepage initgraphics
|
|
|
234 |
|
|
|
235 |
DonePage 0 1 put
|
|
|
236 |
} bind def
|
|
|
237 |
|
|
|
238 |
|
|
|
239 |
(outfile) getenv
|
|
|
240 |
{ /outfile exch def
|
|
|
241 |
ps2epsi
|
|
|
242 |
|
|
|
243 |
/DonePage 1 string def
|
|
|
244 |
(%stdin) (r) file cvx execute0
|
|
|
245 |
DonePage 0 get 0 eq { showpage } if
|
|
|
246 |
} if
|
|
|
247 |
|
|
|
248 |
end
|
|
|
249 |
quit
|