diff options
Diffstat (limited to 'Master/xemtex/gslib/gs_kanji.ps')
-rw-r--r-- | Master/xemtex/gslib/gs_kanji.ps | 159 |
1 files changed, 0 insertions, 159 deletions
diff --git a/Master/xemtex/gslib/gs_kanji.ps b/Master/xemtex/gslib/gs_kanji.ps deleted file mode 100644 index 73514205904..00000000000 --- a/Master/xemtex/gslib/gs_kanji.ps +++ /dev/null @@ -1,159 +0,0 @@ -% Copyright (C) 1994, 1995, 1996 Aladdin Enterprises. All rights reserved. -% -% This program is free software; you can redistribute it and/or modify it -% under the terms of the GNU General Public License as published by the -% Free Software Foundation; either version 2 of the License, or (at your -% option) any later version. -% -% This program is distributed in the hope that it will be useful, but -% WITHOUT ANY WARRANTY; without even the implied warranty of -% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General -% Public License for more details. -% -% You should have received a copy of the GNU General Public License along -% with this program; if not, write to the Free Software Foundation, Inc., -% 59 Temple Place, Suite 330, Boston, MA, 02111-1307. - -% $Id: gs_kanji.ps,v 1.2.6.1.2.1 2003/04/12 14:02:38 giles 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 % <fontname> T1NF <font> -{ -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 % <fontname> T0NF <font> -{ -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 % <fontname> CompNF <font> -{ -/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 % <charstring> <(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 |