summaryrefslogtreecommitdiff
path: root/Build/source/texk/xdvik/psheader.txt
blob: 43986ab4133765016c62771943b995408817cf17 (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
%% These are from tex.lpro
/TeXDict 250 dict def   % define a working dictionary ( IBM: color - 200->250 )
TeXDict begin           % start using it.
/N {def} def
/B {bind def} N
/S {exch} N
/X { S N } B
/TR {translate} N
/vsize 11 72 mul N
end % TeXDict

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%     header for the \special command
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%   The structure of the PostScript produced by dvips for \special is:
%         @beginspecial
%           - any number of @hsize, @hoffset, @hscale, etc., commands
%         @setspecial
%           - the user's file of PostScript commands
%         @endspecial

TeXDict begin
/SDict 200 dict N
SDict begin

/@SpecialDefaults
  { /hs 612 N
    /vs 792 N
    /ho 0 N
    /vo 0 N
    /hsc 1 N
    /vsc 1 N
    /ang 0 N
    /CLIP 0 N
    /rwiSeen false N
    /rhiSeen false N
    /letter {} N /note {} N /a4 {} N /legal {} N
  } B

%
%   The following definition sets up the units that hscale/vscale are in.
%   For certain sites this might require change, but it is
%   recommended instead that any macro packages that require
%   hscale/vscale set the units appropriately via
%
%   \special{! /@scaleunit 1 def }
%
%   if global, or
%
%   \special{" /@scaleunit 1 def }
%
%   before each instance if multiple macro packages with
%   different requirements are being used.
%
/@scaleunit 100 N
%       s @hscale  -    set scale factor
/@hscale {@scaleunit div /hsc X} B
/@vscale {@scaleunit div /vsc X} B

%       d @hsize   -    specify a horizontal clipping dimension
/@hsize {/hs X /CLIP 1 N} B
/@vsize {/vs X /CLIP 1 N} B

/@clip {/CLIP 2 N} B

%       d @hoffset -    specify a shift for the figure
/@hoffset {/ho X} B
/@voffset {/vo X} B

%       a @angle   -    set rotation angle
/@angle {/ang X} B

%
%   Here we handle bounding box calculations, if necessary.
%
/@rwi { 10 div /rwi X /rwiSeen true N } B % rwi will be real width after scaling
/@rhi { 10 div /rhi X /rhiSeen true N } B % rhi will be real height after scaling
/@llx { /llx X } B
/@lly { /lly X } B
/@urx { /urx X } B
/@ury { /ury X } B

/magscale true def

end % of SDict

/@MacSetUp
  { userdict /md known  % if md is defined
      { userdict /md get type /dicttype eq      % and if it is a dictionary
	{
        userdict begin                       % expand it if necessary
           md length 10 add md maxlength ge
           {/md md dup length 20 add dict copy def}if
        end
	md begin                             % then redefine some stuff
	/letter {} N
	/note {} N
	/legal {} N
	/od{txpose
	    1 0 mtx defaultmatrix dtransform S atan/pa X
	    newpath clippath mark
	    {transform{itransform moveto}}
	    {transform{itransform lineto}}
	    { 6 -2 roll transform
	      6 -2 roll transform
	      6 -2 roll transform
	      { itransform 6 2 roll
		itransform 6 2 roll
		itransform 6 2 roll
		curveto
	      }
	    }
	    {{closepath}}
	    pathforall newpath counttomark array astore /gc xdf
	    pop ct 39 0 put
	    10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if
	}N
	/txpose{
	    pxs pys scale ppr aload pop
	    por {
		noflips {
		    pop S neg S TR pop 1 -1 scale
		}if
		xflip yflip and {
		    pop S neg S TR 180 rotate 1 -1 scale
		    ppr 3 get ppr 1 get neg sub neg ppr 2 get
		    ppr 0 get neg sub neg TR
		}if
		xflip yflip not and {
		    pop S neg S TR pop 180 rotate
		    ppr 3 get ppr 1 get neg sub neg 0 TR
		}if
		yflip xflip not and {
		    ppr 1 get neg ppr 0 get neg TR
		}if
	    }
	    {
		noflips {
		    TR pop pop 270 rotate 1 -1 scale
		}if
		xflip yflip and {
		    TR pop pop 90 rotate 1 -1 scale
		    ppr 3 get ppr 1 get neg sub neg ppr 2 get
		    ppr 0 get neg sub neg TR
		}if
		xflip yflip not and {
		    TR pop pop 90 rotate ppr 3 get
		    ppr 1 get neg sub neg 0 TR
		}if
		yflip xflip not and {
		    TR pop pop 270 rotate ppr 2 get
		    ppr 0 get neg sub neg 0 S TR
		}if
	    }ifelse
	    scaleby96 {
		ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2 copy
		TR .96 dup scale neg S neg S TR
	    }if
	}N
	/cp {pop pop showpage pm restore}N
        end
      }if
    } if
  } N

%
%   The following procedure brings us back to PostScript size.  It takes
%   into account the current global dvi magnification, so graphics
%   scale with the document.
%
/normalscale {
    Resolution 72 div VResolution 72 div neg scale
    magscale { DVImag dup scale } if
    0 setgray
} N
%
% this will be invoked as the result of a \special command (for the
% inclusion of PostScript graphics).  The basic idea is to change all
% scaling and graphics back to defaults, but to shift the origin
% to the current position on the page.

/@beginspecial          % - @beginspecial -     -- enter special mode
  { 
    /SpecialSave save N
    SDict begin
    gsave
    normalscale
    currentpoint TR    %set the current point as the user's origin
    @SpecialDefaults    % setup default offsets, scales, sizes, and angle
    count /ocount X /dcount countdictstack N
  } N

/@setspecial    % to setup user specified offsets, scales, sizes (for clipping)
  {
    CLIP 1 eq
      { newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
        closepath clip }
    if
    ho vo TR
    hsc vsc scale
    ang rotate
    rwiSeen {
       rwi urx llx sub div
       rhiSeen { rhi ury lly sub div } { dup } ifelse
       scale llx neg lly neg TR
    } {
       rhiSeen { rhi ury lly sub div dup scale llx neg lly neg TR } if
    } ifelse
    CLIP 2 eq
    { newpath llx lly moveto urx lly lineto urx ury lineto llx ury lineto
      closepath clip }
    if
    /showpage {} N
    /erasepage {} N
    /copypage {} N
    /setpagedevice {pop} def
    newpath
  } N

/@endspecial            % - @endspecial -       -- leave special mode
  { count ocount sub {pop} repeat
    countdictstack dcount sub {end} repeat
    grestore SpecialSave restore
    end
  } N

% xdvik special treatment for saving definitions made in SDict (while using
% the bang special; try to guarantee that the dictionary stack is ok!
%   xdvik should not systematically bracket code within save/restore pairs,
% anyway: such bracketing breaks a lot of code (many packages do change
% TeXDict from with ps: specials for instance) and we should only guarantee
% that bracketing is done within @beginspecial and @endspecial.  -- YA

/@xdvisavestate
  {
    userdict /xdvi$sav save put
  } N

/@defspecial
  {
    SDict begin
  } N
/@fedspecial
  {
    end
    @xdvisavestate
  } B
end                     % revert to previous dictionary