function powerpoint(fontScale,lineScale,markerScale);
% powerpoint(fontScale,lineScale,markerScale);
%
% convert all line & text objects in all figures to bolder/wider types for
% visualization in powerpoint
%   (no input gives default values shown; all scales are additive,
%    zeros give no change, and negatives reverse effects)
%
% fontsize == fontsize+fontScale        [1.5]
% linewidth == linewidth+lineScale      [ 1]
% markersize == markersize+markerScale  [ 8]

%(c) 2003, 15 Mar 2006, Curt A. L. Szuberla, 
%(c)                    University of Alaska Fairbanks, all rights reserved

verNo = 2.01;
fnName = 'powerpoint';
%zcode(fnName);
%% version check
if nargin == 0
    disp(['(' fnName '.m) current version: ' num2str(verNo)]);
end

if nargin == 0
    scaleFoNTSize = 1.5;     % fontsize == fontsize+scaleFoNTSize
    scaleLines = 1;         % linewidth == linewidth+scaleLines
    scalEMarkers = 8;       % markersize == markersize+scalEMarkers
else
    scaleFoNTSize = fontScale;     % fontsize == fontsize+scaleFoNTSize
    scaleLines = lineScale;         % linewidth == linewidth+scaleLines
    scalEMarkers = markerScale;       % markersize == markersize+scalEMarkers
end


%% DO NOT MODIFY BELOW HERE!! %%
hFigs = get(0,'children');
for n = 1:length(hFigs);
    hAxes = get(hFigs(n),'children');
    for k = 1:length(hAxes)
        XX = get(hAxes(k),'xlim');
        YY = get(hAxes(k),'ylim');
        set(hAxes(k),'fontweight','bold');
        set(get(hAxes(k),'title'),'fontweight','bold');
        set(get(hAxes(k),'xlabel'),'fontweight','bold');
        set(get(hAxes(k),'ylabel'),'fontweight','bold');
        set(get(hAxes(k),'zlabel'),'fontweight','bold');
        set(hAxes(k),'fontsize',get(hAxes(k),'fontsize')+scaleFoNTSize);
        set(get(hAxes(k),'title'),'fontsize',get(get(hAxes(k),'title'),'fontsize')+scaleFoNTSize);
        set(get(hAxes(k),'xlabel'),'fontsize',get(get(hAxes(k),'xlabel'),'fontsize')+scaleFoNTSize);
        set(get(hAxes(k),'ylabel'),'fontsize',get(get(hAxes(k),'ylabel'),'fontsize')+scaleFoNTSize);
        set(get(hAxes(k),'zlabel'),'fontsize',get(get(hAxes(k),'zlabel'),'fontsize')+scaleFoNTSize);
        hLines = get(hAxes(k),'children');
        for h = 1:length(hLines)
            fooType = get(hLines(h),'type');
            if fooType(1:4) == 'line'
                set(hLines(h),'linewidth',get(hLines(h),'linewidth')+scaleLines);
                set(hLines(h),'markersize',get(hLines(h),'markersize')+scalEMarkers);
            end
            if fooType(1:4) == 'hggr' % this picks up contour lines in ver. 7
                set(hLines(h),'linewidth',get(hLines(h),'linewidth')+scaleLines);
            end
            if fooType(1:4) == 'text'
                set(hLines(h),'fontweight','bold');
                set(hLines(h),'fontsize',get(hLines(h),'fontsize')+scaleFoNTSize);
            end
        end
        set(hAxes(k),'xlim',XX,'ylim',YY); % reset axes to original sizes
    end
        
end

return