% Course in Wavelets, TU Chemnitz, 2012

A=test_image(256,-0.5);
%A=phantom(512)
[m,n]=size(A);

figure(1);
imagesc(A);
colormap(gray(256));
title('Original');

qmf = MakeONFilter('Daubechies',6);

figure(2);
J=log(m)/log(2)-1;
B = FWT2_PO(A,J,qmf);
imagesc(B);
%colormap(gray(256));
title('Single level DWT');

figure(3);
B = FWT2_PO(A,1,qmf);
imagesc(B);
%colormap(gray(256));
title('DWT');

figure(4);
B = radon(A,0:179);
imagesc(B);
%colormap(gray(256));
title('Radon transform');

figure(5);
B = ridgelet(A);
imagesc(B);
%colormap(gray(256));
title('Ridgelet transform');





