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	%!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