%=========================================================================
% Math 336 - Image Processing - Laboratory 5
%
% Haar Wavelet Transform 
%
% Marty Kandes
% Department of Physics
% San Diego State University
% Fall 2008
% -------------------------------------------------------------------------
function H = hwt(F,LEVELS)
[M,N] = size(F);
H = F;
for J = 1:LEVELS
    for I = 1:N
        X = H(I,1:1:N);
        X = haar(X,N);
        H(I,1:1:N) = X;
    end;
    H = H';
    for I = 1:N
        X = H(I,1:1:N);
        X = haar(X,N);
        H(I,1:1:N) = X;
    end;
    H = H';
    N = N/2;
end;
end