![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to printfont.ps CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / cmd / postscript / printfont|
Return to printfont.ps CVS log | Up to [Research Unix] / researchv10dc / cmd / postscript / printfont |
1.1 ! root 1: % ! 2: % Formatted font dump. Assumes all fonts include valid FontBBox arrays. ! 3: % ! 4: ! 5: /#copies 1 store ! 6: /aspectratio 1 def ! 7: /landscape false def ! 8: /magnification 1 def ! 9: /margin 10 def ! 10: /orientation 0 def ! 11: /rotation 1 def ! 12: /xoffset 0 def ! 13: /yoffset 0 def ! 14: ! 15: /axescount 0 def ! 16: /charwidth false def ! 17: /graynotdef 0.85 def ! 18: /hireslinewidth 0.2 def ! 19: /longnames false def ! 20: /maxsize 6.0 def ! 21: /minsize 4.5 def ! 22: /numbercell true def ! 23: /radix 16 def ! 24: /labelfont /Helvetica def ! 25: /labelspace 36 def ! 26: /zerocell 0 def ! 27: ! 28: /roundpage true def ! 29: /useclippath true def ! 30: /pagebbox [0 0 612 792] def ! 31: ! 32: /inch {72 mul} def ! 33: /min {2 copy gt {exch} if pop} def ! 34: /max {2 copy lt {exch} if pop} def ! 35: ! 36: /LLx {0 get} bind def ! 37: /LLy {1 get} bind def ! 38: /URx {2 get} bind def ! 39: /URy {3 get} bind def ! 40: /BBoxHeight {dup URy exch LLy sub} bind def ! 41: /BBoxWidth {dup URx exch LLx sub} bind def ! 42: ! 43: /setup { ! 44: /graylevels [1 0 0] def ! 45: /scratchstring 512 string def ! 46: /Product statusdict begin /product where {pop product}{(Unknown)} ifelse end def ! 47: /Resolution 0 72 dtransform dup mul exch dup mul add sqrt cvi def ! 48: /Version /version where {pop version}{(???)} ifelse def ! 49: ! 50: landscape {/orientation 90 orientation add def} if ! 51: ! 52: pagedimensions ! 53: xcenter ycenter translate ! 54: orientation rotation mul rotate ! 55: width 2 div neg height 2 div translate ! 56: xoffset inch yoffset inch neg translate ! 57: margin dup neg translate ! 58: 0 labelspace .75 mul neg translate ! 59: magnification dup aspectratio mul scale ! 60: 0 0 transform round exch round exch itransform translate ! 61: ! 62: currentdict /linewidth known not { ! 63: /linewidth Resolution 400 le {0}{hireslinewidth} ifelse def ! 64: } if ! 65: } def ! 66: ! 67: /pagedimensions { ! 68: useclippath { ! 69: /pagebbox [clippath pathbbox newpath] def ! 70: roundpage currentdict /roundpagebbox known and {roundpagebbox} if ! 71: } if ! 72: pagebbox aload pop ! 73: 4 -1 roll exch 4 1 roll 4 copy ! 74: landscape {4 2 roll} if ! 75: sub /width exch def ! 76: sub /height exch def ! 77: add 2 div /xcenter exch def ! 78: add 2 div /ycenter exch def ! 79: } def ! 80: ! 81: /CharSetup { ! 82: /chcode exch def ! 83: /chname Encoding chcode get def ! 84: /chstring ( ) dup 0 chcode put def ! 85: /chknown true def ! 86: ! 87: graylevels 0 1 put % initial cell fill ! 88: graylevels 1 0 put % cell text ! 89: graylevels 2 0 put % cell border ! 90: ! 91: FontDict /CharStrings known { ! 92: FontDict /CharStrings get chname known not { ! 93: /chknown false def ! 94: graylevels 0 0 put ! 95: graylevels 1 1 put ! 96: } if ! 97: } if ! 98: ! 99: chname /.notdef eq { ! 100: /chknown false def ! 101: graylevels 0 graynotdef put ! 102: graylevels 1 graynotdef put ! 103: } if ! 104: ! 105: /chwid chknown ! 106: {FontDict 1 scalefont setfont chstring stringwidth pop} ! 107: {0} ! 108: ifelse def ! 109: } bind def ! 110: ! 111: /CellSetup { ! 112: /gridwidth width margin 2 mul sub def ! 113: /gridheight height labelspace sub margin 2 mul sub def ! 114: /cellwidth gridwidth radix div def ! 115: /cellheight gridheight Entries radix div ceiling div def ! 116: ! 117: cellwidth cellheight dtransform truncate exch truncate exch idtransform ! 118: /cellheight exch def ! 119: /cellwidth exch def ! 120: ! 121: labelfont findfont 1 scalefont setfont ! 122: /LabelBBox currentfont /FontBBox get TransformBBox def ! 123: ! 124: LabelBBox 2 0 Encoding { ! 125: scratchstring cvs stringwidth pop ! 126: 2 copy lt {exch} if ! 127: pop ! 128: } forall put ! 129: ! 130: /CellLabelSize ! 131: cellheight .20 mul cellwidth .90 mul LabelBBox BestFit ! 132: minsize max ! 133: maxsize min ! 134: def ! 135: zerocell CellOrigin cellheight add neg exch neg exch translate ! 136: } bind def ! 137: ! 138: /FontSetup { ! 139: FontName findfont 1 scalefont setfont ! 140: /BBox currentfont /FontBBox get TransformBBox def ! 141: /PointSize cellheight .5 mul cellwidth .8 mul BBox BestFit def ! 142: BBox {PointSize mul} forall BBox astore pop ! 143: ! 144: /xorigin cellwidth BBox BBoxWidth sub 2 div BBox LLx sub def ! 145: /yorigin cellheight BBox BBoxHeight sub 2 div BBox LLy sub def ! 146: } bind def ! 147: ! 148: /BestFit { ! 149: /bbox exch def ! 150: bbox BBoxWidth div exch ! 151: bbox BBoxHeight div min ! 152: } bind def ! 153: ! 154: /TransformBBox { % font bbox to user space ! 155: aload pop ! 156: currentfont /FontMatrix get dtransform 4 2 roll ! 157: currentfont /FontMatrix get dtransform 4 2 roll ! 158: 4 array astore % should build user space bbox if all zeros ! 159: } bind def ! 160: ! 161: /CellOrigin { ! 162: dup ! 163: exch radix mod cellwidth mul ! 164: exch radix idiv 1 add neg cellheight mul ! 165: } bind def ! 166: ! 167: /CellOutline { ! 168: newpath ! 169: CellOrigin moveto ! 170: cellwidth 0 rlineto ! 171: 0 cellheight rlineto ! 172: cellwidth neg 0 rlineto ! 173: closepath ! 174: } bind def ! 175: ! 176: /LabelCell { ! 177: gsave ! 178: chcode CellOrigin translate ! 179: linewidth .5 mul setlinewidth ! 180: labelfont findfont CellLabelSize scalefont setfont ! 181: ! 182: numbercell { ! 183: cellwidth .025 mul cellheight .05 mul moveto ! 184: chcode radix scratchstring cvrs show ! 185: } if ! 186: ! 187: charwidth chknown and { ! 188: /wid chwid 0.0005 add scratchstring cvs 0 5 getinterval def ! 189: cellwidth wid stringwidth pop 1.10 mul sub cellheight .05 mul moveto ! 190: wid show ! 191: } if ! 192: ! 193: longnames chknown not or { ! 194: cellwidth .025 mul ! 195: cellheight LabelBBox URy CellLabelSize mul sub .05 sub moveto ! 196: Encoding chcode get scratchstring cvs show ! 197: } if ! 198: ! 199: axescount 1 ge chknown and { % gsave/grestore if not last ! 200: newpath ! 201: xorigin yorigin translate ! 202: ! 203: BBox LLx 0 moveto % baseline ! 204: BBox URx 0 lineto stroke ! 205: ! 206: axescount 2 ge { % vertical through current origin ! 207: 0 BBox LLy moveto ! 208: 0 BBox URy lineto stroke ! 209: } if ! 210: ! 211: axescount 3 ge { % vertical through next origin ! 212: chwid PointSize mul BBox LLy ! 213: dtransform round exch round exch idtransform moveto ! 214: 0 BBox BBoxHeight rlineto stroke ! 215: %chwid PointSize mul BBox URy lineto stroke ! 216: } if ! 217: } if ! 218: grestore ! 219: } bind def ! 220: ! 221: /PlaceChar { ! 222: FontName findfont PointSize scalefont setfont ! 223: chcode CellOrigin moveto ! 224: xorigin yorigin rmoveto ! 225: ( ) dup 0 chcode put show ! 226: } bind def ! 227: ! 228: /LabelPage { ! 229: labelfont findfont labelspace .75 mul .75 mul 18 min scalefont setfont ! 230: 0 labelspace .75 mul .25 mul moveto ! 231: FontName scratchstring cvs show ! 232: ! 233: labelfont findfont labelspace .25 mul .75 mul 9 min scalefont setfont ! 234: 0 gridheight neg moveto ! 235: 0 labelspace .25 mul .75 mul neg rmoveto ! 236: Product show ( Version ) show Version show ! 237: ( \() show Resolution scratchstring cvs show (dpi\)) show ! 238: ! 239: gridwidth gridheight neg moveto ! 240: 0 labelspace .25 mul .75 mul neg rmoveto ! 241: (size=, ) stringwidth pop neg 0 rmoveto ! 242: PointSize cvi scratchstring cvs stringwidth pop neg 0 rmoveto ! 243: (gray=, ) stringwidth pop neg 0 rmoveto ! 244: graynotdef scratchstring cvs stringwidth pop neg 0 rmoveto ! 245: (linewidth=) stringwidth pop neg 0 rmoveto ! 246: linewidth scratchstring cvs stringwidth pop neg 0 rmoveto ! 247: (size=) show PointSize cvi scratchstring cvs show (, ) show ! 248: (gray=) show graynotdef scratchstring cvs show (, ) show ! 249: (linewidth=) show linewidth scratchstring cvs show ! 250: } bind def ! 251: ! 252: % ! 253: % Formatted dump of the encoded characters in a single font. ! 254: % ! 255: ! 256: /PrintFont { ! 257: /saveobj save def ! 258: /FontName exch def ! 259: /FontDict FontName findfont def ! 260: /Encoding FontDict /Encoding get def ! 261: /Entries Encoding length def ! 262: ! 263: CellSetup ! 264: FontSetup ! 265: LabelPage ! 266: zerocell 1 Entries 1 sub { ! 267: CharSetup ! 268: graylevels 0 get setgray ! 269: chcode CellOutline fill ! 270: graylevels 1 get setgray ! 271: LabelCell ! 272: PlaceChar ! 273: graylevels 2 get setgray ! 274: linewidth setlinewidth ! 275: chcode CellOutline stroke ! 276: } for ! 277: showpage ! 278: saveobj restore ! 279: } bind def ! 280: ! 281: % ! 282: % Dump of all ROM and disk fonts - in alphabetical order. ! 283: % ! 284: ! 285: /AllFonts { ! 286: /AllFontNames FontDirectory maxlength array def ! 287: AllFontNames 0 0 put ! 288: ! 289: FontDirectory {pop AllFontNames Insert} forall ! 290: ! 291: /filenameforall where { ! 292: pop ! 293: (fonts/*) ! 294: {(fonts/) search pop pop pop AllFontNames Insert} ! 295: 200 string ! 296: filenameforall ! 297: } if ! 298: ! 299: 1 1 AllFontNames 0 get { ! 300: AllFontNames exch get cvn PrintFont ! 301: } for ! 302: } bind def ! 303: ! 304: /Insert { % name in a sorted list ! 305: /List exch def ! 306: /Name exch 128 string cvs def ! 307: ! 308: /Slot 1 def ! 309: List 0 get { ! 310: Name List Slot get le {exit} if ! 311: /Slot Slot 1 add def ! 312: } repeat ! 313: ! 314: List 0 get -1 Slot { ! 315: dup List exch get ! 316: List 3 1 roll exch 1 add exch put ! 317: } for ! 318: List Slot Name put ! 319: List 0 List 0 get 1 add put ! 320: } bind def ! 321:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.