function [fig_sigh,fig_pp,fig_dp,fig_dd]=nortek_Winfo_plot(Winfo);

%This function takes the wave info (sigH, peak period, direction of peak and dominant direction
%for a series of bursts and plots it as a function of time


%plot sig wave height
scrsz = get(0,'ScreenSize');
fig_sigh=figure('Position',[scrsz]);
h1=plot(Winfo.time,Winfo.hsig(1,:),'b.-');
hold on
h2=plot(Winfo.time,Winfo.hsig(2,:),'r.-');
h3=plot(Winfo.time,Winfo.hsig(3,:),'k.-');

datetick('x',15,'keepticks');
legend([h1, h2, h3],'EMEP','IMLM','nortek','location','best');
title(['Significant Wave Height starting on ',datestr(Winfo.time(:,1),0)]);
xlabel('time');
ylabel('Wave Height (m)');

%plot peak period
fig_pp=figure('Position',[scrsz]);
h1=plot(Winfo.time,Winfo.peakP(1,:),'b.-');
hold on
h2=plot(Winfo.time,Winfo.peakP(2,:),'r.-');
h3=plot(Winfo.time,Winfo.peakP(3,:),'k.-');

datetick('x',15,'keepticks');
legend([h1, h2, h3],'EMEP','IMLM','nortek','location','best');
title(['Peak Period starting on ',datestr(Winfo.time(:,1),0)]);
xlabel('time');
ylabel('Period (seconds)');

%plot dir of peak period
fig_dp=figure('Position',[scrsz]);
h1=plot(Winfo.time,Winfo.dirP(1,:),'b.-');
hold on
h2=plot(Winfo.time,Winfo.dirP(2,:),'r.-');
h3=plot(Winfo.time,Winfo.dirP(3,:),'k.-');

datetick('x',15,'keepticks');
legend([h1, h2, h3],'EMEP','IMLM','nortek','location','best');
title(['Direction of Peak Period starting on ',datestr(Winfo.time(:,1),0)]);
xlabel('time');
ylabel('Direction (Degrees True)');

%plot the dominant direction

fig_dd=figure('Position',[scrsz]);
h1=plot(Winfo.time,Winfo.Ddir(1,:),'b.-');
hold on
h2=plot(Winfo.time,Winfo.Ddir(2,:),'r.-');
h3=plot(Winfo.time,Winfo.Ddir(3,:),'k.-');

datetick('x',15,'keepticks');
legend([h1, h2, h3],'EMEP','IMLM','nortek','location','best');
title(['Dominant Direction starting on ',datestr(Winfo.time(:,1),0)]);
xlabel('time');
ylabel('Direction (Degrees True)');