Xref: utzoo comp.lang.postscript:2576 comp.fonts:680
Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!ames!pasteur!cory.Berkeley.EDU!gar
From: gar@cory.Berkeley.EDU
Newsgroups: comp.lang.postscript,comp.fonts
Subject: Postscript fonts on a LaserWriter IInt
Message-ID: <15983@pasteur.Berkeley.EDU>
Date: 2 Aug 89 00:07:52 GMT
Sender: news@pasteur.Berkeley.EDU
Reply-To: gar@cory.Berkeley.EDU (
Distribution: usa
Organization: University of California, Berkeley
Lines: 58

Thanks to all of you who sent me programs to print Postscript
fonts. Here is a sample of the many version I received.


From: henry@Sun.COM (Henry McGilton -- Software Products)
%!

/inch { 72 mul } def

/LeftMargin 1.0 inch def
/RightMargin 7 inch def
/BottomMargin 2 inch def
/TopMargin 9 inch def
/junkstring 80 string def

/xpos LeftMargin def
/ypos TopMargin def
xpos ypos moveto
/dy 20 def

/newline {
    /xpos LeftMargin def
    /ypos ypos dy sub def
    ypos BottomMargin lt { showpage /ypos TopMargin def } if
    ypos xpos exch moveto
} def

/showfontname {
    dup	dup
    /Times-Roman findfont 16 scalefont setfont
    junkstring cvs show
    findfont 16 scalefont setfont
    4 inch ypos moveto
    junkstring cvs show
    newline
} def

/Times-Roman findfont 16 scalefont setfont
(Product Name:  ) show statusdict /product get show newline
(Version Number:  ) show version dup show
(23.0) eq { (    This is a "CLASSIC" model) show newline } { newline } ifelse
(Revision Number:  ) show
statusdict /revision get (                ) cvs show newline

FontDirectory length (Number of Fonts: ) show junkstring cvs show

newline newline
FontDirectory
{pop showfontname} forall

showpage



Gary D. Wong 							   "God is love
University of California, Berkeley                                Love is blind
gar@cory.berkeley.edu or better yet                        Ray Charles is blind
.!ucbvax!phoenix.cchem!wong	                     Ray Charles is God  Q.E.D."