function h=arrow(x,y,r,az)
% ARROW - Draws an arrow from xo,yo with length r toward az (deg geographic)
% h=arrow(xo,yo,r,az)

[xp,yp]=xycoord(r,az);
xx = [x;xp+x];
yy = [y;yp+y];
h=line(xx,yy);
[xa,ya]=xycoord(.08*r,az+150);
h=[h;line([xp;xa+xp]+x,[yp;ya+yp]+y)];
[xa,ya]=xycoord(.08*r,az-150);
h=[h;line([xp;xa+xp]+x,[yp;ya+yp]+y)];