vid = videoinput('winvideo');
%preview(vid);
%obr_rgb=getsnapshot(vid);
%figure(2); imshow(obr_rgb)
set(vid, 'TriggerRepeat', Inf);
start(vid)
for i=1:300,
    obr_rgb=getdata(vid,1);
    %figure(2),imshow(obr_rgb);
    obr_sz=rgb2gray(obr_rgb);
    %figure(3),imshow(obr_sz);
    figure(2)
    subplot(2,2,1);
    imshow(obr_sz)
    subplot(2,2,2);
    imhist(obr_sz)
    obr_wh=histeq(obr_sz);
    subplot(2,2,3);
    imshow(obr_wh)
    subplot(2,2,4);
    imhist(obr_wh)
    prog=graythresh(obr_sz);
    obr_cz=im2bw(obr_sz,prog);
    figure(3)
    imshow(obr_cz)
end
stop(vid)
%close(gcf)
%clear