Xref: utzoo comp.lang.postscript:5448 comp.sys.sgi:4820 comp.sys.next:6940
Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!mips!sgi!paul@manray.asd.sgi.com
From: paul@manray.asd.sgi.com (Paul Haeberli)
Newsgroups: comp.lang.postscript,comp.sys.sgi,comp.sys.next
Subject: How to print a font sampler . . . . . .
Message-ID: <63900@sgi.sgi.com>
Date: 12 Jul 90 01:21:36 GMT
Sender: paul@manray.asd.sgi.com
Organization: Silicon Graphics, Inc., Mountain View, CA
Lines: 40

%!
%	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