Wizja komputerowa LAB2

imaqhwinfo
info = imaqhwinfo('winvideo')

vid = videoinput('winvideo') %utworzenie obiektu powiązanego z wejściem wideo

preview(vid) %utworzenie okna podglądu

get(vid) %wyświetlenie właściwości obiektu powiązanego z wejściem wideo
get(getselectedsource(vid)) %wyświetlenie właściwości obiektu powiązanego
%ze źródłem wideo
set(vid, 'TriggerRepeat', Inf) %ustawienie właściwości TriggerRepeat na wartość Inf
%– ciągła akwizycja obrazów (do momentu
%zamierzonego jej przerwania)

%figure; %utworzenie okna graficznego
set(gcf, 'doublebuffer', 'on') %zapewnia płynne wyświetlanie
start(vid) %uruchomienie obiektu (powoduje automatyczne wyzwolenie akwizycji)

figure(4);
subplot(2,2,1)

while (1)
data = getdata(vid, 1);
%diff_im = imabsdiff(data(:,:,:,1), data(:,:,:,2));
gray_image = rgb2gray(data);
imshow(gray_image); %wyświetlenie obrazu różnicowego
% PUNKT a)
subplot(2,2,3)
imhist(gray_image);

% PUNKT b)
wyrownany = histeq(gray_image);
subplot(2,2,4)
imhist(wyrownany);

% PUNKT c)
czarnobialy = im2bw(gray_image);
subplot(2,2,2)
imshow(czarnobialy);
%imhist(czarnobialy);
end



stop(vid)

delete(vid) %usunięcie obiektu wideo
clear %wyczyszczenie przestrzeni roboczej MATLABa
%close(gcf) %zamknięcie okna graficznego