%Merge_Walk_Jetski_data

load surveylines.mat

%%%Parameters
% line = 7;

% Survey 1
walks = Read_XYZ('D:\Documents\SVN_Checkouts\vlugtenburg\walking\raw\2009_06_10\Products\XYZ_RDNAP.txt');
jetski = Read_XYZ('D:\Documents\SVN_Checkouts\vlugtenburg\jetski\raw\2009_06_09\Products\XYZ_jetski_RD_NAP.txt');

survey_data.jetski = jetski.data;
survey_data.walks = walks.data;
survey_data.data = [survey_data.jetski ; survey_data.walks];
survey_data.surveydate = jetski.surveydate;

lines(line) = extract_line_nr(survey_data,Surveylines{line});

% Survey 2
walks = Read_XYZ('D:\Documents\SVN_Checkouts\vlugtenburg\walking\raw\2009_07_17\Products\XYZ_RDNAP.txt');
jetski = Read_XYZ('D:\Documents\SVN_Checkouts\vlugtenburg\jetski\raw\2009_07_16\Products\XYZ_jetski_RD_NAP.txt');

survey_data.jetski = jetski.data;
survey_data.walks = walks.data;
survey_data.data = [survey_data.jetski ; survey_data.walks];
survey_data.surveydate = jetski.surveydate;

lines(line) = extract_line_nr(survey_data,Surveylines{line});

% Survey 3
walks = Read_XYZ('D:\Documents\SVN_Checkouts\vlugtenburg\walking\raw\2009_08_05\Products\XYZ_RDNAP.txt');
jetski = Read_XYZ('D:\Documents\SVN_Checkouts\vlugtenburg\jetski\raw\2009_08_06\Products\XYZ_jetski_RD_NAP.txt');

survey_data.jetski = jetski.data;
survey_data.walks = walks.data;
survey_data.data = [survey_data.jetski ; survey_data.walks];
survey_data.surveydate = jetski.surveydate;

lines(line) = extract_line_nr(survey_data,Surveylines{line});

% Survey 4
walks = Read_XYZ('d:\Documents\SVN_Checkouts\vlugtenburg\walking\raw\2009_09_07\Products\XYZ_RDNAP.txt');
jetski = Read_XYZ('d:\Documents\SVN_Checkouts\vlugtenburg\jetski\raw\2009_09_08\Products\XYZ_jetski_RD_NAP.txt');

survey_data.jetski = jetski.data;
survey_data.walks = walks.data;
survey_data.data = [survey_data.jetski ; survey_data.walks];
survey_data.surveydate = jetski.surveydate;

lines(line) = extract_line_nr(survey_data,Surveylines{line});

% Survey 5
walks = Read_XYZ('d:\Documents\SVN_Checkouts\vlugtenburg\walking\raw\2009_10_13\Products\XYZ_RDNAP.txt');
jetski = Read_XYZ('d:\Documents\SVN_Checkouts\vlugtenburg\jetski\raw\2009_10_09\\Products\XYZ_jetski_RD_NAP.txt');

survey_data.jetski = jetski.data;
survey_data.walks = walks.data;
survey_data.data = [survey_data.jetski ; survey_data.walks];
survey_data.surveydate = jetski.surveydate;

lines(line) = extract_line_nr(survey_data,Surveylines{line});


Legend('June','July','August','September','October')
title(['Transect nr. ' num2str(line)])
xlabel('Cross shore distance from reference line')
set(gcf,'position',[130 584 911 318])
plot([-500 2000],[0 0],'-c')
xlim([-300 1300])
