home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 June / Chip_06_2000.iso / demo / MediaCenter / mcp300ev.exe / %MAINDIR% / PSRes / fontdir.ps < prev   
Encoding:
Text File  |  2000-02-04  |  838 b   |  45 lines
  1. % Name of the font map
  2. % /dir1 (d:\\gs\\gs4.03\\*.pfb) def
  3. % /dir1 (c:\\users\\jona\\sgifonts\\*) def
  4. % /dir1 (/export/home1/jon/gs/fonts/*.pfb) def
  5. % /dir1 (/export/home/jon/proj/sgifonts/*) def
  6. /dir1 (c:\\PSFONTS\\*.pfb) def
  7. /tempstr 100 string def
  8.  
  9. /wentry {
  10.     f (") writestring
  11.     tempstr cvs f exch writestring
  12.     f (") writestring
  13. } bind def
  14.  
  15. /wnl {
  16.     f (\n) writestring
  17. } bind def
  18.  
  19. /wsp {
  20.     f ( ) writestring
  21. } bind def
  22.  
  23. /enumFontDir {
  24.     /n exch def
  25.     save
  26.     % Write the name of the font file
  27.     n wentry wsp
  28.     n run
  29.     % Write the actual font data
  30.     _recentfont begin
  31.     FontInfo begin
  32.     FontName wentry wsp
  33.     FontType wentry
  34.     FamilyName wentry
  35.     ItalicAngle wentry
  36.     Weight wentry
  37.     end
  38.     end
  39.     wnl
  40.     restore
  41. } bind def
  42. /f (fontpc2.map) (w) file def
  43. dir1 /enumFontDir load 100 string filenameforall
  44. f closefile
  45.