annotate Paper/figure/fastcall.eps @ 1:878e70793abe

mkdir Paper
author Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
date Thu, 17 Nov 2011 09:18:31 +0900
parents figure/fastcall.eps@9fc7603e8e8b
children 4c5a29c7bb47
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 %!PS-Adobe-3.0 EPSF-3.0
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 %%HiResBoundingBox: 0.000000 0.000000 393.000000 111.000000
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 %APL_DSC_Encoding: UTF8
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 %APLProducer: (Version 10.7.2 (Build 11C74) Quartz PS Context)
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 %%Title: (Unknown)
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 %%Creator: (Unknown)
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 %%CreationDate: (Unknown)
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 %%For: (Unknown)
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 %%DocumentData: Clean7Bit
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 %%LanguageLevel: 2
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 %%Pages: 1
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 %%BoundingBox: 0 0 590 167
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 %%EndComments
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 %%BeginProlog
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 %%BeginFile: cg-pdf.ps
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 %%Copyright: Copyright 2000-2004 Apple Computer Incorporated.
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 %%Copyright: All Rights Reserved.
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 currentpacking true setpacking
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 /cg_md 141 dict def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 cg_md begin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 /L3? languagelevel 3 ge def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 /bd{bind def}bind def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 /ld{load def}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 /xs{exch store}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 /xd{exch def}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 /cmmtx matrix def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 mark
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 /sc/setcolor
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 /scs/setcolorspace
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 /dr/defineresource
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 /fr/findresource
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 /T/true
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 /F/false
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 /d/setdash
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 /w/setlinewidth
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 /J/setlinecap
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 /j/setlinejoin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 /M/setmiterlimit
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 /i/setflat
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 /rc/rectclip
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 /rf/rectfill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 /rs/rectstroke
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 /f/fill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 /f*/eofill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 /sf/selectfont
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 /s/show
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 /xS/xshow
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 /yS/yshow
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 /xyS/xyshow
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 /S/stroke
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 /m/moveto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 /l/lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 /c/curveto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 /h/closepath
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 /n/newpath
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 /q/gsave
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 /Q/grestore
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 counttomark 2 idiv
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 {ld}repeat pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 /SC{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 /ColorSpace fr scs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 /sopr /setoverprint where{pop/setoverprint}{/pop}ifelse ld
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 /soprm /setoverprintmode where{pop/setoverprintmode}{/pop}ifelse ld
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 /cgmtx matrix def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 /sdmtx{cgmtx currentmatrix pop}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 /CM {cgmtx setmatrix}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 /cm {cmmtx astore CM concat}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 /W{clip newpath}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 /W*{eoclip newpath}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 statusdict begin product end dup (HP) anchorsearch{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 pop pop pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 true
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
74 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 (hp) anchorsearch{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 pop pop true
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 pop false
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
82 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
85 pop pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 (0)dup 0 4 -1 roll put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 F charpath
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 }cshow
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 }
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 {F charpath}
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 /cply exch bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 /cps {cply stroke}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
95 /pgsave 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
96 /bp{/pgsave save store}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 /ep{pgsave restore showpage}def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
98 /re{4 2 roll m 1 index 0 rlineto 0 exch rlineto neg 0 rlineto h}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 /scrdict 10 dict def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 /scrmtx matrix def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 /patarray 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 /createpat{patarray 3 1 roll put}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 /makepat{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 scrmtx astore pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 gsave
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 initgraphics
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 CM
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 patarray exch get
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
109 scrmtx
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 makepattern
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
111 grestore
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
112 setpattern
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 /cg_BeginEPSF{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 userdict save/cg_b4_Inc_state exch put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
116 userdict/cg_endepsf/cg_EndEPSF load put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 count userdict/cg_op_count 3 -1 roll put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 countdictstack dup array dictstack userdict/cg_dict_array 3 -1 roll put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
119 3 sub{end}repeat
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
120 /showpage {} def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
121 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
122 10 setmiterlimit [] 0 setdash newpath
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
123 false setstrokeadjust false setoverprint
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
124 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
125 /cg_EndEPSF{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
126 countdictstack 3 sub { end } repeat
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
127 cg_dict_array 3 1 index length 3 sub getinterval
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
128 {begin}forall
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
129 count userdict/cg_op_count get sub{pop}repeat
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
130 userdict/cg_b4_Inc_state get restore
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
131 F setpacking
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
132 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
133 /cg_biproc{currentfile/RunLengthDecode filter}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 /cg_aiproc{currentfile/ASCII85Decode filter/RunLengthDecode filter}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 /ImageDataSource 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 L3?{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
137 /cg_mibiproc{pop pop/ImageDataSource{cg_biproc}def}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 /cg_miaiproc{pop pop/ImageDataSource{cg_aiproc}def}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
139 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 /ImageBandMask 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 /ImageBandData 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 /cg_mibiproc{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 string/ImageBandMask xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 string/ImageBandData xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 /ImageDataSource{[currentfile/RunLengthDecode filter dup ImageBandMask/readstring cvx
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 /pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
147 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
148 /cg_miaiproc{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 string/ImageBandMask xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 string/ImageBandData xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 /ImageDataSource{[currentfile/ASCII85Decode filter/RunLengthDecode filter
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 dup ImageBandMask/readstring cvx
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
153 /pop cvx dup ImageBandData/readstring cvx/pop cvx]cvx bind}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
154 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
155 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
156 /imsave 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
157 /BI{save/imsave xd mark}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
158 /EI{imsave restore}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 /ID{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 counttomark 2 idiv
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
161 dup 2 add
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
162 dict begin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 {def} repeat
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
164 pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 /ImageType 1 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
166 /ImageMatrix[Width 0 0 Height neg 0 Height]def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
167 currentdict dup/ImageMask known{ImageMask}{F}ifelse exch
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
168 L3?{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
169 dup/MaskedImage known
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
170 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
171 pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
172 <<
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
173 /ImageType 3
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
174 /InterleaveType 2
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
175 /DataDict currentdict
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
176 /MaskDict
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
177 << /ImageType 1
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
178 /Width Width
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
179 /Height Height
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
180 /ImageMatrix ImageMatrix
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
181 /BitsPerComponent 1
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
182 /Decode [0 1]
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
183 currentdict/Interpolate known
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
184 {/Interpolate Interpolate}if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
185 >>
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
186 >>
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
188 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 exch
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 {imagemask}{image}ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 end
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
192 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 /cguidfix{statusdict begin mark version end
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
194 {cvr}stopped{cleartomark 0}{exch pop}ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
195 2012 lt{dup findfont dup length dict begin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 {1 index/FID ne 2 index/UniqueID ne and
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
197 {def} {pop pop} ifelse}forall
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
198 currentdict end definefont pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
199 }{pop}ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
200 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
201 /t_array 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 /t_i 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 /t_c 1 string def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
204 /x_proc{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 exch t_array t_i get add exch moveto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 /t_i t_i 1 add store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
207 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 /y_proc{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
209 t_array t_i get add moveto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
210 /t_i t_i 1 add store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
211 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
212 /xy_proc{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
213
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 t_array t_i 2 copy 1 add get 3 1 roll get
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 4 -1 roll add 3 1 roll add moveto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 /t_i t_i 2 add store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
217 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
218 /sop 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
219 /cp_proc/x_proc ld
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
220 /base_charpath
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
221 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
222 /t_array xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
223 /t_i 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
224 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
225 t_c 0 3 -1 roll put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 currentpoint
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
227 t_c cply sop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 cp_proc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
229 }forall
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 /t_array 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
231 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 /sop/stroke ld
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
233 /nop{}def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
234 /xsp/base_charpath ld
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 /ysp{/cp_proc/y_proc ld base_charpath/cp_proc/x_proc ld}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
236 /xysp{/cp_proc/xy_proc ld base_charpath/cp_proc/x_proc ld}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 /xmp{/sop/nop ld /cp_proc/x_proc ld base_charpath/sop/stroke ld}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
238 /ymp{/sop/nop ld /cp_proc/y_proc ld base_charpath/sop/stroke ld}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 /xymp{/sop/nop ld /cp_proc/xy_proc ld base_charpath/sop/stroke ld}bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
240 /refnt{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
241 findfont dup length dict copy dup
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 /Encoding 4 -1 roll put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
243 definefont pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
244 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
245 /renmfont{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
246 findfont dup length dict copy definefont pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
247 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
248 L3? dup dup{save exch}if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
249 /Range 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
250 /DataSource 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
251 /val 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
252 /nRange 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
253 /mulRange 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
254 /d0 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
255 /r0 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
256 /di 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
257 /ri 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
258 /a0 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
259 /a1 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
260 /r1 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
261 /r2 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
262 /dx 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
263 /Nsteps 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
264 /sh3tp 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
265 /ymax 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
266 /ymin 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
267 /xmax 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
268 /xmin 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
269 /setupFunEval
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
270 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
271 begin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
272 /nRange Range length 2 idiv store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
273 /mulRange
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
274
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
275 [
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
276 0 1 nRange 1 sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
277 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
278 2 mul/nDim2 xd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
279 Range nDim2 get
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
280 Range nDim2 1 add get
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
281 1 index sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
282
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
283 255 div
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
284 exch
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
285 }for
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
286 ]store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
287 end
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
288 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
289 /FunEval
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
290 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
291 begin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
292
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
293 nRange mul /val xd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
294
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
295 0 1 nRange 1 sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
296 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
297 dup 2 mul/nDim2 xd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
298 val
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
299 add DataSource exch get
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
300 mulRange nDim2 get mul
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
301 mulRange nDim2 1 add get
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
302 add
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
303 }for
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
304 end
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
305 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
306 /max
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
307 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
308 2 copy lt
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
309 {exch pop}{pop}ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
310 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
311 /sh2
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
312 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
313 /Coords load aload pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
314 3 index 3 index translate
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
315
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
316 3 -1 roll sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
317 3 1 roll exch
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
318 sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
319 2 copy
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
320 dup mul exch dup mul add sqrt
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
321 dup
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
322 scale
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
323 atan
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
324
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
325 rotate
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
326
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
327 /Function load setupFunEval
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
328
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
329
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
330 clippath {pathbbox}stopped {0 0 0 0}if newpath
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
331 /ymax xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
332 /xmax xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
333 /ymin xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
334 /xmin xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
335 currentdict/Extend known
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
336 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
337 /Extend load 0 get
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
338 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
339 0/Function load FunEval sc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
340 xmin ymin xmin abs ymax ymin sub rectfill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
341 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
342 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
343
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
344 /Nsteps/Function load/Size get 0 get 1 sub store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
345 /dx 1 Nsteps div store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
346 gsave
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
347 /di ymax ymin sub store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
348 /Function load
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
349
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
350 0 1 Nsteps
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
351 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
352 1 index FunEval sc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
353 0 ymin dx di rectfill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
354 dx 0 translate
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
355 }for
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
356 pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
357 grestore
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
358 currentdict/Extend known
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
359 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
360 /Extend load 1 get
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
361 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
362 Nsteps/Function load FunEval sc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
363 1 ymin xmax 1 sub abs ymax ymin sub rectfill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
364 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
365 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
366 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
367 /shp
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
368 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
369 4 copy
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
370
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
371 dup 0 gt{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
372 0 exch a1 a0 arc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
373 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
374 pop 0 moveto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
375 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
376 dup 0 gt{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
377 0 exch a0 a1 arcn
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
378 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
379 pop 0 lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
380 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
381
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
382 fill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
383
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
384 dup 0 gt{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
385 0 exch a0 a1 arc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
386 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
387 pop 0 moveto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
388 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
389 dup 0 gt{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
390 0 exch a1 a0 arcn
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
391 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
392 pop 0 lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
393 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
394
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
395 fill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
396 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
397 /calcmaxs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
398 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
399
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
400 xmin dup mul ymin dup mul add sqrt
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
401 xmax dup mul ymin dup mul add sqrt
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
402 xmin dup mul ymax dup mul add sqrt
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
403 xmax dup mul ymax dup mul add sqrt
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
404 max max max
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
405 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
406 /sh3
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
407 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
408 /Coords load aload pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
409 5 index 5 index translate
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
410 3 -1 roll 6 -1 roll sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
411 3 -1 roll 5 -1 roll sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
412 2 copy dup mul exch dup mul add sqrt
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
413 /dx xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
414 2 copy 0 ne exch 0 ne or
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
415 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
416
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
417 exch atan rotate
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
418 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
419 pop pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
420 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
421
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
422 /r2 xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
423 /r1 xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
424 /Function load
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
425 dup/Size get 0 get 1 sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
426 /Nsteps xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
427 setupFunEval
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
428
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
429
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
430
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
431
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
432
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
433 dx r2 add r1 lt{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
434
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
435 0
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
436 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
437 dx r1 add r2 le
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
438 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
439 1
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
440 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
441 r1 r2 eq
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
442 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
443 2
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
444 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
445 3
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
446 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
447 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
448 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
449 /sh3tp xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
450 clippath {pathbbox}stopped {0 0 0 0}if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
451 newpath
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
452 /ymax xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
453 /xmax xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
454 /ymin xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
455 /xmin xs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
456
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
457 dx dup mul r2 r1 sub dup mul sub dup 0 gt
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
458 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
459 sqrt r2 r1 sub atan
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
460 /a0 exch 180 exch sub store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
461 /a1 a0 neg store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
462 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
463 pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
464 /a0 0 store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
465 /a1 360 store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
466 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
467 currentdict/Extend known
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
468 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
469 /Extend load 0 get r1 0 gt and
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
470 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
471 0/Function load FunEval sc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
472
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
473
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
474
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
475
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
476 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
477 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
478 dx 0 r1 360 0 arcn
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
479 xmin ymin moveto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
480 xmax ymin lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
481 xmax ymax lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
482 xmin ymax lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
483 xmin ymin lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
484 eofill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
485 }
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
486 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
487 r1 0 gt{0 0 r1 0 360 arc fill}if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
488 }
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
489 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
490
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
491
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
492
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
493
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
494 0 r1 xmin abs r1 add neg r1 shp
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
495 }
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
496 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
497
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
498
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
499 r2 r1 gt{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
500
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
501 0 r1
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
502 r1 neg r2 r1 sub div dx mul
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
503 0
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
504 shp
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
505 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
506
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
507
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
508
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
509 0 r1 calcmaxs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
510 dup
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
511
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
512 r2 add dx mul dx r1 r2 sub sub div
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
513 neg
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
514 exch 1 index
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
515 abs exch sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
516 shp
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
517 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
518 }
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
519 }sh3tp get exec
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
520 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
521 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
522
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
523 /d0 0 store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
524 /r0 r1 store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
525 /di dx Nsteps div store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
526 /ri r2 r1 sub Nsteps div store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
527 /Function load
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
528 0 1 Nsteps
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
529 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
530 1 index FunEval sc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
531 d0 di add r0 ri add d0 r0 shp
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
532 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
533
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
534 d0 0 r0 a1 a0 arc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
535 d0 di add 0 r0 ri add a0 a1 arcn
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
536 fill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
537
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
538
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
539 d0 0 r0 a0 a1 arc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
540 d0 di add 0 r0 ri add a1 a0 arcn
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
541 fill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
542 }pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
543
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
544
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
545 /d0 d0 di add store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
546 /r0 r0 ri add store
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
547 }for
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
548 pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
549
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
550 currentdict/Extend known
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
551 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
552 /Extend load 1 get r2 0 gt and
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
553 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
554 Nsteps/Function load FunEval sc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
555
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
556
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
557
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
558
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
559 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
560 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
561 dx 0 r2 0 360 arc fill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
562 }
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
563 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
564 dx 0 r2 360 0 arcn
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
565 xmin ymin moveto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
566 xmax ymin lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
567 xmax ymax lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
568 xmin ymax lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
569 xmin ymin lineto
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
570 eofill
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
571 }
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
572 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
573
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
574
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
575 xmax abs r1 add r1 dx r1 shp
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
576 }
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
577 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
578
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
579 r2 r1 gt{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
580
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
581
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
582
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
583 calcmaxs dup
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
584
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
585 r1 add dx mul dx r2 r1 sub sub div
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
586 exch 1 index
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
587 exch sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
588 dx r2
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
589 shp
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
590 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
591
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
592 r1 neg r2 r1 sub div dx mul
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
593 0
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
594 dx
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
595 r2
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
596 shp
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
597 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
598 }
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
599 }
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
600 sh3tp get exec
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
601 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
602 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
603 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
604 /sh
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
605 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
606 begin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
607 /ShadingType load dup dup 2 eq exch 3 eq or
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
608 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
609 gsave
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
610 newpath
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
611 /ColorSpace load scs
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
612 currentdict/BBox known
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
613 {
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
614 /BBox load aload pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
615 2 index sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
616 3 index
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
617 3 -1 roll exch sub
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
618 exch rectclip
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
619 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
620 2 eq
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
621 {sh2}{sh3}ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
622 grestore
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
623 }{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
624
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
625 pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
626 (DEBUG: shading type unimplemented\n)print flush
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
627 }ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
628 end
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
629 }bd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
630 {restore}if not dup{save exch}if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
631 L3?{
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
632 /sh/shfill ld
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
633 /csq/clipsave ld
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
634 /csQ/cliprestore ld
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
635 }if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
636 {restore}if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
637 end
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
638 setpacking
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
639 %%EndFile
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
640 %%EndProlog
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
641 %%BeginSetup
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
642 %%EndSetup
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
643 %%Page: 1 1
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
644 %%PageBoundingBox: 0 0 590 167
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
645 %%BeginPageSetup
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
646 cg_md begin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
647 bp
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
648 sdmtx
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
649 %RBIBeginFontSubset: Helvetica
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
650 %!FontType1-1.0: Helvetica 1.0000.0.0000
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
651 14 dict begin/FontName /Helvetica def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
652 /PaintType 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
653 /Encoding 256 array 0 1 255{1 index exch/.notdef put}for
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
654 dup 33 /space put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
655 dup 34 /i put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
656 dup 35 /f put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
657 dup 36 /parenleft put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
658 dup 37 /exclam put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
659 dup 38 /T put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
660 dup 39 /A put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
661 dup 40 /R put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
662 dup 41 /G put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
663 dup 42 /E put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
664 dup 43 /underscore put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
665 dup 44 /six put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
666 dup 45 /four put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
667 dup 46 /B put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
668 dup 47 /I put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
669 dup 48 /parenright put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
670 dup 49 /braceleft put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
671 dup 50 /a put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
672 dup 51 /t put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
673 dup 52 /r put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
674 dup 53 /s put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
675 dup 54 /equal put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
676 dup 55 /b put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
677 dup 56 /u put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
678 dup 57 /l put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
679 dup 58 /d put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
680 dup 59 /e put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
681 dup 60 /g put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
682 dup 61 /n put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
683 dup 62 /fi put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
684 dup 63 /quotedbl put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
685 dup 64 /c put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
686 dup 65 /comma put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
687 dup 66 /N put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
688 dup 67 /U put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
689 dup 68 /L put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
690 dup 69 /semicolon put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
691 dup 70 /p put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
692 dup 71 /braceright put
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
693 readonly def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
694 42/FontType resourcestatus{pop pop false}{true}ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
695 %APLsfntBegin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
696 {currentfile 0(%APLsfntEnd\n)/SubFileDecode filter flushfile}if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
697 /FontType 42 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
698 /FontMatrix matrix def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
699 /FontBBox[2048 -1947 1 index div -985 2 index div 2961 3 index div 2297 5 -1 roll div]cvx def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
700 /sfnts [<
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
701 74727565000900000000000063767420000000000000009C0000036C6670676D000000000000040800000A1D676C79660000000000000E2800001CAC686561640000000000002AD400000036686865610000000000002B0C00000024686D74780000000000002B30000000A06C6F63610000000000002BD0000000526D6178700000000000002C2400000020707265700000000000002C44000003CF05C0001005BD00280580001A042F001F0000FFD90000FFDA0000FFD9FE55FFE605C70010FE6DFFF1033B000000B9000000B902FE3F3C00C0008D009B00AF000600A800C00028005E009800C9016A00B9015C00B400D6011E002E0080000400B8004C00CC01FFFFD1006600A400AF007400C2009500B1000C0028006D0015004C008E0125FF7A000C0040004C00620084FFA200240038008600BD0039005E008E00EDFFA9FFB300400052005500AA00AB00C200CB012302B10413FFAEFFE4000800510074008400AA00D1FF4CFFAF0012002C004200500051008400BE012503DAFF680018003B0098009C009F00A100C100EC018201B4FF68FF76FFD0FFE100020018001C00530053007D01B401E103AF0486FF9CFFEAFFFE001F0028002A00520060009300A300AA00AF00AF00C001000145016B0174019301950240028202B404850517FEFD00060029004700470048006F008800B400B900C400F200F901EF02180310037403C5FF35FFF3000B004B004C0052005500650076007600870087008E00AB00BB0106013001430150017D0194019501D3022A025502580277027802E6034E035C037903D3047304B2058C0598060BFEF5FFBBFFC7FFD50017001D005B0072007E009C00C200D000F400FA01030106011C0125013B0142015E015E0180019B02B901A101B9025001C001D002AA01DF01E301EF01FB0205020C0215022B0274029302AB02C202CE03690395039903DF03F5043E050205A105E5062507DBFE62FE89FECEFF3BFFE1FFF800030008002100390042004E005F0061006F00700034007F008E00AD00AD00AF00BD00C400C500C900C900C900E3011C00ED00F800F901000112011A0132014D014D014E014F01660169019E01BA01BA01BE01E301EF01F602000200020902110217021C02530262026D028002D50280031B032A034A035A03AF03AF03C803D603FB03FB04050413041504470449008C046D049A049A04A604A804B204CF0539053E054E055605800589058C036305D105D6067E068E06B206EF06F00728074C076F078C00B400C900C000C10000000000000000000000000004012400AF0032006E0063014401620096014301A10161008A00740064018801EF01700028FF5D037E0347023000AA00BE007B0062009A007D0089035C00A1FFD803AA00D70093006C0000008000A70442001D0597001D00820030002A
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
702 002A002A002A002A40292A292827262524232221201F1E1D1C1B1A191817161514131211100D0C0B0A090807060504030201002C4523466020B02660B004262348482D2C452346236120B02661B004262348482D2C45234660B0206120B04660B004262348482D2C4523462361B0206020B02661B02061B004262348482D2C45234660B0406120B06660B004262348482D2C4523462361B0406020B02661B04061B004262348482D2C0110203C003C2D2C20452320B0CD442320B8015A51582320B08D44235920B0ED51582320B04D44235920B09051582320B00D44235921212D2C20204518684420B001602045B04676688A4560442D2C01B9400000000A2D2C00B9000040000B2D2C2045B00043617D6818B0004360442D2C45B01A234445B01923442D2C2045B00325456164B050515845441B2121592D2C20B0032552582359212D2C69B04061B0008B0C6423648BB8400062600C642364615C58B0036159B002602D2C45B0112BB0172344B0177AE5182D2C45B0112BB01723442D2C45B0112BB017458CB0172344B0177AE5182D2CB002254661658A46B040608B482D2CB0022546608A46B040618C482D2C4B53205C58B002855958B00185592D2C20B0032545B019236A4445B01A23444565234520B00325606A20B009234223688A6A606120B0005258B21A401A4523614459B0005058B219401945236144592D2CB9187E3B210B2D2CB92D412D410B2D2CB93B21187E0B2D2CB93B21E7830B2D2CB92D41D2C00B2D2CB9187EC4E00B2D2C4B525845441B2121592D2C0120B003252349B04060B0206320B000525823B002253823B002256538008A63381B212121212159012D2C456920B00943B0022660B00325B005254961B0805358B21940194523616844B21A401A4523606A44B209191A45652345604259B00943608A103A2D2C01B005251023208AF500B0016023EDEC2D2C01B005251023208AF500B0016123EDEC2D2C01B0062510F500EDEC2D2C20B001600110203C003C2D2C20B001610110203C003C2D2C764520B003254523616818236860442D2C7645B00325452361682318456860442D2C7645B0032545616823452361442D2C4569B014B0324B505821B0205961442DB8002B2C4BB800095058B101018E59B801FF85B800441DB9000900035F5E2DB8002C2C2020456944B001602DB8002D2CB8002C2A212DB8002E2C2046B003254652582359208A208A49648A204620686164B004254620686164525823658A592F20B00053586920B000545821B040591B6920B000545821B0406559593A2DB8002F2C2046B00425465258238A592046206A6164B0042546206A61645258238A592FFD2DB800302C4B20B0032650585158B080441BB04044591B21212045B0C05058B0C0441B2159592DB800312C2020456944B0016020
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
703 20457D691844B001602DB800322CB800312A2DB800332C4B20B003265358B0801BB040598A8A20B0032653582321B0C08A8A1B8A235920B0032653582321B801008A8A1B8A235920B0032653582321B801408A8A1B8A235920B80003265358B0032545B8018050582321B8018023211BB003254523212321591B2159442DB800342C4B535845441B2121592DB800352C4BB800095058B101018E59B801FF85B800441DB9000900035F5E2DB800362C2020456944B001602DB800372CB800362A212DB800382C2046B003254652582359208A208A49648A204620686164B004254620686164525823658A592F20B00053586920B000545821B040591B6920B000545821B0406559593A2DB800392C2046B00425465258238A592046206A6164B0042546206A61645258238A592FFD2DB8003A2C4B20B0032650585158B080441BB04044591B21212045B0C05058B0C0441B2159592DB8003B2C2020456944B001602020457D691844B001602DB8003C2CB8003B2A2DB8003D2C4B20B003265358B0801BB040598A8A20B0032653582321B0C08A8A1B8A235920B0032653582321B801008A8A1B8A235920B0032653582321B801408A8A1B8A235920B80003265358B0032545B8018050582321B8018023211BB003254523212321591B2159442DB8003E2C4B535845441B2121592DB8003F2C4BB800095058B101018E59B801FF85B800441DB9000900035F5E2DB800402C2020456944B001602DB800412CB800402A212DB800422C2046B003254652582359208A208A49648A204620686164B004254620686164525823658A592F20B00053586920B000545821B040591B6920B000545821B0406559593A2DB800432C2046B00425465258238A592046206A6164B0042546206A61645258238A592FFD2DB800442C4B20B0032650585158B080441BB04044591B21212045B0C05058B0C0441B2159592DB800452C2020456944B001602020457D691844B001602DB800462CB800452A2DB800472C4B20B003265358B0801BB040598A8A20B0032653582321B0C08A8A1B8A235920B0032653582321B801008A8A1B8A235920B0032653582321B801408A8A1B8A235920B80003265358B0032545B8018050582321B8018023211BB003254523212321591B2159442DB800482C4B535845441B2121592DB800492C4BB800095058B101018E59B801FF85B800441DB9000900035F5E2DB8004A2C2020456944B001602DB8004B2CB8004A2A212DB8004C2C2046B003254652582359208A208A49648A204620686164B004254620686164525823658A592F20B00053586920B000545821B040591B6920B000545821B0406559593A2DB8004D2C2046B00425465258238A592046206A6164B0042546206A61645258238A592FFD2DB8004E2C4B20B0032650585158
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
704 B080441BB04044591B21212045B0C05058B0C0441B2159592DB8004F2C2020456944B001602020457D691844B001602DB800502CB8004F2A2DB800512C4B20B003265358B0801BB040598A8A20B0032653582321B0C08A8A1B8A235920B0032653582321B801008A8A1B8A235920B0032653582321B801408A8A1B8A235920B80003265358B0032545B8018050582321B8018023211BB003254523212321591B2159442DB800522C4B535845441B2121592DB800532C4BB800095058B101018E59B801FF85B800441DB9000900035F5E2DB800542C2020456944B001602DB800552CB800542A212DB800562C2046B003254652582359208A208A49648A204620686164B004254620686164525823658A592F20B00053586920B000545821B040591B6920B000545821B0406559593A2DB800572C2046B00425465258238A592046206A6164B0042546206A61645258238A592FFD2DB800582C4B20B0032650585158B080441BB04044591B21212045B0C05058B0C0441B2159592DB800592C2020456944B001602020457D691844B001602DB8005A2CB800592A2DB8005B2C4B20B003265358B0401BB000598A8A20B0032653582321B0808A8A1B8A235920B0032653582321B800C08A8A1B8A235920B0032653582321B801008A8A1B8A235920B0032653582321B801408A8A1B8A235920B80003265358B0032545B8018050582321B8018023211BB003254523212321591B2159442DB8005C2C4B535845441B2121592D00000000020042000004D005BD00030007003FB800532BB800082FB800092FB8000810B80000D0B800002FB8000910B80003DCB80004DCB8000010B80007DC00BA0007000000562BBA0002000500562B3031331121112711211142048EB8FCE205BDFA43B8044DFBB30000000200ED000001B805BD000500090034401B0000044F072A090A0B17171A07040301250600190A0B6421787C182B2B4EF44DC4FD3939C44E456544E6004D3FFDE63F313013331103230311331523EDCB316634C7C705BDFE1DFD84027CFCF6D0000200520371025E05BD000300070025401402069D040300002903042907190809FE21BB48182B2B4EF44DEDD6FD003F3CFD3C31300103230323032303025E1E791FA11D791F05BDFDB4024CFDB4024C0001008EFE5E026105D50014003E4009141109131617171A09BB019C00080014019C400E400080044C10191516F7216C5218B80732852B2B4EF44DED1ADD1AEDD4ED4E456544E6003F3F3130010207061110171613232E01272627263510373613025E9D2F475132937992462938160B5D3BBB05D5FECF90DBFEE1FEDEF094FEEAE47E6C94A8574F0128E7930125000000010044FE5E021705D500130036400C081100131517171A044C0F13BB019C00000009019C400908191415F7213F7B18
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
705 2B2B4EF44DEDD4EDDDED4E456544E6003F3F3130131237361110272603331E01171E011510070603479F2E46513293799A412630295E3BBAFE5E01368ED701210121F0940116F673657DF471FED8E895FEDE0000000100AAFED0018000DA000E002D401600230E0A64080A1017171A07340A640008190F6365182B4E10F44D3CFDED4E456544E6003F4DEDD4ED3130173637363534262723353315140607AA451C0F01026DD66076D10C552D2A070B07DACA77B415000000000200340000042F059C0002000D005C402209020A080D010202BE12060607020601050708030106070A02750B05EF030C070403B80117B501960D08AC0AB80158B3050F470E1076C418D4F5F43CFDE4003F3FF43CFD3C1139390111123911123939872E2B047D10C50F3130011109011121350133113315231102A5FE3501CEFD8C029098D3D301FB0289FD77FE05015EB0038EFC5F9DFEA20000000002004DFFDB0423059E001B002700A94039771A0117082508271958198600870188090747080A212721350E0E1403C707351B052735140D032902811E38116F170A023C0A2431172947281076C418D4FD397C4B52787A2F1810F5EDF4ED003FED3FEDED12392FED11123931304379403425261C200F1600060526200F1E280126152428001C131E2801060003280104031F1021280125162728001D1227280004010728012B2B2B2B01103C2B2B2B2B2B81818181015D005D001615232627262322020336373633320415140223220011103712211236353426232206151416330347BDB21023418497B20A3E5E566AB4010CFEEBC9FEDC417D014C818D7EA674AF9F8D059EF98455305AFEE9FEFC5B2D28E6E4C3FED301310169010BBA0164FADDBF826EC79A9B88B90000000200E3FED001B80421000F00130039401D00230F0A6408132A1006080A1517171A0734120A641000081914787C182B4E10F44D3C3CFD3CED4E456544E6003F3F4DED10EDD4ED31301736373635342627233533151407060711331523E3461B0E01016DD51F3482D5D5D10D502A3205070CDACA6B4876170551DA000002005C00DE046F03360003000700274015012000CD07200604001A0907021908095C213F52182B2B4EF43C10F63C002F4DEDFDFD31300115213501152135046FFBED0413FBED0336A8A8FE53ABAB000003001E0000053D05BD0002000A000B00DA40504801580168010388039704980AA90AB809B80A06280A010007060601020809090102080A000705018C01030420140A0A251209090114050525120606010B0B0503090A040605010B02010300021E0708B80159400904030206090A030508B801A840120D0D17171A059E019E0A190C0DA1218C5E182B2B194EF4184DFDFD194E456544E6464418003F173C3F3C4DFD3CFD3C11393F011112393912393911392F
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
706 872E2B7D104B5158B004C01BB004C459872E182B7D104B5158B003C01BB003C4592B1112393912393987103C3C07103C3C3130015D5D005D010B01133301230321032301038EDFED85E10215DA95FDBB9FCC0290025A0289FD770363FA4301B8FE4805BD000300970000050405BD000A00150028008240385A0D5A116A026A0D6A117A02772107490D4811021D081F0F041F131E000027081E17020B1E270804311B690F31231A2A091525281619292AB8015FB3217666182B2B4EF43C4DFD3C4E10F64DEDF4ED003FFD3FED12392FFD3901111239313043794012181A0508192506260718042B01051A082B01002B012B2B2B8181015D5D013237363534272623211101323736353427262321110321201716151407060716171615140706290102C47E466E754282FE9D01ADB74E318F4C7DFE75C3027701026D404F294D7138635985FEDEFD93035023378F90321CFE39FD5A6A435FA03A1FFDFB05139A5B778B592F272B3660A98E73AC000200AF000004ED05BD000B000C004E4024071E04040B031E01000209081E0A0B080C020C0C02000669023B091A0E03082500190D0EB8010BB3219589182B2B4EF44DFD3C4E10F64DF4E41112392F003F3F3CFD3C3F3CED12392FFD313013211521112115211121152101AF042FFC93032BFCD5037CFBC2021F05BDB4FE42AAFE0EAF05BD00000000020063FFD905A105E50022002300D1403E1B0686018502031D011F058601891CB6200540080F04151603106D167E16020F16110D04862210111E13121215073A220315080D3A1A0923022323031E12B8014B4010030431033B1025131A250A311E192425B80167B3216A70182B2B4EF44DED4E10F64DEDF4FD10ED1112392F003F3FED3F3FED12392F3CFD3C10ED111239395D0111123939123931304379402C1B21000C1C25202601250C1B0A320008210A32000600043201020305040B1D0D3200091F0732010502073201002B2B2B01103C103C2B2B2B2B2B2B81815D015D00171613232E01232200111012213224132135211123270607062320272611103736212703E697DB31C524E2ACCCFEE9E60104C7010503FE3402858030654E83CAFEFBBCCDC8BE012E2105E35073FEE0A193FECEFED1FEFAFEB7E70102A5FCEEBD6F2B4AA9D401720171DAD0020000000100C90000019205BD00030017B8002B2BBA00010000002E2B00B800002FB800022F303113331123C9C9C905BDFA430001009C0000044B05BD000500314013000203021E040508031A070102250500190607B80153B321765E182B2B4EF43C4DFD3C4E10E6003F3C4DFD3C3F31301333112115219CC702E8FC5105BDFAF2AF0002009C0000052A05BD0009000A007640143701380602070117012701470158020507010202B8019B4017120606070207080301020806080A030A0A
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
707 010608020302B8019BB505041A0C0708B8019B400A0900190B0CA0217670182B2B4EF43C4DFD3C4E10F63C4DFD3C11123939392F003F3F3C3F3C12393904872E2B877DC53130005D015D13330111331123011123019CEB02E6BDDFFD0FBE023A05BDFB5A04A6FA4304A5FB5B05BD0000000200B40000057805BD0009002700944012070D49014805590158056905641478050816BB01300119001B011C40422321202660127112751403121E1F141C1503211E161404261224251E0009091B071E0B02261C1B082025151F251603310F691B1A29082625270A192829D6219566182B2B4EF43C4DFD3C4E10F64DF4EDD4EDD4ED003F3C3C3FFD12392F3CFD3C3911173901111239391239395D1112392B3130015D013236353427262321110321321716151406071E011F011617161715232E012F012627262321112303478CA3723D66FE1AC702A8A86DCF6D6256570507030B122EF40A0C040C0764397AFE3BC7031C70929D391EFE0A02A1315EFD84A833237280C55429461421133C56F590311BFD8A00010021000004C905BD00070034401A01061E00070204080917171A00FB0203250504FB0619088C5E182B4E10F44DF43CFD3CF44E456544E6003F3F3C4DFD3C3130011521112311213504C9FE11CAFE1105BDAFFAF2050EAF000000000200AAFFD9052F05BD00150016003C4023170527053810030A0002053A1009160316161409250C1A18012514191718A0219570182B2B4EF44DED4E10F64DED12392F003F3FED3F3C5D3130011114171633323736351133111007022120032619012101743C59D3FD5B31CA4986FE8CFE8C8549024305BDFC74A06AA0AD5E9F038CFCC7FEF192FEF6010A92010F033900010000FF000473FF650003000FB50146000205003C103C002FED3130113521150473FF0065650000030052FFDC04470449000F003B003C00DD40382A30010A100B1B0C1C2733481069096A10073908120C09031B320724091D100C1D3B2B022E293BB73B023B322A2512100705081C2722171CB8018A4023171D1F07271D2E0B021D350B3C073C3C1C1407292AA8241A3E1B291C4A0F2738193D3EBC0197002100B9019600182B2B4EF44DEDF4ED4E10F64DE4FDC412392F003F3FED3FED3FEDED1239111217395D1112392EED2EED01111239111739313043794028363715220001192501360F2100181E1B21001620142101212200370221001A1D1721011521172101002B2B2B01103C2B2B2B2B818181005D015D2416333237363D010E010F0106070615013637363534262322070607233E01333217161511141633323637150E0123222726270E012322263534363713010E724E5F59962168326D62315301B43E150C837A8D3B210AA805F7A3BD767517250C1E112A2C265D2A160937CE7C95BDBA978ACF5A2C49A691151C
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
708 060E0D1C2F67016C082C182D5C534C2A53C69B484898FD971C220303850C06422340486AB58895A41301E40000020076FFDE042505C20011001E0070402EA607A71CD71C0322080F1E02050000171D0507110A1E1D0B0B1427081A201A2E102E01290011191F208721BD5D182B2B4EF43C4DFDE4E44E10F64DED003FED3F3FED3F113911393130437940181216060A1606142601120A142601150717260113091E26002B2B012B2B8181005D1333113E01333212111402232227262715232436353426232206151417163376AF3BA460C8F9F6DA7A543239A6026691918D7BB92647C205C2FDEB4D51FEEDFEF4FEFEB03B234D897DE8BEA9DEB6D1975EB100000002003BFFE103D0044E001A001B00A7402FA719019818A808AA18034A08119B14030314061D1A070D1D140B1B071B1B1710271201032702111A1D0A2717191C1DB80107B321727D182B2B4EF44DED4E10F63C4DED3939ED12392F003F3FED3FED12392F10ED313043794034001908250C150A26000E1310260112110F1007190A26000500032101010204030B160D26000F120D2600091806260104010621012B2B2B2B01103C103C2B2B103C103C2B2B2B81005D015D001617232E012322070615141633323637330E01232202351000330702D6E317AF10727EAC4A308892708319AF1EF0BBD2FA0112D41C044EB0D76383A86DA0A1DC8977D5C50133E6011A013A0500020038FFDA03ED05C2000B001D00774032370E470E570EA704A91B05250814020F1D1000081D1D07130A021D170B052E132E102911121A1F0B271A191E1F87217242182B2B4EF44DED4E10F63C4DFDE4E4003FED3F3FED3F1139113931304379401A181C090A000101180B2600091C0B260000190226000A1B0826012B2B012B2B818181005D1216333236353426232206150017161711331123350E0123220035341233F692A17DA1A67A88A9018A53303DADA23FAC6FB3FEFAEFDE015FE8D7C9CBC3D0CA0237341E4B021DFA3E956358012DFAEA015700030048FFDA041A0449001C00240025010C40799708991AA71F03050E020F0514150E120F1514400C401408291A014B0BB603C701C603C71BD808D909D61FD823E817E8230BC711C712025C080521240F9A161D243906070716211D1C070A1D160B2507971CA71CB71CD71C0425160F251C05190A0C07110E270F1D27051A27242E072719192627D421A65D182B2B4EF44DFDE44E10F64DEDD4FD391239391112393912392F5D003F3FED3FED12392F3CFD3C10ED1112393130437940460023040503050205010504061F26111012101310141004060C25221B24260020001D26011E1D09170726000B150E26010D0E231A2126011E0521260108180A26000D100A2600002B2B2B2B01103C2B2B103C2B2B2B2A2B2A8101715D00715D5D001617161716
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
709 15211E013332373637330E01070607062322001110003301262726232206070102B4D638361210FCEF0590978D543014B1074F3152794152C8FEEA0118E2011F0B284AAD7CA805012304476B55516C4AA2A3C55D36473B912E501C100123010601020142FE26754682B38A01DC0000000001001C0000021705D20017004D402B071D060A1D03010F1439160D06120A1917171A0E0D1129171207120F0E1F0E020EFC14191819FC21677E182B2B4EF44DFD5D39C42F3CFD3C104E456544E6003F3F3C4DFD3C3FEDD4ED313012373633321617152E012322061533152311231123353335B5233FB41124171C190B5220B2B4B295950542345C0202A4020155AE8EFC64039C8EA800000003003DFE3B03E80449001F002D002E00B7404D36144908490958085909880CA91BA81DA927A62BB91B0B4008031622290EC40A221D1F070406291D190A121D0A0F2E072E2E051C032E162E2D29051A300C0E270D3E26271C192F3087217242182B2B4EF44DEDF4ED394E10F64DFDE4F51112392F003F3FED3FED3F3FED10ED1112393931304379402C23281A1E0B1124251026231E262600281A262600110B0E21000F0E0C0D251D222601271B2926000F0C122100002B2B2B01103C103C2B2B2B2B2B818181005D00171617353311140706212226273316171633323736270E0123222411100033002623220706151416333237363501027C5E3335A63C70FEC9ADEC0EB70D273D83CF40260336987DAEFEFB0107BA0144A47FBE4625937CC24F2CFED104423E234387FC32CC76DA9BA548273C9256DD5250F7011D010D012EFEA1C0B25F9AB5BDAF6384022D0000000200840000013B05BD000300070036401C07E50400010006030A0917171A06010229070300190809AA216242182B2B4EF43C4DC4FD3CC44E456544E6003F3F3C3F4DED3130133311231133152384B7B7B7B7042AFBD605BDCC0000000100890000013D05BD0003002940150000030A0517171A0102290003190405AA216242182B2B4EF43C4DFD3C4E456544E6003F3F31301333112389B4B405BDFA43000000020084000003ED04490019001A005E4031B706C706020406140627147606740705140C021418101D05070006180B0A1A071A1A000C29091A1C012E18291900191B1CB80106B3216242182B2B4EF43C4DFDE44E10F64DED12392F003F3F3C3F3FED1139390112393130005D015D1333153E01333217161511231134272623220706070E011511230184AB4CAA68E4502CB71D307E40294A382D1BB401A7042F985E529F57A2FD5102A3623C640D1642357169FDCF04490000020076FE5504250449000E00220074402CA908A717022808201C110E061D15070F060E1D1C0B220E0227181A240A2E102E2129220F1923248721BD5D182B2B4EF43C4DFDE4E44E10F64DED003F3FED
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
710 3F3FED1139123931304379401C161B00051A260426001B022601051602260101190E260003170626012B2B012B2B2B2B8181005D243635342726232207061514171633013315363736333212111007062322272627112302C6A72546BABB45252546BAFE2EAF36405B7BB6FEB7749A7952303BB479D3D2805CB1BB649A7C57A603B18E49283CFEE9FEFDFEA2965F351E49FDDD00000100890000029204470011004F40262703260D37034704040E0810020E0911090C270805070006110A081A13012E10291100191213B80145B321627E182B2B4EF43C4DFDE44E10E6003F3F4D3FC4FDC411123939011112393130005D1333153E0133321617152E0123220615112389AB15A46B05181D101B108892B4042FB9369B0203BE0302AF72FD980000020042FFD703B6044B002E002F012E408F38099805961299149815982A062824252736214621472447275624572766246726790C790D790E7623742474257426A61EA82C1303000B15052D042E13001A151B171C18152D142E280F0B6908262536250225220D0A042B1318C61C1D1307041D2E9A2B0B2F07090E100207002F212F1A1F18161827173E28260727281A310E1F27103E00272E193031B221A65D182B2B4EF44DEDF4FD394E10F64DFD3910F4FD3911123939392F111239113939003F3FEDED3FEDED111217397131304379404C012D022615251A26210E1F21000926072101032C002100052A0721011D121F21001B14182101200F22210021220E0D08270A21012625090A012D04210006290421001E111C210119161C2101002B2B2B2B103C103C2B103C103C2B012B2B2B2B2B2B2B2B2B81005D5D015D13161716333236353427262F01262726353436333217160723262726232206151417161F011617161514062322262701EF082544A864983D27738F894174DBB9F26B4302AA05263E99666945284E77C24269D9DEEFC70701B701505A3057575B4524161D24222A498198BC8E5A683D32474E40462A19131D2F2C45948FD0D9A002F900010017FFEF0209055A00180052B50D2E0AC00E01B8013F40250416391703060E0A111A17171A0301062900150E150F031F030203FC1619191AFC21677D182B2B4EF44DFD5D39C42F3CFD3C104E456544E6002F3F3F3C4DFD3CED10FDE431301333113315231114171633323637150E012322263511233533A8B6ABAB2615310D1E141F43277E5A9191055AFED593FD4538130B01028E0908816702C593000000020080FFE303DE044900170018005E403AB814C81402091308141913191428067703D707070800050E0A00060D0A051D120B180718180B160D2E0A290C0B1A1A01291619191AD2216242182B2B4EF44DED4E10F63C4DFDE41112392F003F3FED3F3F3C391112393130005D015D011114171633323736351133112337060706
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
711 2322272635112501381A3083BC4425B4AA0223346793E5532D01AF042FFD39523460A85A9D020EFBD19E3D2A5499528902D81A000001FFD5FE5E028005D700230072403E98069813A906A914A72105071317132713380A381F9614061F120C400D4D0C4D201F1F03162D15032D041315002517171A0316AE1A23910812C30C192425B80103B321DD33182B2B4EF44DF43CFD3CF43C4E456544E6003F3F4DFD10FD1239192F1AEDED181A011112393130005D015D05141617152E013D0134272627353637363D01343637150607061D01140706071617161501879C5DB2E9223EB0B13D22A3F8A1391F2543C1C04425059A830B7512ADC6CE6D3F731372156E3D72A3BCDC15720E80467C70965091121197538F000001002AFE5E02D505D70024008A404E960A960B9619A70AA60BA619A822073924011E05040302052024160F0E0D05121806020C0F041208211E191604131C40134D124D2024241C082D091C2D1B13090012C30E18910420AE1C08192526B80103B3213CA4182B2B4EF43C4DF43CFD3CF44E003F3F4DFD10FD1239192F1AEDED181A111217391112173901111217391217393130005D015D0027263D0134272627350417161D0114171617150607061D01140607353E013D0134373637018B43251F38A201025C3C223EB1B03F22E9B16B8E2544BF022E9050977084447A0E72158B59B4A3703E7113721275406BCECAA813750E8F8B9790529711000003001C0000037805D20017001B001F006140361BE51900071D060A1D03010F14391D160D061F110A2117171A1B1E29181F0E0D1129171207120F0E1F0E020EFC14192021D2216742182B2B4EF44DFD5D39C42F3CFD3C10D63CFD3C4E456544E6003F3C3F3C3C4DFD3C3FEDD4ED3FED01313012373633321617152E0123220615331523112311233533352535331507331123B5233FB41124171C190B5220B2B4B295950213B4B4B4B40542345C0202A4020155AE8EFC64039C8EA81FCCCCC7FBD6000000010000000000006B8BED625F0F3CF500110800000000005F4D8F0000000000C9C13CF7F865FC270B9108F9000000090001000000000000000100000629FE2900000C01F865FCED0B910001000000000000000000000000000000280512004202390000023900ED02D7005202AA008E02AA0044023900AA047300340473004D023900E304AC005C0556001E05560097055600AF06390063023900C90473009C05C7009C05C700B404E3002105C700AA0473000004730052047300760400003B04730038047300480239001C0473003D01C7008401C70089047300840473007602AA008904000042023900170473008002ACFFD502AC002A0400001C0000003400340064008C00D4011601480196022C026A0292031E03A203E6048E04A604CE052405AE05DC062406380702
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
712 076C07EE085A092409700A180A460A680AC40B360B7C0C5C0CAC0D060D760DF40E56000000010000002800920009006B0007000200100010005D000007E80A1D00040001B800532BB800492BB8003F2BB800352BB8002B2B4118008001A6009001A600A001A600030069018B0079018B0089018B0099018B00040089018B0099018B00A9018B00B9018BB2040840BA0179001A014A400B041F5414191F180A0B1FD2B80106B49E1FD918E3BB0119000D00E10119B20D0009410A01A0019F0064001F01A50025017A00480028019AB3296C1F60410A01A9007001A9008001A90003008001A9000101A9B21E321FBE012C00250401001F0126001E0401B61FE7312D1FE531B80201B21FC227B80401B21FC11EB80201400F1FC01D9E1FBF1D671FBE1D671FAB27B80401B21FAA29B80401B61FA91D6C1F931EB8019AB21F921DB80101B21F911DB80101B21F751DB80201B61F6D29961F6431B8019AB21F4C96B802ABB21F391DB80156400B1F3638211F351DE41F2F27B80801400B1F2D1D4C1F2A31CD1F241DB802ABB21F201EB8012540111F1C1D931F3A1D4C1F1E1D45273A1D4527BB01AA019B002A019BB2254A1FBA019B0025017AB349293896B8017BB348283125B8017A403648289629482725294C1F252946272729482756C80784075B07410732072B072807260721071B071408120810080E080C080A08080807B801ACB23F1F06BB01AB003F001F01ABB308060805B801AEB23F1F04BB01AD003F001F01ADB70804080208000814B8FFE0B40000010014B801ABB41000000100B801ABB606100000010006B801ADB300000100B801AD401F04000001000410000001001002000001000200000001000002010802004A00B0018DB806008516763F183F123E113946443E113946443E113946443E113946443E113946443E11394660443E11394660443E11394660442B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B18011DB0964B5358B0AA1D59B0324B5358B0FF1D592B2B2B2B2B2B2B2B182B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B74752B2B2B65422B2B4B5279B376706A66456523456023456560234560B08B766818B080622020B16A704565234520B003266062636820B003266165B070236544B06A234420B176664565234520B003266062636820B003266165B066236544B0762344B10066455458B166406544B27640764523614459B36242725D456523456023456560234560B089766818B080622020B172424565234520B003266062636820B003266165B042236544B072234420B1625D4565234520B003266062636820B003266165B05D236544B0622344B1005D455458B15D406544B262406245236144592B2B2B2B456953427374B8019A2045694B20B028
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
713 53B049515A58B020615944B801A6204569447500
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
714 00>] def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
715 /CharStrings 40 dict dup begin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
716 /.notdef 0 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
717 /space 1 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
718 /exclam 2 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
719 /quotedbl 3 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
720 /parenleft 4 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
721 /parenright 5 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
722 /comma 6 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
723 /four 7 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
724 /six 8 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
725 /semicolon 9 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
726 /equal 10 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
727 /A 11 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
728 /B 12 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
729 /E 13 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
730 /G 14 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
731 /I 15 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
732 /L 16 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
733 /N 17 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
734 /R 18 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
735 /T 19 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
736 /U 20 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
737 /underscore 21 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
738 /a 22 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
739 /b 23 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
740 /c 24 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
741 /d 25 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
742 /e 26 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
743 /f 27 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
744 /g 28 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
745 /i 29 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
746 /l 30 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
747 /n 31 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
748 /p 32 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
749 /r 33 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
750 /s 34 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
751 /t 35 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
752 /u 36 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
753 /braceleft 37 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
754 /braceright 38 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
755 /fi 39 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
756 end readonly def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
757 currentdict dup/FontName get exch definefont pop end
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
758 %APLsfntEnd
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
759 42/FontType resourcestatus{pop pop true}{false}ifelse
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
760 {currentfile 0(%APLT1End\n)/SubFileDecode filter flushfile}if
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
761 /FontType 1 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
762 /FontMatrix [ 0.00048828125 0 0 0.00048828125 0 0 ] def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
763 /FontBBox{-1947 -985 2961 2297}def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
764 /UniqueID 4257378 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
765 currentdict currentfile eexec
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
766 54544758EC884CF30C3CD503CEDBFF3839C47C3C3333173232E3FDBFF439491DB843E1924E63AA7726BBB0485AB56D93D8C0906F647A47162891E73FFC2A9873C4B1EAC5EEBDFFC4D06084FBD84139DF4583C6E259D10699944D1068C9C45667DCCCFB9B7EA01B606435EDCBD273ABAC093D14085CCBAC149BD7382E842CFE0D7FE4FD2EF589A2471F6074A80A8B675C2F7A50D63AC1EF90D787BADD11633CB01CF6EE3B37AAF9078A69AC4740E9B6525D78BBD839551A1CB80DB8682FA5E87591BBD6EE8B946063A2A58D9CA3685AB305495DC5FB5747EB8A9A059C4976C0FE4EEAB1D56FF47F1E9664ED9F4A7DAB763AF92B2F6CF2FA7DEC24710E0B9096E30F772BA7FEA9BDBE496C42ED2CEB58F54E80BDF57CE7B4DB6CCFE7182F43BF93CCA0767AF95D62C5D2C3DC6AE1E6D139F51A2C63432117F1714C5566572EE9967A715420ABDCD1D7BD74F8450B89965FCC81C6ACA565C5F3CCF91D430D1F953E4F1A645300A98DD8C47CD64555F08F422340A85404EAE0D3229C4F9336B9470CACBD6BBF3395104750A915CC6EAAC197668267B8C62D2764C8CD69FD937CA3C924D997A0EDE7964BEB9EA2F92EF70C5E5DA0AA5567765E71F2B911B3C5586B741EEB93F3C73016EC16BFF283758900903D203992EFC8BAFAF13579C602F38C94DF6C6C4CAA4D4724D5FBE8DE875B8787096CC4B940CDD1EB776B48720974CA44D863B501A56E0010915099D9EE0B5A694E8162ADBF9836250BACCB77DB13E16980885486883919330A746641657E0563FFF3F5162B06A9D7D5DB5CE0D50CF57E919C0EA9398C970605E91134D93151321BF9CFB68DE8766809269894A72D90DBFE87FEFC2B45ED50B5D408BD4B15D3FDA52F0167B666CE94E91D604AE8652355F64306877A5D5EE1B91329C0D2DB96B0C6FC3DF64A04E084461F40596B245F36746F2281E028B8A78FE588E1472C14ED42C6E7821FDB6B606E426C51490BE244F6CCEE762D20C2E8AD7EE856FC1AF4F83E8E69168192600B1384271BFEED8AF06A848F8C4424603C32538ADA3F6DEAEA868F70F770CC3FF1A87196DE0E428F217672D4884179319FF149F736D87E5495C86E7ED2E2F72F246A953CB442B8C28E32F333C97F36AD7403333396E8F9BCBE246AFCF5E689C076A487569EEE4AFC14A3F33EE89EBA74C8DFC16430BB7071EC6144E5192FC48C1D175CED20B5EAB73423E80227606F369B7F131B71830DEC6A7216663E985CB8E551897D6A8AEC1D85EE687CEE1E20E50D5221504CC0077EA2D2A0A28B9180D00EFDDD6A4828A587D201E9810C3D8B4484D453A1B5F3A121A1B674CC9DF496A721A200238F1DF91A7F7E4056E7F7486577091CE99C27C84C9AD98A6A3CAC8196F596FAB288D6C186077C748F4402E4D543A647614F4CA446063F6B91BDBDF7F8F4865B2CBE583DD18F
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
767 319B7CE1823A66185008528D8A483B5BFCCFB8778DB667D5F2843FB90755266DEBB4E1B25D44559AB2875D2E2918FEB1A61F321CA5360B0D4816A3A65B4C24C4950778462EA16B1DF3C3788983AF5E5685B53E9B76182AC10A4073270E3016E844C8BBC7EDF8F2328BDBA779E628008DADD903779DF6972E0B3D66C45E9DB7A8B09463857419117C10CAB638FD6712E90FA2C3F902F610BFFF547806E9E3CE8D920D53FF320251D1D36842CD9C6997E4F13A79C8F35F4C1C6A6DBB274CEA975F7A50EBFE5D940585DA77B851B0AF12A76F408FBD5664FC9647B871EC26ECC5528AD93FFA9C91600DE777EE54D877D4D2E217807CECB8EAC78DBCD1A48F87255022ADFB3D76BCAD5D8D6A7501B78B2821AB30D01D78B0A28C85E3F385CC2F0DBE74980C9B9F697DEBE1DF3988ED2E4222E6F4382B74E60984C8BAEB9C7888B01D9C8A1114E8AE754947BBE33C36C2BC437155C3724887326FA1C7E519C8F3A4F50ED4F025414D82AB201D8B6160E71B865CFFFDCE8A0043B5D135D1EE330A93B2E5BB4C877399728E97BC122480FEA39A3CD471B9601F5F36B8B59F4BDCE7D5A55EE81C8E1AAC55D228B6A23DB25FA9E6D977AD28EB5B46B4C8DB026A5E995916A05F87E0DB5EE19F3FA38963ECFF71538CB5DF192D8390AD92B5C181CB22FBBB5B86078B95316C07F0D8A0E20FA817FB09C6BD85BB7FB381F447B40832B7E8C41431F4E66FC71350CD4AB6CBD060152047F6B7782232F27DE282B5DE1436D25D19DBF1172EFA1D2DB2F383FBC94B25CD5389DBB2B42358A6264C85CFC4066D102A400A05C058CB2112155D4C7D76FD0BFE3AB4C40CA07F6F2DDC2908229A98150D61F8EA69B9A51C15027A1F83E30E424945788F4DEEA06F1BC50EA58083540FD52F582BE81CF0A023206B8BA06544D99C2E8A931E609F10E28F55050D62914538293A6AD3AE5EF9331509DBF3619BD72C4B725AA54D0BCDB826BBA0422DCECC5C5FD1C22B46952DE547DF170504EF9A7CCBA157D646D9D7FC28F635F0B1F0EB4D6B3254AD4B008D3DBB1589760215BB18D555EB4584A32D99F1D26C8C85E25BBAF9390077CB061B8759BEFBB72596A7AABC6E96AD94CE606A9301AB0EF3B88CB15D3FB0AB3AB85AB1490A0FFCC8A2804E042F7777024461AF5EE53B41E0BD29836B1E518B24B6213CEFC495EC0154F6CEC6CCE8C4D9BBCB22F88EBD757902C2DBCA434E46C65FC3BF3710A5C64A442049D2B5756DD0C671084A4C9B1F46F64ECBA7E0FA5D8E99E8FD125FE51DC4F20ED9A8BD014F1B3423A74D7F733F5033CDFBA3EB8162C0DE5E65D84C6F323B5EA9E98D9A54551D49ACBAC37CE65FCE3C70FFA4A710CF82EF0F6C363762E967F0CB77DD58C29970DC86D6A3FC093AB982F4175E525DC9FF96CAE511250068159DF064E738477DF718E640AE141743E29AFF
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
768 3029BFE1BE6BD58876C7B86B3A7FF07D5EF242681F478DB65D5C1339FBC8165D9CF6184D05351B169E6DD2CCDCBDC6E3D3F833D5FE4A2698BEE2ECBDA131583292BDC9E267ED00C780F8DF5354E724367F3776F11DA3633B5E0CAC28702D7595C762FC9A61F0976876F99645DAFD38FC5EBA939C4DC602E1AF6977B614E1D62BFDB5064F864A30B8322A2986D8C5C0CF67B246F67663C671653E0F7AD47F857902CBDBEC1818D1D7FAB6304069B368F6FFB5831781D91BEC1AC5FC86DE53141B2FFECE5DE4B97FC65224FF9EFDCB0D05E611E50FC0F007FEF064A407C37620560FDFB1A8ED9E44A4440842A7A690711D68E10BC2C8661EE8E9C2F5484E44C8F5D0E0069A52EB444C0341849B9684236D5654A59DD84F959C1988EFFD77AE175ABA17D423CDA2F2556E99BE676F10CEC14E4DD9DADD847297B58C7E079F193C2177FD66A85B9B04CB3156777F98A9074778B6E84720AF0A7892F169183CFA63E383812E452C3C1967FFDA5485CB44D326B2180DD88C5D715EAAE8509A3B3285F4148CBD7B3E1961A21D7422E307D89AD385102B6AB479AD4AFD289BCFB0AF8452D63A5FAB93198ABA4CF8057041472B5B410EB60A09A4BEBC7C8AB3B675BC2654C93912470B17EFF49A119B986FE4388DA57AA4B16FBC55D0D82C510075AFE7CC7CC9693BA757CB1E51232D5BAA1893DD200644D65FC9BCF7920C9F76237663AF49EE816E37BA5C0F4A8B227DF022D7276E2392EE83562C475F88545C3A29A717A620E5EC71A42D77BABC09E8C54CFF4AA77E0C3D4F57252C72FBE08977DF0784881371863874DA9B46C892BF87D6A8A08DED74A25D52B929F48B392735DECB820954B4313BE34112437C803CC0FCE006FDA6298DB550D7201DF03368EDB6B541B97C707147DEBDEAF3D561FA41264C52B6E005F4B7A4EAA726C3039954C858945FB2533BA84F602D1281935AA9AA18012417EA18B584C5C275FDA5058F3C1A30A0480BFE06C6D6DC4EC18368A3BEF016370C3598DDEE36DCEC0FC3E598F7182C23FADB6CEB4B2D204507BA3F79D64F2FD7C15BF56FD6E61B3994034ECF2A594D522D058682C3F08F13E459825A961DDC86FD48B21D2D8AFA007F9407B699128C3FDCB28DF4D506B723F15E187BEB5B733C5F0421E4DEC7BEAC8991EFBE430608CC36C1CFA80AB615F78B82C198F3107A4B812042136CFEE94BE61D85EF67557FD7C2A90B7DE7CD15BE5B222039E0CA88070EC214F384DDE70C0F42B89A420A6ECBFE86B6797C6A1B47F508589FB81268F3C8A74C603A553F7E971C8B6D21D22A152C6EE8E63E2B49508DB9DE6CAA879EA1430CAF23B8055A42205F0A31B2E0B0FC118A0B7FFACBC38905210A3B824B7CD650B2FC8A48745AD5EFC422C6E8A3BAA7FA20927218CF93BD367B244EC4467A6253919202D470B8ED49F88AE0477805
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
769 581D474559B94F0FC169B8C78E283B31A9B6DA2DE9C04623CDC23A70CCB9C7CF0F6CC8AFC55F1C1B6B563F0A0CFF6EF0B9338C92E887C9CBE3C1F4524AC738FE91CF21D7C629C2ACD11B46C70D9E490FFC41C96D861842D0CDB6E9F4BDB1E9A85F7FD9EDCAC214BB13243D75E571BBDC2B9B1C8C1B0EC214919CA36B68351355E53BF7A83BDA8ACD2B0D5AF970AF92F84AA63D926F15E4DBFDA2FDD2F7FDD333C4E4BB1A38BE4CE018BFB06DD815B1F5C56C566438E488A41C05B2413D9E60285FF56ED78595DF046C0D287A4CF4E56CFF65BE805C321108EEB9220329429AB826D732F6642C8E868359CE4FB8FDEE4590A17541B53A077658C05D1AF8D382946C921374A910DAFEDBFBF351A26FA38E1D51AD521DF919CD621479C9C34908B1EF5D0E59D8085DB272D7BFF761BA49B833B768456F26027263BFAFC44723FAE39B90054C5704F1F14DFB125A2318BC530DFC3F31EC47C77BC3E6F906650A3B0210ED2434010839893D52C7586B6DF2FDE7C0FCE86365E2573EDD24C5DFF8195373D297CA11E8EB998E10B24FE9A8C464F814B77B438C0A63E1228A3DA7B7F3F6473613E87A48554279DAA891064D40166430D8EF39AB8227CFFDFD20CB46AA7666CA96D8353AA19E0566EE6D072473E039B734E332A7016C35A0A63E49B9277EC1ACD242857F075AC715F356E7FDD0B861CB5AB7BB1BF5DAB83C701FCCB4762FCEAE7EC4D16B246EC4150FA7629F5D7AC93FEF59398ED503C4BF4875A623E90F0E87B5A894CB72363FB2633800D5D7A04519F49DBCFA6B05C6748FF181A49750150D834E447ECBFF5CC9AFE822DF3632D356E0EE7D37233CCF5D09E756E718B9D6A13D94B4B3ADC93192A938A4505568433A58E783C929D7CE3A20A104439B282FA75FD82E4DBD3F64098AF4599EE99C691BF4D772B888993B53697060D120575A51D3FEC4018DECA2018A50737325D3A74EA26DD4BA8A6C9259E31043383BAE2E58CF6E607C7441D64FC8F4A1B85788157245E43F11416503FE105B66E440D5D616714D32BF651117817BF46E1B4302F7D31DB5B06311C1FF874BD81D7482128279802280431F6086AFF303C6A02D468F3682D7E68039C03D361E48BA960167174034A3065ADF04A88FECE4D219BDBA757EB15B0E51BF3BF6BAA32E08B3FC29BB6B9FB74C5C543AD5106278BD76608456652ED95AD10A76542C255908981709C57853C6AB71E3DEB985813E025774F07E8C441A52CDDFBC063B13D42BF69128158EA1A59FB3D186172CD08655954E3826D0BC22826E029ABE066935CB2260A34A0C3684ABC32DFB459BA85C542A1624CB0A93A2D62A76D1B2D826BD9EBF5E334D9D37220C594FE3EE45E74607DFA7322EA1B4CD10BE9521070D86F2F3AE5610BCA83A01DC8CD6C1BFA05D27136CB89B6CCE4ACCEA7D606CFA2356E10153905C
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
770 ADA73C437D1BA20C9FF516C9E9C98FF701E9DD20786E827DDDF800A4BCB0A83411FF84E941BBA88833268484F96B5AF1E22537B4323B2D57D7816CBBC2E70ED0B33528D2E481CA60A799182899B59AB07D36128720721D8D24AF46FC0D15B255BB8592908B1E7E3A168AAA330A11CDC09041EA1F73DBCE37E158BEA3922B44B2768D41437ECDC3560571A17C6FEA46E269C7D068D56FF1D87B4758BAD57DFF68A94FF449D558D0EA99FDFE5DF5A44947D6F0A25663ECD4AAC6143D262E1497B3E46402A4F47775F6ECD4DF1EF34396777AC5721342C8B478C018CD98DE339FB3505470B11B80ADB0DE98F3DB72C2CBE88E3C4664DF54B570E8DF125E6903E5763B91CB71F347A34CC3687A1621BDF46E64C2CEF3B41F14365BE1333AE13AE1C0DDE73E3BFA33DC4D250D8731B5B0200667ED3EC76C40CF34847E3F5A26EB039FBBC6D67B63E5432C0381B63305BB244821210204EB68698697EABC7F82A3E57EFFCF4C02FBFD8DFFD877657A9FB94372D8961D059C1CA3C8AE320AB58005C4039EAC32D6BEDB55F7DE5609FA3AE5F33C3C8ADDD66163F44CCC4106A1036F828B8FF2C7046A965C802BFE9D0D6F1CA02BD5FAC6C4098BB54BEB3F8519CD6D7EF150C5982BDD8C03E1ACB749A2E0D6B487227115317173DF0A39250C70BC4A8AB3BE04CA9F02A1A1CA9C18C60478D3539B101E9C1A4F55052A284A9800E4DC91B3556EC367F23C90B65335A00E19B0294F0D7074F63B215ACA63B2C1C4F3C5BC18BC25EA3AF9A06FC21218AB74CC8934F926179DCCF4847820499D1A388872FED96C396B4A996CB785AB08049B9CC2BE1F68F3EBF9270A00D4A450E56F5237726598464040DE8A130486FC2DFBF95B47D2E75A6E110F79D7185FF11C96421C505E457C7C82F0150905D871D2045CD48F993FB8DFBC3C1A2410F085A1CFB8960D7248AB572C9236D8DBECAE289490467717D5F62CC3295E30EA900FA7BC7038E6F4B660B1D4DF3F262414EC6476F17C48BBC565DD00DCBEB0C518E6C51780D6ED8206E6F376898835D40BA98CD5234C440E84238D85E3498EDF52159D4414807D6CA6A58EBA69D6B85743834B124C1214FBCA7ECB481A7166DA093B35084AE6475AF779A654C9541631F73F21B209EB966735AF8F0619171BE25FDE25B7D9058D84CC50739277532AD0303768494F7922A37A2DEB2A0A73F49E7B735FED86E73DB54ADE0A88022E3BDB37464D0AB99AEEE45411167BF02E4AFBA537F86A630F015CEF4A9D15DF8985BC02A2C2302837F186EF7186D86D54CB509D79C6C6F2B5B8DF7A1C80E99744E38786DEBA328CF4D1B057F6EE4F1A8F9AAF0D8FD974D8D120539983BA1DE958352D37AF9062199375AD2CD847554D9E38FC2E89E6A8B9B971CA23C598735349E6539D4AFBE4DA8B65E32F27793412DD260DB0237DA19CFF42AB
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
771 2E380FF13E997252F94D1C96CCC7B162EFB2A01D717C3315C5433BCBF65BD8BDE7E89A6BEA9D2D4E68996857560468DD400AE07C6ADD782658F964BE4F8D344A5378CBDF3A73ACB01F2F19960EF4A3C3BF306A8167CDDEB7050CD84A9A0762254AAF75DC3B86ED6646F331A3EFCBA321F4CEA4EADD5389C7F9902E4E441ED60A894DC2B71905659C860E694F0D8705DE54442B4F9B8475424D36ACEACEFEE0D346286B16FF8D34DF4E766606F4B00B065F447A790AF44C8D707355D788747762ACBD708CD79D2CD32D6A8414FD5CF18DDD5517AC9B583C44C367DCB3886D8BFCFA173C1B711150A97C9E87EA760C167F1AEF284D4E2DAAAC2BA4191EDC7D463D35419D7796EBA5A77513E4A4DC7F8C0C47EB99EA322C908BCF8BCD20ABFCF919A81BF2693E847BBD1125CF6CB06A43D046DC80EC06EFE1B1028373AB4D27A5FAC17C4775C3404D77ED1C193E5D1BFDB2F1E044B701E8D4D981A128D1F7975C487C14E23E74C6DC830F99E0ACD8A08ABDF711150A035CB3F645BB126C244A46B510E5C889E90180A79B67EA5D309C45458F1CBD6E14CA2A7A2D0AE70D7AC29386F9A0DEF6B6F231E977C7BD59C7708E69C38DDDC6B9555BDE276BAEA3E9A9
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
772 0000000000000000000000000000000000000000000000000000000000000000
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
773 0000000000000000000000000000000000000000000000000000000000000000
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
774 0000000000000000000000000000000000000000000000000000000000000000
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
775 0000000000000000000000000000000000000000000000000000000000000000
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
776 0000000000000000000000000000000000000000000000000000000000000000
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
777 0000000000000000000000000000000000000000000000000000000000000000
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
778 0000000000000000000000000000000000000000000000000000000000000000
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
779 0000000000000000000000000000000000000000000000000000000000000000
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
780 cleartomark end
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
781 %APLT1End
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
782 %RBIEndFontSubset
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
783 /Helvetica cguidfix
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
784 /F1.1/Helvetica renmfont
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
785 [ /CIEBasedABC 4 dict dup begin
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
786 /WhitePoint [ 0.9505 1.0000 1.0891 ] def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
787 /DecodeABC [ { 1.8008 exp } bind { 1.8008 exp } bind { 1.8008 exp } bind ] def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
788 /MatrixABC [ 0.4295 0.2318 0.0204 0.3278 0.6722 0.1111 0.1933 0.0960 0.9578 ] def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
789 /RangeLMN [ 0.0 0.9505 0.0 1.0000 0.0 1.0891 ] def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
790 end ] /Cs1 exch/ColorSpace dr pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
791 [ /CIEBasedA 5 dict dup begin /WhitePoint [ 0.9505 1.0000 1.0891 ] def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
792 /DecodeA { { 1.8008 exp } bind exec} bind
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
793 def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
794 /MatrixA [ 0.9642 1.0000 0.8249 ] def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
795 /RangeLMN [ 0.0 2.0000 0.0 2.0000 0.0 2.0000 ] def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
796 /DecodeLMN [ { 0.9857 mul} bind { 1.0000 mul} bind { 1.3202 mul} bind ] def
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
797 end ] /Cs2 exch/ColorSpace dr pop
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
798 %%EndPageSetup
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
799 0.60000002 i
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
800 /Cs1 SC
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
801 1 1 1 sc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
802 q
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
803 0 0 589.5 166.5 rc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
804 -93.499825 403.50616 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
805 745.00018 403.50616 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
806 745.00018 -770.99384 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
807 -93.499825 -770.99384 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
808 h
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
809 -93.499825 403.50616 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
810 f
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
811 31.5 148.5 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
812 558 148.5 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
813 565.45581 148.5 571.5 142.45584 571.5 135 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
814 571.5 31.5 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
815 571.5 24.044151 565.45581 18 558 18 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
816 31.5 18 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
817 24.044151 18 18 24.044151 18 31.5 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
818 18 31.5 18 31.5 18 31.5 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
819 18 135 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
820 18 142.45584 24.044151 148.5 31.5 148.5 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
821 h
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
822 31.5 148.5 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
823 f
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
824 4 w
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
825 1 J
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
826 1 j
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
827 0 0 0 sc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
828 1.5 0 0 -1.5 -93 403.5 cm
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
829 83 170 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
830 434 170 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
831 438.97055 170 443 174.02943 443 179 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
832 443 248 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
833 443 252.97057 438.97055 257 434 257 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
834 83 257 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
835 78.029434 257 74 252.97057 74 248 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
836 74 248 74 248 74 248 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
837 74 179 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
838 74 174.02943 78.029434 170 83 170 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
839 h
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
840 83 170 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
841 S
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
842 2 w
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
843 1 1 1 sc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
844 83 170 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
845 434 170 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
846 438.97055 170 443 174.02943 443 179 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
847 443 248 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
848 443 252.97057 438.97055 257 434 257 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
849 83 257 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
850 78.029434 257 74 252.97057 74 248 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
851 74 248 74 248 74 248 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
852 74 179 l
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
853 74 174.02943 78.029434 170 83 170 c
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
854 h
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
855 83 170 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
856 S
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
857 /Cs2 SC
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
858 0 sc
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
859 0 i
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
860 1.5 0 0 -1.5 294.75 83.25 cm
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
861 /F1.1[ 12 0 0 -12 0 0]sf
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
862 -179.5 -18.5 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
863 (!!!!!!"#$%&'\(\)*&+,-./&0!1)[ 3.333984 3.333984 3.333984 3.333984 3.333984 3.333984 2.666016 3.333984 3.996094 3.333984 6.445312 8.003906 8.666016 9.333984 8.003906 7.330078 6.673828 6.673828 6.673828 8.003906 3.333984 7.330078 3.996094 3.333984 0.000000 ] xS
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
864 -179.5 -4.5 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
865 (!!!!!!!!23345!6!78"9:+34;;+9"53!$<;3+":;=3">;4$?#253@299?0A!BCDD+&\(**0E)[ 3.333984 3.333984 3.333984 3.333984 3.333984 3.333984 3.333984 3.333984 6.673828 3.333984 3.333984 3.996094 6.000000 3.333984 7.007812 3.333984 6.673828 6.673828 2.666016 2.666016 6.673828 6.673828 3.333984 3.996094 6.673828 6.673828 6.673828 2.666016 2.666016 6.000000 3.333984 3.333984 3.996094 6.673828 6.673828 3.333984 6.673828 2.666016 6.673828 6.673828 6.673828 3.333984 2.666016 6.000000 6.673828 3.996094 3.996094 4.259766 3.333984 6.673828 6.000000 3.333984 6.000000 6.673828 2.666016 2.666016 4.259766 3.996094 3.333984 3.333984 8.666016 8.666016 6.673828 6.673828 6.673828 7.330078 8.666016 8.003906 8.003906 3.996094 0.000000 ] xS
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
866 -179.5 9.5 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
867 (!!!!!!!!:;@95F;@5+2::+23345$5F;@5A!233450E)[ 3.333984 3.333984 3.333984 3.333984 3.333984 3.333984 3.333984 3.333984 6.673828 6.673828 6.000000 2.666016 6.000000 6.673828 6.673828 6.000000 6.000000 6.673828 6.673828 6.673828 6.673828 6.673828 6.673828 3.333984 3.333984 3.996094 6.000000 3.996094 6.000000 6.673828 6.673828 6.000000 6.000000 3.333984 3.333984 6.673828 3.333984 3.333984 3.996094 6.000000 3.996094 0.000000 ] xS
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
868 -179.5 23.5 m
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
869 (!!!!!!G)[ 3.333984 3.333984 3.333984 3.333984 3.333984 3.333984 0.000000 ] xS
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
870 ep
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
871 end
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
872 %%Trailer
9fc7603e8e8b add nobu-prosym
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
873 %%EOF