Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!ames!amdcad!sun!pitstop!texsun!convex!uunet!mcvax!enea!kth!draken!ulfis
From: ulfis@nada.kth.se (Anders Ulfheden)
Newsgroups: comp.lang.postscript
Subject: Re: LaserWriter II fonts -- HELP
Message-ID: <771@draken.nada.kth.se>
Date: 27 Jan 89 10:26:03 GMT
References: <1058@sdcc12.ucsd.EDU>
Reply-To: ulfis@nada.kth.se (Anders Ulfheden)
Organization: Royal Institute of Technology, Stockholm, Sweden
Lines: 124

In article <1058@sdcc12.ucsd.EDU> bi38@sdcc12.ucsd.EDU (Macbeth Ylr) writes:
>I have a LaserWriter II (nt).  I notice in the manual there are
>several fonts such as ITC Zapf Chancery, etc.  I would like to 
>access them from a postscript program.  What are they really called?

-----------Cut here ------------------------------------------------------
%!
% FontList.ps : list all defined fonts onto printer
% Send this file to LaserWriter with LW Dwnload program to print listing
%
% Copyright (c) 1988 Anders Ulfheden <ulfis@nada.kth.se>
%
% This program may be copied, modified and redistributed for non-commercial
% use only, provided that any and all copyright notices are preserved.
%
% Please report bugs, fixes, improvements and suggestions to:
%
% UUCP: ulfis@nada.kth.se
%
%
/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, 89-01-27) show
showpage
-----------Cut here ------------------------------------------------------

>Thanks

Anytime!
+------------------------------------------------------------------------------
|  Anders Ulfheden
|  USENET:  ulfis@nada.kth.se
|  Royal Institute of Technology
|  Stockholm, Sweden