function at_ep1_plot(NumDays,ext)
% AT_EP1_PLOT - Shell to make a web graph
% 
% 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
ep1argoslook(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1argos' ext]);
close all

ep1ctdlook(NumDays)
set(gcf,'PaperPosition',PaperPosition + [0 0 1 0]);
makegif(['ep1ctd' ext]);
close all

ep1flrlook(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1flr' ext]);
close all

ep1mcplook(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1mcp' ext]);
close all

ep1misclook(NumDays)
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1misc' ext]);
%set(0,'CurrentFigure',2)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep1misc2' ext]);
close all

ep1oasislook(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1oasis' ext]);
close all

ep1ocr100look(NumDays)
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1ocr1' ext]);
set(0,'CurrentFigure',2)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1ocr2' ext]);
%set(0,'CurrentFigure',3)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep1ocr3' ext]);
%set(0,'CurrentFigure',4)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep1ocr4' ext]);
close all

ep1pco2look(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1pco2' ext]);
close all

ep1prr600look(NumDays)
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1prr6001' ext]);
set(0,'CurrentFigure',2)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1prr6002' ext]);
set(0,'CurrentFigure',3)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1prr6003' ext]);
%set(0,'CurrentFigure',4)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep1prr6004' ext]);
%set(0,'CurrentFigure',5)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep1prr6005' ext]);
%set(0,'CurrentFigure',6)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep1prr6006' ext]);
close all

ep1prr620look(NumDays)
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1prr6201' ext]);
set(0,'CurrentFigure',2)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1prr6202' ext]);
set(0,'CurrentFigure',3)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1prr6203' ext]);
close all

ep1shutterlook(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1shutter' ext]);
close all

ep_plot_dp(1, now-NumDays, now);
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1k' ext]);
set(0,'CurrentFigure',2)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1al' ext]);
set(0,'CurrentFigure',3)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1lw' ext]);
set(0,'CurrentFigure',4)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1rrs' ext]);
set(0,'CurrentFigure',5)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep1oc2' ext]);
close all

%=================================================
% Create a gif. Matlab no longer supports gifs so 
%  1. Create a temporary png image
%  2. Change it to a gif using a java program
%=================================================
function makegif(Filename)
java on;
at_setfontsize
png = ['d:\apps\matlab\work\' Filename '.png'];
gif = ['d:\www\bog\images\' Filename '.gif'];
print('-dpng',png);
java_method('convert', 'PngToGif', png, gif);
delete(png);