paul@manray.asd.sgi.com (Paul Haeberli) (07/12/90)
%!
% 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