function y=imrescale(x,d)

[hs vs]=size(x);
y=zeros(hs,vs);
if ((rem(hs,2)==1)|(rem(vs,2)==1))
    fprintf(1,'Errore! Le dimensioni dell''immagine devono essere pari. \n');
	return
end
for i=1:hs/d
    for j=1:vs/d
        y(d*(i-1)+1:d*i,d*(j-1)+1:d*j)=round(mean(mean(x(d*(i-1)+1:d*i,d*(j-1)+1:d*j))));
    end
end
