gar@cory.Berkeley.EDU (08/02/89)
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."