1 %!PS-Adobe-2.0

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

     3 %%Title: 08.dvi

     4 %%Pages: 10

     5 %%PageOrder: Ascend

     6 %%BoundingBox: 0 0 595 842

     7 %%DocumentFonts: Times-Bold CMMIB10 CMBX12 CMBX10 CMBSY10 ComicSansMS

     8 %%+ MSBM10 CMTT12

     9 %%EndComments

    10 %DVIPSWebPage: (www.radicaleye.com)

    11 %DVIPSCommandLine: dvips 08.dvi -o 08.ps

    12 %DVIPSParameters: dpi=600

    13 %DVIPSSource:  TeX output 2005.06.27:2120

    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: pst-text.pro 0 0

   650 %!

   651 % PostScript header file pst-text.pro

   652 % Version 97, 94/04/20; patched MV 10-09-99 00:36

   653 % For distribution, see pstricks.tex.

   654 

   655 /tx@TextPathDict 40 dict def

   656 tx@TextPathDict begin

   657 

   658 % Syntax:  <dist> PathPosition -

   659 % Function: Searches for position of currentpath distance <dist> from

   660 %           beginning. Sets (X,Y)=position, and Angle=tangent.

   661 /PathPosition

   662 { /targetdist exch def

   663   /pathdist 0 def

   664   /continue true def

   665   /X { newx } def /Y { newy } def /Angle 0 def

   666   gsave

   667     flattenpath

   668     { movetoproc }  { linetoproc } { } { firstx firsty linetoproc }

   669     /pathforall load stopped { pop pop pop pop /X 0 def /Y 0 def } if

   670   grestore

   671 } def

   672 

   673 /movetoproc { continue { @movetoproc } { pop pop } ifelse } def

   674 

   675 /@movetoproc

   676 { /newy exch def /newx exch def

   677   /firstx newx def /firsty newy def

   678 } def

   679 

   680 /linetoproc { continue { @linetoproc } { pop pop } ifelse } def

   681 

   682 /@linetoproc

   683 {

   684   /oldx newx def /oldy newy def

   685   /newy exch def /newx exch def

   686   /dx newx oldx sub def

   687   /dy newy oldy sub def

   688   /dist dx dup mul dy dup mul add sqrt def

   689   /pathdist pathdist dist add def

   690   pathdist targetdist ge

   691   { pathdist targetdist sub dist div dup

   692     dy mul neg newy add /Y exch def

   693     dx mul neg newx add /X exch def

   694     /Angle dy dx atan def

   695     /continue false def

   696   } if

   697 } def

   698 

   699 /TextPathShow

   700 { /String exch def

   701   /CharCount 0 def

   702   String length

   703   { String CharCount 1 getinterval ShowChar

   704     /CharCount CharCount 1 add def

   705   } repeat

   706 } def

   707 

   708 % Syntax: <pathlength> <position> InitTextPath -

   709 /InitTextPath

   710 { gsave

   711     currentpoint /Y exch def /X exch def

   712     exch X Hoffset sub sub mul

   713     Voffset Hoffset sub add

   714     neg X add /Hoffset exch def

   715     /Voffset Y def

   716   grestore

   717 } def

   718 

   719 /Transform

   720 { PathPosition

   721   dup

   722   Angle cos mul Y add exch

   723   Angle sin mul neg X add exch

   724   translate

   725   Angle rotate

   726 } def

   727 

   728 /ShowChar

   729 { /Char exch def

   730   gsave

   731     Char end stringwidth

   732     tx@TextPathDict begin

   733     2 div /Sy exch def 2 div /Sx exch def

   734 

   735 %%%  MV 10-09-99 00:36

   736     /sc?currentpoint where {pop sc?currentpoint} {currentpoint} ifelse

   737 %   currentpoint

   738 

   739     Voffset sub Sy add exch

   740     Hoffset sub Sx add

   741     Transform

   742     Sx neg Sy neg moveto

   743     Char end tx@TextPathSavedShow

   744     tx@TextPathDict begin

   745   grestore

   746   Sx 2 mul Sy 2 mul rmoveto

   747 } def

   748 

   749 end

   750 % END pst-text.pro

   751 

   752 %%EndProcSet

   753 %%BeginProcSet: 8r.enc 0 0

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

   755 %

   756 % @@psencodingfile@{

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

   758 %                W. Schmidt, P. Lehman",

   759 %   version   = "2.0",

   760 %   date      = "30 October 2002",

   761 %   filename  = "8r.enc",

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

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

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

   765 %                PSNFSS bundle, version 9"

   766 % @}

   767 % 

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

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

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

   771 % MacRoman, and some extra characters from Lucida.

   772 % 

   773 % Character code assignments were made as follows:

   774 % 

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

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

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

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

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

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

   781 % irritation not having them in TeX positions.

   782 % 

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

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

   785 % 

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

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

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

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

   790 % 

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

   792 %

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

   794 %

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

   796 %

   797 %     PostScript      MacRoman        TeXBase1

   798 %     --------------  --------------  --------------

   799 %     /notequal       173             0x16

   800 %     /infinity       176             0x17

   801 %     /lessequal      178             0x18

   802 %     /greaterequal   179             0x19

   803 %     /partialdiff    182             0x1A

   804 %     /summation      183             0x1B

   805 %     /product        184             0x1C

   806 %     /pi             185             0x1D

   807 %     /integral       186             0x81

   808 %     /Omega          189             0x8D

   809 %     /radical        195             0x8E

   810 %     /approxequal    197             0x8F

   811 %     /Delta          198             0x9D

   812 %     /lozenge        215             0x9E

   813 %

   814 /TeXBase1Encoding [

   815 % 0x00

   816  /.notdef /dotaccent /fi /fl

   817  /fraction /hungarumlaut /Lslash /lslash

   818  /ogonek /ring /.notdef /breve

   819  /minus /.notdef /Zcaron /zcaron

   820 % 0x10

   821  /caron /dotlessi /dotlessj /ff

   822  /ffi /ffl /notequal /infinity

   823  /lessequal /greaterequal /partialdiff /summation

   824  /product /pi /grave /quotesingle

   825 % 0x20

   826  /space /exclam /quotedbl /numbersign

   827  /dollar /percent /ampersand /quoteright

   828  /parenleft /parenright /asterisk /plus

   829  /comma /hyphen /period /slash

   830 % 0x30

   831  /zero /one /two /three

   832  /four /five /six /seven

   833  /eight /nine /colon /semicolon

   834  /less /equal /greater /question

   835 % 0x40

   836  /at /A /B /C

   837  /D /E /F /G

   838  /H /I /J /K

   839  /L /M /N /O

   840 % 0x50

   841  /P /Q /R /S

   842  /T /U /V /W

   843  /X /Y /Z /bracketleft

   844  /backslash /bracketright /asciicircum /underscore

   845 % 0x60

   846  /quoteleft /a /b /c

   847  /d /e /f /g

   848  /h /i /j /k

   849  /l /m /n /o

   850 % 0x70

   851  /p /q /r /s

   852  /t /u /v /w

   853  /x /y /z /braceleft

   854  /bar /braceright /asciitilde /.notdef

   855 % 0x80

   856  /Euro /integral /quotesinglbase /florin

   857  /quotedblbase /ellipsis /dagger /daggerdbl

   858  /circumflex /perthousand /Scaron /guilsinglleft

   859  /OE /Omega /radical /approxequal

   860 % 0x90

   861  /.notdef /.notdef /.notdef /quotedblleft

   862  /quotedblright /bullet /endash /emdash

   863  /tilde /trademark /scaron /guilsinglright

   864  /oe /Delta /lozenge /Ydieresis

   865 % 0xA0

   866  /.notdef /exclamdown /cent /sterling

   867  /currency /yen /brokenbar /section

   868  /dieresis /copyright /ordfeminine /guillemotleft

   869  /logicalnot /hyphen /registered /macron

   870 % 0xD0

   871  /degree /plusminus /twosuperior /threesuperior

   872  /acute /mu /paragraph /periodcentered

   873  /cedilla /onesuperior /ordmasculine /guillemotright

   874  /onequarter /onehalf /threequarters /questiondown

   875 % 0xC0

   876  /Agrave /Aacute /Acircumflex /Atilde

   877  /Adieresis /Aring /AE /Ccedilla

   878  /Egrave /Eacute /Ecircumflex /Edieresis

   879  /Igrave /Iacute /Icircumflex /Idieresis

   880 % 0xD0

   881  /Eth /Ntilde /Ograve /Oacute

   882  /Ocircumflex /Otilde /Odieresis /multiply

   883  /Oslash /Ugrave /Uacute /Ucircumflex

   884  /Udieresis /Yacute /Thorn /germandbls

   885 % 0xE0

   886  /agrave /aacute /acircumflex /atilde

   887  /adieresis /aring /ae /ccedilla

   888  /egrave /eacute /ecircumflex /edieresis

   889  /igrave /iacute /icircumflex /idieresis

   890 % 0xF0

   891  /eth /ntilde /ograve /oacute

   892  /ocircumflex /otilde /odieresis /divide

   893  /oslash /ugrave /uacute /ucircumflex

   894  /udieresis /yacute /thorn /ydieresis

   895 ] def

   896 

   897 

   898 %%EndProcSet

   899 %%BeginProcSet: texmital.enc 0 0

   900 % TeX math italic encoding.

   901 % No ligatures or kerns.

   902 % 

   903 /TeXMathItalicEncoding [          % now 256 chars follow

   904 % 0x0

   905 /Gamma

   906 /Delta

   907 /Theta

   908 /Lambda

   909 /Xi

   910 /Pi

   911 /Sigma

   912 /Upsilon

   913 

   914 % 0x8

   915 /Phi

   916 /Psi

   917 /Omega

   918 /alpha

   919 /beta

   920 /gamma

   921 /delta

   922 /epsilon1

   923 

   924 % 0x10

   925 /zeta

   926 /eta

   927 /theta

   928 /iota

   929 /kappa

   930 /lambda

   931 /mu

   932 /nu

   933 

   934 % 0x18

   935 /xi

   936 /pi

   937 /rho

   938 /sigma

   939 /tau

   940 /upsilon

   941 /phi

   942 /chi

   943 

   944 % 0x20

   945 /psi

   946 /omega

   947 /epsilon

   948 /theta1

   949 /pi1

   950 /rho1

   951 /sigma1

   952 /phi1

   953 

   954 % 0x28

   955 /arrowlefttophalf

   956 /arrowleftbothalf

   957 /arrowrighttophalf

   958 /arrowrightbothalf

   959 /arrowhookleft

   960 /arrowhookright

   961 /triangleright

   962 /triangleleft

   963 

   964 % 0x30

   965 /zerooldstyle

   966 /oneoldstyle

   967 /twooldstyle

   968 /threeoldstyle

   969 /fouroldstyle

   970 /fiveoldstyle

   971 /sixoldstyle

   972 /sevenoldstyle

   973 

   974 % 0x38

   975 /eightoldstyle

   976 /nineoldstyle

   977 /period

   978 /comma

   979 /less

   980 /slash

   981 /greater

   982 /star

   983 

   984 % 0x40

   985 /partialdiff

   986 /A

   987 /B

   988 /C

   989 /D

   990 /E

   991 /F

   992 /G

   993 

   994 % 0x48

   995 /H

   996 /I

   997 /J

   998 /K

   999 /L

  1000 /M

  1001 /N

  1002 /O

  1003 

  1004 % 0x50

  1005 /P

  1006 /Q

  1007 /R

  1008 /S

  1009 /T

  1010 /U

  1011 /V

  1012 /W

  1013 

  1014 % 0x58

  1015 /X

  1016 /Y

  1017 /Z

  1018 /flat

  1019 /natural

  1020 /sharp

  1021 /slurbelow

  1022 /slurabove

  1023 

  1024 % 0x60

  1025 /lscript

  1026 /a

  1027 /b

  1028 /c

  1029 /d

  1030 /e

  1031 /f

  1032 /g

  1033 

  1034 % 0x68

  1035 /h

  1036 /i

  1037 /j

  1038 /k

  1039 /l

  1040 /m

  1041 /n

  1042 /o

  1043 

  1044 % 0x70

  1045 /p

  1046 /q

  1047 /r

  1048 /s

  1049 /t

  1050 /u

  1051 /v

  1052 /w

  1053 

  1054 % 0x78

  1055 /x

  1056 /y

  1057 /z

  1058 /dotlessi

  1059 /dotlessj

  1060 /weierstrass

  1061 /vector

  1062 /tie

  1063 

  1064 % Have to have 128 .notdef's now to fill things out.

  1065 % 

  1066 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1067 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1068 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1069 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1070 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1071 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1072 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1073 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1074 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1075 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1076 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1077 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1078 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1079 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1080 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1081 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1082 ] def

  1083 

  1084 %%EndProcSet

  1085 %%BeginProcSet: texps.pro 0 0

  1086 %!

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

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

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

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

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

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

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

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

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

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

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

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

  1099 end

  1100 

  1101 %%EndProcSet

  1102 %%BeginProcSet: special.pro 0 0

  1103 %!

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

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

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

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

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

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

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

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

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

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

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

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

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

  1117 transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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