zoomByDuplication(imsrc, newX, newY)

%Ihsan Yalcinkaya - DEU Computer Science Dep. - Turkey
%28.03.2005
% Zooms 2D images (whose gray levels are represented by 8 bits)
%to newX and newY by row and column duplication.

function newim = zoomByDuplication(imsrc, newX, newY)

im = imread(imsrc);

[x, y] = size(im);

if(newX < x) newX = x; end
if(newY < y) newy = y; end

cofactorx = floor(newX/x);
cofactory = floor(newY/y);

newX = cofactorx*x;
newY = cofactory*y;

hold_ix = 1;
hold_iy = 1;

for ix=1: newX
    for iy=1: newY
        if(mod(ix,cofactorx)==0 )
            hold_ix = floor(ix/cofactorx);
        end
        if(mod(iy, cofactory)==0)
            hold_iy = floor(iy/cofactory);
        end           
            newim(ix,iy) = im(hold_ix,hold_iy);
    end
end