pompa

vid = videoinput('winvideo');
%preview(vid)
obraz = getsnapshot(vid);
figure(2);
imshow(obraz)
title('Obraz kolorowy');
%musimy ustawić właściwiośc trigger repeat
set(vid, 'TriggerRepeat', Inf);
%start(vid);
%na bieżąco trzeba pobierać
%while vid.FramesAcquired < 1000, %dopóki nie przetworzymy 300 klatek
while true,
%obraz = getdata(vid, 1);
%flushdata(vid); %getdata pobiera obraz i czyści bufor
obraz = getsnapshot(vid);
obraz_sz = rgb2gray (obraz);
figure(2);
subplot(2,2,1);
imshow(obraz);
title('kolorowy');
subplot(2,2,2);
imshow(obraz_sz);
title('szary');
subplot(2,2,3);
imhist (obraz_sz);
obraz_wh = histeq (obraz_sz);
imshow (obraz_wh);
prog_bin = graythresh (obraz_sz);
subplot(2,2,4);
obraz_czb = im2bw (obraz_sz, prog_bin); %[0,1]
imshow (obraz_czb);
title('czarno-bialy');
%vid.FramesAvailable
%flushdata(vid);
%pause(0.1);     <- czas w milisekundach
end
%stop(vid);
delete vid;
close(gcf);
clear;