kniffki@nixbln.UUCP (10/18/89)
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
******************************************************************************