summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/kanji/vchars1.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/kanji/vchars1.ps')
-rw-r--r--Master/tlpkg/tlgs/kanji/vchars1.ps55
1 files changed, 55 insertions, 0 deletions
diff --git a/Master/tlpkg/tlgs/kanji/vchars1.ps b/Master/tlpkg/tlgs/kanji/vchars1.ps
new file mode 100644
index 00000000000..b74b02addf8
--- /dev/null
+++ b/Master/tlpkg/tlgs/kanji/vchars1.ps
@@ -0,0 +1,55 @@
+%!PS-Adobe-2.0
+%
+% Sample of Vertical KANJI Characters
+%
+
+/font /Ryumin-Light-V def
+/size 80 def
+/left 50 def
+/right 600 def
+/top 750 def
+
+size size scale
+
+currentlinewidth size div setlinewidth
+
+/left left size div def
+/right right size div def
+/top top size div def
+/size 1 def
+
+%
+
+right left sub size mul 2 div left add /center exch def
+/Times-Roman findfont size 5 div scalefont setfont
+(Vertical KANJI Characters) dup stringwidth pop 2 div center exch sub
+top size 6 div add moveto show
+
+/x left def
+/y top def
+
+font findfont size scalefont setfont
+
+{
+ pop pop
+ x y moveto
+ size 0 rlineto 0 size neg rlineto size neg 0 rlineto
+ closepath stroke
+ x size 2 div add y moveto
+ 1 string dup 0 4 -1 roll put show
+ /x x size add def
+ x size add right gt { /x left def /y y size sub def } if
+}
+
+< 2122 2123 2131 2132 213c 213d 213e 2141
+ 2142 2143 2144 2145 214a 214b 214c 214d
+ 214e 214f 2150 2151 2152 2153 2154 2155
+ 2156 2157 2158 2159 215a 215b 222e 2421
+ 2423 2425 2427 2429 2443 2463 2465 2467
+ 246e
+ 2521
+ 2523 2525 2527 2529 2543 2563 2565 2567
+ 256e 2575 2576 >
+
+cshow
+showpage