close all; clear; clc
%############################################
%######         Lane tracking          ######
%############################################
lane_tracking

%############################################
%######        Band detection          ######
%############################################
for ii=1:15
I=Lanes{ii,1};
I=bandremovebackgroundm(I);
band;
subplot(15,15,[0:14]*15+ii)
imshow(Lanes{ii,1}')
hold on
for j=1:size(P,1)
plot([8:22],P(j,2),'g','MarkerSize',10,'LineWidth',5)
plot(15,P(j,2),'*g','MarkerSize',4,'LineWidth',1)
end
hold off
end

% imshow(I')
% hold on
% plot(i,P([1:15],2),'-r')
% 
% 
% 
% imshow(I)
% loc=ginput(2)
% loc=round(loc)
% I=I(loc(3):loc(4),loc(1):loc(2));