function data=f_comp(xy)

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

axes(FD3AXES(1))

xdata=xy(1,1)+1.75*r*cos(pi/4)*[1 -1 -1+1/5 NaN -1 -1];
ydata=xy(1,2)+1.75*r*sin(pi/4)*[1 -1 -1 NaN -1 -1+1/5];

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];
