home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / dos / inne / gs300ini / gs_ccfnt.ps < prev    next >
Encoding:
Text File  |  1994-08-02  |  2.0 KB  |  69 lines
  1. %    Copyright (C) 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Find and register all the precompiled font operators in systemdict.
  19.  
  20. /registerfont            % <fontname> <fontdict> registerfont <font>
  21.  { DEBUG { (Registering ) print 1 index = } if
  22.    dup begin
  23.      Encoding type /nametype eq
  24.       { Encoding .findencoding /Encoding exch def
  25.       }
  26.      if
  27.      dup /PrefEnc known
  28.       { PrefEnc type /nametype eq
  29.      { PrefEnc .findencoding /PrefEnc exch def
  30.      }
  31.     if
  32.       }
  33.      if
  34.      dup /FDepVector known
  35.       { /FDepVector [ FDepVector
  36.      { FontDirectory 1 index .knownget
  37.         { exch pop }
  38.         { ccfonts 1 index .knownget
  39.            { registerfont
  40.            }
  41.            { Fontmap 1 index known
  42.           { findfont }
  43.           { pop NullFont }
  44.          ifelse
  45.            }
  46.           ifelse
  47.         }
  48.        ifelse
  49.      }
  50.     forall ] readonly def
  51.       }
  52.      if
  53.    end definefont
  54.  } bind def
  55.  
  56.    /ccfonts mark systemdict
  57.     { exch =string cvs (.font_) anchorsearch
  58.        { pop pop exec dup /FontName get exch }
  59.        { pop pop }
  60.       ifelse
  61.     }
  62.    forall .dicttomark def
  63.    ccfonts
  64.     { FontDirectory 2 index known { pop pop } { registerfont pop } ifelse }
  65.    forall
  66.  
  67. currentdict /registerfont undef
  68. currentdict /ccfonts undef
  69.