function data=new_kiln(xy);

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

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

sh=line(xdata,ydata);

axes(FD3AXES(2))

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

axes(FD3AXES(3))

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

h=line(xdata,ydata);

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

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