home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / gs_kanji.ps < prev    next >
Text File  |  2002-02-22  |  4KB  |  159 lines
  1. %    Copyright (C) 1994, 1995, 1996 Aladdin Enterprises.  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_kanji.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17. % Scaffolding for Kanji fonts.  This is based on the Wadalab free font
  18. % from the University of Tokyo; it may not be appropriate for other
  19. % Kanji fonts.
  20.  
  21. /currentglobal where
  22.  { pop currentglobal { setglobal } true setglobal }
  23.  { { } }
  24. ifelse
  25.  
  26. % Define the encoding for the root font.
  27.  
  28. /KanjiEncoding
  29. % \x00
  30.     0    0    0    0    0    0    0    0
  31.     0    0    0    0    0    0    0    0
  32.     0    0    0    0    0    0    0    0
  33.     0    0    0    0    0    0    0    0
  34. % \x20
  35.     0    1    2    3    4    5    6    7
  36.     8    0    0    0    0    0    0    0
  37.     9    10    11    12    13    14    15    16
  38.     17    18    19    20    21    22    23    24
  39. % \x40
  40.     25    26    27    28    29    30    31    32
  41.     33    34    35    36    37    38    39    40
  42.     41    42    43    44    45    46    47    48
  43.     49    50    51    52    53    54    55    56
  44. % \x60
  45.     57    58    59    60    61    62    63    64
  46.     65    66    67    68    69    70    71    72
  47.     73    74    75    76    77    0    0    0
  48.     0    0    0    0    0    0    0    0
  49. % \x80
  50.     0    0    0    0    0    0    0    0
  51.     0    0    0    0    0    0    0    0
  52.     0    0    0    0    0    0    0    0
  53.     0    0    0    0    0    0    0    0
  54. % \xA0
  55.     0    1    2    3    4    5    6    7
  56.     8    0    0    0    0    0    0    0
  57.     9    10    11    12    13    14    15    16
  58.     17    18    19    20    21    22    23    24
  59. % \xC0
  60.     25    26    27    28    29    30    31    32
  61.     33    34    35    36    37    38    39    40
  62.     41    42    43    44    45    46    47    48
  63.     49    50    51    52    53    54    55    56
  64. % \xE0
  65.     57    58    59    60    61    62    63    64
  66.     65    66    67    68    69    70    71    72
  67.     73    74    75    76    77    0    0    0
  68.     0    0    0    0    0    0    0    0
  69. 256 packedarray def
  70.  
  71. % Define a stub for the base font encoding.
  72.  
  73.   /KanjiSubEncoding { /KanjiSubEncoding .findencoding } bind def
  74. %% Replace 3 (gs_ksb_e.ps)
  75.   EncodingDirectory /KanjiSubEncoding
  76.    { (gs_ksb_e.ps) //systemdict begin runlibfile KanjiSubEncoding end }
  77.   bind put
  78.  
  79. % Support procedures and data.
  80.  
  81. /T1FontInfo 8 dict begin
  82.   /version (001.001) readonly def
  83.   /FullName (KanjiBase) readonly def
  84.   /FamilyName (KanjiBase) readonly def
  85.   /Weight (Medium) readonly def
  86.   /ItalicAngle 0 def
  87.   /isFixedPitch false def
  88.   /UnderlinePosition 0 def
  89.   /UnderlineThickness 0 def
  90. currentdict end readonly def
  91.  
  92. /T1NF            % <fontname> T1NF <font>
  93. {
  94. 20 dict begin
  95.   /FontName exch def
  96.   /FontType 1 def
  97.   /FontInfo T1FontInfo def
  98.   /FontMatrix [.001 0 0 .001 0 0] def
  99.   /FontBBox [0 0 1000 1000] def
  100.   /Encoding KanjiSubEncoding def
  101.   /CharStrings 150 dict def
  102.   /PaintType 0 def
  103.   /Private 2 dict def
  104.   Private begin
  105.     /BlueValues [] def
  106.     /password 5839 def
  107.   end
  108. FontName currentdict end definefont
  109. } def
  110.  
  111. /T0NF            % <fontname> T0NF <font>
  112. {
  113. 20 dict begin
  114.   /FontName exch def
  115.   /FDepVector exch def
  116.   /FontType 0 def
  117.   /FontMatrix [1 0 0 1 0 0] def
  118.   /FMapType 2 def
  119.   /Encoding KanjiEncoding def
  120. FontName currentdict end definefont
  121. } def
  122.  
  123. % Define the composite font and all the base fonts.
  124.  
  125. /CompNF            % <fontname> CompNF <font>
  126. {
  127. /newname1 exch def
  128. newname1 dup length string cvs /str exch def
  129. str length /len exch def
  130. /fdepvector 78 array def 
  131. /j 1 def
  132. 16#21 1 16#74 {
  133. /i exch def
  134. KanjiEncoding i get 0 gt {
  135. len 4 add string /newstr exch def
  136. newstr 0 str putinterval
  137. newstr len (.r) putinterval
  138. newstr len 2 add  i 16 2 string cvrs putinterval
  139. newstr cvn /newlit exch def
  140. newlit T1NF /newfont exch def
  141. fdepvector j newfont put
  142. /j j 1 add def
  143. } if
  144. } for
  145. fdepvector 0 fdepvector 1 get put
  146. /j 0 def
  147. fdepvector newname1 T0NF
  148. } def
  149.  
  150. % Define an individual character in a composite font.
  151. /CompD            % <charstring> <(HL)> CompD -
  152.  { currentfont /Encoding get 1 index 0 get get    % FDepVector index
  153.    currentfont /FDepVector get exch get        % base font
  154.    dup /Encoding get 3 -1 roll 1 get get    % base font character name
  155.    exch /CharStrings get exch 3 -1 roll put
  156.  } bind def
  157.  
  158. exec
  159.