![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dpost.ps CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / post.src / dpost.utf|
Return to dpost.ps CVS log | Up to [Research Unix] / researchv10no / cmd / post.src / dpost.utf |
1.1 root 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: /show {show} bind def % so later references don't bind
65: /widthshow {widthshow} bind def
66: /stringwidth {stringwidth} bind def
67:
68: /setup {
69: counttomark 2 idiv {def} repeat pop
70:
71: landscape {/orientation 90 orientation add def} if
72: /scaling 72 resolution div def
73: linewidth setlinewidth
74: 1 setlinecap
75:
76: pagedimensions
77: xcenter ycenter translate
78: orientation rotation mul rotate
79: width 2 div neg height 2 div translate
80: xoffset inch yoffset inch neg translate
81: margin 2 div dup neg translate
82: magnification dup aspectratio mul scale
83: scaling scaling scale
84:
85: addmetrics
86: 0 0 moveto
87: } def
88:
89: /pagedimensions {
90: useclippath userdict /gotpagebbox known not and {
91: /pagebbox [clippath pathbbox newpath] def
92: roundpage currentdict /roundpagebbox known and {roundpagebbox} if
93: } if
94: pagebbox aload pop
95: 4 -1 roll exch 4 1 roll 4 copy
96: landscape {4 2 roll} if
97: sub /width exch def
98: sub /height exch def
99: add 2 div /xcenter exch def
100: add 2 div /ycenter exch def
101: userdict /gotpagebbox true put
102: } def
103:
104: /addmetrics {
105: /Symbol /S null Sdefs cf
106: /Times-Roman /S1 StandardEncoding dup length array copy S1defs cf
107: } def
108:
109: /pagesetup {
110: /page exch def
111: currentdict /pagedict known currentdict page known and {
112: page load pagedict exch get cvx exec
113: } if
114: } def
115:
116: /decodingdefs [
117: {counttomark 2 idiv {y moveto show} repeat}
118: {neg /y exch def counttomark 2 idiv {y moveto show} repeat}
119: {neg moveto {2 index stringwidth pop sub exch div 0 32 4 -1 roll widthshow} repeat}
120: {neg moveto {spacewidth sub 0.0 32 4 -1 roll widthshow} repeat}
121: {counttomark 2 idiv {y moveto show} repeat}
122: {neg setfunnytext}
123: ] def
124:
125: /setdecoding {/t decodingdefs 3 -1 roll get bind def} bind def
126:
127: /w {neg moveto show} bind def
128: /m {neg dup /y exch def moveto} bind def
129: /done {/lastpage where {pop lastpage} if} def
130:
131: /f {
132: dup /font exch def findfont exch
133: dup /ptsize exch def scaling div dup /size exch def scalefont setfont
134: linewidth ptsize mul scaling 10 mul div setlinewidth
135: /spacewidth ( ) stringwidth pop def
136: } bind def
137:
138: /changefont {
139: /fontheight exch def
140: /fontslant exch def
141: currentfont [
142: 1 0
143: fontheight ptsize div fontslant sin mul fontslant cos div
144: fontheight ptsize div
145: 0 0
146: ] makefont setfont
147: } bind def
148:
149: /sf {f} bind def
150:
151: /cf {
152: dup length 2 idiv
153: /entries exch def
154: /chtab exch def
155: /newencoding exch def
156: /newfont exch def
157:
158: findfont dup length 1 add dict
159: /newdict exch def
160: {1 index /FID ne {newdict 3 1 roll put}{pop pop} ifelse} forall
161:
162: newencoding type /arraytype eq {newdict /Encoding newencoding put} if
163:
164: newdict /Metrics entries dict put
165: newdict /Metrics get
166: begin
167: chtab aload pop
168: 1 1 entries {pop def} for
169: newfont newdict definefont pop
170: end
171: } bind def
172:
173: %
174: % A few arrays used to adjust reference points and character widths in some
175: % of the printer resident fonts. If square roots are too high try changing
176: % the lines describing /radical and /radicalex to,
177: %
178: % /radical [0 -75 550 0]
179: % /radicalex [-50 -75 500 0]
180: %
181: % Move braceleftbt a bit - default PostScript character is off a bit.
182: %
183:
184: /Sdefs [
185: /bracketlefttp [201 500]
186: /bracketleftbt [201 500]
187: /bracketrighttp [-81 380]
188: /bracketrightbt [-83 380]
189: /braceleftbt [203 490]
190: /bracketrightex [220 -125 500 0]
191: /radical [0 0 550 0]
192: /radicalex [-50 0 500 0]
193: /parenleftex [-20 -170 0 0]
194: /integral [100 -50 500 0]
195: /infinity [10 -75 730 0]
196: ] def
197:
198: /S1defs [
199: /underscore [0 80 500 0]
200: /endash [7 90 650 0]
201: ] def
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.