home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / sys / next / software / 3068 < prev    next >
Encoding:
Text File  |  1992-12-14  |  1.9 KB  |  76 lines
  1. Newsgroups: comp.sys.next.software
  2. Path: sparky!uunet!lkba!lkb
  3. From: uunet!lkba!lkb (Larry Blische)
  4. Subject: Re: Wanted: App to preview fonts without installing them.
  5. Message-ID: <1992Dec14.051425.5780@lkba.uucp>
  6. Sender: lkb@lkba.uucp (Lawrence Keith Blische)
  7. Reply-To: uunet!lkba!lkb
  8. Organization: LKB Associates, Inc.
  9. References: <1992Dec13.114133.18500@mic.ucla.edu>
  10. Date: Mon, 14 Dec 1992 05:14:25 GMT
  11. Lines: 63
  12.  
  13. In article <1992Dec13.114133.18500@mic.ucla.edu> iwelch@agsm.ucla.edu (Ivo  
  14. Welch) writes:
  15. > 
  16. > [1] Is there an  application that would  allow me to preview fonts   
  17. without
  18. > having to install them first?
  19. > 
  20. >     <further>
  21. > 
  22.  
  23. Cut the folowing out and paste it into a new Yap document window, follow the  
  24. instructions:
  25.  
  26. %!PS-Adobe-3.0 EPSF-3.0
  27. %%BoundingBox: 0 0 612 792
  28. %
  29. % replace the ? with the font name in the following line,
  30. % ex: (Helvetica-Oblique)
  31. (?)
  32. %
  33. % if it's not an installed font, paste the complete ascii font file here
  34. %
  35.  
  36. /Font exch def
  37. /LM    0    def
  38. /RM    480    def
  39. /Hinc    30    def
  40. /verticals      { newpath LM Hinc RM { 0 moveto 0 TM rlineto } for closepath  
  41. stroke } def
  42.  
  43. /BM    0    def
  44. /TM    720    def
  45. /Vinc    45    def
  46. /horizontals    { newpath BM Vinc TM { 0 exch moveto RM 0 rlineto } for  
  47. closepath stroke } def
  48. /baselines    { newpath BM Vinc Hinc sub add Vinc TM { 0 exch moveto RM 0  
  49. rlineto } for closepath .5 setgray stroke 0 setgray } def
  50. /center        { dup stringwidth pop 2 div neg 0 rmoveto  } def
  51.  
  52. Font findfont 30 scalefont setfont
  53. 306 742 moveto Font center show
  54. 0 setlinewidth
  55. 66 18 translate
  56. verticals
  57. horizontals
  58. baselines
  59. /char    1 string def
  60. /i    0 def
  61. /inc_i    { /i i 1 add def } def
  62. 0 Vinc 16 mul 30 sub translate
  63. 0 1 15 {
  64.     0 1 15 {
  65.         0 0 moveto char 0 i put char show inc_i Hinc 0 translate pop 
  66.  
  67.         } for Hinc -16 mul Vinc neg translate pop
  68.     } for
  69. showpage
  70.  
  71. -- 
  72. Larry Blische              uunet!lkba!lkb
  73. LKB Associates, Inc.
  74. 3118 Dunglow Road
  75. Dundalk, Maryland 21222-5304 USA
  76.