% Copyright (C) 1994, 1995, 1996 Aladdin Enterprises. All rights reserved. % % This file is part of AFPL Ghostscript. % % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND. No author or % distributor accepts any responsibility for the consequences of using it, or % for whether it serves any particular purpose or works at all, unless he or % she says so in writing. Refer to the Aladdin Free Public License (the % "License") for full details. % % Every copy of AFPL Ghostscript must include a copy of the License, normally % in a plain ASCII text file named PUBLIC. The License grants you the right % to copy, modify and redistribute AFPL Ghostscript, but only under certain % conditions described in the License. Among other things, the License % requires that the copyright notice and this notice be preserved on all % copies. % $Id: gs_kanji.ps,v 1.2 2000/09/19 18:29:11 lpd Exp $ % Scaffolding for Kanji fonts. This is based on the Wadalab free font % from the University of Tokyo; it may not be appropriate for other % Kanji fonts. /currentglobal where { pop currentglobal { setglobal } true setglobal } { { } } ifelse % Define the encoding for the root font. /KanjiEncoding % \x00 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 % \x20 0 1 2 3 4 5 6 7 8 0 0 0 0 0 0 0 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 % \x40 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 % \x60 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 0 0 0 0 0 0 0 0 0 0 0 % \x80 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 % \xA0 0 1 2 3 4 5 6 7 8 0 0 0 0 0 0 0 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 % \xC0 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 % \xE0 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 0 0 0 0 0 0 0 0 0 0 0 256 packedarray def % Define a stub for the base font encoding. /KanjiSubEncoding { /KanjiSubEncoding .findencoding } bind def %% Replace 3 (gs_ksb_e.ps) EncodingDirectory /KanjiSubEncoding { (gs_ksb_e.ps) //systemdict begin runlibfile KanjiSubEncoding end } bind put % Support procedures and data. /T1FontInfo 8 dict begin /version (001.001) readonly def /FullName (KanjiBase) readonly def /FamilyName (KanjiBase) readonly def /Weight (Medium) readonly def /ItalicAngle 0 def /isFixedPitch false def /UnderlinePosition 0 def /UnderlineThickness 0 def currentdict end readonly def /T1NF % T1NF { 20 dict begin /FontName exch def /FontType 1 def /FontInfo T1FontInfo def /FontMatrix [.001 0 0 .001 0 0] def /FontBBox [0 0 1000 1000] def /Encoding KanjiSubEncoding def /CharStrings 150 dict def /PaintType 0 def /Private 2 dict def Private begin /BlueValues [] def /password 5839 def end FontName currentdict end definefont } def /T0NF % T0NF { 20 dict begin /FontName exch def /FDepVector exch def /FontType 0 def /FontMatrix [1 0 0 1 0 0] def /FMapType 2 def /Encoding KanjiEncoding def FontName currentdict end definefont } def % Define the composite font and all the base fonts. /CompNF % CompNF { /newname1 exch def newname1 dup length string cvs /str exch def str length /len exch def /fdepvector 78 array def /j 1 def 16#21 1 16#74 { /i exch def KanjiEncoding i get 0 gt { len 4 add string /newstr exch def newstr 0 str putinterval newstr len (.r) putinterval newstr len 2 add i 16 2 string cvrs putinterval newstr cvn /newlit exch def newlit T1NF /newfont exch def fdepvector j newfont put /j j 1 add def } if } for fdepvector 0 fdepvector 1 get put /j 0 def fdepvector newname1 T0NF } def % Define an individual character in a composite font. /CompD % <(HL)> CompD - { currentfont /Encoding get 1 index 0 get get % FDepVector index currentfont /FDepVector get exch get % base font dup /Encoding get 3 -1 roll 1 get get % base font character name exch /CharStrings get exch 3 -1 roll put } bind def exec