#! /bin/sh
# PostScript program wrapped up in a Bourne Shellscript.
# copyright 1987 by Peter Greenberg. 

# This stuff can be used, copied modified, and incorporated into other works 
# so long as this message and the copyright message are retained.

# comments/bug fixes to:
# Peter Greenberg
# Swarthmore College
# Swarthmore, PA 19081
# (215) 328-8610
# UUCP: ...!seismo!bpa!swatsun!greenber
# ARPA: swatsun!greenber@seismo.CSS.GOV

spooler=lpr
spoolopts=

cat <<End-Of-Main-Stuff | $spooler $spoolopts
%!
% Just a little hack to show the name of each font printed in that font.
% Of course, non-alphabetic fonts will look strange. Will print the name
% of each font that PostScript knows about, one to a line.

% This program takes a while to run on an LW+.

/Font %fontname scale
 {
 	/scale exch def
 	findfont
 	scale scalefont
 	setfont
 } def

/Size 15 def

/Lineheight Size 3 add def

/Leftmargin 30 def

/Topmargin 770 def

 
/Showinfont % string fontname
 {
 	Leftmargin currentpoint exch pop Lineheight sub moveto
 	Size Font
 	show
 } def
 
Leftmargin Topmargin moveto

FontDirectory {
	pop dup 256 string cvs exch Showinfont
} forall

showpage

End-Of-Main-Stuff

exit 0
.
