% 
% Written by:
% -- 
% John L. Weatherwax                2005-08-04
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
% Epage 
% 
%-----

I = [ 0, 0, 2, 2, 1, 3; 1, 1, 0, 0, 2, 2; 3, 2, 3, 3, 2, 1; 3, 2, 2, 2, 3, 2 ];
%I = repmat( 1:4, [4,1] );
%I = [ 0, 0, 1, 1, 0; 0, 0, 0, 0, 1; 1, 1, 1, 1, 1; 1, 1, 1, 1, 1 ];
mom = Hu_moments(I);



I_a = imread( '../../Data/images/petasti_fig_7_5_a.gif' );
mom_a = Hu_moments(I_a);
log(abs(mom_a))

I_b = imread( '../../Data/images/petasti_fig_7_5_b.gif' );
mom_b = Hu_moments(I_b);
log(abs(mom_b))

I_c = imread( '../../Data/images/petasti_fig_7_5_c.gif' );
mom_c = Hu_moments(I_c);
log(abs(mom_c))

I_d = imread( '../../Data/images/petasti_fig_7_5_d.gif' );
mom_d = Hu_moments(I_d);
log(abs(mom_d))

I_e = imread( '../../Data/images/petasti_fig_7_5_e.gif' );
mom_e = Hu_moments(I_e);
log(abs(mom_e))

I_f = imread( '../../Data/images/petasti_fig_7_5_f.gif' );
mom_f = Hu_moments(I_f);
log(abs(mom_f))

Moms = [ mom_a; mom_b; mom_c; mom_d; mom_e; mom_f ];
log(abs(Moms))