Wizja komputerowa LAB4

es3 = ones(3,3);
es7 = ones(7,7);
obj = strel('disk',2);

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)

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

figure(1);
while (vid.FramesAcquired <= 10)
data = getdata(vid, 1);
gray_image = rgb2gray(data);
gray_image = imresize(gray_image,0.5);
%gray_image = imnoise(gray_image,'salt & pepper');
czarnobialy = im2bw(gray_image);


subplot(1,2,1);
imshow(czarnobialy);

% img = imerode(czarnobialy, obj);
% subplot(3,3,2);
% imshow(img);
%
% subplot(3,3,3);
% img = imdilate(czarnobialy, obj);
% imshow(img);
%
% subplot(3,3,4);
% img = imopen(czarnobialy, obj);
% imshow(img);
%
% subplot(3,3,5);
% img = imclose(czarnobialy, obj);
% imshow(img);
%
% subplot(3,3,6);
% img = imopen(imclose(czarnobialy, obj),obj);
% imshow(img);
%
% subplot(3,3,7);
% img = imclose(imopen(czarnobialy, obj),obj);
% imshow(img);

subplot(1,2,2);
img = imdilate(gray_image,obj) - imerode(gray_image,obj);
imshow(img);

end




stop(vid)

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