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
|
% special.lpro - public domain.
% 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
{ SDict begin
/SpecialSave save N
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
/setpagedevice { pop } N
/copypage {} N
newpath
} N
/@endspecial % - @endspecial - -- leave special mode
{ count ocount sub {pop} repeat
countdictstack dcount sub {end} repeat
grestore SpecialSave restore
end
} N
/@defspecial
{
SDict begin
} N
/@fedspecial
{
end
} B
%%% macros for tpic
/li % x y li - -- draw line to
{ lineto
} B
/rl % dx dy rl - -- draw relative line
{ rlineto
} B
/rc % x0 y0 x1 y1 y2 y2 rc -- draw bezier curve
{ rcurveto
} B
/np % np - -- start a new path and save currentpoint
{ /SaveX currentpoint /SaveY X N % remember current point
1 setlinecap
newpath
} N
/st % st - -- draw the last path and restore currentpoint
{ stroke
SaveX SaveY moveto % restore the current point
} N
/fil % fil -- fill the last path and restore currentpoint
{ fill
SaveX SaveY moveto % restore the current point
} N
/ellipse % xc yc xrad yrad startAngle endAngle ellipse
{
/endangle X
/startangle X
/yrad X
/xrad X
/savematrix matrix currentmatrix N
TR xrad yrad scale
0 0 1 startangle endangle arc
savematrix setmatrix
} N
%%% end of macros for tpic
end % revert to previous dictionary
|
