blob: b74b02addf8ac6209de03d0f82bf241ffc20e135 (
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
47
48
49
50
51
52
53
54
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
|
