home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_cidtt.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  5.0 KB  |  150 lines
  1. %    Copyright (C) 2000 Artifex Software, Inc.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_cidtt.ps 9237 2008-11-23 20:36:12Z leonardo $
  17. % Redefine CIDFont category with an emulation with True Type fonts.
  18.  
  19. languagelevel 2 .setlanguagelevel
  20.  
  21. 15 dict begin    % a temporary dictionary for local binding.
  22.  
  23. %------------------Copy the FontEmulationProcs here : -------------------
  24.  
  25. /FontEmulationProcs /ProcSet findresource {
  26.   def
  27. } forall
  28.  
  29. currentdict /super.complete_instance currentdict /complete_instance get put
  30.  
  31. %-------Auxiliary procedures for building CIDFontType 2 from TT file -----------
  32.  
  33. /GenerateCIDMap   % <font> GenerateCIDMap <font>
  34. { begin
  35.     % Obtain the maximal CID :
  36.     %   This implementation doesn't check whether glyphs really present.
  37.     Decoding /CIDCount get /CIDCount exch def
  38.     % Prepare the CIDMap structure :
  39.     /CIDMap [
  40.       CIDCount 22000 le {
  41.         CIDCount 2 mul string
  42.       } {
  43.         44000 string
  44.         CIDCount 44000 gt {
  45.        % need three strings
  46.            44000 string        % 22000 2 mul string
  47.            CIDCount 44000 sub 2 mul string
  48.         } {
  49.            CIDCount 22000 sub 2 mul string
  50.         } ifelse
  51.       } ifelse
  52.     ] def
  53.     % Now fill it :
  54.     Decoding TT_cmap SubstNWP GDBytes CIDMap .fillCIDMap
  55.   currentdict end
  56. } bind def
  57.  
  58. /load_sfnts  % <FontDict> load_sfnts <FontDict> 
  59. { % Read the True Type file from the path /Path, and buld /sfnts,
  60.   % skipping glyf and loca. 
  61.   dup /Path get                                            % <font> (path)
  62.   QUIET not {
  63.     (Loading a TT font from ) print dup print 
  64.     ( to emulate a CID font ) print 1 index /CIDFontName get =only ( ... ) print
  65.   } if
  66.   (r) file dup                                             % <font> file file
  67.   3 1 roll                                                 % file <font> file
  68.   1 index /SubfontID .knownget not { 0 } if                % file <font> file SubfontID
  69.   .load_tt_font_stripped exch copy                         % file <font>
  70.   QUIET not {
  71.     (Done.) =
  72.   } if
  73.   dup 3 1 roll                                             % <font> file <font>
  74.   exch /File exch put                                      % <font>
  75.   dup dup /CIDSystemInfo get /Ordering get (.)             % <font> () ()
  76.   2 index /Decoding get =string cvs                        % <font> () () ()
  77.   concatstrings concatstrings cvn /Decoding exch put       % <font>
  78.   dup dup /CIDSystemInfo get /Ordering get (-WMode)        % <font> <font> () ()
  79.   concatstrings cvn /SubstCID 
  80.   2 copy resourcestatus {
  81.     pop pop
  82.     findresource /subst_CID_on_WMode exch put              % <font>
  83.   } {
  84.     pop pop pop
  85.   } ifelse
  86.   //ChooseDecoding exec                                    % <font>
  87.   //GenerateCIDMap exec                                    % <font>
  88. } bind def
  89.  
  90. %-----------TrueType-specific methods for category redefinition : -----------
  91.  
  92. /RefinePath      % <FontDict> RefinePath <FontDict>
  93. { dup begin
  94.   Path .libfile {
  95.       dup .filename {
  96.         currentdict exch /Path exch put
  97.       } if
  98.       closefile
  99.   } {
  100.     (Can't find the font file ) print =
  101.     /findfont cvx /undefinedfilename signalerror
  102.   } ifelse
  103.   end
  104. } bind def
  105.  
  106. /complete_instance  % <font_name> <FontDict> <Options> complete_FAPI_Font <font_name> <FontDict>
  107. { 1 index /CIDFontType 2 put % Other types are not emulated yet.
  108.   //super.complete_instance exec
  109.   //RefinePath exec
  110.   //load_sfnts exec
  111. } bind def
  112.  
  113. /IsMyRecord      % <raw_record> -> <raw_record> bool
  114. { dup type /dicttype eq { dup /FileType .knownget { /TrueType eq } { false } ifelse } { false } ifelse
  115. } bind def
  116.  
  117. /IsActive       % <record> IsActive <bool>
  118. { pop true
  119. } bind def
  120.  
  121. /CIDFontRecordVirtualMethods //RecordVirtualMethodsStub dup length 3 add dict copy begin
  122.   /GetCSI //TranslateCSI def
  123.   /IsActive //IsActive def
  124.   /MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
  125.   { currentglobal 3 1 roll true setglobal
  126.     //CIDFontOptions //complete_instance exec
  127.     2 copy //GetSize exec
  128.     4 3 roll setglobal
  129.   } bind def
  130. currentdict end def
  131.  
  132. % Redefine the /CIDFont category :
  133. 4 dict begin
  134.   /CategoryName /CIDFont def
  135.   /IsMapFileOptional true def
  136.   /VerifyMap  { pop } bind def
  137.   /PreprocessRecord  % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
  138.   { //IsMyRecord exec dup {
  139.       pop dup /RecordVirtualMethods //CIDFontRecordVirtualMethods put
  140.       true
  141.     } if
  142.   } bind def
  143. currentdict end
  144.  
  145. /MappedCategoryRedefiner /ProcSet findresource /Redefine get exec
  146.  
  147. end  % the temporary dictionary for local binding.
  148.  
  149. .setlanguagelevel
  150.