1 %!PS-Adobe-2.0

     2 %%Creator: dvips(k) 5.95a Copyright 2005 Radical Eye Software

     3 %%Title: Main-jv.dvi

     4 %%Pages: 27

     5 %%PageOrder: Ascend

     6 %%BoundingBox: 0 0 595 842

     7 %%DocumentFonts: Times-Bold Times-Roman Times-Italic

     8 %%DocumentPaperSizes: a4

     9 %%EndComments

    10 %DVIPSWebPage: (www.radicaleye.com)

    11 %DVIPSCommandLine: dvips Main-jv.dvi -o Main-jv.ps

    12 %DVIPSParameters: dpi=600

    13 %DVIPSSource:  TeX output 2008.02.08:1222

    14 %%BeginProcSet: tex.pro 0 0

    15 %!

    16 /TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S

    17 N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72

    18 mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0

    19 0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{

    20 landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize

    21 mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[

    22 matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round

    23 exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{

    24 statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]

    25 N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin

    26 /FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array

    27 /BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2

    28 array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N

    29 df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A

    30 definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get

    31 }B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}

    32 B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr

    33 1 add N}if}B/CharBuilder{save 3 1 roll S A/base get 2 index get S

    34 /BitMaps get S get/Cd X pop/ctr 0 N Cdx 0 Cx Cy Ch sub Cx Cw add Cy

    35 setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx sub Cy .1 sub]{Ci}imagemask

    36 restore}B/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn

    37 /BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put

    38 }if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{

    39 bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A

    40 mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{

    41 SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{

    42 userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X

    43 1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4

    44 index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N

    45 /p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{

    46 /Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)

    47 (LaserWriter 16/600)]{A length product length le{A length product exch 0

    48 exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse

    49 end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask

    50 grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}

    51 imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round

    52 exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto

    53 fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p

    54 delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}

    55 B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{

    56 p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S

    57 rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end

    58 

    59 %%EndProcSet

    60 %%BeginProcSet: pstricks.pro 0 0

    61 %!

    62 % PostScript prologue for pstricks.tex.

    63 % Version 97 patch 4, 04/05/10

    64 % For distribution, see pstricks.tex.

    65 %

    66 /tx@Dict 200 dict def tx@Dict begin

    67 /ADict 25 dict def

    68 /CM { matrix currentmatrix } bind def

    69 /SLW /setlinewidth load def

    70 /CLW /currentlinewidth load def

    71 /CP /currentpoint load def

    72 /ED { exch def } bind def

    73 /L /lineto load def

    74 /T /translate load def

    75 /TMatrix { } def

    76 /RAngle { 0 } def

    77 /Atan { /atan load stopped { pop pop 0 } if } def

    78 /Div { dup 0 eq { pop } { div } ifelse } def

    79 /NET { neg exch neg exch T } def

    80 /Pyth { dup mul exch dup mul add sqrt } def

    81 /PtoC { 2 copy cos mul 3 1 roll sin mul } def

    82 /PathLength@ { /z z y y1 sub x x1 sub Pyth add def /y1 y def /x1 x def }

    83 def

    84 /PathLength { flattenpath /z 0 def { /y1 ED /x1 ED /y2 y1 def /x2 x1 def

    85 } { /y ED /x ED PathLength@ } {} { /y y2 def /x x2 def PathLength@ }

    86 /pathforall load stopped { pop pop pop pop } if z } def

    87 /STP { .996264 dup scale } def

    88 /STV { SDict begin normalscale end STP  } def

    89 %

    90 %%-------------- DG begin patch 15 ---------------%%

    91 %/DashLine { dup 0 gt { /a .5 def PathLength exch div } { pop /a 1 def

    92 %PathLength } ifelse /b ED /x ED /y ED /z y x add def b a .5 sub 2 mul y

    93 %mul sub z Div round z mul a .5 sub 2 mul y mul add b exch Div dup y mul

    94 %/y ED x mul /x ED x 0 gt y 0 gt and { [ y x ] 1 a sub y mul } { [ 1 0 ]

    95 %0 } ifelse setdash stroke } def

    96 /DashLine {

    97   dup 0 gt { /a .5 def PathLength exch div } { pop /a 1 def PathLength } ifelse

    98   /b ED /x1 ED /y1 ED /x ED /y ED 

    99   /z y x add y1 add x1 add def

   100   /Coef b a .5 sub 2 mul y mul sub z Div round 

   101   z mul a .5 sub 2 mul y mul add b exch Div def 

   102   /y y Coef mul def /x x Coef mul def /y1 y1 Coef mul def /x1 x1 Coef mul def

   103   x1 0 gt y1 0 gt x 0 gt y 0 gt and { [ y x y1 x1 ] 1 a sub y mul}

   104   { [ 1 0] 0 } ifelse setdash stroke

   105 } def

   106 %%-------------- DG end patch 15 ---------------%%

   107 /DotLine { /b PathLength def /a ED /z ED /y CLW def /z y z add def a 0 gt

   108 { /b b a div def } { a 0 eq { /b b y sub def } { a -3 eq { /b b y add

   109 def } if } ifelse } ifelse [ 0 b b z Div round Div dup 0 le { pop 1 } if

   110 ] a 0 gt { 0 } { y 2 div a -2 gt { neg } if } ifelse setdash 1

   111 setlinecap stroke } def

   112 /LineFill { gsave abs CLW add /a ED a 0 dtransform round exch round exch

   113 2 copy idtransform exch Atan rotate idtransform pop /a ED .25 .25

   114 % DG/SR modification begin - Dec. 12, 1997 - Patch 2

   115 %itransform translate pathbbox /y2 ED a Div ceiling cvi /x2 ED /y1 ED a

   116 itransform pathbbox /y2 ED a Div ceiling cvi /x2 ED /y1 ED a

   117 % DG/SR modification end

   118 Div cvi /x1 ED /y2 y2 y1 sub def clip newpath 2 setlinecap systemdict

   119 /setstrokeadjust known { true setstrokeadjust } if x2 x1 sub 1 add { x1

   120 % DG/SR modification begin - Jun.  1, 1998 - Patch 3 (from Michael Vulis)

   121 % a mul y1 moveto 0 y2 rlineto stroke /x1 x1 1 add def } repeat grestore }

   122 % def

   123 a mul y1 moveto 0 y2 rlineto stroke /x1 x1 1 add def } repeat grestore

   124 pop pop } def

   125 % DG/SR modification end

   126 /BeginArrow { ADict begin /@mtrx CM def gsave 2 copy T 2 index sub neg

   127 exch 3 index sub exch Atan rotate newpath } def

   128 /EndArrow { @mtrx setmatrix CP grestore end } def

   129 /Arrow { CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1

   130 scale } if w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill

   131 grestore } def

   132 /Tbar { CLW mul add /z ED z -2 div CLW 2 div moveto z 0 rlineto stroke 0

   133 CLW moveto } def

   134 /Bracket { CLW mul add dup CLW sub 2 div /x ED mul CLW add /y ED /z CLW 2

   135 div def x neg y moveto x neg CLW 2 div L x CLW 2 div L x y L stroke 0

   136 CLW moveto } def

   137 /RoundBracket { CLW mul add dup 2 div /x ED mul /y ED /mtrx CM def 0 CLW

   138 2 div T x y mul 0 ne { x y scale } if 1 1 moveto .85 .5 .35 0 0 0

   139 curveto -.35 0 -.85 .5 -1 1 curveto mtrx setmatrix stroke 0 CLW moveto }

   140 def

   141 /SD { 0 360 arc fill } def

   142 /EndDot { { /z DS def } { /z 0 def } ifelse /b ED 0 z DS SD b { 0 z DS

   143 CLW sub SD } if 0 DS z add CLW 4 div sub moveto } def

   144 /Shadow { [ { /moveto load } { /lineto load } { /curveto load } {

   145 /closepath load } /pathforall load stopped { pop pop pop pop CP /moveto

   146 load } if ] cvx newpath 3 1 roll T exec } def

   147 /NArray { aload length 2 div dup dup cvi eq not { exch pop } if /n exch

   148 cvi def } def

   149 /NArray { /f ED counttomark 2 div dup cvi /n ED n eq not { exch pop } if

   150 f { ] aload /Points ED } { n 2 mul 1 add -1 roll pop } ifelse } def

   151 /Line { NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ArrowA /n n 2 sub

   152 def n { Lineto } repeat CP 4 2 roll ArrowB L pop pop } if } def

   153 /Arcto { /a [ 6 -2 roll ] cvx def a r /arcto load stopped { 5 } { 4 }

   154 ifelse { pop } repeat a } def

   155 /CheckClosed { dup n 2 mul 1 sub index eq 2 index n 2 mul 1 add index eq

   156 and { pop pop /n n 1 sub def } if } def

   157 /Polygon { NArray n 2 eq { 0 0 /n 3 def } if n 3 lt { n { pop pop }

   158 repeat } { n 3 gt { CheckClosed } if n 2 mul -2 roll /y0 ED /x0 ED /y1

   159 ED /x1 ED x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1

   160 moveto /n n 2 sub def n { Lineto } repeat x1 y1 x0 y0 6 4 roll Lineto

   161 Lineto pop pop closepath } ifelse } def

   162 /Diamond { /mtrx CM def T rotate /h ED /w ED dup 0 eq { pop } { CLW mul

   163 neg /d ED /a w h Atan def /h d a sin Div h add def /w d a cos Div w add

   164 def } ifelse mark w 2 div h 2 div w 0 0 h neg w neg 0 0 h w 2 div h 2

   165 div /ArrowA { moveto } def /ArrowB { } def false Line closepath mtrx

   166 setmatrix } def

   167 % DG modification begin - Jan. 15, 1997

   168 %/Triangle { /mtrx CM def translate rotate /h ED 2 div /w ED dup 0 eq {

   169 %pop } { CLW mul /d ED /h h d w h Atan sin Div sub def /w w d h w Atan 2

   170 %div dup cos exch sin Div mul sub def } ifelse mark 0 d w neg d 0 h w d 0

   171 %d /ArrowA { moveto } def /ArrowB { } def false Line closepath mtrx

   172 %setmatrix } def

   173 /Triangle { /mtrx CM def translate rotate /h ED 2 div /w ED dup

   174 CLW mul /d ED /h h d w h Atan sin Div sub def /w w d h w Atan 2

   175 div dup cos exch sin Div mul sub def mark 0 d w neg d 0 h w d 0

   176 d /ArrowA { moveto } def /ArrowB { } def false Line closepath mtrx

   177 % DG/SR modification begin - Jun.  1, 1998 - Patch 3 (from Michael Vulis)

   178 % setmatrix } def

   179 setmatrix pop } def

   180 % DG/SR modification end

   181 /CCA { /y ED /x ED 2 copy y sub /dy1 ED x sub /dx1 ED /l1 dx1 dy1 Pyth

   182 def } def

   183 /CCA { /y ED /x ED 2 copy y sub /dy1 ED x sub /dx1 ED /l1 dx1 dy1 Pyth

   184 def } def

   185 /CC { /l0 l1 def /x1 x dx sub def /y1 y dy sub def /dx0 dx1 def /dy0 dy1

   186 def CCA /dx dx0 l1 c exp mul dx1 l0 c exp mul add def /dy dy0 l1 c exp

   187 mul dy1 l0 c exp mul add def /m dx0 dy0 Atan dx1 dy1 Atan sub 2 div cos

   188 abs b exp a mul dx dy Pyth Div 2 div def /x2 x l0 dx mul m mul sub def

   189 /y2 y l0 dy mul m mul sub def /dx l1 dx mul m mul neg def /dy l1 dy mul

   190 m mul neg def } def

   191 /IC { /c c 1 add def c 0 lt { /c 0 def } { c 3 gt { /c 3 def } if }

   192 ifelse /a a 2 mul 3 div 45 cos b exp div def CCA /dx 0 def /dy 0 def }

   193 def

   194 /BOC { IC CC x2 y2 x1 y1 ArrowA CP 4 2 roll x y curveto } def

   195 /NC { CC x1 y1 x2 y2 x y curveto } def

   196 /EOC { x dx sub y dy sub 4 2 roll ArrowB 2 copy curveto } def

   197 /BAC { IC CC x y moveto CC x1 y1 CP ArrowA } def

   198 /NAC { x2 y2 x y curveto CC x1 y1 } def

   199 /EAC { x2 y2 x y ArrowB curveto pop pop } def

   200 /OpenCurve { NArray n 3 lt { n { pop pop } repeat } { BOC /n n 3 sub def

   201     n { NC } repeat EOC } ifelse } def

   202 /AltCurve { { false NArray n 2 mul 2 roll [ n 2 mul 3 sub 1 roll ] aload

   203 /Points ED n 2 mul -2 roll } { false NArray } ifelse n 4 lt { n { pop

   204 pop } repeat } { BAC /n n 4 sub def n { NAC } repeat EAC } ifelse } def

   205 /ClosedCurve { NArray n 3 lt { n { pop pop } repeat } { n 3 gt {

   206 CheckClosed } if 6 copy n 2 mul 6 add 6 roll IC CC x y moveto n { NC }

   207 repeat closepath pop pop } ifelse } def

   208 /SQ { /r ED r r moveto r r neg L r neg r neg L r neg r L fill } def

   209 /ST { /y ED /x ED x y moveto x neg y L 0 x L fill } def

   210 /SP { /r ED gsave 0 r moveto 4 { 72 rotate 0 r L } repeat fill grestore }

   211 def

   212 /FontDot { DS 2 mul dup matrix scale matrix concatmatrix exch matrix

   213 rotate matrix concatmatrix exch findfont exch makefont setfont } def

   214 /Rect { x1 y1 y2 add 2 div moveto x1 y2 lineto x2 y2 lineto x2 y1 lineto

   215 x1 y1 lineto closepath } def

   216 /OvalFrame { x1 x2 eq y1 y2 eq or { pop pop x1 y1 moveto x2 y2 L } { y1

   217 y2 sub abs x1 x2 sub abs 2 copy gt { exch pop } { pop } ifelse 2 div

   218 exch { dup 3 1 roll mul exch } if 2 copy lt { pop } { exch pop } ifelse

   219 /b ED x1 y1 y2 add 2 div moveto x1 y2 x2 y2 b arcto x2 y2 x2 y1 b arcto

   220 x2 y1 x1 y1 b arcto x1 y1 x1 y2 b arcto 16 { pop } repeat closepath }

   221 ifelse } def

   222 /Frame { CLW mul /a ED 3 -1 roll 2 copy gt { exch } if a sub /y2 ED a add

   223 /y1 ED 2 copy gt { exch } if a sub /x2 ED a add /x1 ED 1 index 0 eq {

   224 pop pop Rect } { OvalFrame } ifelse } def

   225 /BezierNArray { /f ED counttomark 2 div dup cvi /n ED n eq not { exch pop

   226 } if n 1 sub neg 3 mod 3 add 3 mod { 0 0 /n n 1 add def } repeat f { ]

   227 aload /Points ED } { n 2 mul 1 add -1 roll pop } ifelse } def

   228 /OpenBezier { BezierNArray n 1 eq { pop pop } { ArrowA n 4 sub 3 idiv { 6

   229 2 roll 4 2 roll curveto } repeat 6 2 roll 4 2 roll ArrowB curveto }

   230 ifelse } def

   231 /ClosedBezier { BezierNArray n 1 eq { pop pop } { moveto n 1 sub 3 idiv {

   232 6 2 roll 4 2 roll curveto } repeat closepath } ifelse } def

   233 /BezierShowPoints { gsave Points aload length 2 div cvi /n ED moveto n 1

   234 sub { lineto } repeat CLW 2 div SLW [ 4 4 ] 0 setdash stroke grestore }

   235 def

   236 /Parab { /y0 exch def /x0 exch def /y1 exch def /x1 exch def /dx x0 x1

   237 sub 3 div def /dy y0 y1 sub 3 div def x0 dx sub y0 dy add x1 y1 ArrowA

   238 x0 dx add y0 dy add x0 2 mul x1 sub y1 ArrowB curveto /Points [ x1 y1 x0

   239 y0 x0 2 mul x1 sub y1 ] def } def

   240 /Grid { newpath /a 4 string def /b ED /c ED /n ED cvi dup 1 lt { pop 1 }

   241 if /s ED s div dup 0 eq { pop 1 } if /dy ED s div dup 0 eq { pop 1 } if

   242 /dx ED dy div round dy mul /y0 ED dx div round dx mul /x0 ED dy div

   243 round cvi /y2 ED dx div round cvi /x2 ED dy div round cvi /y1 ED dx div

   244 round cvi /x1 ED /h y2 y1 sub 0 gt { 1 } { -1 } ifelse def /w x2 x1 sub

   245 0 gt { 1 } { -1 } ifelse def b 0 gt { /z1 b 4 div CLW 2 div add def

   246 /Helvetica findfont b scalefont setfont /b b .95 mul CLW 2 div add def }

   247 if systemdict /setstrokeadjust known { true setstrokeadjust /t { } def }

   248 { /t { transform 0.25 sub round 0.25 add exch 0.25 sub round 0.25 add

   249 exch itransform } bind def } ifelse gsave n 0 gt { 1 setlinecap [ 0 dy n

   250 div ] dy n div 2 div setdash } { 2 setlinecap } ifelse /i x1 def /f y1

   251 dy mul n 0 gt { dy n div 2 div h mul sub } if def /g y2 dy mul n 0 gt {

   252 dy n div 2 div h mul add } if def x2 x1 sub w mul 1 add dup 1000 gt {

   253 pop 1000 } if { i dx mul dup y0 moveto b 0 gt { gsave c i a cvs dup

   254 stringwidth pop /z2 ED w 0 gt {z1} {z1 z2 add neg} ifelse h 0 gt {b neg}

   255 {z1} ifelse rmoveto show grestore } if dup t f moveto g t L stroke /i i

   256 w add def } repeat grestore gsave n 0 gt

   257 % DG/SR modification begin - Nov. 7, 1997 - Patch 1

   258 %{ 1 setlinecap [ 0 dx n div ] dy n div 2 div setdash }

   259 { 1 setlinecap [ 0 dx n div ] dx n div 2 div setdash }

   260 % DG/SR modification end

   261 { 2 setlinecap } ifelse /i y1 def /f x1 dx mul

   262 n 0 gt { dx n div 2 div w mul sub } if def /g x2 dx mul n 0 gt { dx n

   263 div 2 div w mul add } if def y2 y1 sub h mul 1 add dup 1000 gt { pop

   264 1000 } if { newpath i dy mul dup x0 exch moveto b 0 gt { gsave c i a cvs

   265 dup stringwidth pop /z2 ED w 0 gt {z1 z2 add neg} {z1} ifelse h 0 gt

   266 {z1} {b neg} ifelse rmoveto show grestore } if dup f exch t moveto g

   267 exch t L stroke /i i h add def } repeat grestore } def

   268 /ArcArrow { /d ED /b ED /a ED gsave newpath 0 -1000 moveto clip newpath 0

   269 1 0 0 b grestore c mul /e ED pop pop pop r a e d PtoC y add exch x add

   270 exch r a PtoC y add exch x add exch b pop pop pop pop a e d CLW 8 div c

   271 mul neg d } def

   272 /Ellipse { /mtrx CM def T scale 0 0 1 5 3 roll arc mtrx setmatrix } def

   273 /Rot { CP CP translate 3 -1 roll neg rotate NET  } def

   274 /RotBegin { tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 }

   275 def } if /TMatrix [ TMatrix CM ] cvx def /a ED a Rot /RAngle [ RAngle

   276 dup a add ] cvx def } def

   277 /RotEnd { /TMatrix [ TMatrix setmatrix ] cvx def /RAngle [ RAngle pop ]

   278 cvx def } def

   279 /PutCoor { gsave CP T CM STV exch exec moveto setmatrix CP grestore } def

   280 /PutBegin { /TMatrix [ TMatrix CM ] cvx def CP 4 2 roll T moveto } def

   281 /PutEnd { CP /TMatrix [ TMatrix setmatrix ] cvx def moveto } def

   282 /Uput { /a ED add 2 div /h ED 2 div /w ED /s a sin def /c a cos def /b s

   283 abs c abs 2 copy gt dup /q ED { pop } { exch pop } ifelse def /w1 c b

   284 div w mul def /h1 s b div h mul def q { w1 abs w sub dup c mul abs } {

   285 h1 abs h sub dup s mul abs } ifelse } def

   286 /UUput { /z ED abs /y ED /x ED q { x s div c mul abs y gt } { x c div s

   287 mul abs y gt } ifelse { x x mul y y mul sub z z mul add sqrt z add } { q

   288 { x s div } { x c div } ifelse abs } ifelse a PtoC h1 add exch w1 add

   289 exch } def

   290 /BeginOL { dup (all) eq exch TheOL eq or { IfVisible not { Visible

   291 /IfVisible true def } if } { IfVisible { Invisible /IfVisible false def

   292 } if } ifelse } def

   293 /InitOL { /OLUnit [ 3000 3000 matrix defaultmatrix dtransform ] cvx def

   294 /Visible { CP OLUnit idtransform T moveto } def /Invisible { CP OLUnit

   295 neg exch neg exch idtransform T moveto } def /BOL { BeginOL } def

   296 /IfVisible true def } def

   297 end

   298 % END pstricks.pro

   299 

   300 %%EndProcSet

   301 %%BeginProcSet: pst-dots.pro 0 0

   302 %!PS-Adobe-2.0

   303 %%Title: Dot Font for PSTricks

   304 %%Creator: Timothy Van Zandt <tvz@Princeton.EDU>

   305 %%Creation Date: May 7, 1993

   306 %% Version 97 patch 1, 99/12/16

   307 %% Modified by Etienne Riga <etienne.riga@skynet.be> - Dec. 16, 1999

   308 %% to add /Diamond, /SolidDiamond and /BoldDiamond

   309 10 dict dup begin

   310   /FontType 3 def

   311   /FontMatrix [ .001 0 0 .001 0 0 ] def

   312   /FontBBox [ 0 0 0 0 ] def

   313   /Encoding 256 array def

   314   0 1 255 { Encoding exch /.notdef put } for

   315   Encoding

   316     dup (b) 0 get /Bullet put

   317     dup (c) 0 get /Circle put

   318     dup (C) 0 get /BoldCircle put

   319     dup (u) 0 get /SolidTriangle put

   320     dup (t) 0 get /Triangle put

   321     dup (T) 0 get /BoldTriangle put

   322     dup (r) 0 get /SolidSquare put

   323     dup (s) 0 get /Square put

   324     dup (S) 0 get /BoldSquare put

   325     dup (q) 0 get /SolidPentagon put

   326     dup (p) 0 get /Pentagon put

   327     dup (P) 0 get /BoldPentagon put

   328 % DG/SR modification begin - Dec. 16, 1999 - From Etienne Riga

   329     dup (l) 0 get /SolidDiamond put

   330     dup (d) 0 get /Diamond put

   331         (D) 0 get /BoldDiamond put

   332 % DG/SR modification end

   333   /Metrics 13 dict def

   334   Metrics begin

   335     /Bullet        1000   def

   336     /Circle        1000   def

   337     /BoldCircle    1000   def

   338     /SolidTriangle 1344   def

   339     /Triangle      1344   def

   340     /BoldTriangle  1344   def

   341     /SolidSquare    886   def

   342     /Square         886   def

   343     /BoldSquare     886   def

   344     /SolidPentagon 1093.2 def

   345     /Pentagon      1093.2 def

   346     /BoldPentagon  1093.2 def

   347 % DG/SR modification begin - Dec. 16, 1999 - From Etienne Riga

   348     /SolidDiamond  1008   def

   349     /Diamond       1008   def

   350     /BoldDiamond   1008   def

   351 % DG/SR modification end

   352     /.notdef 0 def

   353   end

   354   /BBoxes 13 dict def

   355   BBoxes begin

   356     /Circle        { -550 -550 550 550 } def

   357     /BoldCircle    /Circle load def

   358     /Bullet        /Circle load def

   359     /Triangle      { -571.5 -330 571.5 660 } def

   360     /BoldTriangle  /Triangle load def

   361     /SolidTriangle /Triangle load def

   362     /Square        { -450 -450 450 450 } def

   363     /BoldSquare    /Square load def

   364     /SolidSquare   /Square load def

   365     /Pentagon      { -546.6 -465 546.6 574.7 } def

   366     /BoldPentagon  /Pentagon load def

   367     /SolidPentagon /Pentagon load def

   368 % DG/SR modification begin - Dec. 16, 1999 - From Etienne Riga

   369     /Diamond       { -428.5 -742.5 428.5 742.5 } def

   370     /BoldDiamond   /Diamond load def

   371     /SolidDiamond  /Diamond load def

   372 % DG/SR modification end

   373     /.notdef { 0 0 0 0 } def

   374   end

   375   /CharProcs 20 dict def

   376   CharProcs begin

   377     /Adjust {

   378       2 copy dtransform floor .5 add exch floor .5 add exch idtransform

   379       3 -1 roll div 3 1 roll exch div exch scale

   380     } def

   381     /CirclePath    { 0 0 500 0 360 arc closepath } def

   382     /Bullet        { 500 500 Adjust CirclePath fill } def

   383     /Circle        { 500 500 Adjust CirclePath .9 .9 scale CirclePath

   384                      eofill } def

   385     /BoldCircle    { 500 500 Adjust CirclePath .8 .8 scale CirclePath

   386                      eofill } def

   387     /BoldCircle    { CirclePath .8 .8 scale CirclePath eofill } def

   388     /TrianglePath  { 0  660 moveto -571.5 -330 lineto 571.5 -330 lineto

   389                      closepath } def

   390     /SolidTriangle { TrianglePath fill } def

   391     /Triangle      { TrianglePath .85 .85 scale TrianglePath eofill } def

   392     /BoldTriangle  { TrianglePath .7 .7 scale TrianglePath eofill } def

   393     /SquarePath    { -450 450 moveto 450 450 lineto 450 -450 lineto

   394                      -450 -450 lineto closepath } def

   395     /SolidSquare   { SquarePath fill } def

   396     /Square        { SquarePath .89 .89 scale SquarePath eofill } def

   397     /BoldSquare    { SquarePath .78 .78 scale SquarePath eofill } def

   398     /PentagonPath  {

   399       -337.8 -465   moveto

   400        337.8 -465   lineto

   401        546.6  177.6 lineto

   402          0    574.7 lineto

   403       -546.6  177.6 lineto

   404       closepath

   405     } def

   406     /SolidPentagon { PentagonPath fill } def

   407     /Pentagon      { PentagonPath .89 .89 scale PentagonPath eofill } def

   408     /BoldPentagon  { PentagonPath .78 .78 scale PentagonPath eofill } def

   409 % DG/SR modification begin - Dec. 16, 1999 - From Etienne Riga

   410     /DiamondPath   { 0 742.5 moveto -428.5 0 lineto 0 -742.5 lineto

   411                      428.5 0 lineto closepath } def

   412     /SolidDiamond  { DiamondPath fill } def

   413     /Diamond       { DiamondPath .85 .85 scale DiamondPath eofill } def

   414     /BoldDiamond   { DiamondPath .7 .7 scale DiamondPath eofill } def

   415 % DG/SR modification end

   416     /.notdef { } def

   417   end

   418   /BuildGlyph {

   419     exch

   420     begin

   421       Metrics 1 index get exec 0

   422       BBoxes 3 index get exec

   423       setcachedevice

   424       CharProcs begin load exec end

   425     end

   426   } def

   427   /BuildChar {

   428     1 index /Encoding get exch get

   429     1 index /BuildGlyph get exec

   430   } bind def

   431 end

   432 /PSTricksDotFont exch definefont pop

   433 %END pst-dots.pro

   434 

   435 %%EndProcSet

   436 %%BeginProcSet: pst-node.pro 0 0

   437 %!

   438 % PostScript prologue for pst-node.tex.

   439 % Version 97 patch 1, 97/05/09.

   440 % For distribution, see pstricks.tex.

   441 %

   442 /tx@NodeDict 400 dict def tx@NodeDict begin

   443 tx@Dict begin /T /translate load def end

   444 /NewNode { gsave /next ED dict dup 3 1 roll def exch { dup 3 1 roll def }

   445 if begin tx@Dict begin STV CP T exec end /NodeMtrx CM def next end

   446 grestore } def

   447 /InitPnode { /Y ED /X ED /NodePos { NodeSep Cos mul NodeSep Sin mul } def

   448 } def

   449 /InitCnode { /r ED /Y ED /X ED /NodePos { NodeSep r add dup Cos mul exch

   450 Sin mul } def } def

   451 /GetRnodePos { Cos 0 gt { /dx r NodeSep add def } { /dx l NodeSep sub def

   452 } ifelse Sin 0 gt { /dy u NodeSep add def } { /dy d NodeSep sub def }

   453 ifelse dx Sin mul abs dy Cos mul abs gt { dy Cos mul Sin div dy } { dx

   454 dup Sin mul Cos Div } ifelse } def

   455 /InitRnode { /Y ED /X ED X sub /r ED /l X neg def Y add neg /d ED Y sub

   456 /u ED /NodePos { GetRnodePos } def } def

   457 /DiaNodePos { w h mul w Sin mul abs h Cos mul abs add Div NodeSep add dup

   458 Cos mul exch Sin mul } def

   459 /TriNodePos { Sin s lt { d NodeSep sub dup Cos mul Sin Div exch } { w h

   460 mul w Sin mul h Cos abs mul add Div NodeSep add dup Cos mul exch Sin mul

   461 } ifelse } def

   462 /InitTriNode { sub 2 div exch 2 div exch 2 copy T 2 copy 4 index index /d

   463 ED pop pop pop pop -90 mul rotate /NodeMtrx CM def /X 0 def /Y 0 def d

   464 sub abs neg /d ED d add /h ED 2 div h mul h d sub Div /w ED /s d w Atan

   465 sin def /NodePos { TriNodePos } def } def

   466 /OvalNodePos { /ww w NodeSep add def /hh h NodeSep add def Sin ww mul Cos

   467 hh mul Atan dup cos ww mul exch sin hh mul } def

   468 /GetCenter { begin X Y NodeMtrx transform CM itransform end } def

   469 /XYPos { dup sin exch cos Do /Cos ED /Sin ED /Dist ED Cos 0 gt { Dist

   470 Dist Sin mul Cos div } { Cos 0 lt { Dist neg Dist Sin mul Cos div neg }

   471 { 0 Dist Sin mul } ifelse } ifelse Do } def

   472 /GetEdge { dup 0 eq { pop begin 1 0 NodeMtrx dtransform CM idtransform

   473 exch atan sub dup sin /Sin ED cos /Cos ED /NodeSep ED NodePos NodeMtrx

   474 dtransform CM idtransform end } { 1 eq {{exch}} {{}} ifelse /Do ED pop

   475 XYPos } ifelse } def

   476 /AddOffset { 1 index 0 eq { pop pop } { 2 copy 5 2 roll cos mul add 4 1

   477 roll sin mul sub exch } ifelse } def

   478 /GetEdgeA { NodeSepA AngleA NodeA NodeSepTypeA GetEdge OffsetA AngleA

   479 AddOffset yA add /yA1 ED xA add /xA1 ED } def

   480 /GetEdgeB { NodeSepB AngleB NodeB NodeSepTypeB GetEdge OffsetB AngleB

   481 AddOffset yB add /yB1 ED xB add /xB1 ED } def

   482 /GetArmA { ArmTypeA 0 eq { /xA2 ArmA AngleA cos mul xA1 add def /yA2 ArmA

   483 AngleA sin mul yA1 add def } { ArmTypeA 1 eq {{exch}} {{}} ifelse /Do ED

   484 ArmA AngleA XYPos OffsetA AngleA AddOffset yA add /yA2 ED xA add /xA2 ED

   485 } ifelse } def

   486 /GetArmB { ArmTypeB 0 eq { /xB2 ArmB AngleB cos mul xB1 add def /yB2 ArmB

   487 AngleB sin mul yB1 add def } { ArmTypeB 1 eq {{exch}} {{}} ifelse /Do ED

   488 ArmB AngleB XYPos OffsetB AngleB AddOffset yB add /yB2 ED xB add /xB2 ED

   489 } ifelse } def

   490 /InitNC { /b ED /a ED /NodeSepTypeB ED /NodeSepTypeA ED /NodeSepB ED

   491 /NodeSepA ED /OffsetB ED /OffsetA ED tx@NodeDict a known tx@NodeDict b

   492 known and dup { /NodeA a load def /NodeB b load def NodeA GetCenter /yA

   493 ED /xA ED NodeB GetCenter /yB ED /xB ED } if } def

   494 /LPutLine { 4 copy 3 -1 roll sub neg 3 1 roll sub Atan /NAngle ED 1 t sub

   495 mul 3 1 roll 1 t sub mul 4 1 roll t mul add /Y ED t mul add /X ED } def

   496 /LPutLines { mark LPutVar counttomark 2 div 1 sub /n ED t floor dup n gt

   497 { pop n 1 sub /t 1 def } { dup t sub neg /t ED } ifelse cvi 2 mul { pop

   498 } repeat LPutLine cleartomark } def

   499 /BezierMidpoint { /y3 ED /x3 ED /y2 ED /x2 ED /y1 ED /x1 ED /y0 ED /x0 ED

   500 /t ED /cx x1 x0 sub 3 mul def /cy y1 y0 sub 3 mul def /bx x2 x1 sub 3

   501 mul cx sub def /by y2 y1 sub 3 mul cy sub def /ax x3 x0 sub cx sub bx

   502 sub def /ay y3 y0 sub cy sub by sub def ax t 3 exp mul bx t t mul mul

   503 add cx t mul add x0 add ay t 3 exp mul by t t mul mul add cy t mul add

   504 y0 add 3 ay t t mul mul mul 2 by t mul mul add cy add 3 ax t t mul mul

   505 mul 2 bx t mul mul add cx add atan /NAngle ED /Y ED /X ED } def

   506 /HPosBegin { yB yA ge { /t 1 t sub def } if /Y yB yA sub t mul yA add def

   507 } def

   508 /HPosEnd { /X Y yyA sub yyB yyA sub Div xxB xxA sub mul xxA add def

   509 /NAngle yyB yyA sub xxB xxA sub Atan def } def

   510 /HPutLine { HPosBegin /yyA ED /xxA ED /yyB ED /xxB ED HPosEnd  } def

   511 /HPutLines { HPosBegin yB yA ge { /check { le } def } { /check { ge } def

   512 } ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { dup Y check { exit

   513 } { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark HPosEnd 

   514 } def

   515 /VPosBegin { xB xA lt { /t 1 t sub def } if /X xB xA sub t mul xA add def

   516 } def

   517 /VPosEnd { /Y X xxA sub xxB xxA sub Div yyB yyA sub mul yyA add def

   518 /NAngle yyB yyA sub xxB xxA sub Atan def } def

   519 /VPutLine { VPosBegin /yyA ED /xxA ED /yyB ED /xxB ED VPosEnd  } def

   520 /VPutLines { VPosBegin xB xA ge { /check { le } def } { /check { ge } def

   521 } ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { 1 index X check {

   522 exit } { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark

   523 VPosEnd  } def

   524 /HPutCurve { gsave newpath /SaveLPutVar /LPutVar load def LPutVar 8 -2

   525 roll moveto curveto flattenpath /LPutVar [ {} {} {} {} pathforall ] cvx

   526 def grestore exec /LPutVar /SaveLPutVar load def } def

   527 /NCCoor { /AngleA yB yA sub xB xA sub Atan def /AngleB AngleA 180 add def

   528 GetEdgeA GetEdgeB /LPutVar [ xB1 yB1 xA1 yA1 ] cvx def /LPutPos {

   529 LPutVar LPutLine } def /HPutPos { LPutVar HPutLine } def /VPutPos {

   530 LPutVar VPutLine } def LPutVar } def

   531 /NCLine { NCCoor tx@Dict begin ArrowA CP 4 2 roll ArrowB lineto pop pop

   532 end } def

   533 /NCLines { false NArray n 0 eq { NCLine } { 2 copy yA sub exch xA sub

   534 Atan /AngleA ED n 2 mul dup index exch index yB sub exch xB sub Atan

   535 /AngleB ED GetEdgeA GetEdgeB /LPutVar [ xB1 yB1 n 2 mul 4 add 4 roll xA1

   536 yA1 ] cvx def mark LPutVar tx@Dict begin false Line end /LPutPos {

   537 LPutLines } def /HPutPos { HPutLines } def /VPutPos { VPutLines } def }

   538 ifelse } def

   539 /NCCurve { GetEdgeA GetEdgeB xA1 xB1 sub yA1 yB1 sub Pyth 2 div dup 3 -1

   540 roll mul /ArmA ED mul /ArmB ED /ArmTypeA 0 def /ArmTypeB 0 def GetArmA

   541 GetArmB xA2 yA2 xA1 yA1 tx@Dict begin ArrowA end xB2 yB2 xB1 yB1 tx@Dict

   542 begin ArrowB end curveto /LPutVar [ xA1 yA1 xA2 yA2 xB2 yB2 xB1 yB1 ]

   543 cvx def /LPutPos { t LPutVar BezierMidpoint } def /HPutPos { { HPutLines

   544 } HPutCurve } def /VPutPos { { VPutLines } HPutCurve } def } def

   545 /NCAngles { GetEdgeA GetEdgeB GetArmA GetArmB /mtrx AngleA matrix rotate

   546 def xA2 yA2 mtrx transform pop xB2 yB2 mtrx transform exch pop mtrx

   547 itransform /y0 ED /x0 ED mark ArmB 0 ne { xB1 yB1 } if xB2 yB2 x0 y0 xA2

   548 yA2 ArmA 0 ne { xA1 yA1 } if tx@Dict begin false Line end /LPutVar [ xB1

   549 yB1 xB2 yB2 x0 y0 xA2 yA2 xA1 yA1 ] cvx def /LPutPos { LPutLines } def

   550 /HPutPos { HPutLines } def /VPutPos { VPutLines } def } def

   551 /NCAngle { GetEdgeA GetEdgeB GetArmB /mtrx AngleA matrix rotate def xB2

   552 yB2 mtrx itransform pop xA1 yA1 mtrx itransform exch pop mtrx transform

   553 /y0 ED /x0 ED mark ArmB 0 ne { xB1 yB1 } if xB2 yB2 x0 y0 xA1 yA1

   554 tx@Dict begin false Line end /LPutVar [ xB1 yB1 xB2 yB2 x0 y0 xA1 yA1 ]

   555 cvx def /LPutPos { LPutLines } def /HPutPos { HPutLines } def /VPutPos {

   556 VPutLines } def } def

   557 /NCBar { GetEdgeA GetEdgeB GetArmA GetArmB /mtrx AngleA matrix rotate def

   558 xA2 yA2 mtrx itransform pop xB2 yB2 mtrx itransform pop sub dup 0 mtrx

   559 transform 3 -1 roll 0 gt { /yB2 exch yB2 add def /xB2 exch xB2 add def }

   560 { /yA2 exch neg yA2 add def /xA2 exch neg xA2 add def } ifelse mark ArmB

   561 0 ne { xB1 yB1 } if xB2 yB2 xA2 yA2 ArmA 0 ne { xA1 yA1 } if tx@Dict

   562 begin false Line end /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx

   563 def /LPutPos { LPutLines } def /HPutPos { HPutLines } def /VPutPos {

   564 VPutLines } def } def

   565 /NCDiag { GetEdgeA GetEdgeB GetArmA GetArmB mark ArmB 0 ne { xB1 yB1 } if

   566 xB2 yB2 xA2 yA2 ArmA 0 ne { xA1 yA1 } if tx@Dict begin false Line end

   567 /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def /LPutPos {

   568 LPutLines } def /HPutPos { HPutLines } def /VPutPos { VPutLines } def }

   569 def

   570 /NCDiagg { GetEdgeA GetArmA yB yA2 sub xB xA2 sub Atan 180 add /AngleB ED

   571 GetEdgeB mark xB1 yB1 xA2 yA2 ArmA 0 ne { xA1 yA1 } if tx@Dict begin

   572 false Line end /LPutVar [ xB1 yB1 xA2 yA2 xA1 yA1 ] cvx def /LPutPos {

   573 LPutLines } def /HPutPos { HPutLines } def /VPutPos { VPutLines } def }

   574 def

   575 /NCLoop { GetEdgeA GetEdgeB GetArmA GetArmB /mtrx AngleA matrix rotate

   576 def xA2 yA2 mtrx transform loopsize add /yA3 ED /xA3 ED /xB3 xB2 yB2

   577 mtrx transform pop def xB3 yA3 mtrx itransform /yB3 ED /xB3 ED xA3 yA3

   578 mtrx itransform /yA3 ED /xA3 ED mark ArmB 0 ne { xB1 yB1 } if xB2 yB2

   579 xB3 yB3 xA3 yA3 xA2 yA2 ArmA 0 ne { xA1 yA1 } if tx@Dict begin false

   580 Line end /LPutVar [ xB1 yB1 xB2 yB2 xB3 yB3 xA3 yA3 xA2 yA2 xA1 yA1 ]

   581 cvx def /LPutPos { LPutLines } def /HPutPos { HPutLines } def /VPutPos {

   582 VPutLines } def } def

   583 % DG/SR modification begin - May 9, 1997 - Patch 1

   584 %/NCCircle { 0 0 NodesepA nodeA \tx@GetEdge pop xA sub 2 div dup 2 exp r

   585 %r mul sub abs sqrt atan 2 mul /a ED r AngleA 90 add PtoC yA add exch xA add

   586 %exch 2 copy /LPutVar [ 4 2 roll r AngleA ] cvx def /LPutPos { LPutVar t 360

   587 %mul add dup 5 1 roll 90 sub \tx@PtoC 3 -1 roll add /Y ED add /X ED /NAngle ED

   588 /NCCircle { NodeSepA 0 NodeA 0 GetEdge pop 2 div dup 2 exp r

   589 r mul sub abs sqrt atan 2 mul /a ED r AngleA 90 add PtoC yA add exch xA add

   590 exch 2 copy /LPutVar [ 4 2 roll r AngleA ] cvx def /LPutPos { LPutVar t 360

   591 mul add dup 5 1 roll 90 sub PtoC 3 -1 roll add /Y ED add /X ED /NAngle ED

   592 % DG/SR modification end

   593 } def /HPutPos { LPutPos } def /VPutPos { LPutPos } def r AngleA 90 sub a add

   594 AngleA 270 add a sub tx@Dict begin /angleB ED /angleA ED /r ED /c 57.2957 r

   595 Div def /y ED /x ED } def

   596 /NCBox { /d ED /h ED /AngleB yB yA sub xB xA sub Atan def /AngleA AngleB

   597 180 add def GetEdgeA GetEdgeB /dx d AngleB sin mul def /dy d AngleB cos

   598 mul neg def /hx h AngleB sin mul neg def /hy h AngleB cos mul def

   599 /LPutVar [ xA1 hx add yA1 hy add xB1 hx add yB1 hy add xB1 dx add yB1 dy

   600 add xA1 dx add yA1 dy add ] cvx def /LPutPos { LPutLines } def /HPutPos

   601 { xB yB xA yA LPutLine } def /VPutPos { HPutPos } def mark LPutVar

   602 tx@Dict begin false Polygon end } def

   603 /NCArcBox { /l ED neg /d ED /h ED /a ED /AngleA yB yA sub xB xA sub Atan

   604 def /AngleB AngleA 180 add def /tA AngleA a sub 90 add def /tB tA a 2

   605 mul add def /r xB xA sub tA cos tB cos sub Div dup 0 eq { pop 1 } if def

   606 /x0 xA r tA cos mul add def /y0 yA r tA sin mul add def /c 57.2958 r div

   607 def /AngleA AngleA a sub 180 add def /AngleB AngleB a add 180 add def

   608 GetEdgeA GetEdgeB /AngleA tA 180 add yA yA1 sub xA xA1 sub Pyth c mul

   609 sub def /AngleB tB 180 add yB yB1 sub xB xB1 sub Pyth c mul add def l 0

   610 eq { x0 y0 r h add AngleA AngleB arc x0 y0 r d add AngleB AngleA arcn }

   611 { x0 y0 translate /tA AngleA l c mul add def /tB AngleB l c mul sub def

   612 0 0 r h add tA tB arc r h add AngleB PtoC r d add AngleB PtoC 2 copy 6 2

   613 roll l arcto 4 { pop } repeat r d add tB PtoC l arcto 4 { pop } repeat 0

   614 0 r d add tB tA arcn r d add AngleA PtoC r h add AngleA PtoC 2 copy 6 2

   615 roll l arcto 4 { pop } repeat r h add tA PtoC l arcto 4 { pop } repeat }

   616 ifelse closepath /LPutVar [ x0 y0 r AngleA AngleB h d ] cvx def /LPutPos

   617 { LPutVar /d ED /h ED /AngleB ED /AngleA ED /r ED /y0 ED /x0 ED t 1 le {

   618 r h add AngleA 1 t sub mul AngleB t mul add dup 90 add /NAngle ED PtoC }

   619 { t 2 lt { /NAngle AngleB 180 add def r 2 t sub h mul t 1 sub d mul add

   620 add AngleB PtoC } { t 3 lt { r d add AngleB 3 t sub mul AngleA 2 t sub

   621 mul add dup 90 sub /NAngle ED PtoC } { /NAngle AngleA 180 add def r 4 t

   622 sub d mul t 3 sub h mul add add AngleA PtoC } ifelse } ifelse } ifelse

   623 y0 add /Y ED x0 add /X ED } def /HPutPos { LPutPos } def /VPutPos {

   624 LPutPos } def } def

   625 /Tfan { /AngleA yB yA sub xB xA sub Atan def GetEdgeA w xA1 xB sub yA1 yB

   626 sub Pyth Pyth w Div CLW 2 div mul 2 div dup AngleA sin mul yA1 add /yA1

   627 ED AngleA cos mul xA1 add /xA1 ED /LPutVar [ xA1 yA1 m { xB w add yB xB

   628 w sub yB } { xB yB w sub xB yB w add } ifelse xA1 yA1 ] cvx def /LPutPos

   629 { LPutLines } def /VPutPos@ { LPutVar flag { 8 4 roll pop pop pop pop }

   630 { pop pop pop pop 4 2 roll } ifelse } def /VPutPos { VPutPos@ VPutLine }

   631 def /HPutPos { VPutPos@ HPutLine } def mark LPutVar tx@Dict begin

   632 /ArrowA { moveto } def /ArrowB { } def false Line closepath end } def

   633 /LPutCoor { NAngle tx@Dict begin /NAngle ED end gsave CM STV CP Y sub neg

   634 exch X sub neg exch moveto setmatrix CP grestore } def

   635 /LPut { tx@NodeDict /LPutPos known { LPutPos } { CP /Y ED /X ED /NAngle 0

   636 def } ifelse LPutCoor  } def

   637 /HPutAdjust { Sin Cos mul 0 eq { 0 } { d Cos mul Sin div flag not { neg }

   638 if h Cos mul Sin div flag { neg } if 2 copy gt { pop } { exch pop }

   639 ifelse } ifelse s add flag { r add neg } { l add } ifelse X add /X ED }

   640 def

   641 /VPutAdjust { Sin Cos mul 0 eq { 0 } { l Sin mul Cos div flag { neg } if

   642 r Sin mul Cos div flag not { neg } if 2 copy gt { pop } { exch pop }

   643 ifelse } ifelse s add flag { d add } { h add neg } ifelse Y add /Y ED }

   644 def

   645 end

   646 % END pst-node.pro

   647 

   648 %%EndProcSet

   649 %%BeginProcSet: 8r.enc 0 0

   650 % File 8r.enc  TeX Base 1 Encoding  Revision 2.0  2002-10-30

   651 %

   652 % @@psencodingfile@{

   653 %   author    = "S. Rahtz, P. MacKay, Alan Jeffrey, B. Horn, K. Berry,

   654 %                W. Schmidt, P. Lehman",

   655 %   version   = "2.0",

   656 %   date      = "30 October 2002",

   657 %   filename  = "8r.enc",

   658 %   email     = "tex-fonts@@tug.org",

   659 %   docstring = "This is the encoding vector for Type1 and TrueType

   660 %                fonts to be used with TeX.  This file is part of the

   661 %                PSNFSS bundle, version 9"

   662 % @}

   663 % 

   664 % The idea is to have all the characters normally included in Type 1 fonts

   665 % available for typesetting. This is effectively the characters in Adobe

   666 % Standard encoding, ISO Latin 1, Windows ANSI including the euro symbol,

   667 % MacRoman, and some extra characters from Lucida.

   668 % 

   669 % Character code assignments were made as follows:

   670 % 

   671 % (1) the Windows ANSI characters are almost all in their Windows ANSI

   672 % positions, because some Windows users cannot easily reencode the

   673 % fonts, and it makes no difference on other systems. The only Windows

   674 % ANSI characters not available are those that make no sense for

   675 % typesetting -- rubout (127 decimal), nobreakspace (160), softhyphen

   676 % (173). quotesingle and grave are moved just because it's such an

   677 % irritation not having them in TeX positions.

   678 % 

   679 % (2) Remaining characters are assigned arbitrarily to the lower part

   680 % of the range, avoiding 0, 10 and 13 in case we meet dumb software.

   681 % 

   682 % (3) Y&Y Lucida Bright includes some extra text characters; in the

   683 % hopes that other PostScript fonts, perhaps created for public

   684 % consumption, will include them, they are included starting at 0x12.

   685 % These are /dotlessj /ff /ffi /ffl.

   686 % 

   687 % (4) hyphen appears twice for compatibility with both ASCII and Windows.

   688 %

   689 % (5) /Euro was assigned to 128, as in Windows ANSI

   690 %

   691 % (6) Missing characters from MacRoman encoding incorporated as follows:

   692 %

   693 %     PostScript      MacRoman        TeXBase1

   694 %     --------------  --------------  --------------

   695 %     /notequal       173             0x16

   696 %     /infinity       176             0x17

   697 %     /lessequal      178             0x18

   698 %     /greaterequal   179             0x19

   699 %     /partialdiff    182             0x1A

   700 %     /summation      183             0x1B

   701 %     /product        184             0x1C

   702 %     /pi             185             0x1D

   703 %     /integral       186             0x81

   704 %     /Omega          189             0x8D

   705 %     /radical        195             0x8E

   706 %     /approxequal    197             0x8F

   707 %     /Delta          198             0x9D

   708 %     /lozenge        215             0x9E

   709 %

   710 /TeXBase1Encoding [

   711 % 0x00

   712  /.notdef /dotaccent /fi /fl

   713  /fraction /hungarumlaut /Lslash /lslash

   714  /ogonek /ring /.notdef /breve

   715  /minus /.notdef /Zcaron /zcaron

   716 % 0x10

   717  /caron /dotlessi /dotlessj /ff

   718  /ffi /ffl /notequal /infinity

   719  /lessequal /greaterequal /partialdiff /summation

   720  /product /pi /grave /quotesingle

   721 % 0x20

   722  /space /exclam /quotedbl /numbersign

   723  /dollar /percent /ampersand /quoteright

   724  /parenleft /parenright /asterisk /plus

   725  /comma /hyphen /period /slash

   726 % 0x30

   727  /zero /one /two /three

   728  /four /five /six /seven

   729  /eight /nine /colon /semicolon

   730  /less /equal /greater /question

   731 % 0x40

   732  /at /A /B /C

   733  /D /E /F /G

   734  /H /I /J /K

   735  /L /M /N /O

   736 % 0x50

   737  /P /Q /R /S

   738  /T /U /V /W

   739  /X /Y /Z /bracketleft

   740  /backslash /bracketright /asciicircum /underscore

   741 % 0x60

   742  /quoteleft /a /b /c

   743  /d /e /f /g

   744  /h /i /j /k

   745  /l /m /n /o

   746 % 0x70

   747  /p /q /r /s

   748  /t /u /v /w

   749  /x /y /z /braceleft

   750  /bar /braceright /asciitilde /.notdef

   751 % 0x80

   752  /Euro /integral /quotesinglbase /florin

   753  /quotedblbase /ellipsis /dagger /daggerdbl

   754  /circumflex /perthousand /Scaron /guilsinglleft

   755  /OE /Omega /radical /approxequal

   756 % 0x90

   757  /.notdef /.notdef /.notdef /quotedblleft

   758  /quotedblright /bullet /endash /emdash

   759  /tilde /trademark /scaron /guilsinglright

   760  /oe /Delta /lozenge /Ydieresis

   761 % 0xA0

   762  /.notdef /exclamdown /cent /sterling

   763  /currency /yen /brokenbar /section

   764  /dieresis /copyright /ordfeminine /guillemotleft

   765  /logicalnot /hyphen /registered /macron

   766 % 0xD0

   767  /degree /plusminus /twosuperior /threesuperior

   768  /acute /mu /paragraph /periodcentered

   769  /cedilla /onesuperior /ordmasculine /guillemotright

   770  /onequarter /onehalf /threequarters /questiondown

   771 % 0xC0

   772  /Agrave /Aacute /Acircumflex /Atilde

   773  /Adieresis /Aring /AE /Ccedilla

   774  /Egrave /Eacute /Ecircumflex /Edieresis

   775  /Igrave /Iacute /Icircumflex /Idieresis

   776 % 0xD0

   777  /Eth /Ntilde /Ograve /Oacute

   778  /Ocircumflex /Otilde /Odieresis /multiply

   779  /Oslash /Ugrave /Uacute /Ucircumflex

   780  /Udieresis /Yacute /Thorn /germandbls

   781 % 0xE0

   782  /agrave /aacute /acircumflex /atilde

   783  /adieresis /aring /ae /ccedilla

   784  /egrave /eacute /ecircumflex /edieresis

   785  /igrave /iacute /icircumflex /idieresis

   786 % 0xF0

   787  /eth /ntilde /ograve /oacute

   788  /ocircumflex /otilde /odieresis /divide

   789  /oslash /ugrave /uacute /ucircumflex

   790  /udieresis /yacute /thorn /ydieresis

   791 ] def

   792 

   793 

   794 %%EndProcSet

   795 %%BeginProcSet: texps.pro 0 0

   796 %!

   797 TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2

   798 index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll

   799 exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]FontType 0

   800 ne{/Metrics exch def dict begin Encoding{exch dup type/integertype ne{

   801 pop pop 1 sub dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get

   802 div def}ifelse}forall Metrics/Metrics currentdict end def}{{1 index type

   803 /nametype eq{exit}if exch pop}loop}ifelse[2 index currentdict end

   804 definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{dup

   805 sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1 roll

   806 mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def dup[

   807 exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}if}

   808 forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}def

   809 end

   810 

   811 %%EndProcSet

   812 %%BeginProcSet: special.pro 0 0

   813 %!

   814 TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N

   815 /vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N

   816 /rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N

   817 /@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{

   818 /hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho

   819 X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B

   820 /@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{

   821 /urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known

   822 {userdict/md get type/dicttype eq{userdict begin md length 10 add md

   823 maxlength ge{/md md dup length 20 add dict copy def}if end md begin

   824 /letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S

   825 atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{

   826 itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll

   827 transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll

   828 curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf

   829 pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}

   830 if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1

   831 -1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3

   832 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip

   833 yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub

   834 neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{

   835 noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop

   836 90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get

   837 neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr

   838 1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr

   839 2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4

   840 -1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S

   841 TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{

   842 Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale

   843 }if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState

   844 save N userdict maxlength dict begin/magscale true def normalscale

   845 currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts

   846 /psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x

   847 psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx

   848 psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub

   849 TR/showpage{}N/erasepage{}N/setpagedevice{pop}N/copypage{}N/p 3 def

   850 @MacSetUp}N/doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll

   851 newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto

   852 closepath clip newpath moveto}N/endTexFig{end psf$SavedState restore}N

   853 /@beginspecial{SDict begin/SpecialSave save N gsave normalscale

   854 currentpoint TR @SpecialDefaults count/ocount X/dcount countdictstack N}

   855 N/@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs

   856 neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate

   857 rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse

   858 scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg

   859 lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx

   860 ury lineto llx ury lineto closepath clip}if/showpage{}N/erasepage{}N

   861 /setpagedevice{pop}N/copypage{}N newpath}N/@endspecial{count ocount sub{

   862 pop}repeat countdictstack dcount sub{end}repeat grestore SpecialSave

   863 restore end}N/@defspecial{SDict begin}N/@fedspecial{end}B/li{lineto}B

   864 /rl{rlineto}B/rc{rcurveto}B/np{/SaveX currentpoint/SaveY X N 1

   865 setlinecap newpath}N/st{stroke SaveX SaveY moveto}N/fil{fill SaveX SaveY

   866 moveto}N/ellipse{/endangle X/startangle X/yrad X/xrad X/savematrix

   867 matrix currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc

   868 savematrix setmatrix}N end

   869 

   870 %%EndProcSet

   871 %%BeginProcSet: color.pro 0 0

   872 %!

   873 TeXDict begin/setcmykcolor where{pop}{/setcmykcolor{dup 10 eq{pop

   874 setrgbcolor}{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll

   875 }repeat setrgbcolor pop}ifelse}B}ifelse/TeXcolorcmyk{setcmykcolor}def

   876 /TeXcolorrgb{setrgbcolor}def/TeXcolorgrey{setgray}def/TeXcolorgray{

   877 setgray}def/TeXcolorhsb{sethsbcolor}def/currentcmykcolor where{pop}{

   878 /currentcmykcolor{currentrgbcolor 10}B}ifelse/DC{exch dup userdict exch

   879 known{pop pop}{X}ifelse}B/GreenYellow{0.15 0 0.69 0 setcmykcolor}DC

   880 /Yellow{0 0 1 0 setcmykcolor}DC/Goldenrod{0 0.10 0.84 0 setcmykcolor}DC

   881 /Dandelion{0 0.29 0.84 0 setcmykcolor}DC/Apricot{0 0.32 0.52 0

   882 setcmykcolor}DC/Peach{0 0.50 0.70 0 setcmykcolor}DC/Melon{0 0.46 0.50 0

   883 setcmykcolor}DC/YellowOrange{0 0.42 1 0 setcmykcolor}DC/Orange{0 0.61

   884 0.87 0 setcmykcolor}DC/BurntOrange{0 0.51 1 0 setcmykcolor}DC

   885 /Bittersweet{0 0.75 1 0.24 setcmykcolor}DC/RedOrange{0 0.77 0.87 0

   886 setcmykcolor}DC/Mahogany{0 0.85 0.87 0.35 setcmykcolor}DC/Maroon{0 0.87

   887 0.68 0.32 setcmykcolor}DC/BrickRed{0 0.89 0.94 0.28 setcmykcolor}DC/Red{

   888 0 1 1 0 setcmykcolor}DC/OrangeRed{0 1 0.50 0 setcmykcolor}DC/RubineRed{

   889 0 1 0.13 0 setcmykcolor}DC/WildStrawberry{0 0.96 0.39 0 setcmykcolor}DC

   890 /Salmon{0 0.53 0.38 0 setcmykcolor}DC/CarnationPink{0 0.63 0 0

   891 setcmykcolor}DC/Magenta{0 1 0 0 setcmykcolor}DC/VioletRed{0 0.81 0 0

   892 setcmykcolor}DC/Rhodamine{0 0.82 0 0 setcmykcolor}DC/Mulberry{0.34 0.90

   893 0 0.02 setcmykcolor}DC/RedViolet{0.07 0.90 0 0.34 setcmykcolor}DC

   894 /Fuchsia{0.47 0.91 0 0.08 setcmykcolor}DC/Lavender{0 0.48 0 0

   895 setcmykcolor}DC/Thistle{0.12 0.59 0 0 setcmykcolor}DC/Orchid{0.32 0.64 0

   896 0 setcmykcolor}DC/DarkOrchid{0.40 0.80 0.20 0 setcmykcolor}DC/Purple{

   897 0.45 0.86 0 0 setcmykcolor}DC/Plum{0.50 1 0 0 setcmykcolor}DC/Violet{

   898 0.79 0.88 0 0 setcmykcolor}DC/RoyalPurple{0.75 0.90 0 0 setcmykcolor}DC

   899 /BlueViolet{0.86 0.91 0 0.04 setcmykcolor}DC/Periwinkle{0.57 0.55 0 0

   900 setcmykcolor}DC/CadetBlue{0.62 0.57 0.23 0 setcmykcolor}DC

   901 /CornflowerBlue{0.65 0.13 0 0 setcmykcolor}DC/MidnightBlue{0.98 0.13 0

   902 0.43 setcmykcolor}DC/NavyBlue{0.94 0.54 0 0 setcmykcolor}DC/RoyalBlue{1

   903 0.50 0 0 setcmykcolor}DC/Blue{1 1 0 0 setcmykcolor}DC/Cerulean{0.94 0.11

   904 0 0 setcmykcolor}DC/Cyan{1 0 0 0 setcmykcolor}DC/ProcessBlue{0.96 0 0 0

   905 setcmykcolor}DC/SkyBlue{0.62 0 0.12 0 setcmykcolor}DC/Turquoise{0.85 0

   906 0.20 0 setcmykcolor}DC/TealBlue{0.86 0 0.34 0.02 setcmykcolor}DC

   907 /Aquamarine{0.82 0 0.30 0 setcmykcolor}DC/BlueGreen{0.85 0 0.33 0

   908 setcmykcolor}DC/Emerald{1 0 0.50 0 setcmykcolor}DC/JungleGreen{0.99 0

   909 0.52 0 setcmykcolor}DC/SeaGreen{0.69 0 0.50 0 setcmykcolor}DC/Green{1 0

   910 1 0 setcmykcolor}DC/ForestGreen{0.91 0 0.88 0.12 setcmykcolor}DC

   911 /PineGreen{0.92 0 0.59 0.25 setcmykcolor}DC/LimeGreen{0.50 0 1 0

   912 setcmykcolor}DC/YellowGreen{0.44 0 0.74 0 setcmykcolor}DC/SpringGreen{

   913 0.26 0 0.76 0 setcmykcolor}DC/OliveGreen{0.64 0 0.95 0.40 setcmykcolor}

   914 DC/RawSienna{0 0.72 1 0.45 setcmykcolor}DC/Sepia{0 0.83 1 0.70

   915 setcmykcolor}DC/Brown{0 0.81 1 0.60 setcmykcolor}DC/Tan{0.14 0.42 0.56 0

   916 setcmykcolor}DC/Gray{0 0 0 0.50 setcmykcolor}DC/Black{0 0 0 1

   917 setcmykcolor}DC/White{0 0 0 0 setcmykcolor}DC end

   918 

   919 %%EndProcSet

   920 TeXDict begin 39139632 55387786 1000 600 600 (Main-jv.dvi)

   921 @start

   922 %DVIPSBitmapFont: Fa cmsy5 5 3

   923 /Fa 3 106 df<038007C007C007C00F800F800F800F001F001E001E003E003C003C0038

   924 007800780070007000E000E0000A157D9612>48 D<0030007000F000E001E001C003C003

   925 80078007000F000E000E001E001C003C00380078007000F000E000F0007000780038003C

   926 001C001E000E000E000F0007000780038003C001C001E000E000F0007000300C297A9E19

   927 >104 D<E000E000F0007000780038003C001C001E000E000F00070007000780038003C0

   928 01C001E000E000F0007000F000E001E001C003C003800780070007000F000E001E001C00

   929 3C00380078007000F000E000E0000C297B9E19>I E

   930 %EndDVIPSBitmapFont

   931 %DVIPSBitmapFont: Fb msam9 9 2

   932 /Fb 2 114 df<7FFFFFF0FFFFFFF8FFFFFFF8FFFFFFF0F0000000F0000000F0000000F0

   933 000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0

   934 000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0

   935 000000F0000000F0000000600000001D1D7CB326>112 D<7FFFFFF0FFFFFFF8FFFFFFF8

   936 7FFFFFF80000007800000078000000780000007800000078000000780000007800000078

   937 000000780000007800000078000000780000007800000078000000780000007800000078

   938 00000078000000780000007800000078000000780000007800000078000000301D1D7CB3

   939 26>I E

   940 %EndDVIPSBitmapFont

   941 %DVIPSBitmapFont: Fc cmtt8 7 3

   942 /Fc 3 110 df<FFFC0000FFFC0000FFFC0000FFFC00000F8000000F8000000F8000000F

   943 8000000F8000000F8000000F8000000F8000000F8000000F8000000F8000000F8000000F

   944 8000000F8000000F8000000F8000000F8000000F8000000F8000000F8000000F8000000F

   945 8000000F8007C00F8007C00F8007C00F8007C00F8007C00F8007C0FFFFFFC0FFFFFFC0FF

   946 FFFFC0FFFFFF801A247EA31F>76 D<0FFE00003FFF80007FFFE0007FFFF0007E03F8007E

   947 01FC003C00FC0000007C000007FC0000FFFC0007FFFC001FFFFC003FFC7C007F807C00FE

   948 007C00FC007C00F8007C00F8007C00FC00FC00FC00FC007F07FC003FFFFFC01FFFFFE00F

   949 FFBFE003FC0FC01B197D981F>97 D<7C7C1F00FFFE7F80FFFFFFC07FFFFFE01FCFF3E01F

   950 87E1E01F07C1E01F07C1E01E0781E01E0781E01E0781E01E0781E01E0781E01E0781E01E

   951 0781E01E0781E01E0781E01E0781E01E0781E01E0781E01E0781E07F87E1F8FFCFF3FCFF

   952 CFF3FC7F87E1F81E1980981F>109 D E

   953 %EndDVIPSBitmapFont

   954 %DVIPSBitmapFont: Fd cmtt8 6 7

   955 /Fd 7 115 df<007C00007C0000FE0000FE0000FE0000EE0000EE0001EF0001EF0001EF

   956 0001C70001C70003C78003C78003C78003C7800783C00783C00783C00783C007FFC00FFF

   957 E00FFFE00FFFE00F01E00F01E01E00F07F83FCFFC7FEFFC7FE7F83FC171F7F9E1A>65

   958 D<7FF000FFF800FFF8007FF0000F00000F00000F00000F00000F00000F00000F00000F00

   959 000F00000F00000F00000F00000F00000F00000F00000F00000F00000F003C0F003C0F00

   960 3C0F003C0F003C7FFFFCFFFFFCFFFFFC7FFFFC161E7F9D1A>76 D<FF83FEFF83FEFF83FE

   961 FF83FE1E00F01E00F01E00F00F01E00F01E00F01E00F01E00F83E00783C00783C00783C0

   962 0783C003C78003C78003C78003C78001C70001EF0001EF0001EF0001EF0000EE0000FE00

   963 00FE0000FE00007C00007C00171F7F9D1A>86 D<0FF8001FFF003FFF803FFFC03E0FE01C

   964 03E00001E000FFE007FFE01FFFE07FF1E07E01E0F801E0F001E0F001E0F803E0FC0FE07F

   965 FFFE3FFFFE1FFCFE07F07E17157E941A>97 D<7CF87C00FFFDFE00FFFFFE007FFFFF001F

   966 1F8F001E0F07001E0F07001C0E07001C0E07001C0E07001C0E07001C0E07001C0E07001C

   967 0E07001C0E07001C0E07001C0E07007F1F8FC0FFBFDFE0FFBFDFE07F1F8FC01B1581941A

   968 >109 D<7F1FC0FF7FE0FFFFF07FFFF80FE0FC0F807C0F003C0F003E0F001E0F001E0F00

   969 1E0F001E0F001E0F803E0F803C0FC07C0FE1F80FFFF80FFFF00F7FE00F1F800F00000F00

   970 000F00000F00000F00000F00000F00007FE000FFF000FFF0007FE000172080941A>112

   971 D<7FC3F8FFCFFCFFDFFE7FFFFE03FE3E03F81C03F00003E00003E00003C00003C00003C0

   972 0003C00003C00003C00003C00003C0007FFF80FFFF80FFFF807FFF8017157F941A>114

   973 D E

   974 %EndDVIPSBitmapFont

   975 /Fe 169[46 1[39 4[46 46 4[21 3[39 69[{TeXBase1Encoding ReEncodeFont}6

   976 63.0966 /Times-Roman rf /Ff 133[26 29 29 44 29 33 18

   977 26 26 33 33 33 33 48 18 29 1[18 33 33 18 29 33 29 33

   978 33 9[55 41 48 37 33 41 1[41 48 44 55 37 44 29 22 48 48

   979 41 41 48 44 41 41 6[22 33 33 33 33 33 1[33 33 33 33 1[17

   980 22 3[22 22 37[33 2[{TeXBase1Encoding ReEncodeFont}62

   981 66.4176 /Times-Italic rf

   982 %DVIPSBitmapFont: Fg cmti8 8 8

   983 /Fg 8 118 df<0000003FF800000001FFFE00000003F00F8000000FC003C000001F0003

   984 C000001F000FC000003E000FC000003E000FC000007E000FC000007C00070000007C0000

   985 0000007C0000000000FC0000000000F80000000000F80000000000F80000000000F80000

   986 000000F8000000007FFFFFFE00007FFFFFFE000001F0007E000001F0007C000001F0007C

   987 000003F0007C000003E000FC000003E000F8000003E000F8000003E000F8000007E001F8

   988 000007C001F0000007C001F0000007C001F0000007C003F000000FC003E000000F8003E0

   989 00000F8003E000000F8007E180000F8007C380001F8007C380001F8007C380001F0007C3

   990 80001F0007C780001F00078700003F00078700003E00078E00003E0003DE00003E0001FC

   991 00003E0000F800007E00000000007C00000000007C00000000007C0000000038F8000000

   992 00FCF800000000FCF800000000FCF000000000FDF000000000F1E000000000F3C0000000

   993 007F80000000001E00000000002A3D81AE28>12 D<0003F800000FFE00003E0F0000F807

   994 0001F0038003E0038007C003800FC007801F8007001F800F003F001E003F003C007F03F8

   995 007FFFE0007FFE00007E000000FE000000FC000000FC000000FC000000FC0000007C0000

   996 007C0001807C0003C07C0007803E000F003E001E001F007C000F83F00003FFC00000FE00

   997 001A1F799D21>101 D<000E00001F00003F80003F80001F00000E000000000000000000

   998 0000000000000000000000000000000000000003E0000FF0001E78001C7C00387C00787C

   999 00707C0070FC00F0F800E0F800E1F800C1F00001F00003F00003E00007E00007C00007C0

  1000 000FC0000F83000F87001F87001F07001F0F003F0E003E0E001E1C001E3C001E38000FF0

  1001 0003C000112E7AAC16>105 D<07801FC0001FE07FF0003DF1E0F80038F3C0780078FF00

  1002 7C0070FE007C0070FE007C00F1FC007C00E1F8007C00E1F8007C00E1F0007C00C3F000FC

  1003 0003F000F80003E000F80003E000F80007E001F80007E001F00007C001F00007C003F000

  1004 0FC003E0C00FC003E1C00F8007E1C00F8007C1C01F8007C3C01F800FC3801F000F83801F

  1005 000787003F000787003F00078E003E0003FC001C0000F000221F7A9D28>110

  1006 D<003C01F00000FF07FC0001E79E1E0001C7BC0F0003C7F80F800387F007800387E007C0

  1007 078FC007C0070FC007C0070F8007C0070F8007C0061F800FC0001F800FC0001F000FC000

  1008 1F000FC0003F001FC0003F001F80003E001F80003E001F80007E003F00007E003F00007C

  1009 003E00007C007E0000FC007C0000FC00F80000FE01F80000FE01F00001FF03E00001FF0F

  1010 800001F3FE000001F0F8000003F000000003F000000003E000000003E000000007E00000

  1011 0007E000000007C000000007C00000000FC00000000FC0000000FFFC000000FFFC000000

  1012 222B7F9D24>112 D<000FC0007FF000F03C01E01C03C01E07801E07803E07803E0F803C

  1013 0F80180FC0000FF8000FFF0007FFC003FFE001FFF0007FF00007F00003F00001F07800F0

  1014 FC00F0FC00F0FC01F0F801E0E001E0E003C0F00780781F001FFC0007F000171F7A9D1D>

  1015 115 D<001C00003E00003E00007E00007E00007C00007C0000FC0000FC0000F80000F800

  1016 01F80001F800FFFFE0FFFFE003F00003F00003E00003E00007E00007E00007C00007C000

  1017 0FC0000FC0000F80000F80001F80001F80001F00001F00003F00C03F01C03E01C03E03C0

  1018 3E03803E07803C07003C0E003C1E001E3C000FF00007C000132B7AA918>I<03C000000F

  1019 F000381E78007C1C7C00FC387C00F8787C00F8707C00F870FC01F8F0F801F0E0F801F0E1

  1020 F801F0C1F003F001F003E003F003E003E003E003E007E007E007C007C007C007C007C007

  1021 C00FC30FC00F870F800F870F800F870F801F870F801F8F07803F0E07807F0E07C07F1C03

  1022 E1E7BC01FF83F8007E01E0201F7A9D26>I E

  1023 %EndDVIPSBitmapFont

  1024 %DVIPSBitmapFont: Fh msbm9 9 1

  1025 /Fh 1 64 df<000007FC0000C000007FFFC003E00001FFFFF007E00003FFFFF80FC0000F

  1026 FC07FE1F80001FC0007F3F00003F00001FFE00007E00000FFC0000FC000007F00001F800

  1027 0007F00003F000000FF80003E000001FF80007C000007F7C0007C00000FE7C0007800001

  1028 F83C000F800003F03E000F800007E03E000F00000FC01E000F00003F801E000F00007F00

  1029 1E000F0000FC001E000F0001F8001F000F0003F0001F000F0007E0001E000F001FC0001E

  1030 000F003F80001E000F007E00001E000F80FC00003E000F81F800003E000783F000003C00

  1031 07CFE000007C0007DFC000007C0003FF000000F80003FE000001F80001FC000003F00001

  1032 FC000007E00007FE00000FC0000FFF00001F80001F9FC0007F00003F0FFC07FE00007E03

  1033 FFFFF80000FC01FFFFF00000F8007FFFC00000600007FC000000332C7CAB3C>63

  1034 D E

  1035 %EndDVIPSBitmapFont

  1036 /Fi 153[16 26 29 100[{TeXBase1Encoding ReEncodeFont}3

  1037 58.1154 /Times-Italic rf

  1038 %DVIPSBitmapFont: Fj cmr5 5 3

  1039 /Fj 3 52 df<00600001E0000FE000FFE000F1E00001E00001E00001E00001E00001E000

  1040 01E00001E00001E00001E00001E00001E00001E00001E00001E00001E00001E00001E000

  1041 01E00001E00001E00001E0007FFF807FFF80111C7B9B1C>49 D<03FC000FFF003C0FC070

  1042 03E07801F0FC00F0FC00F8FC00F8FC00787800780000F80000F00000F00001E00003C000

  1043 0780000F00001C0000380000E00001C0180380180600180C00383FFFF07FFFF0FFFFF0FF

  1044 FFF0151C7D9B1C>I<01FC000FFF801E07C03001E07C01F07C00F07E00F07C01F03801E0

  1045 0003E00007C0001F8003FE0003FC000007800003C00001E00000F00000F83000F87800F8

  1046 FC00F8FC00F8FC00F07801F07003E03C07C00FFF0003FC00151D7D9B1C>I

  1047 E

  1048 %EndDVIPSBitmapFont

  1049 %DVIPSBitmapFont: Fk cmti9 9 20

  1050 /Fk 20 118 df<00000003FF800000001FFFF00000003F00F8000000F8003C000001F000

  1051 3E000003E0007E000003E000FE000007C000FE000007C000FC000007C0003800000F8000

  1052 0000000F80000000000F80000000001F80000000001F00000000001F00000000001F0000

  1053 0000001F00000000001F00000000003F00000000003E000000001FFFFFFFE0001FFFFFFF

  1054 E0001FFFFFFFC000007E0007C000007C0007C000007C000FC000007C000F8000007C000F

  1055 800000FC000F800000F8001F800000F8001F000000F8001F000000F8001F000001F8003F

  1056 000001F0003E000001F0003E000001F0003E000001F0007E000003F0007C000003E0007C

  1057 000003E0007C180003E000FC1C0003E000F83C0007E000F8380007C000F8380007C000F8

  1058 780007C000F8700007C000F070000FC000F0F0000F8000F8E0000F800079E0000F80003F

  1059 C0001F80000F00001F80000000001F00000000001F00000000001F00000000003E000000

  1060 00003E00000000383E000000007E3C000000007E7C00000000FE7800000000FC78000000

  1061 00F8F00000000079E0000000003FC0000000000F00000000002F4582B42B>12

  1062 D<000000001C00000000003C00000000003C00000000007C0000000000FC0000000000FC

  1063 0000000001FC0000000001FE0000000003FE0000000003FE00000000077E000000000F7E

  1064 000000000E7E000000001C7E000000001C7E00000000387E00000000387E00000000707E

  1065 00000000F07E00000000E07E00000001C07E00000001C07E00000003807F00000003803F

  1066 00000007003F00000007003F0000000E003F0000001E003F0000001C003F00000038003F

  1067 00000038003F00000070003F00000070003F000000E0003F000001FFFFFF000001FFFFFF

  1068 000003FFFFFF00000380003F00000700001F80000700001F80000E00001F80001E00001F

  1069 80001C00001F80003C00001F80003800001F80007000001F8000F000001F8000E000001F

  1070 8001E000001F8003E000001F800FF000003FC0FFFE0007FFFEFFFE0007FFFEFFFE0007FF

  1071 FE2F367BB539>65 D<0007FFFFC000000FFFFFC000000FFFFFC00000003FC0000000003F

  1072 80000000003F80000000003F00000000003F00000000007F00000000007F00000000007E

  1073 00000000007E0000000000FE0000000000FE0000000000FC0000000000FC0000000001FC

  1074 0000000001FC0000000001F80000000001F80000000003F80000000003F80000000003F0

  1075 0000000003F00000000007F00000000007F00000000007E00000000007E0000000000FE0

  1076 000000000FE0000000000FC0000000000FC00000E0001FC00001E0001FC00001C0001F80

  1077 0001C0001F800003C0003F80000380003F80000780003F00000780003F00000F00007F00

  1078 000F00007F00001F00007E00003E00007E00003E0000FE00007C0000FE0001FC0000FC00

  1079 03FC0001FC001FF8007FFFFFFFF800FFFFFFFFF800FFFFFFFFF0002B337CB230>76

  1080 D<0007FFC00000007FFC000FFFC0000000FFFC000FFFE0000000FFFC00003FE0000001FF

  1081 0000003FE0000001FE0000003FE0000003FE0000003BE00000077C0000003BE00000077C

  1082 0000007BE000000EFC0000007BE000000EF800000073E000001CF800000073E0000038F8

  1083 000000F1F0000039F8000000F1F0000071F0000000E1F0000071F0000000E1F00000E1F0

  1084 000001E1F00001C3F0000001E1F00001C3E0000001C1F0000383E0000001C1F0000703E0

  1085 000003C1F0000707E0000003C1F0000E07C000000380F8000E07C000000380F8001C07C0

  1086 00000780F800380FC000000780F800380F8000000700F800700F8000000700F800700F80

  1087 00000F00F800E01F8000000F00F801C01F0000000E00F801C01F0000000E00F803801F00

  1088 00001E007C03803F0000001E007C07003E0000001C007C0E003E0000001C007C0E003E00

  1089 00003C007C1C007E0000003C007C1C007C00000038007C38007C00000038007C70007C00

  1090 000078007C7000FC00000078003EE000F800000070003EE000F800000070003FC000F800

  1091 0000F0003F8001F8000000F0003F8001F0000001F0003F0001F0000007F8003F0003F000

  1092 007FFF803E00FFFFC000FFFF803C01FFFFC000FFFF801C01FFFFC00046337BB245>I<00

  1093 07FF80003FFFC0000FFFC0007FFFC0000FFFC0007FFFC000001FC00003F80000003FE000

  1094 01F00000003FE00001E00000003FE00001C00000003BF00001C00000007BF00003C00000

  1095 007BF000038000000071F800038000000071F8000380000000F1F8000780000000F0FC00

  1096 0700000000E0FC000700000000E0FC000700000001E07E000F00000001E07E000E000000

  1097 01C07E000E00000001C03F000E00000003C03F001E00000003C03F801C00000003801F80

  1098 1C00000003801F801C00000007801FC03C00000007800FC03800000007000FC038000000

  1099 07000FE0380000000F0007E0780000000F0007E0700000000E0007F0700000000E0003F0

  1100 700000001E0003F0F00000001E0003F8E00000001C0001F8E00000001C0001F8E0000000

  1101 3C0001FDE00000003C0000FDC0000000380000FDC0000000380000FFC00000007800007F

  1102 C00000007800007F800000007000003F800000007000003F80000000F000003F80000000

  1103 F000001F00000001F000001F00000007F800001F0000007FFF80000F000000FFFF80000E

  1104 000000FFFF80000E0000003A337BB239>I<0007FFFFFE0000000FFFFFFFC000000FFFFF

  1105 FFF00000003F8007F80000003F8001FC0000003F80007E0000003F00007F0000003F0000

  1106 3F0000007F00003F0000007F00003F8000007E00003F8000007E00003F800000FE00003F

  1107 800000FE00007F000000FC00007F000000FC00007F000001FC0000FE000001FC0000FC00

  1108 0001F80001FC000001F80001F8000003F80003F0000003F8000FC0000003F0001F800000

  1109 03F000FE00000007FFFFF000000007FFFFC000000007E003E000000007E001F80000000F

  1110 E000FC0000000FE0007C0000000FC0007E0000000FC0007E0000001FC0007E0000001FC0

  1111 007E0000001F80007E0000001F80007E0000003F8000FE0000003F8000FE0000003F0000

  1112 FE0000003F0000FE0000007F0001FE0000007F0001FC0000007E0001FC0000007E0001FC

  1113 01C000FE0001FC03C000FE0001FC038000FC0001FC038001FC0001FC07807FFFF000FC07

  1114 00FFFFF000FE0E00FFFFF0007E1C00000000001FF8000000000007E00032357BB238>82

  1115 D<000001FC018000000FFF038000003FFFC78000007E07EF800001F801FF000003F000FF

  1116 000003E0007F000007C0007F00000F80003E00001F80003E00001F00003E00003F00003E

  1117 00003E00003C00003E00003C00003E00003C00007E00003C00007E00003800007E000038

  1118 00007E00000000007F00000000007F00000000003F80000000003FE0000000003FFE0000

  1119 00001FFFC00000000FFFF800000007FFFC00000001FFFE000000007FFF000000000FFF80

  1120 00000000FF80000000003F80000000001FC0000000000FC0000000000FC0000000000FC0

  1121 000000000FC0000E00000FC0000E00000FC0001E00000F80001C00000F80001C00000F80

  1122 001C00001F80003C00001F00003C00001F00003E00003E00003E00007C00007E00007C00

  1123 007F0000F800007F8001F000007FC007E00000F3F80FC00000F0FFFF000000E03FFC0000

  1124 00C00FF000000029377AB42B>I<FFFFC0003FFF80FFFFC0003FFF80FFFFC0003FFF8007

  1125 F8000007F80007F0000003E00007F0000003C00003F0000007800003F0000007000003F0

  1126 00000F000003F000000E000003F000001C000003F000001C000003F0000038000003F000

  1127 0078000003F0000070000003F00000E0000003F80000E0000001F80001C0000001F80003

  1128 C0000001F8000380000001F8000700000001F8000700000001F8000E00000001F8001E00

  1129 000001F8001C00000001F8003800000001FC003800000001FC007000000000FC00F00000

  1130 0000FC00E000000000FC01C000000000FC01C000000000FC038000000000FC0380000000

  1131 00FC070000000000FC0E0000000000FC0E0000000000FE1C00000000007E1C0000000000

  1132 7E3800000000007E7800000000007E7000000000007EE000000000007EE000000000007F

  1133 C000000000007FC000000000007F8000000000007F0000000000007F0000000000003E00

  1134 00000000003E0000000000003C000000000000380000000000313570B239>86

  1135 D<0000FC000007FF00001F0780003E03C000FC01C001F803C003F007C007E00FC007C00F