home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Actualizar / Impressora_PDF / converter.exe / GPLGS / gs_cidtt.ps < prev    next >
Text File  |  2003-02-13  |  5KB  |  134 lines
  1. %    Copyright (C) 2000 artofcode LLC.  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,v 1.8 2003/02/12 22:31:23 igor Exp $
  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 32767 le {
  41.         CIDCount 2 mul string
  42.       } {
  43.         32767 2 mul string
  44.         CIDCount 32767 sub 2 mul string
  45.       } ifelse
  46.     ] def
  47.     % Now fill it :
  48.     Decoding TT_cmap SubstNWP GDBytes CIDMap .fillCIDMap
  49.   currentdict end
  50. } bind def
  51.  
  52. /load_sfnts  % <FontDict> load_sfnts <FontDict> 
  53. { % Read the True Type file from the path /Path, and buld /sfnts,
  54.   % skipping glyf and loca. 
  55.   dup /Path get                                            % <font> (path)
  56.   QUIET not {
  57.     (Loading a TT font from ) print dup print 
  58.     ( to emulate a CID font ) print 1 index /CIDFontName get =only ( ... ) print
  59.   } if
  60.   (r) file dup                                             % <font> file file
  61.   3 1 roll                                                 % file <font> file
  62.   1 index /SubfontID .knownget not { 0 } if                % file <font> file SubfontID
  63.   .load_tt_font_stripped exch copy                         % file <font>
  64.   QUIET not {
  65.     (Done.) =
  66.   } if
  67.   dup 3 1 roll                                             % <font> file <font>
  68.   exch /File exch put                                      % <font>
  69.   dup dup /CIDSystemInfo get /Ordering get (.)             % <font> () ()
  70.   2 index /Decoding get =string cvs                        % <font> () () ()
  71.   concatstrings concatstrings cvn /Decoding exch put       % <font>
  72.   //ChooseDecoding exec                                    % <font>
  73.   //GenerateCIDMap exec                                    % <font>
  74. } bind def
  75.  
  76. %-----------TrueType-specific methods for category redefinition : -----------
  77.  
  78. /RefinePath      % <FontDict> RefinePath <FontDict>
  79. { dup begin
  80.   Path .libfile {
  81.       dup .filename {
  82.         currentdict exch /Path exch put
  83.       } if
  84.       closefile
  85.   } {
  86.     (Can't find the font file ) print =
  87.     /findfont cvx /undefinedfilename signalerror
  88.   } ifelse
  89.   end
  90. } bind def
  91.  
  92. /complete_instance  % <font_name> <FontDict> <Options> complete_FAPI_Font <font_name> <FontDict>
  93. { 1 index /CIDFontType 2 put % Other types are not emulated yet.
  94.   //super.complete_instance exec
  95.   //RefinePath exec
  96.   //load_sfnts exec
  97. } bind def
  98.  
  99. /IsMyRecord      % <raw_record> -> <raw_record> bool
  100. { dup type /dicttype eq { dup /FileType .knownget { /TrueType eq } { false } ifelse } { false } ifelse
  101. } bind def
  102.  
  103. /IsActive       % <record> IsActive <bool>
  104. { pop true
  105. } bind def
  106.  
  107. /CIDFontRecordVirtualMethods //RecordVirtualMethodsStub dup length 3 add dict copy begin
  108.   /GetCSI //TranslateCSI def
  109.   /IsActive //IsActive def
  110.   /MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
  111.   { //CIDFontOptions //complete_instance exec
  112.     2 copy //GetSize exec
  113.   } bind def
  114. currentdict end def
  115.  
  116. % Redefine the /CIDFont category :
  117. 4 dict begin
  118.   /CategoryName /CIDFont def
  119.   /IsMapFileOptional true def
  120.   /VerifyMap  { pop } bind def
  121.   /PreprocessRecord  % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
  122.   { //IsMyRecord exec dup {
  123.       pop dup /RecordVirtualMethods //CIDFontRecordVirtualMethods put
  124.       true
  125.     } if
  126.   } bind def
  127. currentdict end
  128.  
  129. /MappedCategoryRedefiner /ProcSet findresource /Redefine get exec
  130.  
  131. end  % the temporary dictionary for local binding.
  132.  
  133. .setlanguagelevel
  134.