Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!gem.mps.ohio-state.edu!tut.cis.ohio-state.edu!bloom-beacon!spdcc!merk!alliant!linus!nixbur!nixpbe!nixbln!kniffki
From: kniffki@nixbln.UUCP
Newsgroups: comp.lang.postscript
Subject: Re: Printing list of available fonts on
Message-ID: <2000002@nixbln>
Date: 18 Oct 89 13:27:00 GMT
References: <3564@dgis.daitc.mil>
Lines: 43
Nf-ID: #R:dgis.daitc.mil:-356400:nixbln:2000002:000:1012
Nf-From: nixbln.UUCP!kniffki    Oct 18 14:27:00 1989



Here is the short program which lists the resident fonts of a LaserWriterPlus:

*********************** Cut here **********
/inch
{ 72 mul }
def

/ypos 11 inch def

FontDirectory
{
 pop
 1 inch ypos moveto
 dup
 100 string cvs
/Times-Roman findfont 10 scalefont setfont
 dup
 print
 show
 findfont 10 scalefont setfont
 3 inch ypos moveto
 (ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz) show
 /ypos ypos 0.2 inch sub def
 }
 forall
showpage

*********************** Cut here **********
It takes a longer time to print this because the Alphabet is displayed in all
fonts. Don't worry about this.
If you don't want this, you can delete the lines findfont 10 scalefont setfont
and the two following lines.

I hope this will work and help you.

******************************************************************************
Meinhard Kniffki
Nixdorf Microprocessor Engeneering GmbH
Gustav-Meyer-Allee 1
1000 Berlin 65
******************************************************************************