Leno_Paleno

clear all;

vid=videoinput('winvideo') %obiekt kamerki
preview(vid) %podglad z kamery
for i=1:500
    obraz=getsnapshot(vid);

    figure(2);

    obraz_sz=rgb2gray(obraz);
    subplot(3,2,1);;imshow(obraz_sz);title('szary')
    subplot(3,2,2);imhist(obraz_sz);title('histogram')


    obraz_wh=histeq(obraz_sz);
    subplot(3,2,3);imshow(obraz_wh);title('wyrownanie histogramu')
    subplot(3,2,4);imhist(obraz_wh);title('hist. wyr')

    prog=graythresh(obraz_sz);
    obraz_czb=im2bw(obraz_sz,prog);
    subplot(3,2,5);imshow(obraz_czb);title('czarno & bialu');
    subplot(3,2,6);imhist(obraz_czb);title('hist. czarno & bialu')

end