home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / FTREE0.3.LHA / ftree / src / RCS / shwidth.ps < prev    next >
Encoding:
Text File  |  1994-04-27  |  1.1 KB  |  68 lines
  1. head    1.1;
  2. access;
  3. symbols;
  4. locks; strict;
  5. comment    @% @;
  6.  
  7.  
  8. 1.1
  9. date    94.04.27.12.03.43;    author peteric;    state Exp;
  10. branches;
  11. next    ;
  12.  
  13.  
  14. desc
  15. @PostScript code to print widths for a number of fonts.
  16. @
  17.  
  18.  
  19. 1.1
  20. log
  21. @Initial revision
  22. @
  23. text
  24. @/str 40 string def
  25. /wf /Helvetica findfont 10 scalefont def
  26. /swf { /of currentfont def wf setfont } def
  27. /sof { of setfont } def
  28. /pstr {
  29.     dup show
  30.     stringwidth
  31.     swf
  32.     currentpoint exch pop rm1 exch moveto
  33.     (-- x: ) show exch str cvs show
  34.     currentpoint exch pop rm2 exch moveto
  35.     (y: ) show str cvs show
  36.     sof
  37. } def
  38. /nl {
  39.     currentpoint ls sub exch pop lm exch moveto
  40. } def
  41. /strw {
  42.     dup findfont sz scalefont setfont
  43.     str cvs show (:) show nl
  44.     (abcdefghijklmnopqrstuvwxyz) pstr nl
  45.     (ABCDEFGHIJKLMNOPQRSTUVWXYZ) pstr nl
  46.     (VAflffij) pstr nl
  47.     (1234567890 !@@#$%^&*()_+-=) pstr nl
  48.     (The Rain in Spain falls Mainly on the Plain) pstr nl
  49.     (The Quick Brown Fox Jumped over the Lazy Dog) pstr nl
  50. } def
  51.  
  52. /sz 16 def
  53. /ls sz 1.11 mul cvi def
  54. /lm 20 def
  55. /rm1 435 def
  56. /rm2 520 def
  57. lm 800 moveto
  58. /Courier strw nl
  59. /Helvetica strw nl
  60. /Times-Roman strw nl
  61. /Becker-Medium strw nl
  62. /GenoaItalic strw nl
  63. /Heidelbe-Light strw nl
  64. /TaranisT1Plain strw nl
  65.  
  66. showpage
  67. @
  68.