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