function data=f_arrp(xy)

% function data=f_arrp(xy)
%
% This function is used in conjuction with FD3.  It accepts one argument, the
% [x, y] position of the center of the product arrow.  See help on 'user_def'
% to learn more about the information passed in 'data'.
%
% ACP

% Last update:  July 11, 1993
% Author:       Adrian C. Penisson

global FD3SCALE FD3AXES

r=FD3SCALE/2;

axes(FD3AXES(2))

th=nice_txt(xy(1,1),xy(1,2),'prod',0);

axes(FD3AXES(3))

xdata=xy(1,1)+[-2*r r r 2*r r r -2*r -2*r];
ydata=xy(1,2)+[r r 1.5*r 0 -1.5*r -r -r r];

h=line(xdata,ydata);

theta1=atan2(1.5*r,r);
theta2=atan2(r,-2*r);
theta3=2*pi-theta2;
theta4=2*pi-theta1;

data=[h th 0 xy(1,1) xy(1,2) 1 0 0 0 theta1 theta2 theta3 theta4 1 1];



