% set_to.m
function new = set_to(img, startx, endx, starty, endy, val1, val2, val3)
    new = img;
    [n m z] = size(img);
    for i = startx:endx
        if (i > n)
            break
        end
        for j = starty:endy
            if (j > m)
                break
            end
            new(i, j, 1) = val1;
            new(i, j, 2) = val2;
            new(i, j, 3) = val3;
        end
    end
end

% copy_img.m

function new = copy_img(from, to, i)
    new = to;
    [n m l] = size(from);
    [nm mm lm] = size(to);
    for j = 1:n
        if (j + i> nm)
            break
        end
        for k = 1:m
            if (k + i> mm)
                break
            end
            for c = 1:3
                if (from(j, k, c) < 150)
                    new(j + i, k + i, c) = from(j, k, c);
                end
            end
        end
    end
end

% scriptfile

% Del 1:

dt = 0.01;

img = imread('C:\Documents and Settings\finnrobi\My Documents\MATLAB\blomst.jpg');

image(img);

% Del 2:

new = img;

[n m l] = size(new);

for i = 1:m
    new = set_to(new, i, i + 20, i, i + 20, 255, 0, 0);
    image(new);
    pause(dt);
end

new = img;

[n m l] = size(new);

for i = 1:m
   image(set_to(new, i, i + 20, i, i + 20, 255, 0, 0));
   pause(dt);
end

% Del 3:

bie = imread('C:\Documents and Settings\finnrobi\My Documents\MATLAB\bie.jpg');

for i = 1:m
    image(copy_img(bie, new, i));
    pause(dt);
end