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