Path: utzoo!dciem!tim
From: tim@dciem.dciem.dnd.ca (Tim Pointing)
Newsgroups: comp.lang.postscript
Subject: Re: Getting a Sample of Each Font on AppleLaser Wr. II.
Message-ID: <4153@dciem.dciem.dnd.ca>
Date: 27 Mar 91 15:33:00 GMT
References: <16763@chopin.udel.edu> <8908.27ee2ffe@jetson.uh.edu>
Organization: Defence and Civil Institute of Environmental Medicine
Lines: 78

What follows is a somewhat better version (which I got from the Net quite
some time ago). Alas, the author's name has been lost in the shuffle.
For each font in the font dictionary, it displays the both the font name
and the entire 256 characters of the font in that font. Beware, this takes
on the order of 1 hour to print on a LaserWriter II with the standard 37 fonts.
Trim my "signature" from the bottom and all of this chaff from the top and
throw it at your PostScript laser printer, then come back in about 1.5 hours
(the extra time is to allow the long line of people, waiting for their
printout while your *long-duration* job was being processed, goes away. ;-)
-------------------------------------------
%!  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
-- 
	Tim Pointing, DCIEM
	{decvax,attcan,watmath,...}!utzoo!dciem!tim
        uunet!csri.toronto.edu!dciem!tim or nrcaer!dciem!tim
	tim%ben@zorac.dciem.dnd.ca or tim@ben.dciem.dnd.ca