Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!elroy.jpl.nasa.gov!ncar!gatech!bloom-beacon!eru!hagbard!sunic!news.funet.fi!fuug!nokia.fi!noknic!jnp
From: jnp@tnds09.tele.nokia.fi (J|rgen N|rgaard)
Newsgroups: comp.lang.postscript
Subject: Re: font listing
Message-ID: <JNP.91May13122843@tnds09.tele.nokia.fi>
Date: 13 May 91 10:28:43 GMT
References: <673910004.9912.zs04.holmes.bh.andrew.cmu.edu@andrew.cmu.edu>
Sender: usenet@noknic.nokia.fi (USENET at noknic)
Distribution: comp
Organization: Nokia Telecommunications
Lines: 40
In-Reply-To: zs04+@andrew.cmu.edu's message of 10 May 91 21:13:24 GMT
Nntp-Posting-Host: tnds09.tele.nokia.fi


this piece does parts of it, not very nicely though

%!PS-Adobe-1.0

/ListFonts
{ 7 dict begin
    /FontForName {/Times-Roman findfont 10 scalefont setfont} def

    /Mh 20 def
    /Mv 0 def
    /Minc 15 def
    /Mind 30 def

    Mh Mv Minc add moveto
    /Times-Bold findfont 10 scalefont setfont
    (Font List:) show

    Mh Mv moveto
      FontForName

    FontDirectory {
      pop dup
      FontForName
      Mind 0 rmoveto
      50 string cvs show
      ( :" ) show 
      findfont 12 scalefont setfont
      (Sweet home Alabama) show
      FontForName
      (") show
      /Mv Mv Minc sub def
      Mh Mv moveto } forall
  end % local dict
} def
--
ORIGIN  '~jnp/stdDisclaimers';
[[--- Regards, J|rgen N|rgaard ('|' is '\o{}' in \LaTeX{})                    |
|      e-mail: jnp@tele.nokia.fi  || Telephone: +358-0-511-5671               |
|         mail: Nokia Telecommunications, PL 33, SF-02601 Espoo Finland   ---]]