docs/manual/plots/dumaro.eps

   1 %!PS-Adobe-2.0 EPSF-2.0
   2 %%Title: dumaro.fig
   3 %%Creator: fig2dev Version 3.1 Patchlevel 2
   4 %%CreationDate: Tue Aug 24 09:28:35 1999
   5 %%For: anton@rugmd23.chem.rug.nl (K.A.Feenstra,17.14,,)
   6 %Magnification: 0.40
   7 %%Orientation: Portrait
   8 %%BoundingBox: 0 0 597 129
   9 %%Pages: 0
  10 %%BeginSetup
  11 %%IncludeFeature: *PageSize Letter
  12 %%EndSetup
  13 %%EndComments
  14 /MyAppDict 100 dict dup begin def
  15 /$F2psDict 200 dict def
  16 $F2psDict begin
  17 $F2psDict /mtrx matrix put
  18 /col-1 {0 setgray} bind def
  19 /col0 {0.000 0.000 0.000 srgb} bind def
  20 /col1 {0.000 0.000 1.000 srgb} bind def
  21 /col2 {0.000 1.000 0.000 srgb} bind def
  22 /col3 {0.000 1.000 1.000 srgb} bind def
  23 /col4 {1.000 0.000 0.000 srgb} bind def
  24 /col5 {1.000 0.000 1.000 srgb} bind def
  25 /col6 {1.000 1.000 0.000 srgb} bind def
  26 /col7 {1.000 1.000 1.000 srgb} bind def
  27 /col8 {0.000 0.000 0.560 srgb} bind def
  28 /col9 {0.000 0.000 0.690 srgb} bind def
  29 /col10 {0.000 0.000 0.820 srgb} bind def
  30 /col11 {0.530 0.810 1.000 srgb} bind def
  31 /col12 {0.000 0.560 0.000 srgb} bind def
  32 /col13 {0.000 0.690 0.000 srgb} bind def
  33 /col14 {0.000 0.820 0.000 srgb} bind def
  34 /col15 {0.000 0.560 0.560 srgb} bind def
  35 /col16 {0.000 0.690 0.690 srgb} bind def
  36 /col17 {0.000 0.820 0.820 srgb} bind def
  37 /col18 {0.560 0.000 0.000 srgb} bind def
  38 /col19 {0.690 0.000 0.000 srgb} bind def
  39 /col20 {0.820 0.000 0.000 srgb} bind def
  40 /col21 {0.560 0.000 0.560 srgb} bind def
  41 /col22 {0.690 0.000 0.690 srgb} bind def
  42 /col23 {0.820 0.000 0.820 srgb} bind def
  43 /col24 {0.500 0.190 0.000 srgb} bind def
  44 /col25 {0.630 0.250 0.000 srgb} bind def
  45 /col26 {0.750 0.380 0.000 srgb} bind def
  46 /col27 {1.000 0.500 0.500 srgb} bind def
  47 /col28 {1.000 0.630 0.630 srgb} bind def
  48 /col29 {1.000 0.750 0.750 srgb} bind def
  49 /col30 {1.000 0.880 0.880 srgb} bind def
  50 /col31 {1.000 0.840 0.000 srgb} bind def
  51
  52 end
  53 save
  54 -3.0 138.0 translate
  55 1 -1 scale
  56 .9 .9 scale % to make patterns same scale as in xfig
  57
  58 % This junk string is used by the show operators
  59 /PATsstr 1 string def
  60 /PATawidthshow {        % cx cy cchar rx ry string
  61   % Loop over each character in the string
  62   {  % cx cy cchar rx ry char
  63     % Show the character
  64     dup                         % cx cy cchar rx ry char char
  65     PATsstr dup 0 4 -1 roll put % cx cy cchar rx ry char (char)
  66     false charpath              % cx cy cchar rx ry char
  67     /clip load PATdraw
  68     % Move past the character (charpath modified the
  69     % current point)
  70     currentpoint                        % cx cy cchar rx ry char x y
  71     newpath
  72     moveto                      % cx cy cchar rx ry char
  73     % Reposition by cx,cy if the character in the string is cchar
  74     3 index eq {                        % cx cy cchar rx ry
  75       4 index 4 index rmoveto
  76     } if
  77     % Reposition all characters by rx ry
  78     2 copy rmoveto              % cx cy cchar rx ry
  79   } forall
  80   pop pop pop pop pop           % -
  81   currentpoint
  82   newpath
  83   moveto
  84 } bind def
  85 /PATcg {
  86   7 dict dup begin
  87     /lw currentlinewidth def
  88     /lc currentlinecap def
  89     /lj currentlinejoin def
  90     /ml currentmiterlimit def
  91     /ds [ currentdash ] def
  92     /cc [ currentrgbcolor ] def
  93     /cm matrix currentmatrix def
  94   end
  95 } bind def
  96 % PATdraw - calculates the boundaries of the object and
  97 % fills it with the current pattern
  98 /PATdraw {                      % proc
  99   save exch
 100     PATpcalc                    % proc nw nh px py
 101     5 -1 roll exec              % nw nh px py
 102     newpath
 103     PATfill                     % -
 104   restore
 105 } bind def
 106 % PATfill - performs the tiling for the shape
 107 /PATfill { % nw nh px py PATfill -
 108   PATDict /CurrentPattern get dup begin
 109     setfont
 110     % Set the coordinate system to Pattern Space
 111     PatternGState PATsg
 112     % Set the color for uncolored pattezns
 113     PaintType 2 eq { PATDict /PColor get PATsc } if
 114     % Create the string for showing
 115     3 index string              % nw nh px py str
 116     % Loop for each of the pattern sources
 117     0 1 Multi 1 sub {           % nw nh px py str source
 118         % Move to the starting location
 119         3 index 3 index         % nw nh px py str source px py
 120         moveto                  % nw nh px py str source
 121         % For multiple sources, set the appropriate color
 122         Multi 1 ne { dup PC exch get PATsc } if
 123         % Set the appropriate string for the source
 124         0 1 7 index 1 sub { 2 index exch 2 index put } for pop
 125         % Loop over the number of vertical cells
 126         3 index                 % nw nh px py str nh
 127         {                       % nw nh px py str
 128           currentpoint          % nw nh px py str cx cy
 129           2 index show          % nw nh px py str cx cy
 130           YStep add moveto      % nw nh px py str
 131         } repeat                % nw nh px py str
 132     } for
 133     5 { pop } repeat
 134   end
 135 } bind def
 136
 137 % PATkshow - kshow with the current pattezn
 138 /PATkshow {                     % proc string
 139   exch bind                     % string proc
 140   1 index 0 get                 % string proc char
 141   % Loop over all but the last character in the string
 142   0 1 4 index length 2 sub {
 143                                 % string proc char idx
 144     % Find the n+1th character in the string
 145     3 index exch 1 add get      % string proe char char+1
 146     exch 2 copy                 % strinq proc char+1 char char+1 char
 147     % Now show the nth character
 148     PATsstr dup 0 4 -1 roll put % string proc chr+1 chr chr+1 (chr)
 149     false charpath              % string proc char+1 char char+1
 150     /clip load PATdraw
 151     % Move past the character (charpath modified the current point)
 152     currentpoint newpath moveto
 153     % Execute the user proc (should consume char and char+1)
 154     mark 3 1 roll               % string proc char+1 mark char char+1
 155     4 index exec                % string proc char+1 mark...
 156     cleartomark                 % string proc char+1
 157   } for
 158   % Now display the last character
 159   PATsstr dup 0 4 -1 roll put   % string proc (char+1)
 160   false charpath                % string proc
 161   /clip load PATdraw
 162   neewath
 163   pop pop                       % -
 164 } bind def
 165 % PATmp - the makepattern equivalent
 166 /PATmp {                        % patdict patmtx PATmp patinstance
 167   exch dup length 7 add         % We will add 6 new entries plus 1 FID
 168   dict copy                     % Create a new dictionary
 169   begin
 170     % Matrix to install when painting the pattern
 171     TilingType PATtcalc
 172     /PatternGState PATcg def
 173     PatternGState /cm 3 -1 roll put
 174     % Check for multi pattern sources (Level 1 fast color patterns)
 175     currentdict /Multi known not { /Multi 1 def } if
 176     % Font dictionary definitions
 177     /FontType 3 def
 178     % Create a dummy encoding vector
 179     /Encoding 256 array def
 180     3 string 0 1 255 {
 181       Encoding exch dup 3 index cvs cvn put } for pop
 182     /FontMatrix matrix def
 183     /FontBBox BBox def
 184     /BuildChar {
 185         mark 3 1 roll           % mark dict char
 186         exch begin
 187         Multi 1 ne {PaintData exch get}{pop} ifelse  % mark [paintdata]
 188           PaintType 2 eq Multi 1 ne or
 189           { XStep 0 FontBBox aload pop setcachedevice }
 190           { XStep 0 setcharwidth } ifelse
 191           currentdict           % mark [paintdata] dict
 192           /PaintProc load       % mark [paintdata] dict paintproc
 193         end
 194         gsave
 195           false PATredef exec true PATredef
 196         grestore
 197         cleartomark             % -
 198     } bind def
 199     currentdict
 200   end                           % newdict
 201   /foo exch                     % /foo newlict
 202   definefont                    % newfont
 203 } bind def
 204 % PATpcalc - calculates the starting point and width/height
 205 % of the tile fill for the shape
 206 /PATpcalc {     % - PATpcalc nw nh px py
 207   PATDict /CurrentPattern get begin
 208     gsave
 209         % Set up the coordinate system to Pattern Space
 210         % and lock down pattern
 211         PatternGState /cm get setmatrix
 212         BBox aload pop pop pop translate
 213         % Determine the bounding box of the shape
 214         pathbbox                        % llx lly urx ury
 215     grestore
 216     % Determine (nw, nh) the # of cells to paint width and height
 217     PatHeight div ceiling               % llx lly urx qh
 218     4 1 roll                            % qh llx lly urx
 219     PatWidth div ceiling                % qh llx lly qw
 220     4 1 roll                            % qw qh llx lly
 221     PatHeight div floor                 % qw qh llx ph
 222     4 1 roll                            % ph qw qh llx
 223     PatWidth div floor                  % ph qw qh pw
 224     4 1 roll                            % pw ph qw qh
 225     2 index sub cvi abs                 % pw ph qs qh-ph
 226     exch 3 index sub cvi abs exch       % pw ph nw=qw-pw nh=qh-ph
 227     % Determine the starting point of the pattern fill
 228     %(px, py)
 229     4 2 roll                            % nw nh pw ph
 230     PatHeight mul                       % nw nh pw py
 231     exch                                % nw nh py pw
 232     PatWidth mul exch                   % nw nh px py
 233   end
 234 } bind def
 235
 236 % Save the original routines so that we can use them later on
 237 /oldfill        /fill load def
 238 /oldeofill      /eofill load def
 239 /oldstroke      /stroke load def
 240 /oldshow        /show load def
 241 /oldashow       /ashow load def
 242 /oldwidthshow   /widthshow load def
 243 /oldawidthshow  /awidthshow load def
 244 /oldkshow       /kshow load def
 245
 246 % These defs are necessary so that subsequent procs don't bind in
 247 % the originals
 248 /fill      { oldfill } bind def
 249 /eofill    { oldeofill } bind def
 250 /stroke    { oldstroke } bind def
 251 /show      { oldshow } bind def
 252 /ashow     { oldashow } bind def
 253 /widthshow { oldwidthshow } bind def
 254 /awidthshow { oldawidthshow } bind def
 255 /kshow     { oldkshow } bind def
 256 /PATredef {
 257   MyAppDict begin
 258     {
 259     /fill { /clip load PATdraw newpath } bind def
 260     /eofill { /eoclip load PATdraw newpath } bind def
 261     /stroke { PATstroke } bind def
 262     /show { 0 0 null 0 0 6 -1 roll PATawidthshow } bind def
 263     /ashow { 0 0 null 6 3 roll PATawidthshow }
 264     bind def
 265     /widthshow { 0 0 3 -1 roll PATawidthshow }
 266     bind def
 267     /awidthshow { PATawidthshow } bind def
 268     /kshow { PATkshow } bind def
 269   } {
 270     /fill   { oldfill } bind def
 271     /eofill { oldeofill } bind def
 272     /stroke { oldstroke } bind def
 273     /show   { oldshow } bind def
 274     /ashow  { oldashow } bind def
 275     /widthshow { oldwidthshow } bind def
 276     /awidthshow { oldawidthshow } bind def
 277     /kshow  { oldkshow } bind def
 278     } ifelse
 279   end
 280 } bind def
 281 false PATredef
 282 % Conditionally define setcmykcolor if not available
 283 /setcmykcolor where { pop } {
 284   /setcmykcolor {
 285     1 sub 4 1 roll
 286     3 {
 287         3 index add neg dup 0 lt { pop 0 } if 3 1 roll
 288     } repeat
 289     setrgbcolor - pop
 290   } bind def
 291 } ifelse
 292 /PATsc {                % colorarray
 293   aload length          % c1 ... cn length
 294     dup 1 eq { pop setgray } { 3 eq { setrgbcolor } { setcmykcolor
 295   } ifelse } ifelse
 296 } bind def
 297 /PATsg {                % dict
 298   begin
 299     lw setlinewidth
 300     lc setlinecap
 301     lj setlinejoin
 302     ml setmiterlimit
 303     ds aload pop setdash
 304     cc aload pop setrgbcolor
 305     cm setmatrix
 306   end
 307 } bind def
 308
 309 /PATDict 3 dict def
 310 /PATsp {
 311   true PATredef
 312   PATDict begin
 313     /CurrentPattern exch def
 314     % If it's an uncolored pattern, save the color
 315     CurrentPattern /PaintType get 2 eq {
 316       /PColor exch def
 317     } if
 318     /CColor [ currentrgbcolor ] def
 319   end
 320 } bind def
 321 % PATstroke - stroke with the current pattern
 322 /PATstroke {
 323   countdictstack
 324   save
 325   mark
 326   {
 327     currentpoint strokepath moveto
 328     PATpcalc                            % proc nw nh px py
 329     clip newpath PATfill
 330     } stopped {
 331         (*** PATstroke Warning: Path is too complex, stroking
 332           with gray) =
 333     cleartomark
 334     restore
 335     countdictstack exch sub dup 0 gt
 336         { { end } repeat } { pop } ifelse
 337     gsave 0.5 setgray oldstroke grestore
 338   } { pop restore pop } ifelse
 339   newpath
 340 } bind def
 341 /PATtcalc {             % modmtx tilingtype PATtcalc tilematrix
 342   % Note: tiling types 2 and 3 are not supported
 343   gsave
 344     exch concat                                 % tilingtype
 345     matrix currentmatrix exch                   % cmtx tilingtype
 346     % Tiling type 1 and 3: constant spacing
 347     2 ne {
 348         % Distort the pattern so that it occupies
 349         % an integral number of device pixels
 350         dup 4 get exch dup 5 get exch           % tx ty cmtx
 351         XStep 0 dtransform
 352         round exch round exch                   % tx ty cmtx dx.x dx.y
 353         XStep div exch XStep div exch           % tx ty cmtx a b
 354         0 YStep dtransform
 355         round exch round exch                   % tx ty cmtx a b dy.x dy.y
 356         YStep div exch YStep div exch           % tx ty cmtx a b c d
 357         7 -3 roll astore                        % { a b c d tx ty }
 358     } if
 359   grestore
 360 } bind def
 361 /PATusp {
 362   false PATredef
 363   PATDict begin
 364     CColor PATsc
 365   end
 366 } bind def
 367
 368 % vertical sawtooth lines
 369 11 dict begin
 370 /PaintType 1 def
 371 /PatternType 1 def
 372 /TilingType 1 def
 373 /BBox [0 0 1 1] def
 374 /XStep 1 def
 375 /YStep 1 def
 376 /PatWidth 1 def
 377 /PatHeight 1 def
 378 /Multi 2 def
 379 /PaintData [
 380   { clippath } bind
 381   { 16 32 true [ 16 0 0 -32 0 32 ]
 382         {<400020001000080004000200010000800100020004000800
 383         100020004000800040002000100008000400020001000080
 384         01000200040008001000200040008000>}
 385      imagemask } bind
 386 ] def
 387 /PaintProc {
 388         pop
 389         exec fill
 390 } def
 391 currentdict
 392 end
 393 /P22 exch def
 394 1.1111 1.1111 scale %restore scale
 395
 396 /cp {closepath} bind def
 397 /ef {eofill} bind def
 398 /gr {grestore} bind def
 399 /gs {gsave} bind def
 400 /sa {save} bind def
 401 /rs {restore} bind def
 402 /l {lineto} bind def
 403 /m {moveto} bind def
 404 /rm {rmoveto} bind def
 405 /n {newpath} bind def
 406 /s {stroke} bind def
 407 /sh {show} bind def
 408 /slc {setlinecap} bind def
 409 /slj {setlinejoin} bind def
 410 /slw {setlinewidth} bind def
 411 /srgb {setrgbcolor} bind def
 412 /rot {rotate} bind def
 413 /sc {scale} bind def
 414 /sd {setdash} bind def
 415 /ff {findfont} bind def
 416 /sf {setfont} bind def
 417 /scf {scalefont} bind def
 418 /sw {stringwidth} bind def
 419 /tr {translate} bind def
 420 /tnt {dup dup currentrgbcolor
 421   4 -2 roll dup 1 exch sub 3 -1 roll mul add
 422   4 -2 roll dup 1 exch sub 3 -1 roll mul add
 423   4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
 424   bind def
 425 /shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
 426   4 -2 roll mul srgb} bind def
 427  /DrawEllipse {
 428         /endangle exch def
 429         /startangle exch def
 430         /yrad exch def
 431         /xrad exch def
 432         /y exch def
 433         /x exch def
 434         /savematrix mtrx currentmatrix def
 435         x y tr xrad yrad sc 0 0 1 startangle endangle arc
 436         closepath
 437         savematrix setmatrix
 438         } def
 439
 440 /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
 441 /$F2psEnd {$F2psEnteredState restore end} def
 442 %%EndProlog
 443
 444 $F2psBegin
 445 10 setmiterlimit
 446 n 0 792 m 0 0 l 612 0 l 612 792 l cp clip
 447  0.02400 0.02400 sc
 448 7.500 slw
 449 % Polyline
 450 n 10350 3600 m 11700 3600 l gs col-1 s gr
 451 % Polyline
 452 n 20729 5108 m 21821 4314 l gs col-1 s gr
 453 % Polyline
 454 n 6150 3600 m 7500 3600 l gs col-1 s gr
 455 % Polyline
 456 n 150 3600 m 1500 3600 l gs col-1 s gr
 457 % Polyline
 458 n 14532 3300 m 13512 4215 l 13782 5535 l gs col-1 s gr
 459 % Polyline
 460 n 18750 3600 m 19650 3600 l gs col-1 s gr
 461 % Polyline
 462 n 13508 4198 m 14513 3298 l gs col-1 s gr
 463 % Polyline
 464 n 18000 2413 m 18750 3613 l 18000 4813 l 16650 4813 l 15900 3613 l 16650 2413 l
 465  cp gs col-1 s gr
 466 % Polyline
 467 n 18000 2413 m 18450 1588 l gs col-1 s gr
 468 % Polyline
 469 n 18358 5646 m 17983 4821 l gs col-1 s gr
 470 % Polyline
 471 n 16631 2429 m 15724 1350 l 14416 1879 l 14513 3285 l 15883 3627 l cp gs col-1 s gr
 472 % Polyline
 473 n 15736 1380 m 15961 465 l gs col-1 s gr
 474 % Polyline
 475 n 23191 4759 m 23469 5615 l gs col-1 s gr
 476 % Polyline
 477 n 23188 2451 m 23466 1595 l gs col-1 s gr
 478 % Polyline
 479 n 24000 3600 m 23171 2459 l 21829 2895 l 21829 4305 l 23171 4741 l cp gs col-1 s gr
 480 % Polyline
 481 n 24000 3600 m 24900 3600 l gs col-1 s gr
 482 % Polyline
 483 n 14431 1905 m 13651 1395 l gs col-1 s gr
 484 % Polyline
 485 n 21107 2388 m 21835 2917 l gs col-1 s gr
 486 % Polyline
 487 n 3600 2400 m 4350 3600 l 3600 4800 l 2250 4800 l 1500 3600 l 2250 2400 l
 488  cp gs col-1 s gr
 489 % Polyline
 490 n 12087 4420 m 11712 3595 l gs col-1 s gr
 491 % Polyline
 492 n 9600 2400 m 10350 3600 l 9600 4800 l 8250 4800 l 7500 3600 l 8250 2400 l
 493  cp gs col-1 s gr
 494 % Polyline
 495 n 9600 2400 m 10050 1575 l gs col-1 s gr
 496 % Polyline
 497 n 8250 2400 m 7875 1575 l gs col-1 s gr
 498 % Polyline
 499 n 9958 5633 m 9583 4808 l gs col-1 s gr
 500 % Polyline
 501 n 7784 5616 m 8234 4791 l gs col-1 s gr
 502 % Polyline
 503  [15 50.0] 50.0 sd
 504 n 7500 3600 m 9600 2400 l 9600 4800 l cp gs col-1 s gr  [] 0 sd
 505 % Polyline
 506  [15 50.0] 50.0 sd
 507 n 9600 2400 m 11775 3600 l 9600 4800 l gs col-1 s gr  [] 0 sd
 508 % Polyline
 509 n 4350 3600 m 5250 3600 l gs col-1 s gr
 510 % Polyline
 511 n 3600 2400 m 4050 1575 l gs col-1 s gr
 512 % Polyline
 513 n 2250 2400 m 1875 1575 l gs col-1 s gr
 514 % Polyline
 515 n 3958 5633 m 3583 4808 l gs col-1 s gr
 516 % Polyline
 517 n 1784 5616 m 2234 4791 l gs col-1 s gr
 518 % Polyline
 519  [15 50.0] 50.0 sd
 520 n 7500 3600 m 12075 4425 l gs col-1 s gr  [] 0 sd
 521 % Polyline
 522  [15 50.0] 50.0 sd
 523 n 1500 3600 m 3600 2400 l 3600 4800 l cp gs col-1 s gr  [] 0 sd
 524 % Polyline
 525  [15 50.0] 50.0 sd
 526 n 21842 4305 m 23177 2490 l 23972 3600 l cp gs col-1 s gr  [] 0 sd
 527 % Polyline
 528 n 16184 5629 m 16634 4804 l gs col-1 s gr
 529 % Polyline
 530  [15 50.0] 50.0 sd
 531 n 13527 4230 m 15507 2535 l 17412 3585 l cp gs col-1 s gr  [] 0 sd
 532 /Symbol ff 360.00 scf sf
 533 16650 2175 m
 534 gs 1 -1 sc (e) col-1 sh gr
 535 /Symbol ff 360.00 scf sf
 536 18750 3375 m
 537 gs 1 -1 sc (h) col-1 sh gr
 538 /Symbol ff 360.00 scf sf
 539 17775 2175 m
 540 gs 1 -1 sc (z) col-1 sh gr
 541 /Symbol ff 360.00 scf sf
 542 14100 2100 m
 543 gs 1 -1 sc (d) col-1 sh gr
 544 /Symbol ff 360.00 scf sf
 545 15450 1275 m
 546 gs 1 -1 sc (e) col-1 sh gr
 547 /Symbol ff 360.00 scf sf
 548 14175 3225 m
 549 gs 1 -1 sc (g) col-1 sh gr
 550 /Symbol ff 360.00 scf sf
 551 3375 5175 m
 552 gs 1 -1 sc (e) col-1 sh gr
 553 /Symbol ff 360.00 scf sf
 554 15600 4050 m
 555 gs 1 -1 sc (d) col-1 sh gr
 556 /Symbol ff 360.00 scf sf
 557 24075 4050 m
 558 gs 1 -1 sc (e) col-1 sh gr
 559 /Symbol ff 360.00 scf sf
 560 22800 5100 m
 561 gs 1 -1 sc (d) col-1 sh gr
 562 /Symbol ff 360.00 scf sf
 563 22875 2325 m
 564 gs 1 -1 sc (e) col-1 sh gr
 565 /Symbol ff 360.00 scf sf
 566 21675 2700 m
 567 gs 1 -1 sc (d) col-1 sh gr
 568 /Symbol ff 360.00 scf sf
 569 21525 4200 m
 570 gs 1 -1 sc (g) col-1 sh gr
 571 /Symbol ff 360.00 scf sf
 572 17775 5250 m
 573 gs 1 -1 sc (z) col-1 sh gr
 574 /Symbol ff 360.00 scf sf
 575 16275 4800 m
 576 gs 1 -1 sc (e) col-1 sh gr
 577 /Symbol ff 360.00 scf sf
 578 11475 3300 m
 579 gs 1 -1 sc (h) col-1 sh gr
 580 /Symbol ff 360.00 scf sf
 581 3375 2175 m
 582 gs 1 -1 sc (e) col-1 sh gr
 583 /Symbol ff 360.00 scf sf
 584 1875 2400 m
 585 gs 1 -1 sc (d) col-1 sh gr
 586 /Symbol ff 360.00 scf sf
 587 1275 3375 m
 588 gs 1 -1 sc (g) col-1 sh gr
 589 /Helvetica-Bold ff 600.00 scf sf
 590 1050 5625 m
 591 gs 1 -1 sc (Phe) dup sw pop 2 div neg 0 rm  col-1 sh gr
 592 /Helvetica-Bold ff 600.00 scf sf
 593 7050 5625 m
 594 gs 1 -1 sc (Tyr) dup sw pop 2 div neg 0 rm  col-1 sh gr
 595 /Helvetica-Bold ff 600.00 scf sf
 596 20250 5625 m
 597 gs 1 -1 sc (His) dup sw pop 2 div neg 0 rm  col-1 sh gr
 598 /Helvetica-Bold ff 600.00 scf sf
 599 13050 5625 m
 600 gs 1 -1 sc (Trp) dup sw pop 2 div neg 0 rm  col-1 sh gr
 601 /Symbol ff 360.00 scf sf
 602 4500 3375 m
 603 gs 1 -1 sc (z) col-1 sh gr
 604 /Symbol ff 360.00 scf sf
 605 9375 5175 m
 606 gs 1 -1 sc (e) col-1 sh gr
 607 /Symbol ff 360.00 scf sf
 608 10425 3375 m
 609 gs 1 -1 sc (z) col-1 sh gr
 610 /Symbol ff 360.00 scf sf
 611 9375 2175 m
 612 gs 1 -1 sc (e) col-1 sh gr
 613 /Symbol ff 360.00 scf sf
 614 7875 2400 m
 615 gs 1 -1 sc (d) col-1 sh gr
 616 /Symbol ff 360.00 scf sf
 617 7275 3375 m
 618 gs 1 -1 sc (g) col-1 sh gr
 619 /Symbol ff 360.00 scf sf
 620 7875 4875 m
 621 gs 1 -1 sc (d) col-1 sh gr
 622 /Symbol ff 360.00 scf sf
 623 1875 4875 m
 624 gs 1 -1 sc (d) col-1 sh gr
 625 % Ellipse
 626 n 1500 3600 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 627 15.00 15.00 sc P22 [8 0 0 -16 90.00 230.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 628
 629 0.000 slw
 630 % Ellipse
 631 n 9975 5625 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 632 % Ellipse
 633 n 7800 5625 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 634 % Ellipse
 635 n 7875 1575 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 636 % Ellipse
 637 n 10050 1575 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 638 7.500 slw
 639 % Ellipse
 640 n 9600 4800 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 641 15.00 15.00 sc P22 [8 0 0 -16 630.00 310.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 642
 643 0.000 slw
 644 % Ellipse
 645 n 10350 3600 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 646 % Ellipse
 647 n 18750 3613 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 648 % Ellipse
 649 n 18375 5638 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 650 % Ellipse
 651 n 18450 1588 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 652 % Ellipse
 653 n 8250 4800 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 654 % Ellipse
 655 n 8250 2400 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 656 7.500 slw
 657 % Ellipse
 658 n 9600 2400 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 659 15.00 15.00 sc P22 [8 0 0 -16 630.00 150.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 660
 661 0.000 slw
 662 % Ellipse
 663 n 1800 5625 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 664 % Ellipse
 665 n 4050 1575 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 666 % Ellipse
 667 n 5250 3600 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 668 7.500 slw
 669 % Ellipse
 670 n 3600 4800 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 671 15.00 15.00 sc P22 [8 0 0 -16 230.00 310.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 672
 673 % Ellipse
 674 n 3600 2400 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 675 15.00 15.00 sc P22 [8 0 0 -16 230.00 150.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 676
 677 0.000 slw
 678 % Ellipse
 679 n 3975 5625 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 680 7.500 slw
 681 % Ellipse
 682 n 7500 3600 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 683 15.00 15.00 sc P22 [8 0 0 -16 490.00 230.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 684
 685 % Ellipse
 686 n 12075 4425 75 75 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 687 15.00 15.00 sc P22 [8 0 0 -16 800.00 290.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 688
 689 % Ellipse
 690 n 11708 3584 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 691 15.00 15.00 sc P22 [8 0 0 -16 770.53 228.93]  PATmp PATsp ef gr PATusp gs col-1 s gr
 692
 693 0.000 slw
 694 % Ellipse
 695 n 2250 4800 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 696 % Ellipse
 697 n 2250 2400 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 698 % Ellipse
 699 n 4350 3600 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 700 % Ellipse
 701 n 19650 3600 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 702 % Ellipse
 703 n 1875 1575 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 704 7.500 slw
 705 % Ellipse
 706 n 23987 3600 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 707 15.00 15.00 sc P22 [8 0 0 -16 1589.13 230.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 708
 709 % Ellipse
 710 n 23177 2490 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 711 15.00 15.00 sc P22 [8 0 0 -16 1535.13 156.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 712
 713 % Ellipse
 714 n 21827 4320 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 715 15.00 15.00 sc P22 [8 0 0 -16 1445.13 278.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 716
 717 0.000 slw
 718 % Ellipse
 719 n 21827 2910 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 720 % Ellipse
 721 n 16200 5638 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 722 7.500 slw
 723 % Ellipse
 724 n 15507 2535 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 725 15.00 15.00 sc P22 [8 0 0 -16 1023.80 159.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 726
 727 0.000 slw
 728 % Ellipse
 729 n 15717 1365 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 730 % Ellipse
 731 n 15900 3613 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 732 % Ellipse
 733 n 16650 2413 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 734 % Ellipse
 735 n 16650 4813 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 736 % Ellipse
 737 n 23162 4740 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 738 7.500 slw
 739 % Ellipse
 740 n 13512 4215 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 741 15.00 15.00 sc P22 [8 0 0 -16 890.80 271.00]  PATmp PATsp ef gr PATusp gs col-1 s gr
 742
 743 0.000 slw
 744 % Ellipse
 745 n 14532 3285 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 746 % Ellipse
 747 n 14427 1890 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 748 % Ellipse
 749 n 18000 4813 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 750 % Ellipse
 751 n 18000 2413 150 150 0 360 DrawEllipse gs 0.50 setgray ef gr
 752 7.500 slw
 753 % Ellipse
 754 n 17411 3583 150 150 0 360 DrawEllipse gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def
 755 15.00 15.00 sc P22 [8 0 0 -16 1150.73 228.87]  PATmp PATsp ef gr PATusp gs col-1 s gr
 756
 757 0.000 slw
 758 % Ellipse
 759 n 23462 5610 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 760 % Ellipse
 761 n 21107 2400 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 762 % Ellipse
 763 n 23477 1605 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 764 % Ellipse
 765 n 24900 3600 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 766 % Ellipse
 767 n 13651 1410 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 768 % Ellipse
 769 n 15976 480 75 75 0 360 DrawEllipse gs 0.50 setgray ef gr
 770 $F2psEnd
 771 rs
 772 end