videoproc.m

v = VideoReader('example1.mp4');

for i = 1:v.NumFrames
frame = read(v,i);
I = rgb2gray(frame);
BW = imbinarize(I);
out = edge(I, 'Roberts');

[H,T,R] = hough(out);
P  = houghpeaks(H, 3, 'threshold', ceil(0.3*max(H(:))));
lines = houghlines(BW, T, R, P, 'FillGap', 5, 'MinLength', 7);
imshow(out), hold on
    for k = 1:length(lines)
        xy = [lines(k).point1; lines(k).point2];
        plot(xy(:,1),xy(:,2),'LineWidth',2,'Color','green');            
    end
    hold off
F(i) = getframe(gcf);                       
end

video = VideoWriter('myvideo.avi'); 
video.FrameRate = v.FrameRate;

open(video);
for i=1:length(F)
    frame = F(i) ;    
    writeVideo(video, frame);
end
close(video);