home *** CD-ROM | disk | FTP | other *** search
/ Mixa 155: Dogs / MIXA 155: Dogs.iso / pc / Viewer / BROWSER(W) / フィルタ / PDF / LIB / gs_ccfnt.ps < prev    next >
Encoding:
Text File  |  2002-10-29  |  1.7 KB  |  64 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile: gs_ccfnt.ps,v $ $Revision: 1.8 $
  7. % Find and register all the precompiled font operators in systemdict.
  8.  
  9. /registerfont            % <fontname> <fontdict> registerfont <font>
  10.  { DEBUG { (Registering ) print 1 index = } if
  11.    dup begin
  12.      Encoding type /nametype eq
  13.       { Encoding .findencoding /Encoding exch def
  14.       }
  15.      if
  16.      dup /PrefEnc known
  17.       { PrefEnc type /nametype eq
  18.      { PrefEnc .findencoding /PrefEnc exch def
  19.      }
  20.     if
  21.       }
  22.      if
  23.      dup /FDepVector known
  24.       { /FDepVector [ FDepVector
  25.      { .FontDirectory 1 index .knownget
  26.         { exch pop }
  27.         { ccfonts 1 index .knownget
  28.            { registerfont
  29.            }
  30.            { Fontmap 1 index known
  31.           { findfont }
  32.           { pop NullFont }
  33.          ifelse
  34.            }
  35.           ifelse
  36.         }
  37.        ifelse
  38.      }
  39.     forall ] readonly def
  40.       }
  41.      if
  42.    end
  43.    % Use the value of definefont appropriate at run-time, not bind-time
  44.    /definefont load exec
  45.  } bind odef
  46. % Bind recursive call (bind descends into oparrays: feature!)
  47. /registerfont dup load bind def
  48.  
  49. /.loadinitialfonts {
  50.    //.loadinitialfonts exec
  51.    /ccfonts mark
  52.      0 1 null .getccfont 1 sub { .getccfont dup /FontName get exch } for
  53.    .dicttomark def
  54.         % Make sure these fonts are registered as "resources".
  55.    currentfile {
  56.      pop ccfonts
  57.       { .FontDirectory 2 index known { pop pop } { registerfont pop } ifelse }
  58.      forall
  59.   } .execasresource
  60.   currentdict /ccfonts .undef
  61. } bind def
  62.  
  63. currentdict /registerfont .undef
  64.