% test resampling capability

load red
E=red;
clear red;
figure(1)
colormap(gray(200))
subplot(221)
tvs(E)
title('original image')

a=1;
b=50+100*i;
E_trans = resample(1,E,b);
subplot(222)
tvs(E_trans)
title(sprintf('zoom=%g,  rot=%gdeg,  trans=%g,%g', ...
	      abs(a),angle(a)/o,real(b),imag(b)))

a=eio^30;
b=0;
E_rot = resample(a,E,b);
subplot(223)
tvs(E_rot)
title(sprintf('zoom=%g,  rot=%gdeg,  trans=%g,%g', ...
	      abs(a),angle(a)/o,real(b),imag(b)))

a=eio^30;
b=-50-100*i;
E_transrot = resample(a,E,b);
subplot(224)
a=eio^30;
b=0-100*i;
E_transrot = resample(a,E,b);
tvs(E_transrot)
title(sprintf('zoom=%g,  rot=%gdeg,  trans=%g,%g', ...
	      abs(a),angle(a)/o,real(b),imag(b)))