summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/kanji/kbase.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/kanji/kbase.ps')
-rw-r--r--Master/tlpkg/tlgs/kanji/kbase.ps302
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