function slideset(bg_color,font_size)
% SLIDESET  Makes the current figure look nice for slides
%           with large, bold fonts and thick lines
%
%  Usage:   slideset(bg_color,font_size);
%   
%  Inputs:  bg_color = background color (use a dark color, black is default)
%           font_size = font size (14 is default)
%
if(nargin<1),
 bg_color=[0 0 .0001];
end
if(nargin<2),
 font_size=16;
end

ha=get(gcf,'children');
for ax=1:length(ha);
axes(ha(ax));
set(gca,'LineWidth',2.0)
set(gca,'FontWeight','bold')
set(gca,'fontsize',font_size)

h=get(gca,'title');  % h is the handle to the title
set(h,'fontsize',font_size)
set(h,'FontWeight','bold')
set(h,'color',[ 1 1 .999])

h=get(gca,'xlabel');  % h is the handle to the xlabel
set(h,'fontsize',font_size)
set(h,'FontWeight','bold')

h=get(gca,'ylabel');  % h is the handle to the ylabel
set(h,'fontsize',font_size)
set(h,'FontWeight','bold')

h=get(gca,'zlabel');  % h is the handle to the zlabel
set(h,'fontsize',font_size)
set(h,'FontWeight','bold')

set(gcf,'color',bg_color)
% Axis and Axis labels all white   
 set(gca,'Ycolor',[1 1 .999])
 set(gca,'Xcolor',[1 1 .999])
 set(gca,'Zcolor',[1 1 .999])

h = get(gca,'Children');
  for i = 1:length(h)
  ht = get(h(i),'type');
  if strcmp(ht,'text')
   set(h(i),'FontWeight','bold')
   set(h(i),'fontsize',font_size)
   set(h(i),'color',[1 1 .999])
  end
  if strcmp(ht,'line')
   lw = get(h(i),'LineWidth');
   set(h(i),'LineWidth',2.0)
  end
  end
end
