Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1
%
2
% Version 3.3.2 prologue for troff files.
3
%
4
 
5
/#copies 1 store
6
/aspectratio 1 def
7
/formsperpage 1 def
8
/landscape false def
9
/linewidth .3 def
10
/magnification 1 def
11
/margin 0 def
12
/orientation 0 def
13
/resolution 720 def
14
/rotation 1 def
15
/xoffset 0 def
16
/yoffset 0 def
17
 
18
/roundpage true def
19
/useclippath true def
20
/pagebbox [0 0 612 792] def
21
 
22
/R  /Times-Roman def
23
/I  /Times-Italic def
24
/B  /Times-Bold def
25
/BI /Times-BoldItalic def
26
/H  /Helvetica def
27
/HI /Helvetica-Oblique def
28
/HB /Helvetica-Bold def
29
/HX /Helvetica-BoldOblique def
30
/CW /Courier def
31
/CO /Courier def
32
/CI /Courier-Oblique def
33
/CB /Courier-Bold def
34
/CX /Courier-BoldOblique def
35
/PA /Palatino-Roman def
36
/PI /Palatino-Italic def
37
/PB /Palatino-Bold def
38
/PX /Palatino-BoldItalic def
39
/Hr /Helvetica-Narrow def
40
/Hi /Helvetica-Narrow-Oblique def
41
/Hb /Helvetica-Narrow-Bold def
42
/Hx /Helvetica-Narrow-BoldOblique def
43
/KR /Bookman-Light def
44
/KI /Bookman-LightItalic def
45
/KB /Bookman-Demi def
46
/KX /Bookman-DemiItalic def
47
/AR /AvantGarde-Book def
48
/AI /AvantGarde-BookOblique def
49
/AB /AvantGarde-Demi def
50
/AX /AvantGarde-DemiOblique def
51
/NR /NewCenturySchlbk-Roman def
52
/NI /NewCenturySchlbk-Italic def
53
/NB /NewCenturySchlbk-Bold def
54
/NX /NewCenturySchlbk-BoldItalic def
55
/ZD /ZapfDingbats def
56
/ZI /ZapfChancery-MediumItalic def
57
/S  /S def
58
/S1 /S1 def
59
/GR /Symbol def
60
 
61
/inch {72 mul} bind def
62
/min {2 copy gt {exch} if pop} bind def
63
 
64
/setup {
65
	counttomark 2 idiv {def} repeat pop
66
 
67
	landscape {/orientation 90 orientation add def} if
68
	/scaling 72 resolution div def
69
	linewidth setlinewidth
70
	1 setlinecap
71
 
72
	pagedimensions
73
	xcenter ycenter translate
74
	orientation rotation mul rotate
75
	width 2 div neg height 2 div translate
76
	xoffset inch yoffset inch neg translate
77
	margin 2 div dup neg translate
78
	magnification dup aspectratio mul scale
79
	scaling scaling scale
80
 
81
	addmetrics
82
 
83
} def
84
 
85
/pagedimensions {
86
	useclippath userdict /gotpagebbox known not and {
87
		/pagebbox [clippath pathbbox newpath] def
88
		roundpage currentdict /roundpagebbox known and {roundpagebbox} if
89
	} if
90
	pagebbox aload pop
91
	4 -1 roll exch 4 1 roll 4 copy
92
	landscape {4 2 roll} if
93
	sub /width exch def
94
	sub /height exch def
95
	add 2 div /xcenter exch def
96
	add 2 div /ycenter exch def
97
	userdict /gotpagebbox true put
98
} def
99
 
100
/addmetrics {
101
	/Symbol /S null Sdefs cf
102
	/Times-Roman /S1 StandardEncoding dup length array copy S1defs cf
103
} def
104
 
105
/pagesetup {
106
	/page exch def
107
	currentdict /pagedict known currentdict page known and {
108
		page load pagedict exch get cvx exec
109
	} if
110
} def
111
 
112
/decodingdefs [
113
	{counttomark 2 idiv {y moveto show} repeat}
114
	{neg /y exch def counttomark 2 idiv {y moveto show} repeat}
115
	{neg moveto {2 index stringwidth pop sub exch div 0 32 4 -1 roll widthshow} repeat}
116
	{neg moveto {spacewidth sub 0.0 32 4 -1 roll widthshow} repeat}
117
	{counttomark 2 idiv {y moveto show} repeat}
118
	{neg setfunnytext}
119
] def
120
 
121
/setdecoding {/t decodingdefs 3 -1 roll get bind def} bind def
122
 
123
/w {neg moveto show} bind def
124
/m {neg dup /y exch def moveto} bind def
125
/done {/lastpage where {pop lastpage} if} def
126
 
127
/f {
128
	dup /font exch def findfont exch
129
	dup /ptsize exch def scaling div dup /size exch def scalefont setfont
130
	linewidth ptsize mul scaling 10 mul div setlinewidth
131
	/spacewidth ( ) stringwidth pop def
132
} bind def
133
 
134
/changefont {
135
	/fontheight exch def
136
	/fontslant exch def
137
	currentfont [
138
		1 0
139
		fontheight ptsize div fontslant sin mul fontslant cos div
140
		fontheight ptsize div
141
 
142
	] makefont setfont
143
} bind def
144
 
145
/sf {f} bind def
146
 
147
/cf {
148
	dup length 2 idiv
149
	/entries exch def
150
	/chtab exch def
151
	/newencoding exch def
152
	/newfont exch def
153
 
154
	findfont dup length 1 add dict
155
	/newdict exch def
156
	{1 index /FID ne {newdict 3 1 roll put}{pop pop} ifelse} forall
157
 
158
	newencoding type /arraytype eq {newdict /Encoding newencoding put} if
159
 
160
	newdict /Metrics entries dict put
161
	newdict /Metrics get
162
	begin
163
		chtab aload pop
164
		1 1 entries {pop def} for
165
		newfont newdict definefont pop
166
	end
167
} bind def
168
 
169
%
170
% A few arrays used to adjust reference points and character widths in some
171
% of the printer resident fonts. If square roots are too high try changing
172
% the lines describing /radical and /radicalex to,
173
%
174
%	/radical	[0 -75 550 0]
175
%	/radicalex	[-50 -75 500 0]
176
%
177
% Move braceleftbt a bit - default PostScript character is off a bit.
178
%
179
 
180
/Sdefs [
181
	/bracketlefttp		[201 500]
182
	/bracketleftbt		[201 500]
183
	/bracketrighttp		[-81 380]
184
	/bracketrightbt		[-83 380]
185
	/braceleftbt		[203 490]
186
	/bracketrightex		[220 -125 500 0]
187
	/radical		[0 0 550 0]
188
	/radicalex		[-50 0 500 0]
189
	/parenleftex		[-20 -170 0 0]
190
	/integral		[100 -50 500 0]
191
	/infinity		[10 -75 730 0]
192
] def
193
 
194
/S1defs [
195
	/underscore		[0 80 500 0]
196
	/endash			[7 90 650 0]
197
] def