blob: 597f99c3b0e96d0483dcb2f4a46ff3ee2deb8e89 (
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
%!PS-Adobe-2.0
%
% Article 9 of the Constitution of Japan
% written in vertical direction using ...
% Fonts:
% Ryumin-Light-V, GothicBBB-Medium-V
% Operators for characters:
% show, widthshow, ashow, stringwidth, charpath, cshow
% constants
/RIGHT 550 def
/WIDTH 500 def
/TOP 750 def
/HEIGHT 700 def
/SIZE 24 def
/MARGIN 40 def
% utility operators
/GOTHIC { /GothicBBB-Medium-V findfont exch dup
/FONTSIZE exch def scalefont setfont } def
/RYUMIN { /Ryumin-Light-V findfont exch dup
/FONTSIZE exch def scalefont setfont } def
/NEXTLINE { currentpoint pop FONTSIZE 1.8 mul sub TOP MARGIN sub moveto } def
/MARU { dup gsave false charpath flattenpath pathbbox grestore
/ury exch def /urx exch def /lly exch def /llx exch def
gsave llx urx add 2 div lly ury add 2 div translate
urx llx sub ury lly sub 2 copy gt { pop }{ exch pop }ifelse
1.2 mul dup scale 0 setlinewidth
0.5 0 moveto 0 0 0.5 0 360 arc stroke grestore show } def
/STRLEN { 0 exch { pop pop pop 1 add } exch cshow } def
/JUSTIFY { dup STRLEN 1 sub 1 index stringwidth exch pop
currentpoint exch pop add TOP HEIGHT MARGIN sub sub sub
exch div neg 0 exch 3 -1 roll ashow } def
% initialize
RIGHT TOP moveto 0 HEIGHT neg rlineto WIDTH neg 0 rlineto 0 HEIGHT rlineto
closepath stroke
RIGHT MARGIN sub TOP MARGIN sub moveto
% title
SIZE 2 mul GOTHIC
<2121467C4B5C3971377B4B21> show
NEXTLINE
% chapter
SIZE 1.5 mul GOTHIC
<21212121426846733E4F2121> show
SIZE 1.5 mul RYUMIN
<406F4168244E4A7C347E> show
NEXTLINE
% abstract
SIZE GOTHIC
0 SIZE 2 div 16#2122 <2121214C406F4168244E4A7C347E2122406F4E4F244E49544A5D3B7D
21223872406F3822244E485D4727214D> widthshow
NEXTLINE
% sentence
SIZE GOTHIC
<426836653E72> show
SIZE RYUMIN
<2331> MARU
<2121467C4B5C39714C31244F212240353541244843613D7824723470443424482439246B39713A
5D> JUSTIFY
NEXTLINE
<4A3F4F422472403F3C42244B347535612437212239713822244E482F4630243F246B406F416824
48212249704E4F244B2468246B> JUSTIFY
NEXTLINE
<305233454B74244F49704E4F244E39543B48244F212239713A5D4A364168247232723768243924
6B3C6A434A244824372446> JUSTIFY
NEXTLINE
<244F2122314A3557244B2433246C24724A7C347E2439246B2123> show
NEXTLINE
<2332> MARU
<212141303960244E4C5C452A247243232439246B243F246121224E26332436753733243D244E42
3E244E406F4E4F> JUSTIFY
NEXTLINE
<244F21222433246C24724A5D3B7D2437244A242421233971244E3872406F3822244F2122243324
6C247247272461244A24242123> show
NEXTLINE
showpage
|
