How to print a font sampler . . . . . .

[Paul Haeberli]

%!
%	tryfont -
%		Draw all the standard characters in a font.  Place this
%	after the font definition if it isn't a standard font
%
%				Paul Haeberli - 1990
%
%
/Times-Roman		% name the font to draw here 
%
%
findfont 0.5 scalefont setfont
0.0 setgray

/centershow {
dup
stringwidth pop -2 div 0 rmoveto
show
} def

72 72 scale

4.0 9.0 moveto
(AaBbCcDdEeFf) centershow
4.0 8.0 moveto
(GgHhIiJjKkLl) centershow
4.0 7.0 moveto
(MmNnOoPpQqRr) centershow
4.0 6.0 moveto
(SsTtUuVvWwXx) centershow
4.0 5.0 moveto
(YyZz) centershow
4.0 4.0 moveto
(1234567890) centershow
4.0 3.0 moveto
(`~!@#$%^&*\(\)_+,.) centershow
4.0 2.0 moveto
(-={}[]|\\:";'<>,?/) centershow

showpage