diff options
Diffstat (limited to 'Master/tlpkg/tlgs/kanji/hankaku.ps')
| -rw-r--r-- | Master/tlpkg/tlgs/kanji/hankaku.ps | 93 |
1 files changed, 93 insertions, 0 deletions
diff --git a/Master/tlpkg/tlgs/kanji/hankaku.ps b/Master/tlpkg/tlgs/kanji/hankaku.ps new file mode 100644 index 00000000000..45bee8464eb --- /dev/null +++ b/Master/tlpkg/tlgs/kanji/hankaku.ps @@ -0,0 +1,93 @@ +%!PS-Adobe-2.0 +% +% Listing up Hankaku characters + +% Akira Tanaka <akr@jaist.ac.jp> modified for gs4.03/VFlib support. 1996/10/17 +% Akira Tanaka <akr@jaist.ac.jp> modified for gs5.0/VFlib support. 1997/6/9 + +/SHOW_BYTE_CHARS +{ + /LEFT 150 def + /TOP 675 def + /SIZE 40 def + + /FONT_WIDTH 500 def + /FONT_DESCENT 120 def + /FONT_ASCENT 880 def + /FONT_HEIGHT FONT_ASCENT FONT_DESCENT add def + + % Initialize + + dup findfont SIZE scalefont /FONT exch def + 32 string cvs /FONT_NAME exch def + + /FONT_WIDTH FONT_WIDTH 1000 div SIZE mul def + /FONT_DESCENT FONT_DESCENT 1000 div SIZE mul def + /FONT_ASCENT FONT_ASCENT 1000 div SIZE mul def + /FONT_HEIGHT FONT_HEIGHT 1000 div SIZE mul def + + /DIGIT_FONT /Courier findfont SIZE 0.8 mul scalefont def + /DIGIT_WIDTH gsave DIGIT_FONT setfont (0) stringwidth pop def grestore + /DIGIT_OFFSET FONT_WIDTH DIGIT_WIDTH sub 2 div def + /STR1 1 string def + + % draw title + + /Times-Roman findfont SIZE scalefont setfont + FONT_WIDTH 16 mul FONT_NAME stringwidth pop sub 2 div LEFT add + TOP SIZE 1.5 mul add moveto FONT_NAME show + + % draw glid + + 0 1 16 { + dup FONT_WIDTH mul LEFT add TOP moveto + 0 FONT_HEIGHT 16 mul neg rlineto + dup FONT_HEIGHT mul TOP exch sub LEFT exch moveto + FONT_WIDTH 16 mul 0 rlineto + pop + } for + stroke + + % show character codes + + DIGIT_FONT setfont + 0 1 15 { + dup 16 STR1 cvrs pop + dup FONT_WIDTH mul LEFT add DIGIT_OFFSET add + TOP FONT_DESCENT add moveto STR1 show + dup FONT_HEIGHT mul TOP exch sub FONT_ASCENT sub + LEFT FONT_WIDTH 2 mul sub exch moveto STR1 show (0) show + pop + } for + + % show characters + + FONT setfont + 0 1 15 { + /ROW exch def + 0 1 15 { + /COLUMN exch def + STR1 0 ROW 16 mul COLUMN add put + LEFT COLUMN FONT_WIDTH mul add + TOP ROW FONT_HEIGHT mul sub FONT_ASCENT sub moveto + { STR1 show } stopped { + .clearerror + 0 FONT_ASCENT rmoveto + FONT_WIDTH FONT_HEIGHT neg rlineto + FONT_WIDTH neg 0 rmoveto + FONT_WIDTH FONT_HEIGHT rlineto stroke + } if + } for + } for + showpage +} def + +[ /Ryumin-Light.Roman + /Ryumin-Light.Hankaku + /Ryumin-Light.Hiragana + /Ryumin-Light.Katakana + /Ryumin-Light-RKSJ-H ] +{ + SHOW_BYTE_CHARS +} forall + |