tdpost.ps - plan9port - [fork] Plan 9 from user space
(HTM) git clone git://src.adamsgaard.dk/plan9port
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) README
(DIR) LICENSE
---
tdpost.ps (4620B)
---
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 0 0 moveto
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 0 0
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