function data=f_sttlr(xy);

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

axes(FD3AXES(2))

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

axes(FD3AXES(3))

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

h=line(xdata,ydata);

theta1=atan2(r/2,r);
theta2=pi-theta1;
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];
