| % |
| % Formatted font dump. Assumes all fonts include valid FontBBox arrays. |
| % |
| |
| /#copies 1 store |
| /aspectratio 1 def |
| /landscape false def |
| /magnification 1 def |
| /margin 10 def |
| /orientation 0 def |
| /rotation 1 def |
| /xoffset 0 def |
| /yoffset 0 def |
| |
| /axescount 0 def |
| /charwidth false def |
| /graynotdef 0.85 def |
| /hireslinewidth 0.2 def |
| /longnames false def |
| /maxsize 6.0 def |
| /minsize 4.5 def |
| /numbercell true def |
| /radix 16 def |
| /labelfont /Helvetica def |
| /labelspace 36 def |
| /zerocell 0 def |
| |
| /roundpage true def |
| /useclippath true def |
| /pagebbox [0 0 612 792] def |
| |
| /inch {72 mul} def |
| /min {2 copy gt {exch} if pop} def |
| /max {2 copy lt {exch} if pop} def |
| |
| /LLx {0 get} bind def |
| /LLy {1 get} bind def |
| /URx {2 get} bind def |
| /URy {3 get} bind def |
| /BBoxHeight {dup URy exch LLy sub} bind def |
| /BBoxWidth {dup URx exch LLx sub} bind def |
| |
| /setup { |
| /graylevels [1 0 0] def |
| /scratchstring 512 string def |
| /Product statusdict begin /product where {pop product}{(Unknown)} ifelse end def |
| /Resolution 0 72 dtransform dup mul exch dup mul add sqrt cvi def |
| /Version /version where {pop version}{(???)} ifelse def |
| |
| landscape {/orientation 90 orientation add def} if |
| |
| pagedimensions |
| xcenter ycenter translate |
| orientation rotation mul rotate |
| width 2 div neg height 2 div translate |
| xoffset inch yoffset inch neg translate |
| margin dup neg translate |
| 0 labelspace .75 mul neg translate |
| magnification dup aspectratio mul scale |
| 0 0 transform round exch round exch itransform translate |
| |
| currentdict /linewidth known not { |
| /linewidth Resolution 400 le {0}{hireslinewidth} ifelse def |
| } if |
| } def |
| |
| /pagedimensions { |
| useclippath { |
| /pagebbox [clippath pathbbox newpath] def |
| roundpage currentdict /roundpagebbox known and {roundpagebbox} if |
| } if |
| pagebbox aload pop |
| 4 -1 roll exch 4 1 roll 4 copy |
| landscape {4 2 roll} if |
| sub /width exch def |
| sub /height exch def |
| add 2 div /xcenter exch def |
| add 2 div /ycenter exch def |
| } def |
| |
| /CharSetup { |
| /chcode exch def |
| /chname Encoding chcode get def |
| /chstring ( ) dup 0 chcode put def |
| /chknown true def |
| |
| graylevels 0 1 put % initial cell fill |
| graylevels 1 0 put % cell text |
| graylevels 2 0 put % cell border |
| |
| FontDict /CharStrings known { |
| FontDict /CharStrings get chname known not { |
| /chknown false def |
| graylevels 0 0 put |
| graylevels 1 1 put |
| } if |
| } if |
| |
| chname /.notdef eq { |
| /chknown false def |
| graylevels 0 graynotdef put |
| graylevels 1 graynotdef put |
| } if |
| |
| /chwid chknown |
| {FontDict 1 scalefont setfont chstring stringwidth pop} |
| {0} |
| ifelse def |
| } bind def |
| |
| /CellSetup { |
| /gridwidth width margin 2 mul sub def |
| /gridheight height labelspace sub margin 2 mul sub def |
| /cellwidth gridwidth radix div def |
| /cellheight gridheight Entries radix div ceiling div def |
| |
| cellwidth cellheight dtransform truncate exch truncate exch idtransform |
| /cellheight exch def |
| /cellwidth exch def |
| |
| labelfont findfont 1 scalefont setfont |
| /LabelBBox currentfont /FontBBox get TransformBBox def |
| |
| LabelBBox 2 0 Encoding { |
| scratchstring cvs stringwidth pop |
| 2 copy lt {exch} if |
| pop |
| } forall put |
| |
| /CellLabelSize |
| cellheight .20 mul cellwidth .90 mul LabelBBox BestFit |
| minsize max |
| maxsize min |
| def |
| zerocell CellOrigin cellheight add neg exch neg exch translate |
| } bind def |
| |
| /FontSetup { |
| FontName findfont 1 scalefont setfont |
| /BBox currentfont /FontBBox get TransformBBox def |
| /PointSize cellheight .5 mul cellwidth .8 mul BBox BestFit def |
| BBox {PointSize mul} forall BBox astore pop |
| |
| /xorigin cellwidth BBox BBoxWidth sub 2 div BBox LLx sub def |
| /yorigin cellheight BBox BBoxHeight sub 2 div BBox LLy sub def |
| } bind def |
| |
| /BestFit { |
| /bbox exch def |
| bbox BBoxWidth div exch |
| bbox BBoxHeight div min |
| } bind def |
| |
| /TransformBBox { % font bbox to user space |
| aload pop |
| currentfont /FontMatrix get dtransform 4 2 roll |
| currentfont /FontMatrix get dtransform 4 2 roll |
| 4 array astore % should build user space bbox if all zeros |
| } bind def |
| |
| /CellOrigin { |
| dup |
| exch radix mod cellwidth mul |
| exch radix idiv 1 add neg cellheight mul |
| } bind def |
| |
| /CellOutline { |
| newpath |
| CellOrigin moveto |
| cellwidth 0 rlineto |
| 0 cellheight rlineto |
| cellwidth neg 0 rlineto |
| closepath |
| } bind def |
| |
| /LabelCell { |
| gsave |
| chcode CellOrigin translate |
| linewidth .5 mul setlinewidth |
| labelfont findfont CellLabelSize scalefont setfont |
| |
| numbercell { |
| cellwidth .025 mul cellheight .05 mul moveto |
| chcode radix scratchstring cvrs show |
| } if |
| |
| charwidth chknown and { |
| /wid chwid 0.0005 add scratchstring cvs 0 5 getinterval def |
| cellwidth wid stringwidth pop 1.10 mul sub cellheight .05 mul moveto |
| wid show |
| } if |
| |
| longnames chknown not or { |
| cellwidth .025 mul |
| cellheight LabelBBox URy CellLabelSize mul sub .05 sub moveto |
| Encoding chcode get scratchstring cvs show |
| } if |
| |
| axescount 1 ge chknown and { % gsave/grestore if not last |
| newpath |
| xorigin yorigin translate |
| |
| BBox LLx 0 moveto % baseline |
| BBox URx 0 lineto stroke |
| |
| axescount 2 ge { % vertical through current origin |
| 0 BBox LLy moveto |
| 0 BBox URy lineto stroke |
| } if |
| |
| axescount 3 ge { % vertical through next origin |
| chwid PointSize mul BBox LLy |
| dtransform round exch round exch idtransform moveto |
| 0 BBox BBoxHeight rlineto stroke |
| %chwid PointSize mul BBox URy lineto stroke |
| } if |
| } if |
| grestore |
| } bind def |
| |
| /PlaceChar { |
| FontName findfont PointSize scalefont setfont |
| chcode CellOrigin moveto |
| xorigin yorigin rmoveto |
| ( ) dup 0 chcode put show |
| } bind def |
| |
| /LabelPage { |
| labelfont findfont labelspace .75 mul .75 mul 18 min scalefont setfont |
| 0 labelspace .75 mul .25 mul moveto |
| FontName scratchstring cvs show |
| |
| labelfont findfont labelspace .25 mul .75 mul 9 min scalefont setfont |
| 0 gridheight neg moveto |
| 0 labelspace .25 mul .75 mul neg rmoveto |
| Product show ( Version ) show Version show |
| ( \() show Resolution scratchstring cvs show (dpi\)) show |
| |
| gridwidth gridheight neg moveto |
| 0 labelspace .25 mul .75 mul neg rmoveto |
| (size=, ) stringwidth pop neg 0 rmoveto |
| PointSize cvi scratchstring cvs stringwidth pop neg 0 rmoveto |
| (gray=, ) stringwidth pop neg 0 rmoveto |
| graynotdef scratchstring cvs stringwidth pop neg 0 rmoveto |
| (linewidth=) stringwidth pop neg 0 rmoveto |
| linewidth scratchstring cvs stringwidth pop neg 0 rmoveto |
| (size=) show PointSize cvi scratchstring cvs show (, ) show |
| (gray=) show graynotdef scratchstring cvs show (, ) show |
| (linewidth=) show linewidth scratchstring cvs show |
| } bind def |
| |
| % |
| % Formatted dump of the encoded characters in a single font. |
| % |
| |
| /PrintFont { |
| /saveobj save def |
| /FontName exch def |
| /FontDict FontName findfont def |
| /Encoding FontDict /Encoding get def |
| /Entries Encoding length def |
| |
| CellSetup |
| FontSetup |
| LabelPage |
| zerocell 1 Entries 1 sub { |
| CharSetup |
| graylevels 0 get setgray |
| chcode CellOutline fill |
| graylevels 1 get setgray |
| LabelCell |
| PlaceChar |
| graylevels 2 get setgray |
| linewidth setlinewidth |
| chcode CellOutline stroke |
| } for |
| showpage |
| saveobj restore |
| } bind def |
| |
| % |
| % Dump of all ROM and disk fonts - in alphabetical order. |
| % |
| |
| /AllFonts { |
| /AllFontNames FontDirectory maxlength array def |
| AllFontNames 0 0 put |
| |
| FontDirectory {pop AllFontNames Insert} forall |
| |
| /filenameforall where { |
| pop |
| (fonts/*) |
| {(fonts/) search pop pop pop AllFontNames Insert} |
| 200 string |
| filenameforall |
| } if |
| |
| 1 1 AllFontNames 0 get { |
| AllFontNames exch get cvn PrintFont |
| } for |
| } bind def |
| |
| /Insert { % name in a sorted list |
| /List exch def |
| /Name exch 128 string cvs def |
| |
| /Slot 1 def |
| List 0 get { |
| Name List Slot get le {exit} if |
| /Slot Slot 1 add def |
| } repeat |
| |
| List 0 get -1 Slot { |
| dup List exch get |
| List 3 1 roll exch 1 add exch put |
| } for |
| List Slot Name put |
| List 0 List 0 get 1 add put |
| } bind def |
| |
