Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!columbia!rutgers!mit-eddie!genrad!decvax!ucbvax!phw5.UUCP!root
From: root@phw5.UUCP
Newsgroups: comp.laser-printers
Subject: (none)
Message-ID: <8705012134.AA19903@brillig.umd.edu>
Date: Fri, 24-Apr-87 17:07:01 EDT
Article-I.D.: brillig.8705012134.AA19903
Posted: Fri Apr 24 17:07:01 1987
Date-Received: Sun, 3-May-87 03:18:36 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 27
Approved: laser-lovers@brillig.umd.edu

The following program prints out all the fonts available on any
PostScript device.  Note that this has been published in The PostScript
Language Journal.

-------------------------------cut here------------------------------
% Get all font names from LaserWriter

/Times-Roman findfont 12 scalefont setfont
/inch {72 mul} def

/xval1 1 inch def
/xval3 3 inch def
/yval 10 inch def
xval1 yval moveto
/name 80 string def

FontDirectory {
	pop dup dup
	/Times-Roman findfont 12 scalefont setfont
	name cvs show  
	xval3 yval moveto
	findfont 12 scalefont setfont
	name cvs show  
	/yval yval -.25 inch add def 
	xval1 yval moveto
} forall
showpage