Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!mit-eddie!uw-beaver!zephyr.ens.tek.com!tektronix!sequent!calvin
From: calvin@sequent.UUCP (Calvin Goodrich)
Newsgroups: comp.lang.postscript
Subject: Re: Print all fonts
Message-ID: <41652@sequent.UUCP>
Date: 30 Aug 90 21:33:37 GMT
References: <1990Aug30.115009.16513@msuinfo.cl.msu.edu>
Reply-To: calvin@crg1.UUCP (Calvin Goodrich)
Organization: Sequent Computer Systems
Lines: 56

In article <1990Aug30.115009.16513@msuinfo.cl.msu.edu> delong@frith.msu.edu (Keith Delong) writes:
>Does anyone have a postscript program that will print a short sample
>of all the fonts that my printer has?  We have several postscript printers
>and some say they have different number of fonts built in.  We would like
>to compare them.  We even have one with a hard disk with fonts on it,
>but we don't know what they are, it was sold to us by someone getting
>out of the business of publishing.
>
>Keith
>delong@frith.egr.msu.edu


i was kinda curious too. i saw in one of the books that there were scads of
font types so i came up with a quick and dirty sampler. (mind you it's
just that. it doesn't even print out straight. but since all you want to 
look at is the fonts themselves, who cares, right? :] ) if anyone knows of
any more fonts besides these, please let me know.

calvin.

-------------8<--------cut here------8<---------cut here-------8<------------
%!
% font demo program

/defont {                          % sets font  (stack: font scale)
 /dscale exch def
 /dfont exch def
 dfont findfont
 dscale scalefont
 setfont } def

72 772 moveto
[/AvantGarde-Book /AvantGarde-BookOblique /AvantGarde-Demi
	/AvantGarde-DemiOblique /Bookman-Demi /Bookman-DemiItalic 
	/Bookman-Light  /Bookman-LightItalic /Courier /Courier-Bold 
	/Courier-BoldOblique /Courier-Oblique /Helvetica /Helvetica-Bold 
	/Helvetica-BoldOblique /Helvetica-Narrow /Helvetica-Narrow-Bold 
	/Helvetica-Narrow-BoldOblique /Helvetica-Narrow-Oblique 
	/Helvetica-Oblique /NewCenturySchlbk /NewCenturySchlbk-Bold 
	/NewCenturySchlbk-BoldItalic /NewCenturySchlbk-Italic
	/NewCenturySchlbk-Roman /Palatino /Palatino-Bold /Palatino-BoldItalic 
	/Palatino-Italic /Palatino-Roman /Times-Roman
	/Times-BoldItalic /Times-Italic /Times-Bold 
	/ZapfChancery /ZapfChancery-MediumItalic ] 
{ /name exch def
  name 18 defont
  /sname 50 string def
  name sname cvs
  sname show
  sname stringwidth pop cvi not
  -20 rmoveto
} forall

stroke
showpage