
%   name: defhline
%
%   Defines matrix of handles 'hline' for
%   plot tools

clear hline

temp = flipud(get(haxes,'child'));

%
%  Check to make sure all items in hline are actually lines
%

p = 1;

for i = 1:length(temp)
	if strcmp(get(temp(i),'type'),'line'),
		hline(p,1)=temp(i);
		p = p + 1;
	end
end

if exist('iptline')~=1,
 iptline =1;
end

h = size(hline,2);

if ishandle(hlegax), 
   temp = flipud(get(hlegax,'child'));

   p=1;

   for i = 1:length(temp),

 	if strcmp(get(temp(i),'type'),'line'),
		hline(p,h+1)=temp(i);
		p = p+1;
	end

   end

end

