diff options
Diffstat (limited to 'Master/tlpkg/tlgs/kanji/article9.ps')
-rw-r--r-- | Master/tlpkg/tlgs/kanji/article9.ps | 97 |
1 files changed, 97 insertions, 0 deletions
diff --git a/Master/tlpkg/tlgs/kanji/article9.ps b/Master/tlpkg/tlgs/kanji/article9.ps new file mode 100644 index 00000000000..597f99c3b0e --- /dev/null +++ b/Master/tlpkg/tlgs/kanji/article9.ps @@ -0,0 +1,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 |