summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_epsf.ps
blob: cf020751a08d0e4138c75a4a25b8633e235ef723 (plain)
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
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
% Copyright (C) 2001-2020 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
% implied.
%
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% of the license contained in the file LICENSE in this distribution.
%
% Refer to licensing information at http://www.artifex.com or contact
% Artifex Software, Inc.,  1305 Grant Avenue - Suite 200, Novato,
% CA 94945, U.S.A., +1(415)492-9861, for further information.
%

% Allow the interpreter to encapsulate EPS files, to recognize MS-DOS
% EPSF file headers, and skip to the PostScript section of the file.

% Encapsulate EPS files and optionally resize page or rescale image.
% To display an EPS file cropped to the bounding box:
%  gs -dEPSCrop file.eps
% To display an EPS file scaled to fit the page:
%  gs -dEPSFitPage file.eps
% To display a file without EPS encapsulation:
%  gs -dNOEPS file.ps

% When starting to process an EPS file, state is 0.
% After %%BoundingBox processed, state is 1 if OK or 2 if cropped.
% After %%HiResBoundingBox processed, state is 3 if OK or 4 if cropped.
% After %%EndComments processed, state is 5.
/EPSBoundingBoxState 5 def
/EPSBoundingBoxSetState {
  //systemdict /EPSBoundingBoxState 3 -1 roll .forceput
} .bind executeonly odef % .forceput must be bound and hidden

% Parse 4 numbers for a bounding box
/EPSBoundingBoxParse { % (llx lly urx ury) -- llx lly urx ury true OR false
    mark exch
    token {exch token {exch token {exch token {exch pop} if} if} if} if
    counttomark
    4 eq {
      5 -1 roll pop % remove mark
      //true
    } {
      cleartomark //false
    } ifelse
} bind executeonly odef

% Crop the page to the BoundingBox
/EPSBoundingBoxCrop { % llx lly urx ury --
  EPSDEBUG {
    (gs_epsf.ps: Setting pagesize from EPS bounding box\n) print flush
  } if
  exch 3 index sub exch 2 index sub % stack: llx lly urx-llx ury-lly
  << /PageSize [ 5 -2 roll ] >> setpagedevice
  neg exch neg exch translate
} bind executeonly odef

% Rescale, translate and rotate to fit the BoundingBox on the page
/EPSBoundingBoxFitPage { % llx lly urx ury --
  EPSDEBUG { (gs_epsf.ps: Rescaling EPS to fit page\n) print flush } if
  clippath pathbbox newpath    % ellx elly eurx eury  pllx plly purx pury

  % Convert box corners to coordinates of the center and box sizes
  2 {	% loop doing the page coordinates, the the EPS bbox coordinates
    3 -1 roll exch        % ... llx urx lly ury
    2 {		% loop doing Y then X coordnates
      2 copy exch sub     % ... llx urx lly ury ury-lly
      3 1 roll            % ... llx urx ury-lly lly ury
      add 2 div           % ... llx urx ury-lly (lly+ury)/2
      4 2 roll            % ... ury-lly (lly+ury)/2 llx urx
    } repeat
    8 4 roll
  } repeat
  % edx, edy = EPS dimension X and Y, ecx, ecy = EPS Center X and Y.
  % pdx and pcx, etc, are for the Page values.
  % edx ecx edy ecy pdx pcx pdy pcy

  % Move the origin to the center of the printable area.
  3 -1 roll exch          % edx ecx edy ecy pdx pdy pcx pcy
  translate               % edx ecx edy ecy pdx pdy

  % Find orientation of the best fit. Square pages or files don't rotate.
  2 copy sub              % edx ecx edy ecy pdx pdy pdx-pdy
  6 index 5 index sub mul % edx ecx edy ecy pdx pdy (pdx-pdy)*(edx-edy)
  0 lt {
    90 rotate
    exch
  } if

  % Scale to fit in the most restricting direction.
  4 -1 roll div           % edx ecx ecy pdx pdy/edy
  exch 5 -1 roll div      % ecx ecy pdy/edy pdx/edx
  //.min exec
  dup scale               % ecx ecy

  % Center the document
  neg exch neg exch translate

} bind executeonly odef

/EPSBoundingBoxProcess { % (llx lly urx ury) state --
  //systemdict /EPSBoundingBoxState get 1 index lt {
    exch EPSBoundingBoxParse
    {
      //systemdict /EPSCrop known {
        EPSBoundingBoxCrop
      } {
        //systemdict /EPSFitPage known {
          EPSBoundingBoxFitPage
        } {
          % Warn if some of the EPS file will be clipped
          clippath pathbbox newpath
          { % context for exit
            5 -1 roll lt { 6 { pop } repeat //true exit } if
            4 -1 roll lt { 4 { pop } repeat //true exit } if
            3 -1 roll gt { 2 { pop } repeat //true exit } if
            exch gt { //true exit } if
            //false exit
          } loop
          QUIET not and /EPSBoundingBoxState .systemvar 1 and 1 eq and {
            (\n   **** Warning: Some of the BoundingBox for the EPS file will be clipped.) =
            (                 Use -dEPSCrop or -dEPSFitPage to avoid clipping.\n) =
            flush
            1 add
          } if
        } ifelse
      } ifelse
      EPSBoundingBoxSetState
    } {
      pop % state
    } ifelse
  } {
    pop pop
  } ifelse
} bind executeonly odef


/ProcessEPSComment { % file comment --  file comment
  /EPSBoundingBoxState .systemvar 3 lt {
    dup
    (%%BoundingBox:) anchorsearch {
      pop
      EPSDEBUG { (gs_epsf.ps: found %%BoundingBox\n) print flush } if
      1 EPSBoundingBoxProcess
    } {
      (%%HiResBoundingBox:) anchorsearch {
        pop
        EPSDEBUG { (gs_epsf.ps: found %%HiResBoundingBox\n) print flush } if
      3 EPSBoundingBoxProcess
      } {
        pop % Not interested in this DSC comment
      } ifelse
    } ifelse
  } if
  /EPSBoundingBoxState .systemvar 5 lt {
    dup (%%DocumentCustomColors:) anchorsearch {
      pop
      [ exch
        { {
            token not { exit } if
            dup type /stringtype ne { stop } if
            dup (atend) eq { stop } if
            exch
          } loop
          {
            counttomark 2 add index
            dup (123) .peekstring not { stop } if
            (%%+) eq {
              dup (123) readstring pop pop
              256 string readline pop
              cvx exec
            } {
              pop exit
            } ifelse
          } loop
        } stopped {
          cleartomark
        } {
          counttomark 0 gt {
            currentpagedevice /MaxSeparations get 4 gt {
              ] << /SeparationColorNames 3 -1 roll >> setpagedevice
            } {
              cleartomark
            } ifelse
          } {
            cleartomark
          } ifelse
        } ifelse
    } {
      (%%EndComments) anchorsearch {
        pop pop
        % Ignore any following comments
        5 EPSBoundingBoxSetState
      } {
        pop
      } ifelse
    } ifelse
  } if
} bind executeonly def

% Install EPS handler for DSC comments, which we do later
/EPSBoundingBoxInit {
  systemdict /NOEPS known not {
    % Merge ProcessEPSComment with existing handler
    //ProcessEPSComment /exec load
    currentuserparams /ProcessDSCComment get
    dup //null eq {pop {pop pop}} if /exec load
    4 array astore cvx readonly
    << /ProcessDSCComment 3 -1 roll >> setuserparams
  } if
} bind executeonly odef


/.runNoEPS /run load def

/.runEPS { % file OR string --
  /runEPS_save save def
  /runEPS_dict_count countdictstack def
  /runEPS_op_count count 2 sub def
  /runEPS_page_count currentpagedevice /PageCount get def
  0 EPSBoundingBoxSetState
  //.runNoEPS
  currentpagedevice /PageCount get runEPS_page_count sub 0 eq
  { /showpage load exec } if
  count runEPS_op_count sub {pop} repeat
  countdictstack runEPS_dict_count sub {end} repeat
  runEPS_save restore
} bind executeonly odef

/run { % file OR string --
  dup type /filetype ne { (r) file } if
  dup (%!PS-Adobe-) .peekstring {
    (%!PS-Adobe-) eq {
      dup (%!PS-Adobe-X.X EPSF-X.X) .peekstring {
      (EPSF) search {
        pop pop pop
        EPSDEBUG {(runEPS: Found EPS\n) print flush} if
        systemdict /NOEPS known {
          cvx //.runNoEPS
        } {
          cvx .runEPS
        } ifelse
      } {
        EPSDEBUG {(runEPS: Normal DSC\n) print flush} if
        pop
          cvx //.runNoEPS

      } ifelse
      } {
        EPSDEBUG {(runEPS: Short DSC\n) print flush} if
      pop
        cvx //.runNoEPS
      } ifelse
    } {
      EPSDEBUG {(runEPS: Not DSC\n) print flush} if
      cvx //.runNoEPS
    } ifelse
  } {
    EPSDEBUG {(runEPS: Short non-DSC\n) print flush} if
    pop
    cvx //.runNoEPS
  } ifelse
} bind odef

% Handle DOS EPS files.

/.runnoepsf /run load def
/.epsfheader <C5D0D3C6> def
/run
 { dup type /filetype ne { (r) file } if
                % Check for MS-DOS EPSF file (see Red Book p. 729).
 dup (    ) .peekstring
  { .epsfheader eq { dup (    ) readstring exch pop } { //false } ifelse }
  { pop //false }
 ifelse
                % Stack: file true/false
    {		% This block is executed if the file is MS-DOS EPSF.
                % Build up the little-endian byte offset and length.
      2
        { 1 0 4
           { 2 index read not { pop exit } if % if EOF, let error happen
             2 index mul add exch 256 mul exch
           }
          repeat exch pop exch
        }
      repeat
                % Stack: offset length file
                % Use flushfile to skip quickly to the start of the
                % PostScript section.
      dup 4 -1 roll 12 sub () /SubFileDecode filter flushfile
                % Now interpret the PostScript.
      exch () /SubFileDecode filter cvx run
    }
    { //.runnoepsf
    }
   ifelse
 } odef

% rebind .runstdin to use redefined run
userdict begin
/.runstdin {
  { (%stdin) run } execute0
} bind def
end

% undefine things defined in this file and not referenced elsewhere
[
    /.runNoEPS
    /.runnoepsf
    /.runEPS
    /EPSBoundingBoxSetState
    /EPSBoundingBoxCrop
    /EPSBoundingBoxFitPage
    /EPSBoundingBoxParse
    /EPSBoundingBoxProcess
    /ProcessEPSComment
] currentdict .undefinternalnames