function updtgeom(linest,ilab,Nodes,Bars,Shells,hageom,nfontsz,nhlght)
%
%  Name: updtgeom
% 
%  Usage: updtgeom(linest,ilab,Nodes,Bars,Shells,naxaz,naxel,hageom,nfontsz,nhlght)
% 
%   Description:
%	Updates the displayed geometry
%       with the linestyle 'linest'
%
%   'nhlght' = Node labels to highlight
%

%  Version SWD970405
%
%  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. (See top level of code for
%	full copyright statement.)

if ~exist('nfontsz'), nfontsz = 14; end

if ~isempty(Nodes),
   drawnode(Nodes,ilab(1),hageom,[0 1 0],nfontsz,nhlght);
end

if ~isempty(Bars) & ~isempty(Nodes),
  drawbars(Bars,Nodes,ilab(2),hageom,[0 0 1],linest,nfontsz);
end

if ~isempty(Shells) & ~isempty(Nodes),
  drawshls(Shells,Nodes,ilab(3),hageom,[1 1 0],linest,nfontsz);
end

if isempty(Bars) & isempty(Nodes) & isempty(Shells),
  errordlg('ERROR: No Geometry Present in Workspace');
  set(hageom,'visible','off')
end


xlabel('X')
ylabel('Y')
zlabel('Z')

return
