wiza

vid=videoinput('winvideo')
preview(vid)
set(vid, 'TriggerRepeat',Inf);
start(vid)
for i=1:300
    %fr=get(vid, 'FramesAvailable')
    obraz=getdata(vid,1);
    figure(2); subplot(2,3,1); imshow(obraz)
    obr_sz=rgb2gray(obraz);
    figure(2); subplot(2,3,5);imshow(obr_sz)

end
stop(vid)
delete(vid)
clear
close(gcf)