function drawnode(Nodes,labflg,ax,rgb,nfontsz,nhlght)
%
%  Name: drawnode
% 
%  Usage: drawnode(Nodes,labflg,ax,rgb,nfontsz,nhlght)
% 
%   Description:
%      Plots a circle
%      at each node in the node list
%      contained in 'Nodes'
%      The flag 'labflg' controls
%      plotting of the node labels
%      'ax' is axis handle
%      'rgb' is the color vector
%      'nhlght' is vector of node labels to highlight

%  Version SWD970620
%
%  Copyright (c) 1996-1997 by Scott W. Doebling
%	Los Alamos National Laboratory
%	ESA-EA, doebling@lanl.gov
%

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

set(ax,'nextplot','add')
h = plot3(Nodes(:,2),Nodes(:,3),Nodes(:,4),'o');

set(h,'Color',rgb)

if labflg,
   for i = 1:size(Nodes,1),
      ht = text(Nodes(i,2),Nodes(i,3),Nodes(i,4),num2str(Nodes(i,1)));
      set(ht,'FontSize',nfontsz)
      set(ht,'VerticalAlignment','bottom')
      set(ht,'Color',rgb)
      
      if ~isempty(nhlght),
         if ~isempty(find(Nodes(i,1) == nhlght)),
            set(ht,'FontWeight','bold')
            set(ht,'Color','r')
         end
      end
   end
end

return
