Wizja komputerowa LAB3

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
set(vid, 'TriggerRepeat', Inf) %ustawienie właściwości TriggerRepeat na wartość Inf
%figure; %utworzenie okna graficznego
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);

subplot(2,2,1)
imshow(gray_image); %wyświetlenie obrazu podstawowego

% Salt & Pepper
subplot(2,2,2)
z_sp = imnoise(gray_image,'salt & pepper');
imshow(z_sp);

% Gaussian
subplot(2,2,3)
z_g = imnoise(gray_image,'gaussian');
imshow(z_g);

% Pasami
subplot(2,2,4)
z_p = pasy(gray_image, 1, 40, 'poziome');
imshow(z_p);
end


% Odfiltrowywanie
%figure(2);

%subplot(1,3,1);
%filtru = fspecial('average',[5 5]);
%odf = imfilter(z_g, filtru);
%imshow(odf);

%subplot(1,3,2);
%filtrg = fspecial('gaussian',[5 5]);
%odf = imfilter(z_g, filtrg);
%imshow(odf);

%subplot(1,3,3);
%odf = medfilt2(z_g, [5 5]);
%imshow(odf);

% Detekcja krawędzi (SOBEL)
figure(2);
oSobela1 = fspecial('sobel');
oSobela2 = -oSobela1';

%subplot(1,2,1);
kraw1 = filter2(oSobela1, gray_image);
%imshow(mat2gray(kraw1));

%subplot(1,2,2);
kraw2 = filter2(oSobela2, gray_image);
%imshow(mat2gray(kraw2));

krawE = sqrt(kraw1.^2 + kraw2.^2);
krawM = abs(kraw1) + abs(kraw2);

subplot(2,2,1);
imshow(mat2gray(krawE));

subplot(2,2,2);
imshow(mat2gray(krawM));

% Detekcja krawędzi (Laplacea)
subplot(2,2,3);
oL = fspecial('laplacian');
kr = imfilter(gray_image, oL);
imshow(mat2gray(kr));

% Detekcja krawędzi (LOG)
subplot(2,2,4);
oLOG = fspecial('log');
kr = imfilter(gray_image, oLOG);
imshow(mat2gray(kr));








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