%!
% Cookbook Example Program from First Printing, Revised 7 Jan 1985
% Program: Drawing Arrows     Number: 8
%-----------------------------------------------------------------------------
%
/arrowdict 13 dict def                      % Local storage for the procedure
					    % ``arrow.''
							
/arrow                                      % The procedure ``arrow'' adds an
  { arrowdict begin                         % arrow shape to the current path.
      /headlength exch def                  % It takes seven arguments: the x
      /halfheadthickness exch 2 div def     % and y coordinates of the tail
      /halfthickness exch 2 div def         % (imagine that a line has been
      /tipy exch def /tipx exch def         % drawn down the center of the
      /taily exch def /tailx exch def       % arrow from the tip to the tail,
					    % then x and y lie on this line),
					    % the x and y coordinates of the
					    % tip of the arrow, the thickness
					    % of the arrow in the tail
					    % portion, the thickness of the
					    % arrow at the widest part of the
					    % arrowhead and the length of the
					    % arrowhead.
							
      /dx tipx tailx sub def                % Compute the differences in x and
      /dy tipy taily sub def                % y for the tip and tail. These
      /arrowlength dx dx mul dy dy mul add  % will be used to compute the
	sqrt def                            % length of the arrow and to
      /angle dy dx atan def                 % compute the angle of direction
					    % that the arrow is facing with
					    % respect to the current user
					    % coordinate system origin.
      /base arrowlength headlength sub def  % Compute where the base of the
					    % arrowhead will be.
								
      /savematrix matrix currentmatrix def  % Save the current user coordinate
					    % system. We are using the same
					    % strategy to localize the effect
					    % of transformations as was used
					    % in the program to draw an
					    % ellipse.
      tailx taily translate                 % Translate to the starting point
					    % of the tail.
      angle rotate                          % Rotate the x-axis to correspond
					    % with the center line of the
					    % arrow.
      0 halfthickness neg moveto            % Add the arrow shape to the
					    % current path.
      base halfthickness neg lineto
      base halfheadthickness neg lineto
      arrowlength 0 lineto
      base halfheadthickness lineto
      base halfthickness lineto
      0 halfthickness lineto
      closepath
	       
      savematrix setmatrix                  % Restore the current user
					    % coordinate system.
    end
  } def
/Box
{ /height exch def
  /length exch def

   length 0 rlineto
   0 height rlineto
   length neg 0 rlineto
   closepath
} def

/Gdict 200 dict def
/Grid
{ 
  Gdict begin
  /ny exch def
  /nx exch def
  /dely exch def
  /delx exch def
  /leny { ny dely mul} def
  /lenx { nx delx mul} def
  currentpoint
  /ypos exch def
  /xpos exch def

  /y ypos def
  /x xpos def

  0 1 ny { pop x y moveto lenx 0 rlineto stroke /y y dely add def} for
  /y ypos def
  /x xpos def
  0 1 nx { pop x y moveto 0 leny rlineto stroke /x x delx add def} for
  end
} def

/GLdict 300 dict def
/GridLabels
{ 
  GLdict begin

  /shift exch def
  /raise exch def
  /yoff exch def
  /xoff exch def
  /p1 exch def
  /p2 exch def
  /ny exch def
  /nx exch def
  /dely exch def
  /delx exch def

  /Darray exch def
  /leny { ny dely mul} def
  /lenx { nx delx mul} def
  currentpoint
  /ypos exch def
  /xpos exch def

  /y ypos def
  /x xpos def

  /dx3 delx 3 div def
  /dy3 dely 3 div def

  /ix -1 def
  /iy ny 1 sub def
  Darray{
     aload pop 
    /Subc  exch def
    /Text exch def
    /ix ix 1 add def
    ix nx ge { /ix 0 def /iy iy 1 sub def} if
    /x xpos delx ix 0.5 add mul add 
    /Helvetica findfont p1 scalefont setfont Text stringwidth pop 
    /Helvetica findfont p2 scalefont setfont Subc stringwidth pop 
    add xoff add 2 div sub shift add def
    /y ypos dely iy 0.5 add mul add raise add def
    x y moveto 
    /Helvetica findfont p1 scalefont Text show
    xoff yoff rmoveto
    /Helvetica findfont p2 scalefont Subc show
  } forall
  end
  clear
} def

2 setlinecap
6.5 72 mul 320 sub 2 div 0 translate 

0 300 moveto 
20 20 6 6 Grid 

0 300 moveto 
[
[(A)(0)]
[(A)(1)]
[(A)(2)]
[(A)(3)]
[(A)(4)]
[(A)(5)]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
 ] 20 20 6 6 9 12 1 -5 -2 2 GridLabels

140 380 200 380 12 24 18 arrow stroke
200 330 140 330 12 24 18 arrow stroke

/Helvetica findfont 12 scalefont setfont
(scatter) dup stringwidth pop 170 exch 2 div sub 400 moveto show
(gather) dup stringwidth pop 170 exch 2 div sub 350 moveto show

220 300 moveto 
20 20 6 6 Grid 

220 300 moveto 
[
[(A)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(A)(1)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(A)(2)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(A)(3)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(A)(4)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(A)(5)]
[()()]
[()()]
[()()]
[()()]
[()()]
 ] 20 20 6 6 9 12 1 -5 -2 2 GridLabels

0 0 moveto 
20 20 6 6 Grid 

0 0 moveto 
[
[(A)(0)]
[(A)(1)]
[(A)(2)]
[(A)(3)]
[(A)(4)]
[(A)(5)]
[(B)(0)]
[(B)(1)]
[(B)(2)]
[(B)(3)]
[(B)(4)]
[(B)(5)]
[(C)(0)]
[(C)(1)]
[(C)(2)]
[(C)(3)]
[(C)(4)]
[(C)(5)]
[(D)(0)]
[(D)(1)]
[(D)(2)]
[(D)(3)]
[(D)(4)]
[(D)(5)]
[(E)(0)]
[(E)(1)]
[(E)(2)]
[(E)(3)]
[(E)(4)]
[(E)(5)]
[(F)(0)]
[(F)(1)]
[(F)(2)]
[(F)(3)]
[(F)(4)]
[(F)(5)]
 ] 20 20 6 6 9 12 1 -5 -2 2 GridLabels

220 0 moveto 
20 20 6 6 Grid 

220 0 moveto 
[
[(A)(0)]
[(B)(0)]
[(C)(0)]
[(D)(0)]
[(E)(0)]
[(F)(0)]
[(A)(1)]
[(B)(1)]
[(C)(1)]
[(D)(1)]
[(E)(1)]
[(F)(1)]
[(A)(2)]
[(B)(2)]
[(C)(2)]
[(D)(2)]
[(E)(2)]
[(F)(2)]
[(A)(3)]
[(B)(3)]
[(C)(3)]
[(D)(3)]
[(E)(3)]
[(F)(3)]
[(A)(4)]
[(B)(4)]
[(C)(4)]
[(D)(4)]
[(E)(4)]
[(F)(4)]
[(A)(5)]
[(B)(5)]
[(C)(5)]
[(D)(5)]
[(E)(5)]
[(F)(5)]
 ] 20 20 6 6 9 12 1 -5 -2 2 GridLabels

140 60 200 60 12 24 18 arrow stroke

/Helvetica findfont 12 scalefont setfont
(alltoall) dup stringwidth pop 170 exch 2 div sub 77 moveto show

0 150 moveto 
20 20 6 6 Grid 

0 150 moveto 
[
[(A)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(B)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(C)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(D)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(E)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(F)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
 ] 20 20 6 6 9 12 1 -5 -2 2 GridLabels

140 200 200 200 12 24 18 arrow stroke

/Helvetica findfont 12 scalefont setfont
(allgather) dup stringwidth pop 170 exch 2 div sub 220 moveto show

220 150 moveto 
20 20 6 6 Grid 

220 150 moveto 
[
[(A)(0)]
[(B)(0)]
[(C)(0)]
[(D)(0)]
[(E)(0)]
[(F)(0)]
[(A)(0)]
[(B)(0)]
[(C)(0)]
[(D)(0)]
[(E)(0)]
[(F)(0)]
[(A)(0)]
[(B)(0)]
[(C)(0)]
[(D)(0)]
[(E)(0)]
[(F)(0)]
[(A)(0)]
[(B)(0)]
[(C)(0)]
[(D)(0)]
[(E)(0)]
[(F)(0)]
[(A)(0)]
[(B)(0)]
[(C)(0)]
[(D)(0)]
[(E)(0)]
[(F)(0)]
[(A)(0)]
[(B)(0)]
[(C)(0)]
[(D)(0)]
[(E)(0)]
[(F)(0)]
 ] 20 20 6 6 9 12 1 -5 -2 2 GridLabels

0 450 moveto 
20 20 6 6 Grid 

0 450 moveto 
[
[(A)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
[()()]
 ] 20 20 6 6 9 12 1 -5 -2 2 GridLabels

140 510 200 510 12 24 18 arrow stroke

/Helvetica findfont 12 scalefont setfont
0 575 moveto
(data) show
(data) stringwidth pop 4 add 575 4 add (data) stringwidth pop 33 add 575 4 add
1 4 5 arrow fill
(broadcast) dup stringwidth pop 170 exch 2 div sub 527 moveto show
gsave
0 570 (processes) stringwidth pop sub translate
90 rotate
0 5 moveto
(processes) show
-4 8 -33 8 1 4 5 arrow fill
grestore

220 450 moveto 
20 20 6 6 Grid 

220 450 moveto 
[
[(A)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(A)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(A)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(A)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(A)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
[(A)(0)]
[()()]
[()()]
[()()]
[()()]
[()()]
 ] 20 20 6 6 9 12 1 -5 -2 2 GridLabels

showpage



.