Path: utzoo!attcan!uunet!lll-winken!lll-tis!ames!mailrus!eecae!cps3xx!cpsvax!smithda
From: smithda@cpsvax.cps.msu.edu (Daniel Smith)
Newsgroups: comp.text
Subject: Re: Names of LaserWriter fonts
Keywords: Apple LaserWriter PostScript
Message-ID: <908@cps3xx.UUCP>
Date: 19 Oct 88 23:15:37 GMT
References: <17785@glacier.STANFORD.EDU>
Sender: usenet@cps3xx.UUCP
Reply-To: smithda@cpsvax.UUCP (Daniel Smith)
Organization: Michigan State University, Computer Science Department
Lines: 113

In article <17785@glacier.STANFORD.EDU> jbn@glacier.STANFORD.EDU (John B. Nagle) writes:
>
>      Exactly what are the names of the built-in LaserWriter II fonts as
>they should be expressed in PostScript?  The single-word fonts work fine,
>but I'm having trouble getting things like "New Century Schoolbook" 
>recognized.

Here is a PostScript program I pulled off comp.lang.postscript a few weeks
ago.  It displays all the fonts in the printer along with their names.
=========================================================================
J. Daniel Smith                           smithda@cpsvax.cps.msu.edu
Michigan State University

"An average English word is four letters and a half.  By hard, honest
labor I've dug all the large words out of my vocabulary and shaved it 
down till the average is three and a half..."
      Mark Twain
=========================================================================
------- Cut Here ----- Cut Here ---- Cut Here ---- Cut Here ------------
%!
/MaxNrOfFonts 50 def 	% Maximum numbers of fonts...
/Xpos 136 def
/Ypos 690 def
/num 0 def 		% local counter
/incr {
  /num num 1 add def
} def

/s40 { 40 string } def	% Proper length of the fontname

/showline {		% Show and newlines
  show
  newline
} def

/newline {		% Spacing between lines
  /Ypos Ypos 12 sub def
  Xpos Ypos moveto
} def

/CountFonts {		% Count the fonts and put the names into array
  FontDirectory 
  {
    pop
    s40
    cvs
    incr
  }
  forall
  /FontArray num array def
  FontArray astore
  pop
} def

/ListFonts {		% Sort the fonts and show them on paper
  Bubbelsort
  FontArray
  {
    showline
  }
  forall
} def

/Bubbelsort {		% Here is the sorting routine
  1 1 num 1 sub
  {
    /localcount exch def
    num 1 sub -1 localcount
    {
      /innercount exch def
      /firststring FontArray innercount 1 sub get def
      /secondstring FontArray innercount get def
      firststring secondstring gt
      {
         FontArray innercount 1 sub secondstring put
         FontArray innercount firststring put
      } if
    } for
  } for
} def

/prettyline
{  /YPOSition exch def
   newpath 
     Xpos Ypos YPOSition add moveto
     Xpos 100 add Ypos YPOSition add lineto
   stroke
} def

/Times-Roman findfont 12 scalefont setfont
14 prettyline

Xpos Ypos 18 add moveto
CountFonts
(Number of fonts: ) show
num s40 cvs show

30 prettyline
Xpos Ypos moveto
ListFonts
newline

/Times-Bold findfont 12 scalefont setfont
(Total memory: ) show
vmstatus s40 cvs show newline
(Memory used: ) show
s40 cvs show newline
pop
(Free memory: ) show
vmstatus exch sub s40 cvs show newline newline
pop
/Times-Roman findfont 12 scalefont setfont
(From ulfis@nada.kth.se, 88-10-05) show
showpage