s_examples/deep_convection/simulation_config.eps

%!PS-Adobe-2.0 EPSF-2.0
%%Title: simulation_config.eps
%%Creator: fig2dev Version 3.2.3 Patchlevel 
%%CreationDate: Wed Dec 12 13:56:28 2001
%%For: helen@belle (Helen Hill)
%%BoundingBox: 0 0 572 477
%%Magnification: 1.0000
%%EndComments
/MyAppDict 100 dict dup begin def
/$F2psDict 200 dict def
$F2psDict begin
$F2psDict /mtrx matrix put
/col-1 {0 setgray} bind def
/col0 {0.000 0.000 0.000 srgb} bind def
/col1 {0.000 0.000 1.000 srgb} bind def
/col2 {0.000 1.000 0.000 srgb} bind def
/col3 {0.000 1.000 1.000 srgb} bind def
/col4 {1.000 0.000 0.000 srgb} bind def
/col5 {1.000 0.000 1.000 srgb} bind def
/col6 {1.000 1.000 0.000 srgb} bind def
/col7 {1.000 1.000 1.000 srgb} bind def
/col8 {0.000 0.000 0.560 srgb} bind def
/col9 {0.000 0.000 0.690 srgb} bind def
/col10 {0.000 0.000 0.820 srgb} bind def
/col11 {0.530 0.810 1.000 srgb} bind def
/col12 {0.000 0.560 0.000 srgb} bind def
/col13 {0.000 0.690 0.000 srgb} bind def
/col14 {0.000 0.820 0.000 srgb} bind def
/col15 {0.000 0.560 0.560 srgb} bind def
/col16 {0.000 0.690 0.690 srgb} bind def
/col17 {0.000 0.820 0.820 srgb} bind def
/col18 {0.560 0.000 0.000 srgb} bind def
/col19 {0.690 0.000 0.000 srgb} bind def
/col20 {0.820 0.000 0.000 srgb} bind def
/col21 {0.560 0.000 0.560 srgb} bind def
/col22 {0.690 0.000 0.690 srgb} bind def
/col23 {0.820 0.000 0.820 srgb} bind def
/col24 {0.500 0.190 0.000 srgb} bind def
/col25 {0.630 0.250 0.000 srgb} bind def
/col26 {0.750 0.380 0.000 srgb} bind def
/col27 {1.000 0.500 0.500 srgb} bind def
/col28 {1.000 0.630 0.630 srgb} bind def
/col29 {1.000 0.750 0.750 srgb} bind def
/col30 {1.000 0.880 0.880 srgb} bind def
/col31 {1.000 0.840 0.000 srgb} bind def

end
save
newpath 0 477 moveto 0 0 lineto 572 0 lineto 572 477 lineto closepath clip newpath
% Fill background color
0 0 moveto 572 0 lineto 572 477 lineto 0 477 lineto
closepath 1.00 1.00 1.00 setrgbcolor fill

-186.0 502.0 translate
1 -1 scale
.9 .9 scale % to make patterns same scale as in xfig

% This junk string is used by the show operators
/PATsstr 1 string def
/PATawidthshow {        % cx cy cchar rx ry string
  % Loop over each character in the string
  {  % cx cy cchar rx ry char
    % Show the character
    dup                         % cx cy cchar rx ry char char
    PATsstr dup 0 4 -1 roll put % cx cy cchar rx ry char (char)
    false charpath              % cx cy cchar rx ry char
    /clip load PATdraw
    % Move past the character (charpath modified the
    % current point)
    currentpoint                        % cx cy cchar rx ry char x y
    newpath
    moveto                      % cx cy cchar rx ry char
    % Reposition by cx,cy if the character in the string is cchar
    3 index eq {                        % cx cy cchar rx ry
      4 index 4 index rmoveto
    } if
    % Reposition all characters by rx ry
    2 copy rmoveto              % cx cy cchar rx ry
  } forall
  pop pop pop pop pop           % -
  currentpoint
  newpath
  moveto
} bind def
/PATcg {
  7 dict dup begin
    /lw currentlinewidth def
    /lc currentlinecap def
    /lj currentlinejoin def
    /ml currentmiterlimit def
    /ds [ currentdash ] def
    /cc [ currentrgbcolor ] def
    /cm matrix currentmatrix def
  end
} bind def
% PATdraw - calculates the boundaries of the object and
% fills it with the current pattern
/PATdraw {                      % proc
  save exch
    PATpcalc                    % proc nw nh px py
    5 -1 roll exec              % nw nh px py
    newpath
    PATfill                     % -
  restore
} bind def
% PATfill - performs the tiling for the shape
/PATfill { % nw nh px py PATfill -
  PATDict /CurrentPattern get dup begin
    setfont
    % Set the coordinate system to Pattern Space
    PatternGState PATsg
    % Set the color for uncolored pattezns
    PaintType 2 eq { PATDict /PColor get PATsc } if
    % Create the string for showing
    3 index string              % nw nh px py str
    % Loop for each of the pattern sources
    0 1 Multi 1 sub {           % nw nh px py str source
        % Move to the starting location
        3 index 3 index         % nw nh px py str source px py
        moveto                  % nw nh px py str source
        % For multiple sources, set the appropriate color
        Multi 1 ne { dup PC exch get PATsc } if
        % Set the appropriate string for the source
        0 1 7 index 1 sub { 2 index exch 2 index put } for pop
        % Loop over the number of vertical cells
        3 index                 % nw nh px py str nh
        {                       % nw nh px py str
          currentpoint          % nw nh px py str cx cy
          2 index show          % nw nh px py str cx cy
          YStep add moveto      % nw nh px py str
        } repeat                % nw nh px py str
    } for
    5 { pop } repeat
  end
} bind def

% PATkshow - kshow with the current pattezn
/PATkshow {                     % proc string
  exch bind                     % string proc
  1 index 0 get                 % string proc char
  % Loop over all but the last character in the string
  0 1 4 index length 2 sub {
                                % string proc char idx
    % Find the n+1th character in the string
    3 index exch 1 add get      % string proe char char+1
    exch 2 copy                 % strinq proc char+1 char char+1 char
    % Now show the nth character
    PATsstr dup 0 4 -1 roll put % string proc chr+1 chr chr+1 (chr)
    false charpath              % string proc char+1 char char+1
    /clip load PATdraw
    % Move past the character (charpath modified the current point)
    currentpoint newpath moveto
    % Execute the user proc (should consume char and char+1)
    mark 3 1 roll               % string proc char+1 mark char char+1
    4 index exec                % string proc char+1 mark...
    cleartomark                 % string proc char+1
  } for
  % Now display the last character
  PATsstr dup 0 4 -1 roll put   % string proc (char+1)
  false charpath                % string proc
  /clip load PATdraw
  neewath
  pop pop                       % -
} bind def
% PATmp - the makepattern equivalent
/PATmp {                        % patdict patmtx PATmp patinstance
  exch dup length 7 add         % We will add 6 new entries plus 1 FID
  dict copy                     % Create a new dictionary
  begin
    % Matrix to install when painting the pattern
    TilingType PATtcalc
    /PatternGState PATcg def
    PatternGState /cm 3 -1 roll put
    % Check for multi pattern sources (Level 1 fast color patterns)
    currentdict /Multi known not { /Multi 1 def } if
    % Font dictionary definitions
    /FontType 3 def
    % Create a dummy encoding vector
    /Encoding 256 array def
    3 string 0 1 255 {
      Encoding exch dup 3 index cvs cvn put } for pop
    /FontMatrix matrix def
    /FontBBox BBox def
    /BuildChar {
        mark 3 1 roll           % mark dict char
        exch begin
        Multi 1 ne {PaintData exch get}{pop} ifelse  % mark [paintdata]
          PaintType 2 eq Multi 1 ne or
          { XStep 0 FontBBox aload pop setcachedevice }
          { XStep 0 setcharwidth } ifelse
          currentdict           % mark [paintdata] dict
          /PaintProc load       % mark [paintdata] dict paintproc
        end
        gsave
          false PATredef exec true PATredef
        grestore
        cleartomark             % -
    } bind def
    currentdict
  end                           % newdict
  /foo exch                     % /foo newlict
  definefont                    % newfont
} bind def
% PATpcalc - calculates the starting point and width/height
% of the tile fill for the shape
/PATpcalc {     % - PATpcalc nw nh px py
  PATDict /CurrentPattern get begin
    gsave
        % Set up the coordinate system to Pattern Space
        % and lock down pattern
        PatternGState /cm get setmatrix
        BBox aload pop pop pop translate
        % Determine the bounding box of the shape
        pathbbox                        % llx lly urx ury
    grestore
    % Determine (nw, nh) the # of cells to paint width and height
    PatHeight div ceiling               % llx lly urx qh
    4 1 roll                            % qh llx lly urx
    PatWidth div ceiling                % qh llx lly qw
    4 1 roll                            % qw qh llx lly
    PatHeight div floor                 % qw qh llx ph
    4 1 roll                            % ph qw qh llx
    PatWidth div floor                  % ph qw qh pw
    4 1 roll                            % pw ph qw qh
    2 index sub cvi abs                 % pw ph qs qh-ph
    exch 3 index sub cvi abs exch       % pw ph nw=qw-pw nh=qh-ph
    % Determine the starting point of the pattern fill
    %(px, py)
    4 2 roll                            % nw nh pw ph
    PatHeight mul                       % nw nh pw py
    exch                                % nw nh py pw
    PatWidth mul exch                   % nw nh px py
  end
} bind def

% Save the original routines so that we can use them later on
/oldfill        /fill load def
/oldeofill      /eofill load def
/oldstroke      /stroke load def
/oldshow        /show load def
/oldashow       /ashow load def
/oldwidthshow   /widthshow load def
/oldawidthshow  /awidthshow load def
/oldkshow       /kshow load def

% These defs are necessary so that subsequent procs don't bind in
% the originals
/fill      { oldfill } bind def
/eofill    { oldeofill } bind def
/stroke    { oldstroke } bind def
/show      { oldshow } bind def
/ashow     { oldashow } bind def
/widthshow { oldwidthshow } bind def
/awidthshow { oldawidthshow } bind def
/kshow     { oldkshow } bind def
/PATredef {
  MyAppDict begin
    {
    /fill { /clip load PATdraw newpath } bind def
    /eofill { /eoclip load PATdraw newpath } bind def
    /stroke { PATstroke } bind def
    /show { 0 0 null 0 0 6 -1 roll PATawidthshow } bind def
    /ashow { 0 0 null 6 3 roll PATawidthshow }
    bind def
    /widthshow { 0 0 3 -1 roll PATawidthshow }
    bind def
    /awidthshow { PATawidthshow } bind def
    /kshow { PATkshow } bind def
  } {
    /fill   { oldfill } bind def
    /eofill { oldeofill } bind def
    /stroke { oldstroke } bind def
    /show   { oldshow } bind def
    /ashow  { oldashow } bind def
    /widthshow { oldwidthshow } bind def
    /awidthshow { oldawidthshow } bind def
    /kshow  { oldkshow } bind def
    } ifelse
  end
} bind def
false PATredef
% Conditionally define setcmykcolor if not available
/setcmykcolor where { pop } {
  /setcmykcolor {
    1 sub 4 1 roll
    3 {
        3 index add neg dup 0 lt { pop 0 } if 3 1 roll
    } repeat
    setrgbcolor - pop
  } bind def
} ifelse
/PATsc {                % colorarray
  aload length          % c1 ... cn length
    dup 1 eq { pop setgray } { 3 eq { setrgbcolor } { setcmykcolor
  } ifelse } ifelse
} bind def
/PATsg {                % dict
  begin
    lw setlinewidth
    lc setlinecap
    lj setlinejoin
    ml setmiterlimit
    ds aload pop setdash
    cc aload pop setrgbcolor
    cm setmatrix
  end
} bind def

/PATDict 3 dict def
/PATsp {
  true PATredef
  PATDict begin
    /CurrentPattern exch def
    % If it's an uncolored pattern, save the color
    CurrentPattern /PaintType get 2 eq {
      /PColor exch def
    } if
    /CColor [ currentrgbcolor ] def
  end
} bind def
% PATstroke - stroke with the current pattern
/PATstroke {
  countdictstack
  save
  mark
  {
    currentpoint strokepath moveto
    PATpcalc                            % proc nw nh px py
    clip newpath PATfill
    } stopped {
        (*** PATstroke Warning: Path is too complex, stroking
          with gray) =
    cleartomark
    restore
    countdictstack exch sub dup 0 gt
        { { end } repeat } { pop } ifelse
    gsave 0.5 setgray oldstroke grestore
  } { pop restore pop } ifelse
  newpath
} bind def
/PATtcalc {             % modmtx tilingtype PATtcalc tilematrix
  % Note: tiling types 2 and 3 are not supported
  gsave
    exch concat                                 % tilingtype
    matrix currentmatrix exch                   % cmtx tilingtype
    % Tiling type 1 and 3: constant spacing
    2 ne {
        % Distort the pattern so that it occupies
        % an integral number of device pixels
        dup 4 get exch dup 5 get exch           % tx ty cmtx
        XStep 0 dtransform
        round exch round exch                   % tx ty cmtx dx.x dx.y
        XStep div exch XStep div exch           % tx ty cmtx a b
        0 YStep dtransform
        round exch round exch                   % tx ty cmtx a b dy.x dy.y
        YStep div exch YStep div exch           % tx ty cmtx a b c d
        7 -3 roll astore                        % { a b c d tx ty }
    } if
  grestore
} bind def
/PATusp {
  false PATredef
  PATDict begin
    CColor PATsc
  end
} bind def

% right30
11 dict begin
/PaintType 1 def
/PatternType 1 def
/TilingType 1 def
/BBox [0 0 1 1] def
/XStep 1 def
/YStep 1 def
/PatWidth 1 def
/PatHeight 1 def
/Multi 2 def
/PaintData [
  { clippath } bind
  { 32 16 true [ 32 0 0 -16 0 16 ]
        {<00030003000c000c0030003000c000c0030003000c000c00
        30003000c000c00000030003000c000c0030003000c000c0
        030003000c000c0030003000c000c000>}
     imagemask } bind
] def
/PaintProc {
        pop
        exec fill
} def
currentdict
end
/P2 exch def
1.1111 1.1111 scale %restore scale

/cp {closepath} bind def
/ef {eofill} bind def
/gr {grestore} bind def
/gs {gsave} bind def
/sa {save} bind def
/rs {restore} bind def
/l {lineto} bind def
/m {moveto} bind def
/rm {rmoveto} bind def
/n {newpath} bind def
/s {stroke} bind def
/sh {show} bind def
/slc {setlinecap} bind def
/slj {setlinejoin} bind def
/slw {setlinewidth} bind def
/srgb {setrgbcolor} bind def
/rot {rotate} bind def
/sc {scale} bind def
/sd {setdash} bind def
/ff {findfont} bind def
/sf {setfont} bind def
/scf {scalefont} bind def
/sw {stringwidth} bind def
/tr {translate} bind def
/tnt {dup dup currentrgbcolor
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
  bind def
/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
  4 -2 roll mul srgb} bind def
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
/$F2psEnd {$F2psEnteredState restore end} def

$F2psBegin
%%Page: 1 1
10 setmiterlimit
 0.06299 0.06299 sc
% Polyline
15.000 slw
n 8550 5400 m 10350 3600 l 10350 5400 l 8550 7200 l
 cp gs col0 s gr 
% Polyline
gs  clippath
4103 931 m 4018 846 l 3814 1050 l 4027 923 l 3899 1135 l cp
eoclip
n 3150 1800 m
 4050 900 l gs col0 s gr gr

% arrowhead
n 3899 1135 m 4027 923 l 3814 1050 l 3899 1135 l  cp gs 0.00 setgray ef gr  col0 s
% Polyline
gs  clippath
4515 1860 m 4515 1740 l 4228 1740 l 4468 1800 l 4228 1860 l cp
eoclip
n 3150 1800 m
 4500 1800 l gs col0 s gr gr

% arrowhead
n 4228 1860 m 4468 1800 l 4228 1740 l 4228 1860 l  cp gs 0.00 setgray ef gr  col0 s
% Polyline
gs  clippath
3090 3165 m 3210 3165 l 3210 2878 l 3150 3118 l 3090 2878 l cp
eoclip
n 3150 1800 m
 3150 3150 l gs col0 s gr gr

% arrowhead
n 3090 2878 m 3150 3118 l 3210 2878 l 3090 2878 l  cp gs 0.00 setgray ef gr  col0 s
% Polyline
n 3150 5400 m 3150 7200 l 8550 7200 l 8550 5400 l 3150 5400 l
 cp gs col0 s gr 
% Polyline
gs  clippath
9321 7168 m 9407 7252 l 9608 7047 l 9398 7177 l 9522 6963 l cp
eoclip
n 9975 6585 m
 9375 7200 l gs col0 s gr gr

% arrowhead
n 9522 6963 m 9398 7177 l 9608 7047 l 9522 6963 l  cp gs 0.00 setgray ef gr  col0 s
% Polyline
gs  clippath
11183 5476 m 11098 5391 l 10894 5595 l 11107 5468 l 10979 5680 l cp
eoclip
n 10500 6075 m
 11130 5445 l gs col0 s gr gr

% arrowhead
n 10979 5680 m 11107 5468 l 10894 5595 l 10979 5680 l  cp gs 0.00 setgray ef gr  col0 s
% Polyline
gs  clippath
11085 5431 m 11205 5428 l 11198 5141 l 11144 5383 l 11078 5144 l cp
eoclip
n 11130 4710 m
 11145 5415 l gs col0 s gr gr

% arrowhead
n 11078 5144 m 11144 5383 l 11198 5141 l 11078 5144 l  cp gs 0.00 setgray ef gr  col0 s
% Polyline
gs  clippath
11209 3586 m 11089 3583 l 11082 3870 l 11148 3632 l 11202 3873 l cp
eoclip
n 11134 4230 m
 11149 3600 l gs col0 s gr gr

% arrowhead
n 11202 3873 m 11148 3632 l 11082 3870 l 11202 3873 l  cp gs 0.00 setgray ef gr  col0 s
% Polyline
gs  clippath
8580 7710 m 8580 7590 l 8293 7590 l 8533 7650 l 8293 7710 l cp
eoclip
n 6600 7650 m
 8565 7650 l gs col0 s gr gr

% arrowhead
n 8293 7710 m 8533 7650 l 8293 7590 l 8293 7710 l  cp gs 0.00 setgray ef gr  col0 s
% Polyline
gs  clippath
3165 7590 m 3165 7710 l 3452 7710 l 3212 7650 l 3452 7590 l cp
eoclip
n 5160 7650 m
 3180 7650 l gs col0 s gr gr

% arrowhead
n 3452 7590 m 3212 7650 l 3452 7710 l 3452 7590 l  cp gs 0.00 setgray ef gr  col0 s
% Polyline
n 3135 5385 m 8535 5385 l 10335 3585 l 4935 3585 l
 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
15.00 15.00 sc P2 [16 0 0 -8 209.00 239.00] PATmp PATsp ef gr PATusp gs col0 s gr 
% Polyline
n 3135 5370 m 3135 7170 l 8535 7170 l 8535 5370 l 3135 5370 l
 cp gs col0 s gr 
/Times-Roman ff 450.00 scf sf
5820 7800 m
gs 1 -1 sc (3.2 km) dup sw pop 2 div neg 0 rm  col0 sh gr
/Times-Roman ff 450.00 scf sf
10215 6495 m
gs 1 -1 sc (3.2 km) dup sw pop 2 div neg 0 rm  col0 sh gr
/Times-Roman ff 450.00 scf sf
11205 4635 m
gs 1 -1 sc (1000 m) dup sw pop 2 div neg 0 rm  col0 sh gr
/Times-Roman ff 450.00 scf sf
3435 3135 m
gs 1 -1 sc (z) dup sw pop 2 div neg 0 rm  col0 sh gr
/Times-Roman ff 450.00 scf sf
4725 1920 m
gs 1 -1 sc (x) dup sw pop 2 div neg 0 rm  col0 sh gr
/Times-Roman ff 450.00 scf sf
4290 810 m
gs 1 -1 sc (y) dup sw pop 2 div neg 0 rm  col0 sh gr
$F2psEnd
rs
end
1	helen	1.1	%!PS-Adobe-2.0 EPSF-2.0
2			%%Title: simulation_config.eps
3			%%Creator: fig2dev Version 3.2.3 Patchlevel
4			%%CreationDate: Wed Dec 12 13:56:28 2001
5			%%For: helen@belle (Helen Hill)
6			%%BoundingBox: 0 0 572 477
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 477 moveto 0 0 lineto 572 0 lineto 572 477 lineto closepath clip newpath
50			% Fill background color
51			0 0 moveto 572 0 lineto 572 477 lineto 0 477 lineto
52			closepath 1.00 1.00 1.00 setrgbcolor fill
53
54			-186.0 502.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			% right30
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			{ 32 16 true [ 32 0 0 -16 0 16 ]
382			{<00030003000c000c0030003000c000c0030003000c000c00
383			30003000c000c00000030003000c000c0030003000c000c0
384			030003000c000c0030003000c000c000>}
385			imagemask } bind
386			] def
387			/PaintProc {
388			pop
389			exec fill
390			} def
391			currentdict
392			end
393			/P2 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			/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
428			/$F2psEnd {$F2psEnteredState restore end} def
429
430			$F2psBegin
431			%%Page: 1 1
432			10 setmiterlimit
433			0.06299 0.06299 sc
434			% Polyline
435			15.000 slw
436			n 8550 5400 m 10350 3600 l 10350 5400 l 8550 7200 l
437			cp gs col0 s gr
438			% Polyline
439			gs clippath
440			4103 931 m 4018 846 l 3814 1050 l 4027 923 l 3899 1135 l cp
441			eoclip
442			n 3150 1800 m
443			4050 900 l gs col0 s gr gr
444
445			% arrowhead
446			n 3899 1135 m 4027 923 l 3814 1050 l 3899 1135 l cp gs 0.00 setgray ef gr col0 s
447			% Polyline
448			gs clippath
449			4515 1860 m 4515 1740 l 4228 1740 l 4468 1800 l 4228 1860 l cp
450			eoclip
451			n 3150 1800 m
452			4500 1800 l gs col0 s gr gr
453
454			% arrowhead
455			n 4228 1860 m 4468 1800 l 4228 1740 l 4228 1860 l cp gs 0.00 setgray ef gr col0 s
456			% Polyline
457			gs clippath
458			3090 3165 m 3210 3165 l 3210 2878 l 3150 3118 l 3090 2878 l cp
459			eoclip
460			n 3150 1800 m
461			3150 3150 l gs col0 s gr gr
462
463			% arrowhead
464			n 3090 2878 m 3150 3118 l 3210 2878 l 3090 2878 l cp gs 0.00 setgray ef gr col0 s
465			% Polyline
466			n 3150 5400 m 3150 7200 l 8550 7200 l 8550 5400 l 3150 5400 l
467			cp gs col0 s gr
468			% Polyline
469			gs clippath
470			9321 7168 m 9407 7252 l 9608 7047 l 9398 7177 l 9522 6963 l cp
471			eoclip
472			n 9975 6585 m
473			9375 7200 l gs col0 s gr gr
474
475			% arrowhead
476			n 9522 6963 m 9398 7177 l 9608 7047 l 9522 6963 l cp gs 0.00 setgray ef gr col0 s
477			% Polyline
478			gs clippath
479			11183 5476 m 11098 5391 l 10894 5595 l 11107 5468 l 10979 5680 l cp
480			eoclip
481			n 10500 6075 m
482			11130 5445 l gs col0 s gr gr
483
484			% arrowhead
485			n 10979 5680 m 11107 5468 l 10894 5595 l 10979 5680 l cp gs 0.00 setgray ef gr col0 s
486			% Polyline
487			gs clippath
488			11085 5431 m 11205 5428 l 11198 5141 l 11144 5383 l 11078 5144 l cp
489			eoclip
490			n 11130 4710 m
491			11145 5415 l gs col0 s gr gr
492
493			% arrowhead
494			n 11078 5144 m 11144 5383 l 11198 5141 l 11078 5144 l cp gs 0.00 setgray ef gr col0 s
495			% Polyline
496			gs clippath
497			11209 3586 m 11089 3583 l 11082 3870 l 11148 3632 l 11202 3873 l cp
498			eoclip
499			n 11134 4230 m
500			11149 3600 l gs col0 s gr gr
501
502			% arrowhead
503			n 11202 3873 m 11148 3632 l 11082 3870 l 11202 3873 l cp gs 0.00 setgray ef gr col0 s
504			% Polyline
505			gs clippath
506			8580 7710 m 8580 7590 l 8293 7590 l 8533 7650 l 8293 7710 l cp
507			eoclip
508			n 6600 7650 m
509			8565 7650 l gs col0 s gr gr
510
511			% arrowhead
512			n 8293 7710 m 8533 7650 l 8293 7590 l 8293 7710 l cp gs 0.00 setgray ef gr col0 s
513			% Polyline
514			gs clippath
515			3165 7590 m 3165 7710 l 3452 7710 l 3212 7650 l 3452 7590 l cp
516			eoclip
517			n 5160 7650 m
518			3180 7650 l gs col0 s gr gr
519
520			% arrowhead
521			n 3452 7590 m 3212 7650 l 3452 7710 l 3452 7590 l cp gs 0.00 setgray ef gr col0 s
522			% Polyline
523			n 3135 5385 m 8535 5385 l 10335 3585 l 4935 3585 l
524			cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
525			15.00 15.00 sc P2 [16 0 0 -8 209.00 239.00] PATmp PATsp ef gr PATusp gs col0 s gr
526			% Polyline
527			n 3135 5370 m 3135 7170 l 8535 7170 l 8535 5370 l 3135 5370 l
528			cp gs col0 s gr
529			/Times-Roman ff 450.00 scf sf
530			5820 7800 m
531			gs 1 -1 sc (3.2 km) dup sw pop 2 div neg 0 rm col0 sh gr
532			/Times-Roman ff 450.00 scf sf
533			10215 6495 m
534			gs 1 -1 sc (3.2 km) dup sw pop 2 div neg 0 rm col0 sh gr
535			/Times-Roman ff 450.00 scf sf
536			11205 4635 m
537			gs 1 -1 sc (1000 m) dup sw pop 2 div neg 0 rm col0 sh gr
538			/Times-Roman ff 450.00 scf sf
539			3435 3135 m
540			gs 1 -1 sc (z) dup sw pop 2 div neg 0 rm col0 sh gr
541			/Times-Roman ff 450.00 scf sf
542			4725 1920 m
543			gs 1 -1 sc (x) dup sw pop 2 div neg 0 rm col0 sh gr
544			/Times-Roman ff 450.00 scf sf
545			4290 810 m
546			gs 1 -1 sc (y) dup sw pop 2 div neg 0 rm col0 sh gr
547			$F2psEnd
548			rs
549			end