function data=f_evap(xy)

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

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

global FD3SCALE FD3AXES

r=.75*FD3SCALE;

axes(FD3AXES(2))

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

axes(FD3AXES(3))

xdata=xy(1,1)+[-r -r r r];
ydata=xy(1,2)+[-r/2 r r -r/2];

z=xy(1,1)+(xy(1,2)-r/2)*i;

moredata=arc(z,r,20,pi,2*pi);

xdata=[xdata NaN real(moredata)];
ydata=[ydata NaN imag(moredata)];

h=line(xdata,ydata);

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

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