manual/plots/dd-cells.eps

   1 %!PS-Adobe-2.0 EPSF-2.0
   2 %%Title: dd_cells.fig
   3 %%Creator: fig2dev Version 3.2 Patchlevel 4
   4 %%CreationDate: Thu Oct 18 17:18:24 2007
   5 %%For: hessb@pckr59 (Berk Hess,1.704,Tel. 166)
   6 %%BoundingBox: 0 0 302 324
   7 %%Magnification: 1.0000
   8 %%EndComments
   9 /MyAppDict 100 dict dup begin def
  10 /$F2psDict 200 dict def
  11 $F2psDict begin
  12 $F2psDict /mtrx matrix put
  13 /col-1 {0 setgray} bind def
  14 /col0 {0.000 0.000 0.000 srgb} bind def
  15 /col1 {0.000 0.000 1.000 srgb} bind def
  16 /col2 {0.000 1.000 0.000 srgb} bind def
  17 /col3 {0.000 1.000 1.000 srgb} bind def
  18 /col4 {1.000 0.000 0.000 srgb} bind def
  19 /col5 {1.000 0.000 1.000 srgb} bind def
  20 /col6 {1.000 1.000 0.000 srgb} bind def
  21 /col7 {1.000 1.000 1.000 srgb} bind def
  22 /col8 {0.000 0.000 0.560 srgb} bind def
  23 /col9 {0.000 0.000 0.690 srgb} bind def
  24 /col10 {0.000 0.000 0.820 srgb} bind def
  25 /col11 {0.530 0.810 1.000 srgb} bind def
  26 /col12 {0.000 0.560 0.000 srgb} bind def
  27 /col13 {0.000 0.690 0.000 srgb} bind def
  28 /col14 {0.000 0.820 0.000 srgb} bind def
  29 /col15 {0.000 0.560 0.560 srgb} bind def
  30 /col16 {0.000 0.690 0.690 srgb} bind def
  31 /col17 {0.000 0.820 0.820 srgb} bind def
  32 /col18 {0.560 0.000 0.000 srgb} bind def
  33 /col19 {0.690 0.000 0.000 srgb} bind def
  34 /col20 {0.820 0.000 0.000 srgb} bind def
  35 /col21 {0.560 0.000 0.560 srgb} bind def
  36 /col22 {0.690 0.000 0.690 srgb} bind def
  37 /col23 {0.820 0.000 0.820 srgb} bind def
  38 /col24 {0.500 0.190 0.000 srgb} bind def
  39 /col25 {0.630 0.250 0.000 srgb} bind def
  40 /col26 {0.750 0.380 0.000 srgb} bind def
  41 /col27 {1.000 0.500 0.500 srgb} bind def
  42 /col28 {1.000 0.630 0.630 srgb} bind def
  43 /col29 {1.000 0.750 0.750 srgb} bind def
  44 /col30 {1.000 0.880 0.880 srgb} bind def
  45 /col31 {1.000 0.840 0.000 srgb} bind def
  46
  47 end
  48 save
  49 newpath 0 324 moveto 0 0 lineto 302 0 lineto 302 324 lineto closepath clip newpath
  50 -118.4 367.1 translate
  51 1 -1 scale
  52
  53 % This junk string is used by the show operators
  54 /PATsstr 1 string def
  55 /PATawidthshow {        % cx cy cchar rx ry string
  56   % Loop over each character in the string
  57   {  % cx cy cchar rx ry char
  58     % Show the character
  59     dup                         % cx cy cchar rx ry char char
  60     PATsstr dup 0 4 -1 roll put % cx cy cchar rx ry char (char)
  61     false charpath              % cx cy cchar rx ry char
  62     /clip load PATdraw
  63     % Move past the character (charpath modified the
  64     % current point)
  65     currentpoint                        % cx cy cchar rx ry char x y
  66     newpath
  67     moveto                      % cx cy cchar rx ry char
  68     % Reposition by cx,cy if the character in the string is cchar
  69     3 index eq {                        % cx cy cchar rx ry
  70       4 index 4 index rmoveto
  71     } if
  72     % Reposition all characters by rx ry
  73     2 copy rmoveto              % cx cy cchar rx ry
  74   } forall
  75   pop pop pop pop pop           % -
  76   currentpoint
  77   newpath
  78   moveto
  79 } bind def
  80 /PATcg {
  81   7 dict dup begin
  82     /lw currentlinewidth def
  83     /lc currentlinecap def
  84     /lj currentlinejoin def
  85     /ml currentmiterlimit def
  86     /ds [ currentdash ] def
  87     /cc [ currentrgbcolor ] def
  88     /cm matrix currentmatrix def
  89   end
  90 } bind def
  91 % PATdraw - calculates the boundaries of the object and
  92 % fills it with the current pattern
  93 /PATdraw {                      % proc
  94   save exch
  95     PATpcalc                    % proc nw nh px py
  96     5 -1 roll exec              % nw nh px py
  97     newpath
  98     PATfill                     % -
  99   restore
 100 } bind def
 101 % PATfill - performs the tiling for the shape
 102 /PATfill { % nw nh px py PATfill -
 103   PATDict /CurrentPattern get dup begin
 104     setfont
 105     % Set the coordinate system to Pattern Space
 106     PatternGState PATsg
 107     % Set the color for uncolored pattezns
 108     PaintType 2 eq { PATDict /PColor get PATsc } if
 109     % Create the string for showing
 110     3 index string              % nw nh px py str
 111     % Loop for each of the pattern sources
 112     0 1 Multi 1 sub {           % nw nh px py str source
 113         % Move to the starting location
 114         3 index 3 index         % nw nh px py str source px py
 115         moveto                  % nw nh px py str source
 116         % For multiple sources, set the appropriate color
 117         Multi 1 ne { dup PC exch get PATsc } if
 118         % Set the appropriate string for the source
 119         0 1 7 index 1 sub { 2 index exch 2 index put } for pop
 120         % Loop over the number of vertical cells
 121         3 index                 % nw nh px py str nh
 122         {                       % nw nh px py str
 123           currentpoint          % nw nh px py str cx cy
 124           2 index oldshow       % nw nh px py str cx cy
 125           YStep add moveto      % nw nh px py str
 126         } repeat                % nw nh px py str
 127     } for
 128     5 { pop } repeat
 129   end
 130 } bind def
 131
 132 % PATkshow - kshow with the current pattezn
 133 /PATkshow {                     % proc string
 134   exch bind                     % string proc
 135   1 index 0 get                 % string proc char
 136   % Loop over all but the last character in the string
 137   0 1 4 index length 2 sub {
 138                                 % string proc char idx
 139     % Find the n+1th character in the string
 140     3 index exch 1 add get      % string proc char char+1
 141     exch 2 copy                 % strinq proc char+1 char char+1 char
 142     % Now show the nth character
 143     PATsstr dup 0 4 -1 roll put % string proc chr+1 chr chr+1 (chr)
 144     false charpath              % string proc char+1 char char+1
 145     /clip load PATdraw
 146     % Move past the character (charpath modified the current point)
 147     currentpoint newpath moveto
 148     % Execute the user proc (should consume char and char+1)
 149     mark 3 1 roll               % string proc char+1 mark char char+1
 150     4 index exec                % string proc char+1 mark...
 151     cleartomark                 % string proc char+1
 152   } for
 153   % Now display the last character
 154   PATsstr dup 0 4 -1 roll put   % string proc (char+1)
 155   false charpath                % string proc
 156   /clip load PATdraw
 157   neewath
 158   pop pop                       % -
 159 } bind def
 160 % PATmp - the makepattern equivalent
 161 /PATmp {                        % patdict patmtx PATmp patinstance
 162   exch dup length 7 add         % We will add 6 new entries plus 1 FID
 163   dict copy                     % Create a new dictionary
 164   begin
 165     % Matrix to install when painting the pattern
 166     TilingType PATtcalc
 167     /PatternGState PATcg def
 168     PatternGState /cm 3 -1 roll put
 169     % Check for multi pattern sources (Level 1 fast color patterns)
 170     currentdict /Multi known not { /Multi 1 def } if
 171     % Font dictionary definitions
 172     /FontType 3 def
 173     % Create a dummy encoding vector
 174     /Encoding 256 array def
 175     3 string 0 1 255 {
 176       Encoding exch dup 3 index cvs cvn put } for pop
 177     /FontMatrix matrix def
 178     /FontBBox BBox def
 179     /BuildChar {
 180         mark 3 1 roll           % mark dict char
 181         exch begin
 182         Multi 1 ne {PaintData exch get}{pop} ifelse  % mark [paintdata]
 183           PaintType 2 eq Multi 1 ne or
 184           { XStep 0 FontBBox aload pop setcachedevice }
 185           { XStep 0 setcharwidth } ifelse
 186           currentdict           % mark [paintdata] dict
 187           /PaintProc load       % mark [paintdata] dict paintproc
 188         end
 189         gsave
 190           false PATredef exec true PATredef
 191         grestore
 192         cleartomark             % -
 193     } bind def
 194     currentdict
 195   end                           % newdict
 196   /foo exch                     % /foo newlict
 197   definefont                    % newfont
 198 } bind def
 199 % PATpcalc - calculates the starting point and width/height
 200 % of the tile fill for the shape
 201 /PATpcalc {     % - PATpcalc nw nh px py
 202   PATDict /CurrentPattern get begin
 203     gsave
 204         % Set up the coordinate system to Pattern Space
 205         % and lock down pattern
 206         PatternGState /cm get setmatrix
 207         BBox aload pop pop pop translate
 208         % Determine the bounding box of the shape
 209         pathbbox                        % llx lly urx ury
 210     grestore
 211     % Determine (nw, nh) the # of cells to paint width and height
 212     PatHeight div ceiling               % llx lly urx qh
 213     4 1 roll                            % qh llx lly urx
 214     PatWidth div ceiling                % qh llx lly qw
 215     4 1 roll                            % qw qh llx lly
 216     PatHeight div floor                 % qw qh llx ph
 217     4 1 roll                            % ph qw qh llx
 218     PatWidth div floor                  % ph qw qh pw
 219     4 1 roll                            % pw ph qw qh
 220     2 index sub cvi abs                 % pw ph qs qh-ph
 221     exch 3 index sub cvi abs exch       % pw ph nw=qw-pw nh=qh-ph
 222     % Determine the starting point of the pattern fill
 223     %(px, py)
 224     4 2 roll                            % nw nh pw ph
 225     PatHeight mul                       % nw nh pw py
 226     exch                                % nw nh py pw
 227     PatWidth mul exch                   % nw nh px py
 228   end
 229 } bind def
 230
 231 % Save the original routines so that we can use them later on
 232 /oldfill        /fill load def
 233 /oldeofill      /eofill load def
 234 /oldstroke      /stroke load def
 235 /oldshow        /show load def
 236 /oldashow       /ashow load def
 237 /oldwidthshow   /widthshow load def
 238 /oldawidthshow  /awidthshow load def
 239 /oldkshow       /kshow load def
 240
 241 % These defs are necessary so that subsequent procs don't bind in
 242 % the originals
 243 /fill      { oldfill } bind def
 244 /eofill    { oldeofill } bind def
 245 /stroke    { oldstroke } bind def
 246 /show      { oldshow } bind def
 247 /ashow     { oldashow } bind def
 248 /widthshow { oldwidthshow } bind def
 249 /awidthshow { oldawidthshow } bind def
 250 /kshow     { oldkshow } bind def
 251 /PATredef {
 252   MyAppDict begin
 253     {
 254     /fill { /clip load PATdraw newpath } bind def
 255     /eofill { /eoclip load PATdraw newpath } bind def
 256     /stroke { PATstroke } bind def
 257     /show { 0 0 null 0 0 6 -1 roll PATawidthshow } bind def
 258     /ashow { 0 0 null 6 3 roll PATawidthshow }
 259     bind def
 260     /widthshow { 0 0 3 -1 roll PATawidthshow }
 261     bind def
 262     /awidthshow { PATawidthshow } bind def
 263     /kshow { PATkshow } bind def
 264   } {
 265     /fill   { oldfill } bind def
 266     /eofill { oldeofill } bind def
 267     /stroke { oldstroke } bind def
 268     /show   { oldshow } bind def
 269     /ashow  { oldashow } bind def
 270     /widthshow { oldwidthshow } bind def
 271     /awidthshow { oldawidthshow } bind def
 272     /kshow  { oldkshow } bind def
 273     } ifelse
 274   end
 275 } bind def
 276 false PATredef
 277 % Conditionally define setcmykcolor if not available
 278 /setcmykcolor where { pop } {
 279   /setcmykcolor {
 280     1 sub 4 1 roll
 281     3 {
 282         3 index add neg dup 0 lt { pop 0 } if 3 1 roll
 283     } repeat
 284     setrgbcolor - pop
 285   } bind def
 286 } ifelse
 287 /PATsc {                % colorarray
 288   aload length          % c1 ... cn length
 289     dup 1 eq { pop setgray } { 3 eq { setrgbcolor } { setcmykcolor
 290   } ifelse } ifelse
 291 } bind def
 292 /PATsg {                % dict
 293   begin
 294     lw setlinewidth
 295     lc setlinecap
 296     lj setlinejoin
 297     ml setmiterlimit
 298     ds aload pop setdash
 299     cc aload pop setrgbcolor
 300     cm setmatrix
 301   end
 302 } bind def
 303
 304 /PATDict 3 dict def
 305 /PATsp {
 306   true PATredef
 307   PATDict begin
 308     /CurrentPattern exch def
 309     % If it's an uncolored pattern, save the color
 310     CurrentPattern /PaintType get 2 eq {
 311       /PColor exch def
 312     } if
 313     /CColor [ currentrgbcolor ] def
 314   end
 315 } bind def
 316 % PATstroke - stroke with the current pattern
 317 /PATstroke {
 318   countdictstack
 319   save
 320   mark
 321   {
 322     currentpoint strokepath moveto
 323     PATpcalc                            % proc nw nh px py
 324     clip newpath PATfill
 325     } stopped {
 326         (*** PATstroke Warning: Path is too complex, stroking
 327           with gray) =
 328     cleartomark
 329     restore
 330     countdictstack exch sub dup 0 gt
 331         { { end } repeat } { pop } ifelse
 332     gsave 0.5 setgray oldstroke grestore
 333   } { pop restore pop } ifelse
 334   newpath
 335 } bind def
 336 /PATtcalc {             % modmtx tilingtype PATtcalc tilematrix
 337   % Note: tiling types 2 and 3 are not supported
 338   gsave
 339     exch concat                                 % tilingtype
 340     matrix currentmatrix exch                   % cmtx tilingtype
 341     % Tiling type 1 and 3: constant spacing
 342     2 ne {
 343         % Distort the pattern so that it occupies
 344         % an integral number of device pixels
 345         dup 4 get exch dup 5 get exch           % tx ty cmtx
 346         XStep 0 dtransform
 347         round exch round exch                   % tx ty cmtx dx.x dx.y
 348         XStep div exch XStep div exch           % tx ty cmtx a b
 349         0 YStep dtransform
 350         round exch round exch                   % tx ty cmtx a b dy.x dy.y
 351         YStep div exch YStep div exch           % tx ty cmtx a b c d
 352         7 -3 roll astore                        % { a b c d tx ty }
 353     } if
 354   grestore
 355 } bind def
 356 /PATusp {
 357   false PATredef
 358   PATDict begin
 359     CColor PATsc
 360   end
 361 } bind def
 362
 363 % this is the pattern fill program from the Second edition Reference Manual
 364 % with changes to call the above pattern fill
 365 % left30
 366 11 dict begin
 367 /PaintType 1 def
 368 /PatternType 1 def
 369 /TilingType 1 def
 370 /BBox [0 0 1 1] def
 371 /XStep 1 def
 372 /YStep 1 def
 373 /PatWidth 1 def
 374 /PatHeight 1 def
 375 /Multi 2 def
 376 /PaintData [
 377   { clippath } bind
 378   { 32 16 true [ 32 0 0 -16 0 16 ]
 379         {<c000c000300030000c000c000300030000c000c000300030
 380         000c000c00030003c000c000300030000c000c0003000300
 381         00c000c000300030000c000c00030003>}
 382      imagemask } bind
 383 ] def
 384 /PaintProc {
 385         pop
 386         exec fill
 387 } def
 388 currentdict
 389 end
 390 /P1 exch def
 391
 392 % right30
 393 11 dict begin
 394 /PaintType 1 def
 395 /PatternType 1 def
 396 /TilingType 1 def
 397 /BBox [0 0 1 1] def
 398 /XStep 1 def
 399 /YStep 1 def
 400 /PatWidth 1 def
 401 /PatHeight 1 def
 402 /Multi 2 def
 403 /PaintData [
 404   { clippath } bind
 405   { 32 16 true [ 32 0 0 -16 0 16 ]
 406         {<00030003000c000c0030003000c000c0030003000c000c00
 407         30003000c000c00000030003000c000c0030003000c000c0
 408         030003000c000c0030003000c000c000>}
 409      imagemask } bind
 410 ] def
 411 /PaintProc {
 412         pop
 413         exec fill
 414 } def
 415 currentdict
 416 end
 417 /P2 exch def
 418
 419 % left45
 420 11 dict begin
 421 /PaintType 1 def
 422 /PatternType 1 def
 423 /TilingType 1 def
 424 /BBox [0 0 1 1] def
 425 /XStep 1 def
 426 /YStep 1 def
 427 /PatWidth 1 def
 428 /PatHeight 1 def
 429 /Multi 2 def
 430 /PaintData [
 431   { clippath } bind
 432   { 20 20 true [ 20 0 0 -20 0 20 ]
 433         {<8020004010002008001004000802000401000200
 434         8001004000802000401080200040100020080010
 435         0400080200040100020080010040008020004010>}
 436      imagemask } bind
 437 ] def
 438 /PaintProc {
 439         pop
 440         exec fill
 441 } def
 442 currentdict
 443 end
 444 /P4 exch def
 445
 446 % right45
 447 11 dict begin
 448 /PaintType 1 def
 449 /PatternType 1 def
 450 /TilingType 1 def
 451 /BBox [0 0 1 1] def
 452 /XStep 1 def
 453 /YStep 1 def
 454 /PatWidth 1 def
 455 /PatHeight 1 def
 456 /Multi 2 def
 457 /PaintData [
 458   { clippath } bind
 459   { 20 20 true [ 20 0 0 -20 0 20 ]
 460         {<0040100080200100400200800401000802001004
 461         0020080040100080200000401000802001004002
 462         0080040100080200100400200800401000802000>}
 463      imagemask } bind
 464 ] def
 465 /PaintProc {
 466         pop
 467         exec fill
 468 } def
 469 currentdict
 470 end
 471 /P5 exch def
 472
 473 % horizontal lines
 474 11 dict begin
 475 /PaintType 1 def
 476 /PatternType 1 def
 477 /TilingType 1 def
 478 /BBox [0 0 1 1] def
 479 /XStep 1 def
 480 /YStep 1 def
 481 /PatWidth 1 def
 482 /PatHeight 1 def
 483 /Multi 2 def
 484 /PaintData [
 485   { clippath } bind
 486   { 16 8 true [ 16 0 0 -8 0 8 ]
 487         {< ffff000000000000ffff000000000000>}
 488      imagemask } bind
 489 ] def
 490 /PaintProc {
 491         pop
 492         exec fill
 493 } def
 494 currentdict
 495 end
 496 /P9 exch def
 497
 498 % vertical lines
 499 11 dict begin
 500 /PaintType 1 def
 501 /PatternType 1 def
 502 /TilingType 1 def
 503 /BBox [0 0 1 1] def
 504 /XStep 1 def
 505 /YStep 1 def
 506 /PatWidth 1 def
 507 /PatHeight 1 def
 508 /Multi 2 def
 509 /PaintData [
 510   { clippath } bind
 511   { 8 16 true [ 8 0 0 -16 0 16 ]
 512         {<11111111111111111111111111111111>}
 513      imagemask } bind
 514 ] def
 515 /PaintProc {
 516         pop
 517         exec fill
 518 } def
 519 currentdict
 520 end
 521 /P10 exch def
 522
 523 /cp {closepath} bind def
 524 /ef {eofill} bind def
 525 /gr {grestore} bind def
 526 /gs {gsave} bind def
 527 /sa {save} bind def
 528 /rs {restore} bind def
 529 /l {lineto} bind def
 530 /m {moveto} bind def
 531 /rm {rmoveto} bind def
 532 /n {newpath} bind def
 533 /s {stroke} bind def
 534 /sh {show} bind def
 535 /slc {setlinecap} bind def
 536 /slj {setlinejoin} bind def
 537 /slw {setlinewidth} bind def
 538 /srgb {setrgbcolor} bind def
 539 /rot {rotate} bind def
 540 /sc {scale} bind def
 541 /sd {setdash} bind def
 542 /ff {findfont} bind def
 543 /sf {setfont} bind def
 544 /scf {scalefont} bind def
 545 /sw {stringwidth} bind def
 546 /tr {translate} bind def
 547 /tnt {dup dup currentrgbcolor
 548   4 -2 roll dup 1 exch sub 3 -1 roll mul add
 549   4 -2 roll dup 1 exch sub 3 -1 roll mul add
 550   4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
 551   bind def
 552 /shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
 553   4 -2 roll mul srgb} bind def
 554  /DrawEllipse {
 555         /endangle exch def
 556         /startangle exch def
 557         /yrad exch def
 558         /xrad exch def
 559         /y exch def
 560         /x exch def
 561         /savematrix mtrx currentmatrix def
 562         x y tr xrad yrad sc 0 0 1 startangle endangle arc
 563         closepath
 564         savematrix setmatrix
 565         } def
 566
 567 /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
 568 /$F2psEnd {$F2psEnteredState restore end} def
 569
 570 $F2psBegin
 571 10 setmiterlimit
 572 0 slj 0 slc
 573  0.06299 0.06299 sc
 574 %
 575 % Fig objects follow
 576 %
 577 %
 578 % here starts figure with depth 55
 579 % Polyline
 580 30.000 slw
 581  [120] 0 sd
 582 n 2588 1406 m
 583  2588 4781 l gs col0 s gr  [] 0 sd
 584 % Polyline
 585  [120] 0 sd
 586 n 3263 1069 m
 587  3263 5119 l gs col0 s gr  [] 0 sd
 588 % Polyline
 589  [120] 0 sd
 590 n 5288 1406 m
 591  5288 5456 l gs col0 s gr  [] 0 sd
 592 % Polyline
 593  [120] 0 sd
 594 n 1913 3094 m
 595  5288 1406 l gs col0 s gr  [] 0 sd
 596 % Polyline
 597  [120] 0 sd
 598 n 6638 3431 m
 599  3938 2081 l gs col0 s gr  [] 0 sd
 600 % Polyline
 601  [120] 0 sd
 602 n 4613 1744 m
 603  4613 5794 l gs col0 s gr  [] 0 sd
 604 % Polyline
 605  [120] 0 sd
 606 n 3938 754 m
 607  3938 5456 l gs col0 s gr  [] 0 sd
 608 % Ellipse
 609 15.000 slw
 610 n 3938 2981 874 874 0 360 DrawEllipse gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 611 15.00 15.00 sc P10 [8 0 0 -16 204.27 140.47] PATmp PATsp ef gr PATusp gs col0 s gr
 612
 613 % Polyline
 614 n 3938 2306 m 5288 2981 l 5783 2936 l 4433 2261 l
 615  cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 616 15.00 15.00 sc P5 [16 0 0 -16 262.53 150.73] PATmp PATsp ef gr PATusp gs col0 s gr
 617 % Polyline
 618 n 3938 2306 m 3938 2306 l 3938 2306 l 3938 2306 l 3938 2306 l 3938 2306 l
 619  3263 2666 l 2768 2621 l 3465 2239 l
 620  cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 621 15.00 15.00 sc P4 [16 0 0 -16 184.53 149.27] PATmp PATsp ef gr PATusp gs col0 s gr
 622 % Ellipse
 623 n 5558 3633 630 743 0 360 DrawEllipse gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 624 15.00 15.00 sc P1 [16 0 0 -8 328.53 192.67] PATmp PATsp ef gr PATusp gs col0 s gr
 625
 626 % Ellipse
 627 n 2993 3318 630 743 0 360 DrawEllipse gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 628 15.00 15.00 sc P2 [16 0 0 -8 157.53 171.67] PATmp PATsp ef gr PATusp gs col0 s gr
 629
 630 % Polyline
 631 30.000 slw
 632  [120] 0 sd
 633 n 3938 2081 m
 634  3938 2306 l gs col0 s gr  [] 0 sd
 635 % Polyline
 636 15.000 slw
 637 n 3263 2644 m 3938 2306 l 5288 2981 l 3938 3656 l
 638  cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 639 15.00 15.00 sc P9 [16 0 0 -8 217.53 153.73] PATmp PATsp ef gr PATusp gs col0 s gr
 640 % Polyline
 641 n 5288 5456 m 6188 5006 l 6188 3656 l 5288 4106 l
 642  cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 643 15.00 15.00 sc P1 [16 0 0 -8 352.53 243.73] PATmp PATsp ef gr PATusp gs col0 s gr
 644 % Polyline
 645 n 4590 4466 m 5288 4106 l 5288 2981 l 3938 3656 l
 646  cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 647 15.00 15.00 sc P1 [16 0 0 -8 262.53 198.73] PATmp PATsp ef gr PATusp gs col0 s gr
 648 % Polyline
 649 n 3263 5119 m 3263 3769 l 2363 3341 l 2363 4669 l
 650  cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 651 15.00 15.00 sc P2 [16 0 0 -8 157.53 222.73] PATmp PATsp ef gr PATusp gs col0 s gr
 652 % Polyline
 653 n 3263 3769 m 4613 4466 l 4613 3319 l 3263 2644 l
 654  cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 655 15.00 15.00 sc P2 [16 0 0 -8 217.53 176.27] PATmp PATsp ef gr PATusp gs col0 s gr
 656 % Polyline
 657 30.000 slw
 658 n 1913 4444 m 4613 5794 l
 659  6638 4781 l gs col0 s gr
 660 % Polyline
 661 n 4613 5794 m
 662  4613 3094 l gs col0 s gr
 663 % Polyline
 664 n 6638 4781 m
 665  6638 2081 l gs col0 s gr
 666 % Polyline
 667 n 4613 4444 m
 668  6638 3431 l gs col0 s gr
 669 % Polyline
 670 n 4613 3094 m
 671  6638 2081 l gs col0 s gr
 672 % Polyline
 673 n 3938 731 m
 674  6638 2081 l gs col0 s gr
 675 % Polyline
 676 n 2588 1406 m
 677  5288 2756 l gs col0 s gr
 678 % Polyline
 679 n 3263 2419 m
 680  5288 1406 l gs col0 s gr
 681 % Polyline
 682 n 4613 3094 m
 683  1913 1744 l gs col0 s gr
 684 % Polyline
 685 n 1913 3094 m
 686  4613 4444 l gs col0 s gr
 687 % Polyline
 688 n 1913 4444 m
 689  1913 1744 l gs col0 s gr
 690 % Polyline
 691 n 1913 1744 m
 692  3938 731 l gs col0 s gr
 693 % Polyline
 694 n 3263 5119 m
 695  3263 2419 l gs col0 s gr
 696 % Polyline
 697 n 5288 5456 m
 698  5288 2756 l gs col0 s gr
 699 % Polyline
 700 n 5963 5119 m
 701  5963 2419 l gs col0 s gr
 702 % Polyline
 703 n 5963 2419 m
 704  3263 1069 l gs col0 s gr
 705 % Polyline
 706 n 4613 5794 m 5288 5456 l 5288 4106 l 4613 4444 l
 707  cp gs col7 1.00 shd ef gr gs col0 s gr
 708 % Polyline
 709 n 4613 5794 m 3263 5119 l 3263 3769 l 4613 4444 l
 710  cp gs col7 1.00 shd ef gr gs col0 s gr
 711 % Polyline
 712 45.000 slw
 713 gs  clippath
 714 3833 2854 m 3593 2854 l 3593 3448 l 3713 2968 l 3833 3448 l cp
 715 eoclip
 716 n 3713 3994 m
 717  3713 2869 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 718 15.00 15.00 sc P2 [16 0 0 -8 247.53 191.27] PATmp PATsp ef gr PATusp gs col0 s gr gr
 719
 720 % arrowhead
 721 n 3833 3448 m 3713 2968 l 3593 3448 l  col0 s
 722 /Helvetica ff 720.00 scf sf
 723 3713 1631 m
 724 gs 1 -1 sc (7) col0 sh gr
 725 /Helvetica ff 720.00 scf sf
 726 2610 4556 m
 727 gs 1 -1 sc (3) col0 sh gr
 728 /Helvetica ff 720.00 scf sf
 729 4748 5254 m
 730 gs 1 -1 sc (0) col0 sh gr
 731 /Helvetica ff 720.00 scf sf
 732 2655 3319 m
 733 gs 1 -1 sc (4) col0 sh gr
 734 /Helvetica ff 540.00 scf sf
 735 3983 3994 m
 736 gs 1 -1 sc (c) col0 sh gr
 737 /Helvetica ff 720.00 scf sf
 738 3803 3881 m
 739 gs 1 -1 sc (r) col0 sh gr
 740 /Helvetica ff 720.00 scf sf
 741 5648 4826 m
 742 gs 1 -1 sc (1) col0 sh gr
 743 /Helvetica ff 720.00 scf sf
 744 5670 3611 m
 745 gs 1 -1 sc (6) col0 sh gr
 746 /Helvetica ff 720.00 scf sf
 747 4770 3994 m
 748 gs 1 -1 sc (5) col0 sh gr
 749 % here ends figure;
 750 $F2psEnd
 751 rs
 752 end
 753 showpage