summaryrefslogtreecommitdiff
path: root/obsolete/macros/inrstex/inrsinputs/dvialw.ps
blob: 5cab336e35663e4603b301e9f2eb9999c3451f55 (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
% removed mote test (mjf)
% <BEEBE.TEX.DVI>DVIALW.PS.17, 18-Sep-87 17:48:04, Edit by BEEBE
% Add test for note paper and if unknown, use letter paper instead.
% Non-Apple PostScript implementations do not know about note paper
% but its use on the Apple LaserWriter gains 92K of virtual memory
% <BEEBE.TEX.DVI>DVIALW.PS.16, 18-Sep-87 15:50:52, Edit by BEEBE
% Modify coordinate computations to remove round-off errors
% in landscape mode, and correct landscape page origin
% <BEEBE.TEX.DVI>DVIALW.PS.14, 22-Jun-87 09:55:05, Edit by BEEBE
% Add missing "0 900 translate Mtrx currentmatrix pop" to /LEGAL
% <BEEBE.TEX.DVI>DVIALW.PS.13,  7-Jan-87 17:38:51, Edit by BEEBE
% Add translate command to BOP so that (0,0) really corresponds to
% the top left physical page corner.  The standard LaTeX file 
% TESTPAGE.TEX can be used for this calibration; it might be sensitive
% to the particular printer used.	
% <BEEBE.TEX.DVI.NEW>DVIALW.PS.12, 10-Dec-86 17:24:50, Edit by BEEBE
% Fix off-by-one error in definition of /B; to draw a box N pixels
% wide, microscopic examination of output shows that the box width
% must be N-1, not N, pixels; the boundary counts in the filling.                
% <BEEBE.TEX.DVI.NEW>DVIALW.PS.9, 28-Nov-86 19:00:52, Edit by BEEBE
% Change definition of EOP to use #copies and showpage
% instead of {copypage} repeat erasepage
% <BEEBE.TEX.DVI.NEW>DVIALW.PS.7, 16-Oct-86 13:09:36, Edit by BEEBE
% Following Macintosh LaserWriter md dictionary, change most
% def's to bdf's (bind def); this is claimed to speed up
% operator access
% <BEEBE.TEX.DVI.NEW>DVIALW.PS.5, 16-Oct-86 12:01:12, Edit by BEEBE
% Change CTL-L to caret-L in comment
% <BEEBE.TEX.DVI.NEW>DVIALW.PS.3, 13-Jun-86 10:48:39, Edit by BEEBE
% Fix definition of NOTE, make it default in BOJ macro to try to reduce
% incidence of VM errors
% ----------------------------------------------------------------------
% DVIALW PostScript macro definitions (keep in alphabetical order).  For
% readability, these  are  heavily  commented,  but  we  adhere  to  the
% convention that  percent is  used  ONLY to  mark  the beginning  of  a
% comment (NEVER  occurs  inside a  PostScript  string), and  lines  are
% limited to 80 characters.  That way, DVIALW can read these definitions
% from a  file and  discard  comments and  trailing white  space  before
% transmission to  the  PostScript output  file.   In the  interests  of
% compactness, macros which  receive any significant  degree of use  are
% given single letter names -- PostScript is already much too verbose.
%
% Coordinates are assumed to  be in pixels  (Resolution per inch).   The
% page origin follows the  PostScript convention of  being in the  lower
% left corner, y positive upwards along  the longer side of the page,  x
% positive  to  the  right.   Letter  and  legal  sizes  are   therefore
% equivalent as far as PostScript is concerned, but y coordinates can be
% bigger in legal size.  In landscape mode, the page is rotated to place
% the origin in  the upper left  corner, x positive  downward along  the
% longer side of  the page, y  positive to the  right.  That way,  pages
% eject from  the printer  upright when  viewed from  the front  of  the
% printer.
%
% Document format is something like this:
%
%	%!PS-Adobe-1.0
%	%%Dimensions: 0 0 612 792
%	%%Title: DVIALW  -o1 -s300 foo12
%	%%CreationDate: Sat Mar  8 10:52:52 1986
%	%%Creator: BEEBE and [TeX82 DVI Translator Version 2.03b...]
%	%%Pages: (atend)
%	%%BugHistory: Incorporates save/restore and font reloading...
%	%%BugHistory: Incorporates Allan Hetzel's 31-Oct-85 DARPA...
%	%%EndComments
%	%%EndProlog
%	%%Page: 0 1
%	TeXdict begin
%	BOJ
%	BOP
%	...
%	 1 EOP
%	^LBOP
%	...
%	 1 EOP
%	^LBOP
%	...
%	 1 EOP
%	^LEOJ
%	%%Trailer
%	%%Pages: 7
%	%%PageTable:  0 1 3434
%	^D
%
% One formfeed is output  for each printed page  copy, in order to  make
% spooler page accounting simple.  The additional comments wrapping  the
% BOJ ..  EOJ  sequence conform  to  Adobe PostScript  file  structuring
% conventions, and the first line can be used by the spooler to identify
% the file as containing PostScript.
% ----------------------------------------------------------------------


/TeXdict 200 dict def		% dictionary for these definitions
TeXdict begin

% bdf -- bind def (for efficiency)
% Usage -- just like def, but not on constant objects
/bdf {bind def} def

% B -- draw bar (TeX rule) of size w by h at currentpoint
% Usage -- w h B
/B
{
  /h exch def
  /w exch def
  gsave
  currentpoint
  newpath
    moveto
    w 1 sub 0 rlineto
    0 h 1 sub rlineto
    w 1 sub neg 0 rlineto
  closepath fill
  grestore
} bdf

% BOJ -- beginning of job (EOF ends it and closes TeXdict)
% Usage -- BOJ
/BOJ
{
  72 Resolution div 72 Resolution div scale
  userdict /note known 
  {LETTER}				% MJF mod 
  {LETTER}				% default page format for others
  ifelse
} bdf

% BOP -- beginning of page
% Usage -- BOP
/BOP
{
  clear
  Mtrx setmatrix
  25 0 translate % Physical page origin is at (-25,0) from the top left corner
} bdf

% ch-fieldname -- extract field from ch-data array (order defined by positions
% in first array argument to macro D)
% Usage -- ch-fieldname
/ch-image  {ch-data 0 get} bdf	% the bitmap hex string image
/ch-xoff   {ch-data 1 get} bdf	% pixels from left edge of bitmap to char origin
/ch-yoff   {ch-data 2 get} bdf	% pixels from top edge of bitmap to char origin
/ch-width  {ch-data 3 get} bdf	% bitmap width in pixels
/ch-height {ch-data 4 get} bdf  % bitmap height in pixels
/ch-tfmw   {ch-data 5 get} bdf	% pixels to next character (precise flt value)

% CharBuilder -- image one character
% Usage -- fontdict ch CharBuilder
/CharBuilder
{
  /ch-code exch def		% save the char code
  /font-dict exch def		% and the font dict.
  /ch-data font-dict /BitMaps get
    ch-code get def		% get the bitmap descriptor for char
  ch-data null eq not		% show character if entry is not empty
  {
    ch-tfmw 	   		0
    ch-xoff neg			ch-yoff ch-height sub
    ch-width ch-xoff sub	ch-yoff
    setcachedevice
    0 0 SNAP translate
    ch-width ch-height true [ 1 0 0 -1 ch-xoff ch-yoff ]
    {ch-image} imagemask
  } if
} bdf


% D -- define new character in current font
% Usage -- [<bitmap> xoff yoff pixwid pixht tfmpixwid] charnum D
/D
{
  /ch-code exch def
  /ch-data exch def
  currentfont /BitMaps get ch-code ch-data put
  currentfont /Encoding get ch-code dup 3 string cvs cvn put
} bdf

% EOJ -- end of job
% Usage -- EOJ
/EOJ
{
  end				% matches begin issued before BOJ
} bdf

% EOP -- end of page
% Usage -- ncopies EOP
/EOP
{
/#copies exch def
showpage
} bdf

% LANDSCAPE -- landscape format page (11inH x 8.5inV)
% Usage -- LANDSCAPE
/LANDSCAPE
{
  letter initmatrix
  72 Resolution div dup scale
  0 3300 translate
  -90 rotate
  0 -750 translate
  Mtrx currentmatrix pop
} bdf

% LANDSCAPE -- landscape format page (11inH x 8.5inV)
% Usage -- LEGAL_LAND
/LEGAL_LAND
{
  legal initmatrix
  72 Resolution div dup scale
  0 4200 translate
  -90 rotate
  0 -750 translate
  Mtrx currentmatrix pop
} bdf

% LEGAL -- legal format page (8.5inH x 14inV)
% Usage -- LEGAL
/LEGAL
{
  legal initmatrix
  72 Resolution div dup scale
  0 900 translate
  Mtrx currentmatrix pop
} bdf

% LETTER -- letter format page
% Usage -- LETTER
/LETTER
{
  letter initmatrix
  72 Resolution div dup scale
  Mtrx currentmatrix pop
} bdf

% M -- moveto
% Usage -- x y M
/M
{
  moveto
} bdf

% Mtrx -- permanent storage for page transformation matrix
% Usage -- Mtrx
/Mtrx 6 array def

% NF -- define new font
% Usage -- /fontname NF
/NF
{
  /newname exch def
  newname 7 dict def
  newname load
  begin
    /BitMaps 128 array def
    /BuildChar { CharBuilder } def
    /Encoding 128 array def
	0 1 127 { Encoding exch /.notdef put } for
    /FontBBox [ 0 0 1 1 ] def
    /FontMatrix [ 1 0 0 1 0 0 ] def
    /FontType 3 def
  end
  newname newname load definefont pop
} bdf() pop

% NOTE -- note format page (increases available virtual memory from 240K
%	  to 340K on Apple LaserWriter)
% Usage -- NOTE
/NOTE
{
  note initmatrix
  72 Resolution div dup scale		   % set scaling to 1.
  Mtrx currentmatrix pop
} bdf

% P -- show string at current point, updating horizontal position to new endpt
% Usage -- (string) P
/P {show} bdf() pop

% Q -- draw bar of last size set by B command at specified point
% Usage -- x y Q
/Q {moveto w h B} bdf() pop

% R -- move relative right and show string, updating horizontal position to
%      new endpoint
% Usage -- (string) xxx R
/R {0 rmoveto show} bdf() pop

% Resolution -- device resolution in dots/inch
% Usage -- Resolution
/Resolution 300 def

% S -- move absolute and show string, updating horizontal position to new endpt
% Usage -- (string) xxx yyy S
/S {moveto show} bdf() pop

% SF -- set new font at scale nnn (nnn = 1 normally; 2 gives double size chars)
% Usage -- nnn /fontname SF
/SF {findfont exch scalefont setfont} bdf() pop

% SNAP -- convert coordinates to integer device coordinates and back again
% Usage -- xxx yyy SNAP (leave xxx' yyy' on stack)
/SNAP {transform 2 {floor 0.5 add exch} repeat itransform} bdf

% T -- move absolute horizontally and show string, updating horizontal position
% to new endpt
% Usage -- (string) xxx T
/T {currentpoint exch pop moveto show} bdf() pop

end				% TeXdict