function at_ep_plot(id, NumDays, ext)
% AT_EP_PLOT - Shell to make web graphs
%
% Called by AT_EQPAC

% Brian Schlining
% 27 Apr 1999
if nargin < 2
    ext = '';
end


PaperPosition = [.25 2.5 4.5 3.25];

%==============================
% Create quality control plots
%==============================
% ep1
ep_lookArgos(id, NumDays)
set(gcf,'PaperPosition',PaperPosition);
writegif([id 'argos' ext]);
close all

ep_lookCtd(id, NumDays)
set(gcf,'PaperPosition',PaperPosition + [0 0 1 0]);
writegif([id 'ctd' ext]);
close all

ep_lookFlr(id, NumDays)
set(gcf,'PaperPosition',PaperPosition);
writegif([id 'flr' ext]);
close all

%ep_lookMisc(id, NumDays)
%set(gcf,'PaperPosition',PaperPosition);
%writegif([id 'misc1' ext]);
%close all

ep_lookPco2(id, NumDays)
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
writegif([id 'pco2' ext]);
close all

ep_lookMisc2(id, NumDays)
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
writegif([id 'misc2' ext]);
close all

ep_lookOasis(id, NumDays)
set(gcf,'PaperPosition',PaperPosition);
writegif([id 'oasis' ext]);
close all

try
    ep_lookOcr100(id, NumDays)
    set(0,'CurrentFigure',1)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'ocr1' ext]);
    %set(0,'CurrentFigure',2)
    %set(gcf,'PaperPosition',PaperPosition);
    %writegif([id 'ocr2' ext]);
catch
    fprintf(1, 'ERROR!! ep_lookOcr100(%s, %i) failed.\n', id, NumDays);
end
close all

try
    if id == 'ep2'
        ep_lookPco2(id, NumDays)
        set(gcf,'PaperPosition',PaperPosition);
        writegif([id 'pco2' ext]);
    end

catch
    fprintf(1, 'ERROR!! ep_lookPco2(%s, %i) failed.\n', id, NumDays);
end
close all

try
    ep_lookPrr600(id, NumDays)
    set(0,'CurrentFigure',1)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'prr6001' ext]);
    set(0,'CurrentFigure',2)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'prr6002' ext]);
    %set(0,'CurrentFigure',3)
    %set(gcf,'PaperPosition',PaperPosition);
    %writegif(['ep1prr6003' ext]);
catch
    fprintf(1, 'ERROR!! ep_lookPrr600(%s, %i) failed.\n', id, NumDays);
end
close all

try
    ep_lookPrr620(id, NumDays)
    set(0,'CurrentFigure',1)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'prr6201' ext]);
    set(0,'CurrentFigure',2)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'prr6202' ext]);
    %set(0,'CurrentFigure',3)
    %set(gcf,'PaperPosition',PaperPosition);
    %writegif(['ep1prr6203' ext]);
catch

    fprintf(1, 'ERROR!! ep_lookPrr620(%s, %i) failed.\n', id, NumDays);
end
close all

try
    ep_lookShutter(id, NumDays)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'shutter' ext]);
catch
    fprintf(1, 'ERROR!! ep_lookShutter(%s, %i) failed.\n', id, NumDays);
end
close all

try
    ep_lookDataProducts(id, NumDays);
    set(0,'CurrentFigure',1)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'k' ext]);
    set(0,'CurrentFigure',2)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'al' ext]);
    set(0,'CurrentFigure',3)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'lw' ext]);
    set(0,'CurrentFigure',4)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'rrs' ext]);
    set(0,'CurrentFigure',5)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'oc2' ext]);
catch
    fprintf(1, 'ERROR!! ep_lookDataProducts(%s, %i) failed.\n', id, NumDays);
end
close all

try
    ep_lookFoulingRatio(id, NumDays);
    set(0,'CurrentFigure',1)
    writegif([id 'frat2' ext]);
catch
    fprintf(1, 'ERROR!! ep_lookFoulingRatio(%s, %i) failed.\n', id, NumDays);
end
close all;

try
    ep_lookMorelChl(id, NumDays);
    set(0,'CurrentFigure',1)
    set(gcf,'PaperPosition',PaperPosition);
    writegif([id 'mchl2' ext]);
catch
    fprintf(1, 'ERROR!! ep_lookMorelChl(%s, %i) failed.\n', id, NumDays);
end
close all;

