docs/manual/plots/dd-tric.eps

   1 %!PS-Adobe-2.0 EPSF-2.0
   2 %%Title: dd_tric.fig
   3 %%Creator: fig2dev Version 3.2 Patchlevel 4
   4 %%CreationDate: Fri Oct 19 09:26:25 2007
   5 %%For: hessb@pckr59 (Berk Hess,1.704,Tel. 166)
   6 %%BoundingBox: 0 0 488 380
   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 380 moveto 0 0 lineto 488 0 lineto 488 380 lineto closepath clip newpath
  50 -167.3 490.3 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 /cp {closepath} bind def
 393 /ef {eofill} bind def
 394 /gr {grestore} bind def
 395 /gs {gsave} bind def
 396 /sa {save} bind def
 397 /rs {restore} bind def
 398 /l {lineto} bind def
 399 /m {moveto} bind def
 400 /rm {rmoveto} bind def
 401 /n {newpath} bind def
 402 /s {stroke} bind def
 403 /sh {show} bind def
 404 /slc {setlinecap} bind def
 405 /slj {setlinejoin} bind def
 406 /slw {setlinewidth} bind def
 407 /srgb {setrgbcolor} bind def
 408 /rot {rotate} bind def
 409 /sc {scale} bind def
 410 /sd {setdash} bind def
 411 /ff {findfont} bind def
 412 /sf {setfont} bind def
 413 /scf {scalefont} bind def
 414 /sw {stringwidth} bind def
 415 /tr {translate} bind def
 416 /tnt {dup dup currentrgbcolor
 417   4 -2 roll dup 1 exch sub 3 -1 roll mul add
 418   4 -2 roll dup 1 exch sub 3 -1 roll mul add
 419   4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
 420   bind def
 421 /shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
 422   4 -2 roll mul srgb} bind def
 423  /DrawEllipse {
 424         /endangle exch def
 425         /startangle exch def
 426         /yrad exch def
 427         /xrad exch def
 428         /y exch def
 429         /x exch def
 430         /savematrix mtrx currentmatrix def
 431         x y tr xrad yrad sc 0 0 1 startangle endangle arc
 432         closepath
 433         savematrix setmatrix
 434         } def
 435
 436 /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
 437 /$F2psEnd {$F2psEnteredState restore end} def
 438
 439 $F2psBegin
 440 10 setmiterlimit
 441 0 slj 0 slc
 442  0.06299 0.06299 sc
 443 %
 444 % Fig objects follow
 445 %
 446 %
 447 % here starts figure with depth 54
 448 % Ellipse
 449 15.000 slw
 450 n 6300 3960 1440 1440 0 360 DrawEllipse gs col0 s gr
 451
 452 % Ellipse
 453 n 6075 4500 1755 1755 0 360 DrawEllipse gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 454 15.00 15.00 sc P1 [16 0 0 -8 288.00 183.00] PATmp PATsp ef gr PATusp gs col0 s gr
 455
 456 % Arc
 457 gs  clippath
 458 5625 5658 m 5651 5604 l 5513 5540 l 5610 5618 l 5488 5594 l cp
 459 eoclip
 460 n 6305.0 4007.1 1755.0 -67.6 112.8 arcn
 461 gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 462 15.00 15.00 sc P1 [16 0 0 -8 -44.67 108.13] PATmp PATsp ef gr PATusp gs col0 s gr
 463  gr
 464
 465 % arrowhead
 466 7.500 slw
 467 n 5488 5594 m 5610 5618 l 5513 5540 l  col0 s
 468 % Polyline
 469 0.000 slw
 470 n 6795 6660 m 7065 6660 l 6840 7200 l 6525 7200 l
 471  6750 6660 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 472 15.00 15.00 sc P1 [16 0 0 -8 435.00 444.00] PATmp PATsp ef gr PATusp
 473 % Polyline
 474 n 4050 4500 m 6075 4500 l 6120 2745 l 4770 2745 l
 475  cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 476 15.00 15.00 sc P1 [16 0 0 -8 270.00 183.00] PATmp PATsp ef gr PATusp
 477 % Polyline
 478 n 5175 6660 m 7065 6660 l 7695 5175 l 5805 5175 l
 479  cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 480 15.00 15.00 sc P1 [16 0 0 -8 345.00 345.00] PATmp PATsp ef gr PATusp
 481 % Arc
 482 15.000 slw
 483 n 6075.0 4500.0 1755.0 -90.0 22.6 arc
 484 gs col0 s gr
 485
 486 % Polyline
 487 n 6075 2745 m
 488  4770 2745 l gs col0 s gr
 489 % Polyline
 490 45.000 slw
 491 n 6300 3960 m 7875 3960 l 8775 1800 l 7200 1800 l
 492  cp gs col0 s gr
 493 % Polyline
 494 n 5175 6660 m 6300 3960 l 7875 3960 l 6750 6660 l
 495  cp gs col0 s gr
 496 % Polyline
 497  [120] 0 sd
 498 n 4950 7200 m
 499  4725 7740 l gs col0 s gr  [] 0 sd
 500 % Polyline
 501 n 4050 4500 m 6075 4500 l 7200 1800 l 5175 1800 l
 502  cp gs col0 s gr
 503 % Polyline
 504 n 2925 7200 m 4950 7200 l 6075 4500 l 4050 4500 l
 505  cp gs col7 1.00 shd ef gr gs col0 s gr
 506 % Polyline
 507 n 8775 1800 m 10350 1800 l 8100 7200 l 6525 7200 l
 508  6750 6660 l gs col0 s gr
 509 % Polyline
 510 n 9000 5040 m
 511  7425 5040 l gs col0 s gr
 512 % Polyline
 513 15.000 slw
 514 n 7695 5175 m
 515  7065 6660 l gs col0 s gr
 516 % Polyline
 517 n 7065 6660 m
 518  6840 7200 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 519 15.00 15.00 sc P1 [16 0 0 -8 456.00 444.00] PATmp PATsp ef gr PATusp gs col0 s gr
 520 % Polyline
 521 45.000 slw
 522  [120] 0 sd
 523 n 6525 7200 m
 524  6300 7740 l gs col0 s gr  [] 0 sd
 525 % Polyline
 526  [120] 0 sd
 527 n 8100 7200 m
 528  7875 7740 l gs col0 s gr  [] 0 sd
 529 % Polyline
 530  [120] 0 sd
 531 n 2925 7200 m
 532  2700 7740 l gs col0 s gr  [] 0 sd
 533 % Polyline
 534 30.000 slw
 535 gs  clippath
 536 7224 6343 m 7293 6177 l 7016 6061 l 7203 6237 l 6946 6227 l cp
 537 eoclip
 538 n 5625 5580 m
 539  7245 6255 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 540 15.00 15.00 sc P1 [16 0 0 -8 375.00 372.00] PATmp PATsp ef gr PATusp gs col0 s gr gr
 541
 542 % arrowhead
 543 n 6946 6227 m 7203 6237 l 7016 6061 l  col0 s
 544 % Polyline
 545 45.000 slw
 546  [120] 0 sd
 547 n 8235 6885 m
 548  8685 6885 l gs col0 s gr  [] 0 sd
 549 % Polyline
 550  [120] 0 sd
 551 n 9135 4725 m
 552  9585 4725 l gs col0 s gr  [] 0 sd
 553 % Polyline
 554  [120] 0 sd
 555 n 5175 1800 m
 556  4725 1800 l gs col0 s gr  [] 0 sd
 557 % Polyline
 558  [120] 0 sd
 559 n 3150 6660 m
 560  2700 6660 l gs col0 s gr  [] 0 sd
 561 % Polyline
 562 gs  clippath
 563 7279 2879 m 7139 2767 l 6951 3002 l 7172 2871 l 7092 3114 l cp
 564 eoclip
 565 n 6300 3960 m
 566  7200 2835 l gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
 567 15.00 15.00 sc P1 [16 0 0 -8 420.00 189.00] PATmp PATsp ef gr PATusp gs col0 s gr gr
 568
 569 % arrowhead
 570 30.000 slw
 571 n 7092 3114 m 7172 2871 l 6951 3002 l  col0 s
 572 % Polyline
 573 gs  clippath
 574 5580 4485 m 5400 4485 l 5400 4786 l 5490 4546 l 5580 4786 l cp
 575 5400 6675 m 5580 6675 l 5580 6374 l 5490 6614 l 5400 6374 l cp
 576 eoclip
 577 n 5490 6660 m
 578  5490 4500 l gs col0 s gr gr
 579
 580 % arrowhead
 581 n 5400 6374 m 5490 6614 l 5580 6374 l  col0 s
 582 % arrowhead
 583 n 5580 4786 m 5490 4546 l 5400 4786 l  col0 s
 584 % Polyline
 585 45.000 slw
 586  [120] 0 sd
 587 n 4410 3600 m
 588  3960 3600 l gs col0 s gr  [] 0 sd
 589 /Helvetica ff 720.00 scf sf
 590 6615 5580 m
 591 gs 1 -1 sc (1) col0 sh gr
 592 /Helvetica ff 720.00 scf sf
 593 7200 6075 m
 594 gs 1 -1 sc (1) col0 sh gr
 595 /Helvetica ff 720.00 scf sf
 596 7695 4905 m
 597 gs 1 -1 sc (2) col0 sh gr
 598 /Helvetica ff 600.00 scf sf
 599 4995 5400 m
 600 gs 1 -1 sc (d) col0 sh gr
 601 /Helvetica ff 720.00 scf sf
 602 4275 6120 m
 603 gs 1 -1 sc (0) col0 sh gr
 604 /Helvetica ff 720.00 scf sf
 605 5220 3870 m
 606 gs 1 -1 sc (3) col0 sh gr
 607 /Helvetica ff 720.00 scf sf
 608 6930 3825 m
 609 gs 1 -1 sc (2) col0 sh gr
 610 /Helvetica ff 720.00 scf sf
 611 5850 2475 m
 612 gs 1 -1 sc (3') col0 sh gr
 613 /Helvetica ff 600.00 scf sf
 614 7245 6660 m
 615 gs 1 -1 sc (r) col0 sh gr
 616 /Helvetica ff 420.00 scf sf
 617 7380 6795 m
 618 gs 1 -1 sc (c) col0 sh gr
 619 /Helvetica ff 600.00 scf sf
 620 7245 2655 m
 621 gs 1 -1 sc (r) col0 sh gr
 622 /Helvetica ff 420.00 scf sf
 623 7380 2790 m
 624 gs 1 -1 sc (b) col0 sh gr
 625 /Helvetica ff 720.00 scf sf
 626 7515 3420 m
 627 gs 1 -1 sc (2') col0 sh gr
 628 % here ends figure;
 629 $F2psEnd
 630 rs
 631 end
 632 showpage