summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/kanji/vchars.ps
blob: ba277244b1dc7c531f377043e66d011f439e8e20 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
%!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

%

right left sub size idiv 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