%%Creator: Eric Gisin <egisin@waterloo.csnet>
%%Title: Print font catalog
% Copyright (c) 1986 Eric Gisin
% Example usages at bottom of file
/T6 /Times-Roman findfont 6 scalefont def
/Base 16 def % char code output base
% do single character of page
% output to rectangle ll=(0,-24) ur=(36,24)
/N F /Encoding get C get def
% print code name, width and char name
/W F setfont S stringwidth pop def
N /.notdef ne {0 -20 moveto N Temp cvs show} if
0 -12 moveto C Base Temp cvrs show ( ) show
W 0.0005 add Temp cvs 0 5 getinterval show
% print char with reference lines
0 0 moveto F24 setfont S show
-3 0 moveto W 3 add 0 lineto
/FName exch def % font name
/Times-Roman findfont 18 scalefont setfont
18 10.5 Inch moveto FName Temp cvs show ( ) show ((24 point)) show
/Xn I 16 mod def /Yn I 16 idiv def
Xn 36 mul 18 add Yn -48 mul 9.5 Inch add translate
Xn 36 mul 18 add Yn -48 mul 4.5 Inch add translate
18 5.5 Inch moveto Line0 show
18 0.5 Inch moveto Line1 show
% /Times-Roman DoFont % Test (less than a minute)
% /Hershey-Gothic-English DoFont % Test (8 minutes)
% FontDirectory {pop DoFont} forall % All fonts (quite a long time)