🚀 go-pugleaf

In article <1992Dec13.114133.18500@mic.ucla.edu> iwelch@agsm.ucla.edu (Ivo  
Welch) writes:
> 
> [1] Is there an  application that would  allow me to preview fonts   
without
> having to install them first?
> 
> 	<further>
> 

Cut the folowing out and paste it into a new Yap document window, follow the  
instructions:
 
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 612 792
%
% replace the ? with the font name in the following line,
% ex: (Helvetica-Oblique)
(?)
%
% if it's not an installed font, paste the complete ascii font file here
%

/Font exch def
/LM	0	def
/RM	480	def
/Hinc	30	def
/verticals  	{ newpath LM Hinc RM { 0 moveto 0 TM rlineto } for closepath  
stroke } def

/BM	0	def
/TM	720	def
/Vinc	45	def
/horizontals	{ newpath BM Vinc TM { 0 exch moveto RM 0 rlineto } for  
closepath stroke } def
/baselines	{ newpath BM Vinc Hinc sub add Vinc TM { 0 exch moveto RM 0  
rlineto } for closepath .5 setgray stroke 0 setgray } def
/center		{ dup stringwidth pop 2 div neg 0 rmoveto  } def

Font findfont 30 scalefont setfont
306 742 moveto Font center show
0 setlinewidth
66 18 translate
verticals
horizontals
baselines
/char	1 string def
/i	0 def
/inc_i	{ /i i 1 add def } def
0 Vinc 16 mul 30 sub translate
0 1 15 {
	0 1 15 {
		0 0 moveto char 0 i put char show inc_i Hinc 0 translate pop 

		} for Hinc -16 mul Vinc neg translate pop
	} for
showpage

-- 
Larry Blische              uunet!lkba!lkb
LKB Associates, Inc.
3118 Dunglow Road
Dundalk, Maryland 21222-5304 USA