Wizja komputerowa LAB5

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)


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%FUNKCJA%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
input('Zrob zdjecie obiektu kl 1');
data1a = getsnapshot(vid);
input('Zrob zdjecie obiektu kl 1');
data1b = getsnapshot(vid);
input('Zrob zdjecie obiektu kl 2');
data2a = getsnapshot(vid);
input('Zrob zdjecie obiektu kl 2');
data2b = getsnapshot(vid);


data1a = rgb2gray(data1a);
czarnobialy1 = im2bw(data1a,0.5);
czarnobialy1 = imresize(czarnobialy1,0.5);

data1b = rgb2gray(data1b);
czarnobialy2 = im2bw(data1b,0.5);
czarnobialy2 = imresize(czarnobialy2,0.5);

data2a = rgb2gray(data2a);
czarnobialy3 = im2bw(data2a,0.5);
czarnobialy3 = imresize(czarnobialy3,0.5);

data2b = rgb2gray(data2b);
czarnobialy4 = im2bw(data2b,0.5);
czarnobialy4 = imresize(czarnobialy4,0.5);

[obr_ind, n] = bwlabel(czarnobialy1);
obr_i = (obr_ind==n);
pow = bwlabel(obr_i);
wc_ob_1_kl1 = [niezm1(obr_i), niezm2(obr_i), niezm7(obr_i)];

[obr_ind, n] = bwlabel(czarnobialy2);
obr_i = (obr_ind==n);
pow = bwlabel(obr_i);
wc_ob_2_kl1 = [niezm1(obr_i), niezm2(obr_i), niezm7(obr_i)];

[obr_ind, n] = bwlabel(czarnobialy3);
obr_i = (obr_ind==n);
pow = bwlabel(obr_i);
wc_ob_1_kl2 = [niezm1(obr_i), niezm2(obr_i), niezm7(obr_i)];

[obr_ind, n] = bwlabel(czarnobialy4);
obr_i = (obr_ind==n);
pow = bwlabel(obr_i);
wc_ob_2_kl2 = [niezm1(obr_i), niezm2(obr_i), niezm7(obr_i)];

baza = [1 wc_ob_1_kl1;
        1 wc_ob_2_kl1;
        2 wc_ob_1_kl2;
        2 wc_ob_2_kl2;];

%%%%%%%%%%%% END FUNCTION
%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

input('Zrob zdjecie do porownania');
obr = getsnapshot(vid);
obr = rgb2gray(obr);
czarnobialy = im2bw(obr,0.5);
czarnobialy = imresize(czarnobialy,0.5);
%imshow(czarnobialy);

[obr_ind, n] = bwlabel(czarnobialy);
obr_i = (obr_ind==n);
pow = bwlabel(obr_i);
wc_ob_i = [niezm1(obr_i), niezm2(obr_i), niezm7(obr_i)];
kl = KlasyfikKNN(baza,wc_ob_i);

if(kl==1)
input('Jest ręka');
elseif(kl==2)
    input('Nie ma ręki');
end

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