function slidify(hfig,linewidth,axewidth,fontsize);
% Syntax: slidify(hfig,linewidth,axewidth,fontsize)
% 
% hfig je cislo obrazku
% linewidth je nova sirka vsech car v bodech.
% axewidth je nova sirk os v bodech
% fontsize  je velikost fontu na popis os, legendy a titul obrazku
%
% tato funkce nedela nic s barvou ! 
%------------------------------------------------------------
% hfig is the number of figure
% linewidth is the new width of all lines in points
% axewidth is the new width of axes and grid (if used) in points
% fontsize is the new size of font used for axis legends, title,
%          etc. 
%
% the function does nothing with colors !

% (c) Jan Cernocky, 2000, cernocky@urel.fee.vutbr.cz 
%     using the original code of Milan Brejl (whitefig.m)
 
%set(hfig,'Color',[1 1 1]);
haxes=get(hfig,'Children');
for i=1:length(haxes);
 i
 % 
 if strcmp(get(haxes(i),'Type'),'axes')
 % axes je kazdy souradnicovy system ! 
%   set(haxes(i),'Color',[1 1 1]);
%   set(haxes(i),'Xcolor',[0 0 0]);
%   set(haxes(i),'Ycolor',[0 0 0]);
  %set(haxes(i),'Zcolor',[0 0 0]);

%%%% font pro popis os, tloustka os a gridu  %%%%%%%
   set(haxes(i),'FontSize',fontsize);
   set(haxes(i),'FontWeight','bold');
   set(haxes(i),'LineWidth',axewidth);

%%%% titulek, legendy %%%%
%   set(get(haxes(i),'Title'),'Color',[0 0 0]);
   set(get(haxes(i),'Title'),'FontSize',fontsize);
   set(get(haxes(i),'Title'),'FontWeight','bold'); 
   set(get(haxes(i),'XLabel'),'FontSize',fontsize);
   set(get(haxes(i),'XLabel'),'FontWeight','bold'); 
   set(get(haxes(i),'YLabel'),'FontSize',fontsize);
   set(get(haxes(i),'YLabel'),'FontWeight','bold'); 
   set(get(haxes(i),'ZLabel'),'FontSize',fontsize);
   set(get(haxes(i),'ZLabel'),'FontWeight','bold'); 
   
%%%% ted skutecne krivky %%%%
%   set(get(haxes(i),'children'),'Color',[0 0 0]);
   % ted se musime rozhodnout, zda se jedna o krivku nebo o text...
%   set(get(haxes(i),'children'),'Linewidth',linewidth);
    infig = get(haxes(i),'children');
    for jj=1:length(infig)
      this=infig(jj);
      type = get(this,'Type');
      if strcmp(type,'text')
         set (this, 'FontSize', fontsize);
% not good for pi, etc !  set (this, 'FontWeight', 'bold');
      end
      if strcmp(type, 'line')
         set (this, 'LineWidth', linewidth);
      end
    end
 end
end