Path: utzoo!attcan!utgpu!news-server.csri.toronto.edu!mailrus!wuarchive!zaphod.mps.ohio-state.edu!mips!apple!bbn.com!cosell From: cosell@bbn.com (Bernie Cosell) Newsgroups: comp.lang.postscript Subject: Re: Print all fonts Message-ID: <59256@bbn.BBN.COM> Date: 1 Sep 90 19:34:42 GMT References: <1990Aug30.115009.16513@msuinfo.cl.msu.edu> <41652@sequent.UUCP> Sender: news@bbn.com Lines: 68 As something 'inbetween' the fancy athena one and the quick-and-dirty one, here's a font sampler that was posted here a couple of years ago. /Bernie\ %! PostScript! % /Times-Roman findfont 10 scalefont setfont /inch { 72 mul } def /LM 1.0 inch def /RM 7 inch def /BM .5 inch def /TM 10 inch def /tmpstr 80 string def /xpos LM def /ypos TM def xpos ypos moveto /dy 18 def /crlf { /xpos LM def /ypos ypos dy sub def ypos BM lt { showpage /ypos TM def } if ypos xpos exch moveto } def /c-crlf { stringwidth pop currentpoint pop add RM gt { crlf } if } def /c-show { dup c-crlf show } def /putnum { tmpstr cvs c-show ( ) show } def /puttype { type tmpstr cvs c-show ( ) show } def /showfont { crlf dup findfont 15 scalefont setfont tmpstr cvs show (: ) show (ABCDEFGHIJKLMNOPQRSTUVWXYZ ) c-show (abcdefghijklmnopqrstuvwxyz ) c-show (0123456789 ) c-show (!"#$%&' ) c-show (\(\)*+,-./ ) c-show (:;<=>?@ ) c-show ([\\]^_` ) c-show ({|}~ ) c-show ( ) tmpstr copy 0 1 31 { tmpstr exch dup 8#240 add put } for tmpstr c-show 0 1 31 { tmpstr exch dup 8#300 add put } for tmpstr c-show 0 1 31 { tmpstr exch dup 8#340 add put } for tmpstr c-show crlf } def FontDirectory length (length = ) show putnum crlf crlf FontDirectory {pop showfont} forall showpage