% Small technical example.
% Shows how to call for the multiresolution decomposition of an image
% and shows the detailed bookkeeping.
%
disp('Small technical example.');
disp('Shows how to call for the multiresolution decomposition of an image');
disp('and shows the detailed bookkeeping.');
disp('FOR MORE INFORMATION:  help QLiftDec2');
disp(' ');
disp('See also the report http://repository.cwi.nl:8888/cwi_repository/docs/IV/04/04178D.pdf');
disp('Dr. Paul M. de Zeeuw <Paul.de.Zeeuw@cwi.nl>');
disp(' (C) 1998-2006 Stichting CWI, Amsterdam, The Netherlands');
disp(' ');
%---PARAMETERS-----------------------------------------------------------------
% How to execute, set parameters
N = 6;                   %  maximum level (even number) in lifting scheme
filtername = 'Neville4';
%
%---INSERT YOUR IMAGE HERE-----------------------------------------------------
if exist('imread','file') == 2
  Orig = double(imread('zenithgray.TIF','tiff'));
else
  load zenithgray; Orig = zenithgray; clear zenithgray;
end
%
disp([' Dimensions of original      ' int2str( size(Orig) )]);
%---DECOMPOSITION--------------------------------------------------------------
disp([' Filter type is ' filtername]);
[C,S] = QLiftDec2(Orig,N,filtername);
disp([' Dimensions of decomposition ' int2str( size(C) )]);
disp(' Contents of bookkeeping ');
disp(int2str(S));
%
