Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!munnari!natmlab!marka
From: marka@natmlab.dms.oz (Mark Andrews)
Newsgroups: comp.sys.mac
Subject: Re: LaserWriter II fonts
Message-ID: <1272@natmlab.dms.oz>
Date: Tue, 27-Jan-87 21:13:48 EST
Article-I.D.: natmlab.1272
Posted: Tue Jan 27 21:13:48 1987
Date-Received: Sun, 1-Feb-87 22:38:39 EST
References: <919@uwmacc.UUCP> <397@apple.UUCP> <11954@sun.uucp>
Reply-To: marka@natmlab.UUCP (Mark Andrews)
Organization: CSIRO Maths and Stats & Applied Physics, Sydney, Australia
Lines: 43
Keywords: plead, whine, beg

In article <11954@sun.uucp> chuq@sun.UUCP (Chuq Von Rospach) writes:
>
>I have a related question.  What are the font names for all of these in
>Postscript?  I can't find that information anywhere (the adobe books, the
>laserwriter manual, the manhattan phone book...).  If I want to use Zapf
>Chancery in a Postscript program, I need to be able to define the font, but
>there seems to be no documentation on what it is.  Of course, I could just
>snarf a Postscript program from something like Word output, but the
>documentation should really sve me this hassle...
>
>chuq
>
>Chuq Von Rospach	chuq@sun.COM
>
>It's only a model...

	The following bit of postscript will produce the desired
	response direct to the printer tray. (This should work on a
	LaserWriter, and does work on a LaserWriter Plus).

/Courier findfont 10 scalefont setfont
/x 50 def /y 700 def
/nl {  x /y y 14 sub def y moveto
	/Courier findfont 10 scalefont setfont } def
/buf 80 string def
200 750 moveto
statusdict /product get show
( rev. ) show
statusdict /revision get buf cvs show
( Fonts ) show
x y moveto
FontDirectory
{
	exch dup
	buf cvs show
	exch 230 y moveto
	( ------ ) show
	/FontInfo get /FullName get buf cvs show
	findfont 10 scalefont setfont
	500 y moveto (ABCDE) show
	nl
	} forall
showpage