function plot_set3(gcax,line_width,font,ptsize0,iibold,colors)
% Call plot_set3(gcax,line_width,font,ptsize0,iibold,colors);
%
% COPYRIGHT (c) 2008
% 
% Applied Research Laboratories, The University of Texas at Austin
% (ARL:UT)
% All rights reserved.
% 
% This material may be reproduced by or for the U.S. Government
% only. This notice must appear in all copies of this file and its
% derivatives. Further distribution outside the U.S. Government is
% prohibited without the explicit written authorization from the
% Director of the Environmental Sciences Laboratory, ARL:UT.
% 
% THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
% EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO THE
% IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
% PURPOSE, OR NONINFRINGEMENT.
% 
% IN NO EVENT WILL ARL:UT BE LIABLE FOR ANY DAMAGES WHATSOEVER ARISING
% OUT OF THE USE OR INABILITY TO USE THIS SOFTWARE, EVEN IF ARL:UT HAS
% BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.

if nargin<6, colors=[]; end
if nargin<5, iibold=1; end
if nargin<4, ptsize0=14; end
if nargin<3, font='Times'; end
if nargin<2, line_width=1.5; end
if nargin<1, gcax=gca; end
%
ptsize=abs(ptsize0);
if line_width>0,
	set(gcax,'Box','on','LineWidth',abs(line_width),'FontName',font, ...
	   'FontSize',ptsize,'TickDir','out')
else
	set(gcax,'Box','on','FontName',font, ...
	   'FontSize',ptsize,'TickDir','out')
end
set(gcf,'BackingStore','off')
xlab=get(gcax,'xlabel');
ylab=get(gcax,'ylabel');
zlab=get(gcax,'zlabel');
title=get(gcax,'title');
set([xlab,ylab,zlab,title],'FontSize',ptsize,'FontName',font);
if iibold==1,
	set([xlab,ylab,zlab,title],'FontWeight','bold');
	set(gcax,'FontWeight','bold');
end
kids=get(gcax,'Children');
if nargin>4,
	jline=0; [ncolor,dummy]=size(colors);
end
for j=length(kids):-1:1,
	ktype=get(kids(j),'Type');
	if ktype(1:2)=='li',
		if line_width>0, set(kids(j),'LineWidth',line_width); end
		if ~isempty(colors), 
			jline=jline + 1;
			if jline>ncolor, jline=1; end
			set(kids(j),'Color',colors(jline,:));
		end
	elseif ktype(1:2)=='te' & ptsize0>0,
		set(kids(j),'FontSize',ptsize,'FontName',font)
		if iibold==1,
			set(kids(j),'FontWeight','bold')
		end
	end
end
