![[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.