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