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