script1

load filelist
filename = files{1};
rgb = imread(filename);
rgb = imresize(rgb,0.25);

imshow(rgb);
for k=1:4
    pause;
    pts(k,:) = ginput(1);
end

hold on
plot(pts(1:2,1),pts(1:2,2),'b','LineWidth',2);
plot(pts(3:4,1),pts(3:4,2),'b','LineWidth',2);
hold off

save pts2 filename pts