%   name: defmphline
%
%   Defines matrix of handles 'hline' for
%   plot tools (customized for gridplot (mplot1.m)
% 
%  Version SWD970703
%
% Author(s): Scott W. Doebling, doebling@lanl.gov
%
% Institution: Los Alamos National Laboratory, ESA-EA
%
% Copyright (c) 1996-1997, The Regents of the University
%     	of California.

hline = [];

clear temp

for i = 1:length(haxes),
   temp{i} = flipud(get(haxes(i),'child'));
end

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

p = 1;

for i = 1:length(temp),
   tt = temp{i};
   for j = 1:length(tt),
      if strcmp(get(tt(j),'type'),'line'),
         hline = [hline,tt(j)];
      end
      
   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

