function at_ep2_plot(NumDays,ext)
% AT_EP2_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
%==============================
% ep2
ep2argoslook(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2argos' ext]);
close all

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

ep2flrlook(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2flr' ext]);
close all

ep2mcplook(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2mcp' ext]);
close all

ep2misclook(NumDays)
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2misc1' ext]);
%set(0,'CurrentFigure',2)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep2misc2' ext]);
close all

ep2oasislook(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2oasis' ext]);
close all

ep2ocr100look(NumDays)
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2ocr1' ext]);
set(0,'CurrentFigure',2)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep2ocr2' ext]);
%set(0,'CurrentFigure',3)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep2ocr3' ext]);
%set(0,'CurrentFigure',4)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep2ocr4' ext]);
close all

ep2pco2look(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2pco2' ext]);
close all

ep2prr600look(NumDays)
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2prr6001' ext]);
set(0,'CurrentFigure',2)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2prr6002' ext]);
set(0,'CurrentFigure',3)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2prr6003' ext]);
%set(0,'CurrentFigure',4)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep2prr6004' ext]);
%set(0,'CurrentFigure',5)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep2prr6005' ext]);
%set(0,'CurrentFigure',6)
%set(gcf,'PaperPosition',PaperPosition);
%makegif(['ep2prr6006' ext]);
close all

ep2prr620look(NumDays)
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2prr6201' ext]);
set(0,'CurrentFigure',2)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2prr6202' ext]);
set(0,'CurrentFigure',3)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2prr6203' ext]);
close all

ep2shutterlook(NumDays)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2shutter' ext]);
close all

ep_plot_dp(2, now-NumDays, now);
set(0,'CurrentFigure',1)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2k' ext]);
set(0,'CurrentFigure',2)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2al' ext]);
set(0,'CurrentFigure',3)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2lw' ext]);
set(0,'CurrentFigure',4)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2rrs' ext]);
set(0,'CurrentFigure',5)
set(gcf,'PaperPosition',PaperPosition);
makegif(['ep2oc2' 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);