Blame doc/api-figure2.eps

Packit Service f629e6
%!PS-Adobe-3.0 EPSF-3.0
Packit Service f629e6
%%Title: api-figure2.fig
Packit Service f629e6
%%Creator: fig2dev Version 3.2 Patchlevel 5d
Packit Service f629e6
%%CreationDate: Thu Apr 25 22:22:07 2013
Packit Service f629e6
%%BoundingBox: 0 0 363 179
Packit Service f629e6
%Magnification: 1.0000
Packit Service f629e6
%%EndComments
Packit Service f629e6
%%BeginProlog
Packit Service f629e6
/MyAppDict 100 dict dup begin def
Packit Service f629e6
/$F2psDict 200 dict def
Packit Service f629e6
$F2psDict begin
Packit Service f629e6
$F2psDict /mtrx matrix put
Packit Service f629e6
/col-1 {0 setgray} bind def
Packit Service f629e6
/col0 {0.000 0.000 0.000 srgb} bind def
Packit Service f629e6
/col1 {0.000 0.000 1.000 srgb} bind def
Packit Service f629e6
/col2 {0.000 1.000 0.000 srgb} bind def
Packit Service f629e6
/col3 {0.000 1.000 1.000 srgb} bind def
Packit Service f629e6
/col4 {1.000 0.000 0.000 srgb} bind def
Packit Service f629e6
/col5 {1.000 0.000 1.000 srgb} bind def
Packit Service f629e6
/col6 {1.000 1.000 0.000 srgb} bind def
Packit Service f629e6
/col7 {1.000 1.000 1.000 srgb} bind def
Packit Service f629e6
/col8 {0.000 0.000 0.560 srgb} bind def
Packit Service f629e6
/col9 {0.000 0.000 0.690 srgb} bind def
Packit Service f629e6
/col10 {0.000 0.000 0.820 srgb} bind def
Packit Service f629e6
/col11 {0.530 0.810 1.000 srgb} bind def
Packit Service f629e6
/col12 {0.000 0.560 0.000 srgb} bind def
Packit Service f629e6
/col13 {0.000 0.690 0.000 srgb} bind def
Packit Service f629e6
/col14 {0.000 0.820 0.000 srgb} bind def
Packit Service f629e6
/col15 {0.000 0.560 0.560 srgb} bind def
Packit Service f629e6
/col16 {0.000 0.690 0.690 srgb} bind def
Packit Service f629e6
/col17 {0.000 0.820 0.820 srgb} bind def
Packit Service f629e6
/col18 {0.560 0.000 0.000 srgb} bind def
Packit Service f629e6
/col19 {0.690 0.000 0.000 srgb} bind def
Packit Service f629e6
/col20 {0.820 0.000 0.000 srgb} bind def
Packit Service f629e6
/col21 {0.560 0.000 0.560 srgb} bind def
Packit Service f629e6
/col22 {0.690 0.000 0.690 srgb} bind def
Packit Service f629e6
/col23 {0.820 0.000 0.820 srgb} bind def
Packit Service f629e6
/col24 {0.500 0.190 0.000 srgb} bind def
Packit Service f629e6
/col25 {0.630 0.250 0.000 srgb} bind def
Packit Service f629e6
/col26 {0.750 0.380 0.000 srgb} bind def
Packit Service f629e6
/col27 {1.000 0.500 0.500 srgb} bind def
Packit Service f629e6
/col28 {1.000 0.630 0.630 srgb} bind def
Packit Service f629e6
/col29 {1.000 0.750 0.750 srgb} bind def
Packit Service f629e6
/col30 {1.000 0.880 0.880 srgb} bind def
Packit Service f629e6
/col31 {1.000 0.840 0.000 srgb} bind def
Packit Service f629e6
Packit Service f629e6
end
Packit Service f629e6
Packit Service f629e6
% This junk string is used by the show operators
Packit Service f629e6
/PATsstr 1 string def
Packit Service f629e6
/PATawidthshow { 	% cx cy cchar rx ry string
Packit Service f629e6
  % Loop over each character in the string
Packit Service f629e6
  {  % cx cy cchar rx ry char
Packit Service f629e6
    % Show the character
Packit Service f629e6
    dup				% cx cy cchar rx ry char char
Packit Service f629e6
    PATsstr dup 0 4 -1 roll put	% cx cy cchar rx ry char (char)
Packit Service f629e6
    false charpath		% cx cy cchar rx ry char
Packit Service f629e6
    /clip load PATdraw
Packit Service f629e6
    % Move past the character (charpath modified the
Packit Service f629e6
    % current point)
Packit Service f629e6
    currentpoint			% cx cy cchar rx ry char x y
Packit Service f629e6
    newpath
Packit Service f629e6
    moveto			% cx cy cchar rx ry char
Packit Service f629e6
    % Reposition by cx,cy if the character in the string is cchar
Packit Service f629e6
    3 index eq {			% cx cy cchar rx ry
Packit Service f629e6
      4 index 4 index rmoveto
Packit Service f629e6
    } if
Packit Service f629e6
    % Reposition all characters by rx ry
Packit Service f629e6
    2 copy rmoveto		% cx cy cchar rx ry
Packit Service f629e6
  } forall
Packit Service f629e6
  pop pop pop pop pop		% -
Packit Service f629e6
  currentpoint
Packit Service f629e6
  newpath
Packit Service f629e6
  moveto
Packit Service f629e6
} bind def
Packit Service f629e6
/PATcg {
Packit Service f629e6
  7 dict dup begin
Packit Service f629e6
    /lw currentlinewidth def
Packit Service f629e6
    /lc currentlinecap def
Packit Service f629e6
    /lj currentlinejoin def
Packit Service f629e6
    /ml currentmiterlimit def
Packit Service f629e6
    /ds [ currentdash ] def
Packit Service f629e6
    /cc [ currentrgbcolor ] def
Packit Service f629e6
    /cm matrix currentmatrix def
Packit Service f629e6
  end
Packit Service f629e6
} bind def
Packit Service f629e6
% PATdraw - calculates the boundaries of the object and
Packit Service f629e6
% fills it with the current pattern
Packit Service f629e6
/PATdraw {			% proc
Packit Service f629e6
  save exch
Packit Service f629e6
    PATpcalc			% proc nw nh px py
Packit Service f629e6
    5 -1 roll exec		% nw nh px py
Packit Service f629e6
    newpath
Packit Service f629e6
    PATfill			% -
Packit Service f629e6
  restore
Packit Service f629e6
} bind def
Packit Service f629e6
% PATfill - performs the tiling for the shape
Packit Service f629e6
/PATfill { % nw nh px py PATfill -
Packit Service f629e6
  PATDict /CurrentPattern get dup begin
Packit Service f629e6
    setfont
Packit Service f629e6
    % Set the coordinate system to Pattern Space
Packit Service f629e6
    PatternGState PATsg
Packit Service f629e6
    % Set the color for uncolored pattezns
Packit Service f629e6
    PaintType 2 eq { PATDict /PColor get PATsc } if
Packit Service f629e6
    % Create the string for showing
Packit Service f629e6
    3 index string		% nw nh px py str
Packit Service f629e6
    % Loop for each of the pattern sources
Packit Service f629e6
    0 1 Multi 1 sub {		% nw nh px py str source
Packit Service f629e6
	% Move to the starting location
Packit Service f629e6
	3 index 3 index		% nw nh px py str source px py
Packit Service f629e6
	moveto			% nw nh px py str source
Packit Service f629e6
	% For multiple sources, set the appropriate color
Packit Service f629e6
	Multi 1 ne { dup PC exch get PATsc } if
Packit Service f629e6
	% Set the appropriate string for the source
Packit Service f629e6
	0 1 7 index 1 sub { 2 index exch 2 index put } for pop
Packit Service f629e6
	% Loop over the number of vertical cells
Packit Service f629e6
	3 index 		% nw nh px py str nh
Packit Service f629e6
	{			% nw nh px py str
Packit Service f629e6
	  currentpoint		% nw nh px py str cx cy
Packit Service f629e6
	  2 index oldshow	% nw nh px py str cx cy
Packit Service f629e6
	  YStep add moveto	% nw nh px py str
Packit Service f629e6
	} repeat		% nw nh px py str
Packit Service f629e6
    } for
Packit Service f629e6
    5 { pop } repeat
Packit Service f629e6
  end
Packit Service f629e6
} bind def
Packit Service f629e6
Packit Service f629e6
% PATkshow - kshow with the current pattezn
Packit Service f629e6
/PATkshow {			% proc string
Packit Service f629e6
  exch bind			% string proc
Packit Service f629e6
  1 index 0 get			% string proc char
Packit Service f629e6
  % Loop over all but the last character in the string
Packit Service f629e6
  0 1 4 index length 2 sub {
Packit Service f629e6
				% string proc char idx
Packit Service f629e6
    % Find the n+1th character in the string
Packit Service f629e6
    3 index exch 1 add get	% string proc char char+1
Packit Service f629e6
    exch 2 copy			% strinq proc char+1 char char+1 char
Packit Service f629e6
    % Now show the nth character
Packit Service f629e6
    PATsstr dup 0 4 -1 roll put	% string proc chr+1 chr chr+1 (chr)
Packit Service f629e6
    false charpath		% string proc char+1 char char+1
Packit Service f629e6
    /clip load PATdraw
Packit Service f629e6
    % Move past the character (charpath modified the current point)
Packit Service f629e6
    currentpoint newpath moveto
Packit Service f629e6
    % Execute the user proc (should consume char and char+1)
Packit Service f629e6
    mark 3 1 roll		% string proc char+1 mark char char+1
Packit Service f629e6
    4 index exec		% string proc char+1 mark...
Packit Service f629e6
    cleartomark			% string proc char+1
Packit Service f629e6
  } for
Packit Service f629e6
  % Now display the last character
Packit Service f629e6
  PATsstr dup 0 4 -1 roll put	% string proc (char+1)
Packit Service f629e6
  false charpath		% string proc
Packit Service f629e6
  /clip load PATdraw
Packit Service f629e6
  neewath
Packit Service f629e6
  pop pop			% -
Packit Service f629e6
} bind def
Packit Service f629e6
% PATmp - the makepattern equivalent
Packit Service f629e6
/PATmp {			% patdict patmtx PATmp patinstance
Packit Service f629e6
  exch dup length 7 add		% We will add 6 new entries plus 1 FID
Packit Service f629e6
  dict copy			% Create a new dictionary
Packit Service f629e6
  begin
Packit Service f629e6
    % Matrix to install when painting the pattern
Packit Service f629e6
    TilingType PATtcalc
Packit Service f629e6
    /PatternGState PATcg def
Packit Service f629e6
    PatternGState /cm 3 -1 roll put
Packit Service f629e6
    % Check for multi pattern sources (Level 1 fast color patterns)
Packit Service f629e6
    currentdict /Multi known not { /Multi 1 def } if
Packit Service f629e6
    % Font dictionary definitions
Packit Service f629e6
    /FontType 3 def
Packit Service f629e6
    % Create a dummy encoding vector
Packit Service f629e6
    /Encoding 256 array def
Packit Service f629e6
    3 string 0 1 255 {
Packit Service f629e6
      Encoding exch dup 3 index cvs cvn put } for pop
Packit Service f629e6
    /FontMatrix matrix def
Packit Service f629e6
    /FontBBox BBox def
Packit Service f629e6
    /BuildChar {
Packit Service f629e6
	mark 3 1 roll		% mark dict char
Packit Service f629e6
	exch begin
Packit Service f629e6
	Multi 1 ne {PaintData exch get}{pop} ifelse  % mark [paintdata]
Packit Service f629e6
	  PaintType 2 eq Multi 1 ne or
Packit Service f629e6
	  { XStep 0 FontBBox aload pop setcachedevice }
Packit Service f629e6
	  { XStep 0 setcharwidth } ifelse
Packit Service f629e6
	  currentdict		% mark [paintdata] dict
Packit Service f629e6
	  /PaintProc load	% mark [paintdata] dict paintproc
Packit Service f629e6
	end
Packit Service f629e6
	gsave
Packit Service f629e6
	  false PATredef exec true PATredef
Packit Service f629e6
	grestore
Packit Service f629e6
	cleartomark		% -
Packit Service f629e6
    } bind def
Packit Service f629e6
    currentdict
Packit Service f629e6
  end				% newdict
Packit Service f629e6
  /foo exch			% /foo newlict
Packit Service f629e6
  definefont			% newfont
Packit Service f629e6
} bind def
Packit Service f629e6
% PATpcalc - calculates the starting point and width/height
Packit Service f629e6
% of the tile fill for the shape
Packit Service f629e6
/PATpcalc {	% - PATpcalc nw nh px py
Packit Service f629e6
  PATDict /CurrentPattern get begin
Packit Service f629e6
    gsave
Packit Service f629e6
	% Set up the coordinate system to Pattern Space
Packit Service f629e6
	% and lock down pattern
Packit Service f629e6
	PatternGState /cm get setmatrix
Packit Service f629e6
	BBox aload pop pop pop translate
Packit Service f629e6
	% Determine the bounding box of the shape
Packit Service f629e6
	pathbbox			% llx lly urx ury
Packit Service f629e6
    grestore
Packit Service f629e6
    % Determine (nw, nh) the # of cells to paint width and height
Packit Service f629e6
    PatHeight div ceiling		% llx lly urx qh
Packit Service f629e6
    4 1 roll				% qh llx lly urx
Packit Service f629e6
    PatWidth div ceiling		% qh llx lly qw
Packit Service f629e6
    4 1 roll				% qw qh llx lly
Packit Service f629e6
    PatHeight div floor			% qw qh llx ph
Packit Service f629e6
    4 1 roll				% ph qw qh llx
Packit Service f629e6
    PatWidth div floor			% ph qw qh pw
Packit Service f629e6
    4 1 roll				% pw ph qw qh
Packit Service f629e6
    2 index sub cvi abs			% pw ph qs qh-ph
Packit Service f629e6
    exch 3 index sub cvi abs exch	% pw ph nw=qw-pw nh=qh-ph
Packit Service f629e6
    % Determine the starting point of the pattern fill
Packit Service f629e6
    %(px, py)
Packit Service f629e6
    4 2 roll				% nw nh pw ph
Packit Service f629e6
    PatHeight mul			% nw nh pw py
Packit Service f629e6
    exch				% nw nh py pw
Packit Service f629e6
    PatWidth mul exch			% nw nh px py
Packit Service f629e6
  end
Packit Service f629e6
} bind def
Packit Service f629e6
Packit Service f629e6
% Save the original routines so that we can use them later on
Packit Service f629e6
/oldfill	/fill load def
Packit Service f629e6
/oldeofill	/eofill load def
Packit Service f629e6
/oldstroke	/stroke load def
Packit Service f629e6
/oldshow	/show load def
Packit Service f629e6
/oldashow	/ashow load def
Packit Service f629e6
/oldwidthshow	/widthshow load def
Packit Service f629e6
/oldawidthshow	/awidthshow load def
Packit Service f629e6
/oldkshow	/kshow load def
Packit Service f629e6
Packit Service f629e6
% These defs are necessary so that subsequent procs don't bind in
Packit Service f629e6
% the originals
Packit Service f629e6
/fill	   { oldfill } bind def
Packit Service f629e6
/eofill	   { oldeofill } bind def
Packit Service f629e6
/stroke	   { oldstroke } bind def
Packit Service f629e6
/show	   { oldshow } bind def
Packit Service f629e6
/ashow	   { oldashow } bind def
Packit Service f629e6
/widthshow { oldwidthshow } bind def
Packit Service f629e6
/awidthshow { oldawidthshow } bind def
Packit Service f629e6
/kshow 	   { oldkshow } bind def
Packit Service f629e6
/PATredef {
Packit Service f629e6
  MyAppDict begin
Packit Service f629e6
    {
Packit Service f629e6
    /fill { /clip load PATdraw newpath } bind def
Packit Service f629e6
    /eofill { /eoclip load PATdraw newpath } bind def
Packit Service f629e6
    /stroke { PATstroke } bind def
Packit Service f629e6
    /show { 0 0 null 0 0 6 -1 roll PATawidthshow } bind def
Packit Service f629e6
    /ashow { 0 0 null 6 3 roll PATawidthshow }
Packit Service f629e6
    bind def
Packit Service f629e6
    /widthshow { 0 0 3 -1 roll PATawidthshow }
Packit Service f629e6
    bind def
Packit Service f629e6
    /awidthshow { PATawidthshow } bind def
Packit Service f629e6
    /kshow { PATkshow } bind def
Packit Service f629e6
  } {
Packit Service f629e6
    /fill   { oldfill } bind def
Packit Service f629e6
    /eofill { oldeofill } bind def
Packit Service f629e6
    /stroke { oldstroke } bind def
Packit Service f629e6
    /show   { oldshow } bind def
Packit Service f629e6
    /ashow  { oldashow } bind def
Packit Service f629e6
    /widthshow { oldwidthshow } bind def
Packit Service f629e6
    /awidthshow { oldawidthshow } bind def
Packit Service f629e6
    /kshow  { oldkshow } bind def
Packit Service f629e6
    } ifelse
Packit Service f629e6
  end
Packit Service f629e6
} bind def
Packit Service f629e6
false PATredef
Packit Service f629e6
% Conditionally define setcmykcolor if not available
Packit Service f629e6
/setcmykcolor where { pop } {
Packit Service f629e6
  /setcmykcolor {
Packit Service f629e6
    1 sub 4 1 roll
Packit Service f629e6
    3 {
Packit Service f629e6
	3 index add neg dup 0 lt { pop 0 } if 3 1 roll
Packit Service f629e6
    } repeat
Packit Service f629e6
    setrgbcolor - pop
Packit Service f629e6
  } bind def
Packit Service f629e6
} ifelse
Packit Service f629e6
/PATsc {		% colorarray
Packit Service f629e6
  aload length		% c1 ... cn length
Packit Service f629e6
    dup 1 eq { pop setgray } { 3 eq { setrgbcolor } { setcmykcolor
Packit Service f629e6
  } ifelse } ifelse
Packit Service f629e6
} bind def
Packit Service f629e6
/PATsg {		% dict
Packit Service f629e6
  begin
Packit Service f629e6
    lw setlinewidth
Packit Service f629e6
    lc setlinecap
Packit Service f629e6
    lj setlinejoin
Packit Service f629e6
    ml setmiterlimit
Packit Service f629e6
    ds aload pop setdash
Packit Service f629e6
    cc aload pop setrgbcolor
Packit Service f629e6
    cm setmatrix
Packit Service f629e6
  end
Packit Service f629e6
} bind def
Packit Service f629e6
Packit Service f629e6
/PATDict 3 dict def
Packit Service f629e6
/PATsp {
Packit Service f629e6
  true PATredef
Packit Service f629e6
  PATDict begin
Packit Service f629e6
    /CurrentPattern exch def
Packit Service f629e6
    % If it's an uncolored pattern, save the color
Packit Service f629e6
    CurrentPattern /PaintType get 2 eq {
Packit Service f629e6
      /PColor exch def
Packit Service f629e6
    } if
Packit Service f629e6
    /CColor [ currentrgbcolor ] def
Packit Service f629e6
  end
Packit Service f629e6
} bind def
Packit Service f629e6
% PATstroke - stroke with the current pattern
Packit Service f629e6
/PATstroke {
Packit Service f629e6
  countdictstack
Packit Service f629e6
  save
Packit Service f629e6
  mark
Packit Service f629e6
  {
Packit Service f629e6
    currentpoint strokepath moveto
Packit Service f629e6
    PATpcalc				% proc nw nh px py
Packit Service f629e6
    clip newpath PATfill
Packit Service f629e6
    } stopped {
Packit Service f629e6
	(*** PATstroke Warning: Path is too complex, stroking
Packit Service f629e6
	  with gray) =
Packit Service f629e6
    cleartomark
Packit Service f629e6
    restore
Packit Service f629e6
    countdictstack exch sub dup 0 gt
Packit Service f629e6
	{ { end } repeat } { pop } ifelse
Packit Service f629e6
    gsave 0.5 setgray oldstroke grestore
Packit Service f629e6
  } { pop restore pop } ifelse
Packit Service f629e6
  newpath
Packit Service f629e6
} bind def
Packit Service f629e6
/PATtcalc {		% modmtx tilingtype PATtcalc tilematrix
Packit Service f629e6
  % Note: tiling types 2 and 3 are not supported
Packit Service f629e6
  gsave
Packit Service f629e6
    exch concat					% tilingtype
Packit Service f629e6
    matrix currentmatrix exch			% cmtx tilingtype
Packit Service f629e6
    % Tiling type 1 and 3: constant spacing
Packit Service f629e6
    2 ne {
Packit Service f629e6
	% Distort the pattern so that it occupies
Packit Service f629e6
	% an integral number of device pixels
Packit Service f629e6
	dup 4 get exch dup 5 get exch		% tx ty cmtx
Packit Service f629e6
	XStep 0 dtransform
Packit Service f629e6
	round exch round exch			% tx ty cmtx dx.x dx.y
Packit Service f629e6
	XStep div exch XStep div exch		% tx ty cmtx a b
Packit Service f629e6
	0 YStep dtransform
Packit Service f629e6
	round exch round exch			% tx ty cmtx a b dy.x dy.y
Packit Service f629e6
	YStep div exch YStep div exch		% tx ty cmtx a b c d
Packit Service f629e6
	7 -3 roll astore			% { a b c d tx ty }
Packit Service f629e6
    } if
Packit Service f629e6
  grestore
Packit Service f629e6
} bind def
Packit Service f629e6
/PATusp {
Packit Service f629e6
  false PATredef
Packit Service f629e6
  PATDict begin
Packit Service f629e6
    CColor PATsc
Packit Service f629e6
  end
Packit Service f629e6
} bind def
Packit Service f629e6
Packit Service f629e6
% right30
Packit Service f629e6
11 dict begin
Packit Service f629e6
/PaintType 1 def
Packit Service f629e6
/PatternType 1 def
Packit Service f629e6
/TilingType 1 def
Packit Service f629e6
/BBox [0 0 1 1] def
Packit Service f629e6
/XStep 1 def
Packit Service f629e6
/YStep 1 def
Packit Service f629e6
/PatWidth 1 def
Packit Service f629e6
/PatHeight 1 def
Packit Service f629e6
/Multi 2 def
Packit Service f629e6
/PaintData [
Packit Service f629e6
  { clippath } bind
Packit Service f629e6
  { 32 16 true [ 32 0 0 -16 0 16 ]
Packit Service f629e6
	{<00030003000c000c0030003000c000c0030003000c000c00
Packit Service f629e6
	30003000c000c00000030003000c000c0030003000c000c0
Packit Service f629e6
	030003000c000c0030003000c000c000>}
Packit Service f629e6
     imagemask } bind
Packit Service f629e6
] def
Packit Service f629e6
/PaintProc {
Packit Service f629e6
	pop
Packit Service f629e6
	exec fill
Packit Service f629e6
} def
Packit Service f629e6
currentdict
Packit Service f629e6
end
Packit Service f629e6
/P2 exch def
Packit Service f629e6
Packit Service f629e6
% crosshatch45
Packit Service f629e6
11 dict begin
Packit Service f629e6
/PaintType 1 def
Packit Service f629e6
/PatternType 1 def
Packit Service f629e6
/TilingType 1 def
Packit Service f629e6
/BBox [0 0 1 1] def
Packit Service f629e6
/XStep 1 def
Packit Service f629e6
/YStep 1 def
Packit Service f629e6
/PatWidth 1 def
Packit Service f629e6
/PatHeight 1 def
Packit Service f629e6
/Multi 2 def
Packit Service f629e6
/PaintData [
Packit Service f629e6
  { clippath } bind
Packit Service f629e6
  { 20 20 true [ 20 0 0 -20 0 20 ]
Packit Service f629e6
	{<8020004050102088201104400a02800401000a02
Packit Service f629e6
	8011044020882040501080200040501020882011
Packit Service f629e6
	04400a02800401000a0280110440208820405010>}
Packit Service f629e6
     imagemask } bind
Packit Service f629e6
] def
Packit Service f629e6
/PaintProc {
Packit Service f629e6
	pop
Packit Service f629e6
	exec fill
Packit Service f629e6
} def
Packit Service f629e6
currentdict
Packit Service f629e6
end
Packit Service f629e6
/P6 exch def
Packit Service f629e6
Packit Service f629e6
/cp {closepath} bind def
Packit Service f629e6
/ef {eofill} bind def
Packit Service f629e6
/gr {grestore} bind def
Packit Service f629e6
/gs {gsave} bind def
Packit Service f629e6
/sa {save} bind def
Packit Service f629e6
/rs {restore} bind def
Packit Service f629e6
/l {lineto} bind def
Packit Service f629e6
/m {moveto} bind def
Packit Service f629e6
/rm {rmoveto} bind def
Packit Service f629e6
/n {newpath} bind def
Packit Service f629e6
/s {stroke} bind def
Packit Service f629e6
/sh {show} bind def
Packit Service f629e6
/slc {setlinecap} bind def
Packit Service f629e6
/slj {setlinejoin} bind def
Packit Service f629e6
/slw {setlinewidth} bind def
Packit Service f629e6
/srgb {setrgbcolor} bind def
Packit Service f629e6
/rot {rotate} bind def
Packit Service f629e6
/sc {scale} bind def
Packit Service f629e6
/sd {setdash} bind def
Packit Service f629e6
/ff {findfont} bind def
Packit Service f629e6
/sf {setfont} bind def
Packit Service f629e6
/scf {scalefont} bind def
Packit Service f629e6
/sw {stringwidth} bind def
Packit Service f629e6
/tr {translate} bind def
Packit Service f629e6
/tnt {dup dup currentrgbcolor
Packit Service f629e6
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
Packit Service f629e6
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
Packit Service f629e6
  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
Packit Service f629e6
  bind def
Packit Service f629e6
/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
Packit Service f629e6
  4 -2 roll mul srgb} bind def
Packit Service f629e6
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
Packit Service f629e6
/$F2psEnd {$F2psEnteredState restore end} def
Packit Service f629e6
Packit Service f629e6
/pageheader {
Packit Service f629e6
save
Packit Service f629e6
newpath 0 179 moveto 0 0 lineto 363 0 lineto 363 179 lineto closepath clip newpath
Packit Service f629e6
-194.8 350.2 translate
Packit Service f629e6
1 -1 scale
Packit Service f629e6
$F2psBegin
Packit Service f629e6
10 setmiterlimit
Packit Service f629e6
0 slj 0 slc
Packit Service f629e6
 0.06299 0.06299 sc
Packit Service f629e6
} bind def
Packit Service f629e6
/pagefooter {
Packit Service f629e6
$F2psEnd
Packit Service f629e6
restore
Packit Service f629e6
} bind def
Packit Service f629e6
%%EndProlog
Packit Service f629e6
pageheader
Packit Service f629e6
%
Packit Service f629e6
% Fig objects follow
Packit Service f629e6
%
Packit Service f629e6
% 
Packit Service f629e6
% here starts figure with depth 50
Packit Service f629e6
% Arc
Packit Service f629e6
7.500 slw
Packit Service f629e6
0 slc
Packit Service f629e6
gs  clippath
Packit Service f629e6
3662 4014 m 3567 4132 l 3613 4170 l 3708 4052 l 3708 4052 l 3610 4127 l 3662 4014 l cp
Packit Service f629e6
eoclip
Packit Service f629e6
n 5895.0 5917.5 2902.8 -37.7581 -142.2419 arcn
Packit Service f629e6
gs col0 s gr
Packit Service f629e6
 gr
Packit Service f629e6
Packit Service f629e6
% arrowhead
Packit Service f629e6
0 slj
Packit Service f629e6
n 3662 4014 m 3610 4127 l 3708 4052 l 3662 4014 l  cp gs 0.00 setgray ef gr  col0 s
Packit Service f629e6
% Polyline
Packit Service f629e6
n 3105 4140 m 6660 4140 l 6660 5085 l 3105 5085 l
Packit Service f629e6
 cp gs col0 s gr 
Packit Service f629e6
% Polyline
Packit Service f629e6
n 6660 4140 m 8730 4140 l 8730 5085 l 6660 5085 l
Packit Service f629e6
 cp gs col7 0.50 shd ef gr gs col0 s gr 
Packit Service f629e6
% Polyline
Packit Service f629e6
n 3510 4140 m 3780 4140 l 3780 5085 l 3510 5085 l
Packit Service f629e6
 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
Packit Service f629e6
15.00 15.00 sc P2 [16 0 0 -8 234.00 276.00] PATmp PATsp ef gr PATusp gs col0 s gr 
Packit Service f629e6
% Polyline
Packit Service f629e6
n 4365 4140 m 4635 4140 l 4635 5085 l 4365 5085 l
Packit Service f629e6
 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
Packit Service f629e6
15.00 15.00 sc P2 [16 0 0 -8 291.00 276.00] PATmp PATsp ef gr PATusp gs col0 s gr 
Packit Service f629e6
% Polyline
Packit Service f629e6
n 4905 4140 m 5265 4140 l 5265 5085 l 4905 5085 l
Packit Service f629e6
 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
Packit Service f629e6
15.00 15.00 sc P2 [16 0 0 -8 327.00 276.00] PATmp PATsp ef gr PATusp gs col0 s gr 
Packit Service f629e6
% Polyline
Packit Service f629e6
n 7965 4140 m 8370 4140 l 8370 5085 l 7965 5085 l
Packit Service f629e6
 cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
Packit Service f629e6
15.00 15.00 sc P6 [16 0 0 -16 531.00 276.00] PATmp PATsp ef gr PATusp gs col0 s gr 
Packit Service f629e6
/Times-Roman ff 180.00 scf sf
Packit Service f629e6
3510 5490 m
Packit Service f629e6
gs 1 -1 sc (gawk Main Program Address Space) col0 sh gr
Packit Service f629e6
/Times-Roman ff 180.00 scf sf
Packit Service f629e6
7290 5490 m
Packit Service f629e6
gs 1 -1 sc (Extension) col0 sh gr
Packit Service f629e6
/Courier-Bold ff 180.00 scf sf
Packit Service f629e6
3420 2880 m
Packit Service f629e6
gs 1 -1 sc (register_ext_func\({ "chdir", do_chdir, 1 }\);) col0 sh gr
Packit Service f629e6
% here ends figure;
Packit Service f629e6
pagefooter
Packit Service f629e6
showpage
Packit Service f629e6
%%Trailer
Packit Service f629e6
end
Packit Service f629e6
%EOF