function data=f_htx(xy)

% function data=f_htx(xy)
%
% This function is used in conjuction with FD3.  It accepts one argument, the
% [x, y] position of the center of the heat exchanger.  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=.7*FD3SCALE;

axes(FD3AXES(1))

xdata=xy(1,1)+r*(-1:.25:1);
ydata=xy(1,2)+[0 0 0 r/2 0 -r/2 0 0 0];

sh=line(xdata,ydata);

axes(FD3AXES(2))

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

data=s_circle(xy,r);

data([2 3 6])=[th sh 1];
