diff options
Diffstat (limited to 'Master/tlpkg/tlgs/kanji/kbase.ps')
-rw-r--r-- | Master/tlpkg/tlgs/kanji/kbase.ps | 302 |
1 files changed, 302 insertions, 0 deletions
diff --git a/Master/tlpkg/tlgs/kanji/kbase.ps b/Master/tlpkg/tlgs/kanji/kbase.ps new file mode 100644 index 00000000000..39c62f65198 --- /dev/null +++ b/Master/tlpkg/tlgs/kanji/kbase.ps @@ -0,0 +1,302 @@ +% +% kbase.ps - define /basekanji operator +% +% Apr.10,1992 Programmed by N.Katayama +% + +% +% font_name unique_id font_info private build_char BASEKANJI unique_id +% + +/basekanji { + + 9 dict begin % fontname, uniqueid, fontinfo, private, + % BEGIN, END, buildchar, prototype and rowcode + + /buildchar exch def + /private exch def + /fontinfo exch def + /uniqueid exch def + /fontname exch def + + /BEGIN { + prototype dup maxlength dict copy begin + /UniqueID uniqueid def + } def + /END { + currentdict end + dup /FontName get exch definefont pop + /uniqueid uniqueid 1 add def + } def + + % + % Define prototype + % + + 12 dict begin +% /FontName + /FontInfo fontinfo readonly def + /PaintType 0 def + /FontType 3 def + /FontMatrix [ 0.001 0 0 0.001 0 0 ] readonly def + /FontBBox { 0 -120 1000 880 } readonly def +% /Encoding +% /UniqueID +% /WMode +% /Private + /BuildChar /buildchar load def + currentdict end + /prototype exch def + + % + % JIS + % + + 16#21 1 16#7E { + /rowcode exch def + BEGIN + /FontName fontname (.r) rowcode () basefontname def + /Encoding JISSubEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 256 mul def + /MappingDict JISMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } for + + [ 16#21 16#22 16#24 16#25 ] { + /rowcode exch def + BEGIN + /FontName fontname (.r) rowcode (v) basefontname def + /Encoding JISSubEncoding def + /WMode 1 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 256 mul def + /MappingDict JISMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } forall + + % + % Shift-JIS kanji base font + % + + 16#81 1 16#9F { + /rowcode exch def + BEGIN + /FontName fontname (.sr) rowcode () basefontname def + /Encoding SJSubEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 16#81 sub 16#200 mul 16#2100 add def + /MappingDict SJMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } for + + 16#E0 1 16#EA { + /rowcode exch def + BEGIN + /FontName fontname (.sr) rowcode () basefontname def + /Encoding SJSubEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 16#E0 sub 16#200 mul 16#5F00 add def + /MappingDict SJMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } for + + 16#81 1 16#83 { + /rowcode exch def + BEGIN + /FontName fontname (.sr) rowcode (v) basefontname def + /Encoding SJSubEncoding def + /WMode 1 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 16#81 sub 16#200 mul 16#2100 add def + /MappingDict SJMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } for + + % + % 90pv-RKSJ kanji base font + % + + [ 16#85 16#86 16#87 16#88 ] { + /rowcode exch def + BEGIN + /FontName fontname (.90pv-sr) rowcode () basefontname def + /Encoding SJSubEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 16#81 sub 16#200 mul 16#2100 add def + /MappingDict SJMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } forall + + [ 16#EB 16#EC 16#ED ] { + /rowcode exch def + BEGIN + /FontName fontname (.90pv-sr) rowcode () basefontname def + /Encoding SJSubEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 16#E0 sub 16#200 mul 16#5F00 add def + /MappingDict SJMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } forall + + [ 16#87 ] { + /rowcode exch def + BEGIN + /FontName fontname (.90pv-sr) rowcode (v) basefontname def + /Encoding SJSubEncoding def + /WMode 1 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 16#81 sub 16#200 mul 16#2100 add def + /MappingDict SJMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } forall + + % + % 90ms-RKSJ kanji base font + % + + [ 16#87 ] { + /rowcode exch def + BEGIN + /FontName fontname (.90ms-sr) rowcode () basefontname def + /Encoding SJSubEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 16#81 sub 16#200 mul 16#2100 add def + /MappingDict SJMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } forall + + [ 16#ED 16#EE 16#FA 16#FB 16#FC ] { + /rowcode exch def + BEGIN + /FontName fontname (.90ms-sr) rowcode () basefontname def + /Encoding SJSubEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 16#E0 sub 16#200 mul 16#5F00 add def + /MappingDict SJMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } forall + + [ 16#87 ] { + /rowcode exch def + BEGIN + /FontName fontname (.90ms-sr) rowcode (v) basefontname def + /Encoding SJSubEncoding def + /WMode 1 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset rowcode 16#81 sub 16#200 mul 16#2100 add def + /MappingDict SJMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + } forall + + % + % Roman + % + + BEGIN + /FontName fontname (.Roman) composename def + /FontMatrix [ 0.0005 0 0 0.001 0 0 ] readonly def + /Encoding RomanEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset 0 def + /MappingDict CNameMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + + % + % Hiragana + % + + BEGIN + /FontName fontname (.Hiragana) composename def + /FontMatrix [ 0.0005 0 0 0.001 0 0 ] readonly def + /Encoding HiraganaEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset 0 def + /MappingDict CNameMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + + % + % Katakana + % + + BEGIN + /FontName fontname (.Katakana) composename def + /FontMatrix [ 0.0005 0 0 0.001 0 0 ] readonly def + /Encoding KatakanaEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset 0 def + /MappingDict CNameMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + + % + % Hankaku + % + + BEGIN + /FontName fontname (.Hankaku) composename def + /FontMatrix [ 0.0005 0 0 0.001 0 0 ] readonly def + /Encoding HankakuEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset 0 def + /MappingDict CNameMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + + % + % SuppK + % + + BEGIN + /FontName fontname (.SuppK) composename def + /FontMatrix [ 0.0005 0 0 0.001 0 0 ] readonly def + /Encoding RKSuppKEncoding def + /WMode 0 def + /Private private dup maxlength 3 add dict copy begin + /MappingOffset 0 def + /MappingDict CNameMappingDict def + /MappingProc /StandardMapping load def + currentdict end readonly def + END + + uniqueid end +} bind def |