%! % fontlist.ps % Send this file to a PostScript device to list % the names of all of the resident fonts. % [13-Dec-1994] /inch { 72 mul } def /PointSize 10 def /ColumnWidth 3 inch def /Courier findfont PointSize scalefont setfont /n 0 def /newcolumn { /x x ColumnWidth add def x y moveto 8 inch x gt { showpage newpage } if } def /newpage { /x 1 inch def /y 10 inch def x y moveto } def /nstr 10 string def /scratch 256 string def newpage (*) { /n n 1 add def gsave n nstr cvs show (: ) show show grestore 0 PointSize -1.2 mul rmoveto currentpoint exch pop 1 inch lt { newcolumn } if } scratch /Font resourceforall showpage