% skripta koja izvlaci zig iz oznacene slike uz prisustvo originalne slike

%clear all;

%alpha = 0.1;
%zig = load('sig.txt');
%[img,map]=imread('lena.pgm');
%[imgR,map]=imread('lenaR.pgm');

%[CA,CH,CV,CD] = DWT2(img,'haar');
%[CA2,CH2,CV2,CD2] = DWT2(CA,'haar');

[CAr,CHr,CVr,CDr] = DWT2(imgR,'haar');
[CA2r,CH2r,CV2r,CD2r] = DWT2(CAr,'haar');

% oznacen, original
jen = izvuci(CHr, CH, alpha);
dva = izvuci(CVr, CV, alpha);
tri = izvuci(CDr, CD, alpha);

cetiri = izvuci(CH2r, CH2, alpha);
pet = izvuci(CV2r, CV2, alpha);
sest = izvuci(CD2r, CD2, alpha);

%razlika slika
razlika = double(imgR) - double(img);


%spajanje izvucenog ziga u jedan vektor
zigP1 = nadovezi(jen, dva);
zigP2 = nadovezi(zigP1, tri);
zigP3 = nadovezi(zigP2, cetiri);
zigP4 = nadovezi(zigP3, pet);
zigR = nadovezi(zigP4, sest);


