home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1962 < prev    next >
Encoding:
Text File  |  1990-12-28  |  1.8 KB  |  120 lines
  1. Newsgroups: alt.sources
  2. From: paul@manray.asd.sgi.com (Paul Haeberli)
  3. Subject: [fonts] Display outlines of a typeface . . .
  4. Message-ID: <1990Oct16.222633.29655@math.lsa.umich.edu>
  5. Date: Tue, 16 Oct 90 22:26:33 GMT
  6.  
  7. Archive-name: pilefont/16-Oct-90
  8. Original-posting-by: paul@manray.asd.sgi.com (Paul Haeberli)
  9. Original-subject: Display outlines of a typeface . . .
  10. Reposted-by: emv@math.lsa.umich.edu (Edward Vielmetti)
  11.  
  12. [Reposted from comp.fonts.
  13. Comments on this service to emv@math.lsa.umich.edu (Edward Vielmetti).]
  14.  
  15.  
  16. Here's a bit of PostScript that displays outlines of the
  17. Capital letters. . . . .
  18.  
  19. paul haeberli
  20. paul@sgi.com
  21.  
  22.  
  23. %!
  24. %    pilefont-
  25. %        Create an image of the outlined Capitals
  26. %        
  27. %            Paul Haebeli - 1990
  28. %
  29. /centershow {
  30. dup
  31. stringwidth pop -2 div 0 rmoveto
  32. show
  33. } def
  34.  
  35. /centerstroke {
  36. dup
  37. stringwidth pop -2 div 0 rmoveto
  38. true charpath stroke
  39. } def
  40.  
  41. /pilefont {
  42. findfont
  43. 600 scalefont
  44. setfont
  45.  
  46. 0.0 setlinewidth
  47.  
  48. gsave
  49. 306 486 200 sub translate
  50. 0.75 setgray
  51. 0 0 moveto
  52. (Z) centershow
  53. 0.0 setgray
  54. 0 0 moveto
  55. (A) centershow
  56. 0 0 moveto
  57. (B) centerstroke
  58. 0 0 moveto
  59. (C) centerstroke
  60. 0 0 moveto
  61. (D) centerstroke
  62. 0 0 moveto
  63. (E) centerstroke
  64. 0 0 moveto
  65. (F) centerstroke
  66. 0 0 moveto
  67. (G) centerstroke
  68. 0 0 moveto
  69. (H) centerstroke
  70. 0 0 moveto
  71. (I) centerstroke
  72. 0 0 moveto
  73. (J) centerstroke
  74. 0 0 moveto
  75. (K) centerstroke
  76. 0 0 moveto
  77. (L) centerstroke
  78. 0 0 moveto
  79. (M) centerstroke
  80. 0 0 moveto
  81. (N) centerstroke
  82. 0 0 moveto
  83. (O) centerstroke
  84. 0 0 moveto
  85. (P) centerstroke
  86. 0 0 moveto
  87. (Q) centerstroke
  88. 0 0 moveto
  89. (R) centerstroke
  90. 0 0 moveto
  91. (S) centerstroke
  92. 0 0 moveto
  93. (T) centerstroke
  94. 0 0 moveto
  95. (U) centerstroke
  96. 0 0 moveto
  97. (V) centerstroke
  98. 0 0 moveto
  99. (W) centerstroke
  100. 0 0 moveto
  101. (X) centerstroke
  102. 0 0 moveto
  103. (Y) centerstroke
  104. 0 0 moveto
  105. (Z) centerstroke
  106. grestore
  107.  
  108. gsave
  109. 306 100 translate
  110. 0.15 0.15 scale
  111. 0 0 moveto
  112. 0.50 setgray
  113. centershow
  114. grestore
  115. } def
  116.  
  117. (Times Roman) /Times-Roman pilefont
  118.  
  119. showpage
  120.