1 %!PS-Adobe-2.0

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

     3 %%Title: 01.dvi

     4 %%Pages: 102

     5 %%PageOrder: Ascend

     6 %%BoundingBox: 0 0 595 842

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

     8 %%+ ComicSansMS-Bold CMTT10 CMBSY7 CMEX10 CMBSY10 CMMIB7 MSBM10 CMBX8

     9 %%+ CMBX7

    10 %%EndComments

    11 %DVIPSWebPage: (www.radicaleye.com)

    12 %DVIPSCommandLine: dvips 01.dvi -o 01.ps

    13 %DVIPSParameters: dpi=600

    14 %DVIPSSource:  TeX output 2005.04.12:1718

    15 %%BeginProcSet: tex.pro 0 0

    16 %!

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    46 /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{

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

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

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

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

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

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

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

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

    55 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}

    56 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{

    57 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

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

    59 

    60 %%EndProcSet

    61 %%BeginProcSet: pstricks.pro 0 0

    62 %!

    63 % PostScript prologue for pstricks.tex.

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

    65 % For distribution, see pstricks.tex.

    66 %

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

    68 /ADict 25 dict def

    69 /CM { matrix currentmatrix } bind def

    70 /SLW /setlinewidth load def

    71 /CLW /currentlinewidth load def

    72 /CP /currentpoint load def

    73 /ED { exch def } bind def

    74 /L /lineto load def

    75 /T /translate load def

    76 /TMatrix { } def

    77 /RAngle { 0 } def

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

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

    80 /NET { neg exch neg exch T } def

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

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

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

    84 def

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

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

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

    88 /STP { .996264 dup scale } def

    89 /STV { SDict begin normalscale end STP  } def

    90 %

    91 %%-------------- DG begin patch 15 ---------------%%

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

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

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

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

    96 %0 } ifelse setdash stroke } def

    97 /DashLine {

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

    99   /b ED /x1 ED /y1 ED /x ED /y ED 

   100   /z y x add y1 add x1 add def

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

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

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

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

   105   { [ 1 0] 0 } ifelse setdash stroke

   106 } def

   107 %%-------------- DG end patch 15 ---------------%%

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

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

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

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

   112 setlinecap stroke } def

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

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

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

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

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

   118 % DG/SR modification end

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

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

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

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

   123 % def

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

   125 pop pop } def

   126 % DG/SR modification end

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

   128 exch 3 index sub exch Atan rotate newpath } def

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

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

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

   132 grestore } def

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

   134 CLW moveto } def

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

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

   137 CLW moveto } def

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

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

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

   141 def

   142 /SD { 0 360 arc fill } def

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

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

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

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

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

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

   149 cvi def } def

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

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

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

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

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

   155 ifelse { pop } repeat a } def

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

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

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

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

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

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

   162 Lineto pop pop closepath } ifelse } def

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

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

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

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

   167 setmatrix } def

   168 % DG modification begin - Jan. 15, 1997

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

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

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

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

   173 %setmatrix } def

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

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

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

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

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

   179 % setmatrix } def

   180 setmatrix pop } def

   181 % DG/SR modification end

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

   183 def } def

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

   185 def } def

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

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

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

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

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

   191 m mul neg def } def

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

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

   194 def

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

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

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

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

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

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

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

   202     n { NC } repeat EOC } ifelse } def

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

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

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

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

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

   208 repeat closepath pop pop } ifelse } def

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

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

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

   212 def

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

   214 rotate matrix concatmatrix exch findfont exch makefont setfont } def

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

   216 x1 y1 lineto closepath } def

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

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

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

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

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

   222 ifelse } def

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

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

   225 pop pop Rect } { OvalFrame } ifelse } def

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

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

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

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

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

   231 ifelse } def

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

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

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

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

   236 def

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   257 w add def } repeat grestore gsave n 0 gt

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

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

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

   261 % DG/SR modification end

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

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

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

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

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

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

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

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

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

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

   272 mul neg d } def

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

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

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

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

   277 dup a add ] cvx def } def

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

   279 cvx def } def

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

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

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

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

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

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

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

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

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

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

   290 exch } def

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

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

   293 } if } ifelse } def

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

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

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

   297 /IfVisible true def } def

   298 end

   299 % END pstricks.pro

   300 

   301 %%EndProcSet

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

   303 %!PS-Adobe-2.0

   304 %%Title: Dot Font for PSTricks

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

   306 %%Creation Date: May 7, 1993

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

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

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

   310 10 dict dup begin

   311   /FontType 3 def

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

   313   /FontBBox [ 0 0 0 0 ] def

   314   /Encoding 256 array def

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

   316   Encoding

   317     dup (b) 0 get /Bullet put

   318     dup (c) 0 get /Circle put

   319     dup (C) 0 get /BoldCircle put

   320     dup (u) 0 get /SolidTriangle put

   321     dup (t) 0 get /Triangle put

   322     dup (T) 0 get /BoldTriangle put

   323     dup (r) 0 get /SolidSquare put

   324     dup (s) 0 get /Square put

   325     dup (S) 0 get /BoldSquare put

   326     dup (q) 0 get /SolidPentagon put

   327     dup (p) 0 get /Pentagon put

   328     dup (P) 0 get /BoldPentagon put

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

   330     dup (l) 0 get /SolidDiamond put

   331     dup (d) 0 get /Diamond put

   332         (D) 0 get /BoldDiamond put

   333 % DG/SR modification end

   334   /Metrics 13 dict def

   335   Metrics begin

   336     /Bullet        1000   def

   337     /Circle        1000   def

   338     /BoldCircle    1000   def

   339     /SolidTriangle 1344   def

   340     /Triangle      1344   def

   341     /BoldTriangle  1344   def

   342     /SolidSquare    886   def

   343     /Square         886   def

   344     /BoldSquare     886   def

   345     /SolidPentagon 1093.2 def

   346     /Pentagon      1093.2 def

   347     /BoldPentagon  1093.2 def

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

   349     /SolidDiamond  1008   def

   350     /Diamond       1008   def

   351     /BoldDiamond   1008   def

   352 % DG/SR modification end

   353     /.notdef 0 def

   354   end

   355   /BBoxes 13 dict def

   356   BBoxes begin

   357     /Circle        { -550 -550 550 550 } def

   358     /BoldCircle    /Circle load def

   359     /Bullet        /Circle load def

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

   361     /BoldTriangle  /Triangle load def

   362     /SolidTriangle /Triangle load def

   363     /Square        { -450 -450 450 450 } def

   364     /BoldSquare    /Square load def

   365     /SolidSquare   /Square load def

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

   367     /BoldPentagon  /Pentagon load def

   368     /SolidPentagon /Pentagon load def

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

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

   371     /BoldDiamond   /Diamond load def

   372     /SolidDiamond  /Diamond load def

   373 % DG/SR modification end

   374     /.notdef { 0 0 0 0 } def

   375   end

   376   /CharProcs 20 dict def

   377   CharProcs begin

   378     /Adjust {

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

   380       3 -1 roll div 3 1 roll exch div exch scale

   381     } def

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

   383     /Bullet        { 500 500 Adjust CirclePath fill } def

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

   385                      eofill } def

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

   387                      eofill } def

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

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

   390                      closepath } def

   391     /SolidTriangle { TrianglePath fill } def

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

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

   394     /SquarePath    { -450 450 moveto 450 450 lineto 450 -450 lineto

   395                      -450 -450 lineto closepath } def

   396     /SolidSquare   { SquarePath fill } def

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

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

   399     /PentagonPath  {

   400       -337.8 -465   moveto

   401        337.8 -465   lineto

   402        546.6  177.6 lineto

   403          0    574.7 lineto

   404       -546.6  177.6 lineto

   405       closepath

   406     } def

   407     /SolidPentagon { PentagonPath fill } def

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

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

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

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

   412                      428.5 0 lineto closepath } def

   413     /SolidDiamond  { DiamondPath fill } def

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

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

   416 % DG/SR modification end

   417     /.notdef { } def

   418   end

   419   /BuildGlyph {

   420     exch

   421     begin

   422       Metrics 1 index get exec 0

   423       BBoxes 3 index get exec

   424       setcachedevice

   425       CharProcs begin load exec end

   426     end

   427   } def

   428   /BuildChar {

   429     1 index /Encoding get exch get

   430     1 index /BuildGlyph get exec

   431   } bind def

   432 end

   433 /PSTricksDotFont exch definefont pop

   434 %END pst-dots.pro

   435 

   436 %%EndProcSet

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

   438 %!

   439 % PostScript prologue for pst-node.tex.

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

   441 % For distribution, see pstricks.tex.

   442 %

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

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

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

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

   447 grestore } def

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

   449 } def

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

   451 Sin mul } def } def

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

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

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

   455 dup Sin mul Cos Div } ifelse } def

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

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

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

   459 Cos mul exch Sin mul } def

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

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

   462 } ifelse } def

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

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

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

   466 sin def /NodePos { TriNodePos } def } def

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

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

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

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

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

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

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

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

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

   476 XYPos } ifelse } def

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

   478 roll sin mul sub exch } ifelse } def

   479 /GetEdgeA { NodeSepA AngleA NodeA NodeSepTypeA GetEdge OffsetA AngleA

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

   481 /GetEdgeB { NodeSepB AngleB NodeB NodeSepTypeB GetEdge OffsetB AngleB

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

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

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

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

   486 } ifelse } def

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

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

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

   490 } ifelse } def

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

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

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

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

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

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

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

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

   499 } repeat LPutLine cleartomark } def

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

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

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

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

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

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

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

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

   508 } def

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

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

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

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

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

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

   515 } def

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

   517 } def

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

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

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

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

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

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

   524 VPosEnd  } def

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

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

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

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

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

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

   531 LPutVar VPutLine } def LPutVar } def

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

   533 end } def

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

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

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

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

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

   539 ifelse } def

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

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

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

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

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

   545 } HPutCurve } def /VPutPos { { VPutLines } HPutCurve } def } def

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

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

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

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

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

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

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

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

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

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

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

   557 VPutLines } def } def

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

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

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

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

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

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

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

   565 VPutLines } def } def

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

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

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

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

   570 def

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

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

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

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

   575 def

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

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

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

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

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

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

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

   583 VPutLines } def } def

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

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

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

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

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

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

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

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

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

   593 % DG/SR modification end

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

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

   596 Div def /y ED /x ED } def

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

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

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

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

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

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

   603 tx@Dict begin false Polygon end } def

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   625 LPutPos } def } def

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

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

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

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

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

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

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

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

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

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

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

   637 def } ifelse LPutCoor  } def

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

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

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

   641 def

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

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

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

   645 def

   646 end

   647 % END pst-node.pro

   648 

   649 %%EndProcSet

   650 %%BeginProcSet: pst-text.pro 0 0

   651 %!

   652 % PostScript header file pst-text.pro

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

   654 % For distribution, see pstricks.tex.

   655 

   656 /tx@TextPathDict 40 dict def

   657 tx@TextPathDict begin

   658 

   659 % Syntax:  <dist> PathPosition -

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

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

   662 /PathPosition

   663 { /targetdist exch def

   664   /pathdist 0 def

   665   /continue true def

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

   667   gsave

   668     flattenpath

   669     { movetoproc }  { linetoproc } { } { firstx firsty linetoproc }

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

   671   grestore

   672 } def

   673 

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

   675 

   676 /@movetoproc

   677 { /newy exch def /newx exch def

   678   /firstx newx def /firsty newy def

   679 } def

   680 

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

   682 

   683 /@linetoproc

   684 {

   685   /oldx newx def /oldy newy def

   686   /newy exch def /newx exch def

   687   /dx newx oldx sub def

   688   /dy newy oldy sub def

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

   690   /pathdist pathdist dist add def

   691   pathdist targetdist ge

   692   { pathdist targetdist sub dist div dup

   693     dy mul neg newy add /Y exch def

   694     dx mul neg newx add /X exch def

   695     /Angle dy dx atan def

   696     /continue false def

   697   } if

   698 } def

   699 

   700 /TextPathShow

   701 { /String exch def

   702   /CharCount 0 def

   703   String length

   704   { String CharCount 1 getinterval ShowChar

   705     /CharCount CharCount 1 add def

   706   } repeat

   707 } def

   708 

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

   710 /InitTextPath

   711 { gsave

   712     currentpoint /Y exch def /X exch def

   713     exch X Hoffset sub sub mul

   714     Voffset Hoffset sub add

   715     neg X add /Hoffset exch def

   716     /Voffset Y def

   717   grestore

   718 } def

   719 

   720 /Transform

   721 { PathPosition

   722   dup

   723   Angle cos mul Y add exch

   724   Angle sin mul neg X add exch

   725   translate

   726   Angle rotate

   727 } def

   728 

   729 /ShowChar

   730 { /Char exch def

   731   gsave

   732     Char end stringwidth

   733     tx@TextPathDict begin

   734     2 div /Sy exch def 2 div /Sx exch def

   735 

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

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

   738 %   currentpoint

   739 

   740     Voffset sub Sy add exch

   741     Hoffset sub Sx add

   742     Transform

   743     Sx neg Sy neg moveto

   744     Char end tx@TextPathSavedShow

   745     tx@TextPathDict begin

   746   grestore

   747   Sx 2 mul Sy 2 mul rmoveto

   748 } def

   749 

   750 end

   751 % END pst-text.pro

   752 

   753 %%EndProcSet

   754 %%BeginProcSet: 8r.enc 0 0

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

   756 %

   757 % @@psencodingfile@{

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

   759 %                W. Schmidt, P. Lehman",

   760 %   version   = "2.0",

   761 %   date      = "30 October 2002",

   762 %   filename  = "8r.enc",

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

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

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

   766 %                PSNFSS bundle, version 9"

   767 % @}

   768 % 

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

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

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

   772 % MacRoman, and some extra characters from Lucida.

   773 % 

   774 % Character code assignments were made as follows:

   775 % 

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

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

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

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

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

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

   782 % irritation not having them in TeX positions.

   783 % 

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

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

   786 % 

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

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

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

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

   791 % 

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

   793 %

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

   795 %

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

   797 %

   798 %     PostScript      MacRoman        TeXBase1

   799 %     --------------  --------------  --------------

   800 %     /notequal       173             0x16

   801 %     /infinity       176             0x17

   802 %     /lessequal      178             0x18

   803 %     /greaterequal   179             0x19

   804 %     /partialdiff    182             0x1A

   805 %     /summation      183             0x1B

   806 %     /product        184             0x1C

   807 %     /pi             185             0x1D

   808 %     /integral       186             0x81

   809 %     /Omega          189             0x8D

   810 %     /radical        195             0x8E

   811 %     /approxequal    197             0x8F

   812 %     /Delta          198             0x9D

   813 %     /lozenge        215             0x9E

   814 %

   815 /TeXBase1Encoding [

   816 % 0x00

   817  /.notdef /dotaccent /fi /fl

   818  /fraction /hungarumlaut /Lslash /lslash

   819  /ogonek /ring /.notdef /breve

   820  /minus /.notdef /Zcaron /zcaron

   821 % 0x10

   822  /caron /dotlessi /dotlessj /ff

   823  /ffi /ffl /notequal /infinity

   824  /lessequal /greaterequal /partialdiff /summation

   825  /product /pi /grave /quotesingle

   826 % 0x20

   827  /space /exclam /quotedbl /numbersign

   828  /dollar /percent /ampersand /quoteright

   829  /parenleft /parenright /asterisk /plus

   830  /comma /hyphen /period /slash

   831 % 0x30

   832  /zero /one /two /three

   833  /four /five /six /seven

   834  /eight /nine /colon /semicolon

   835  /less /equal /greater /question

   836 % 0x40

   837  /at /A /B /C

   838  /D /E /F /G

   839  /H /I /J /K

   840  /L /M /N /O

   841 % 0x50

   842  /P /Q /R /S

   843  /T /U /V /W

   844  /X /Y /Z /bracketleft

   845  /backslash /bracketright /asciicircum /underscore

   846 % 0x60

   847  /quoteleft /a /b /c

   848  /d /e /f /g

   849  /h /i /j /k

   850  /l /m /n /o

   851 % 0x70

   852  /p /q /r /s

   853  /t /u /v /w

   854  /x /y /z /braceleft

   855  /bar /braceright /asciitilde /.notdef

   856 % 0x80

   857  /Euro /integral /quotesinglbase /florin

   858  /quotedblbase /ellipsis /dagger /daggerdbl

   859  /circumflex /perthousand /Scaron /guilsinglleft

   860  /OE /Omega /radical /approxequal

   861 % 0x90

   862  /.notdef /.notdef /.notdef /quotedblleft

   863  /quotedblright /bullet /endash /emdash

   864  /tilde /trademark /scaron /guilsinglright

   865  /oe /Delta /lozenge /Ydieresis

   866 % 0xA0

   867  /.notdef /exclamdown /cent /sterling

   868  /currency /yen /brokenbar /section

   869  /dieresis /copyright /ordfeminine /guillemotleft

   870  /logicalnot /hyphen /registered /macron

   871 % 0xD0

   872  /degree /plusminus /twosuperior /threesuperior

   873  /acute /mu /paragraph /periodcentered

   874  /cedilla /onesuperior /ordmasculine /guillemotright

   875  /onequarter /onehalf /threequarters /questiondown

   876 % 0xC0

   877  /Agrave /Aacute /Acircumflex /Atilde

   878  /Adieresis /Aring /AE /Ccedilla

   879  /Egrave /Eacute /Ecircumflex /Edieresis

   880  /Igrave /Iacute /Icircumflex /Idieresis

   881 % 0xD0

   882  /Eth /Ntilde /Ograve /Oacute

   883  /Ocircumflex /Otilde /Odieresis /multiply

   884  /Oslash /Ugrave /Uacute /Ucircumflex

   885  /Udieresis /Yacute /Thorn /germandbls

   886 % 0xE0

   887  /agrave /aacute /acircumflex /atilde

   888  /adieresis /aring /ae /ccedilla

   889  /egrave /eacute /ecircumflex /edieresis

   890  /igrave /iacute /icircumflex /idieresis

   891 % 0xF0

   892  /eth /ntilde /ograve /oacute

   893  /ocircumflex /otilde /odieresis /divide

   894  /oslash /ugrave /uacute /ucircumflex

   895  /udieresis /yacute /thorn /ydieresis

   896 ] def

   897 

   898 

   899 %%EndProcSet

   900 %%BeginProcSet: texmital.enc 0 0

   901 % TeX math italic encoding.

   902 % No ligatures or kerns.

   903 % 

   904 /TeXMathItalicEncoding [          % now 256 chars follow

   905 % 0x0

   906 /Gamma

   907 /Delta

   908 /Theta

   909 /Lambda

   910 /Xi

   911 /Pi

   912 /Sigma

   913 /Upsilon

   914 

   915 % 0x8

   916 /Phi

   917 /Psi

   918 /Omega

   919 /alpha

   920 /beta

   921 /gamma

   922 /delta

   923 /epsilon1

   924 

   925 % 0x10

   926 /zeta

   927 /eta

   928 /theta

   929 /iota

   930 /kappa

   931 /lambda

   932 /mu

   933 /nu

   934 

   935 % 0x18

   936 /xi

   937 /pi

   938 /rho

   939 /sigma

   940 /tau

   941 /upsilon

   942 /phi

   943 /chi

   944 

   945 % 0x20

   946 /psi

   947 /omega

   948 /epsilon

   949 /theta1

   950 /pi1

   951 /rho1

   952 /sigma1

   953 /phi1

   954 

   955 % 0x28

   956 /arrowlefttophalf

   957 /arrowleftbothalf

   958 /arrowrighttophalf

   959 /arrowrightbothalf

   960 /arrowhookleft

   961 /arrowhookright

   962 /triangleright

   963 /triangleleft

   964 

   965 % 0x30

   966 /zerooldstyle

   967 /oneoldstyle

   968 /twooldstyle

   969 /threeoldstyle

   970 /fouroldstyle

   971 /fiveoldstyle

   972 /sixoldstyle

   973 /sevenoldstyle

   974 

   975 % 0x38

   976 /eightoldstyle

   977 /nineoldstyle

   978 /period

   979 /comma

   980 /less

   981 /slash

   982 /greater

   983 /star

   984 

   985 % 0x40

   986 /partialdiff

   987 /A

   988 /B

   989 /C

   990 /D

   991 /E

   992 /F

   993 /G

   994 

   995 % 0x48

   996 /H

   997 /I

   998 /J

   999 /K

  1000 /L

  1001 /M

  1002 /N

  1003 /O

  1004 

  1005 % 0x50

  1006 /P

  1007 /Q

  1008 /R

  1009 /S

  1010 /T

  1011 /U

  1012 /V

  1013 /W

  1014 

  1015 % 0x58

  1016 /X

  1017 /Y

  1018 /Z

  1019 /flat

  1020 /natural

  1021 /sharp

  1022 /slurbelow

  1023 /slurabove

  1024 

  1025 % 0x60

  1026 /lscript

  1027 /a

  1028 /b

  1029 /c

  1030 /d

  1031 /e

  1032 /f

  1033 /g

  1034 

  1035 % 0x68

  1036 /h

  1037 /i

  1038 /j

  1039 /k

  1040 /l

  1041 /m

  1042 /n

  1043 /o

  1044 

  1045 % 0x70

  1046 /p

  1047 /q

  1048 /r

  1049 /s

  1050 /t

  1051 /u

  1052 /v

  1053 /w

  1054 

  1055 % 0x78

  1056 /x

  1057 /y

  1058 /z

  1059 /dotlessi

  1060 /dotlessj

  1061 /weierstrass

  1062 /vector

  1063 /tie

  1064 

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

  1066 % 

  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 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1083 ] def

  1084 

  1085 %%EndProcSet

  1086 %%BeginProcSet: texps.pro 0 0

  1087 %!

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

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

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

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

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

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

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

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

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

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

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

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

  1100 end

  1101 

  1102 %%EndProcSet

  1103 %%BeginProcSet: special.pro 0 0

  1104 %!

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

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

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

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

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

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

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

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

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

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

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

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

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

  1118 transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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