vid = videoinput('winvideo');

preview(vid);

input('ENTER');
%obr1 = imread('obraz2.bmp');
obr1 = getsnapshot(vid);
obr1_sz = rgb2gray(obr1);

imwrite(obr1, 'obr1.png');

%input('ENTER');
obr2 = imread('obraz1.bmp');
obr2_sz = rgb2gray(obr2);
%obr2 = getsnapshot(vid);
imwrite(obr2, 'obr2.png');

figure(1);
subplot(2, 2, 1);
imshow(obr1); title('obr1');
subplot(2, 2, 2);
imshow(obr2); title('obr2');

%'direct1'
%system('direct.exe obr1.png obr1_dir.png');
%'direct2'
%system('direct.exe obr2.png obr2_dir.png');

%'dpcm1'
%system('dpcm.exe obr1.png obr1_dpcm.png');
%'dpcm2'
%system('dpcm.exe obr2.png obr2_dpcm.png');

%'huf1'
%system('huf.exe obr1.png obr1_huf.png');
%'huf2'
%system('huf.exe obr2.png obr2_huf.png');

[obr1dct, mse, psnr] = komprdct(obr1_sz, [8 8], 'prog', 25)

%[obr2dct, mse, psnr] = komprdct(obr2_sz, [8 8], 'prog', 25);


stop(vid);
delete(vid);