% At_noiselet.m
%
% Adjoint of A_noiselet.m
%
% Written by: Justin Romberg, Georgia Tech, jrom@ece.gatech.edu
% Created: May 2007
%

function s = At_noiseletWLOrth(y, OM1, OM2, n, qmf)


% invertendo y = phi x
%y_rec = zeros(N,1);
%y_rec(OMEGA) = y;

%x = realnoiselet(y_rec/sqrt(N));
%n = sqrt(N);
%dodatek
K1 = length(OM1);
K2 = K1 + length(OM2);
x = At_dct2(y(1:K1), n, OM1) + At_noiselet(y(K1+1:K2), OM2, n*n);


% invertendo s = psi x
S = FWT2_PO(reshape(x,n,n),3,qmf);
s = S(:);