clear
clc
close all

pic = imread('Witney.jpg');
image(pic)


vi = imread('Vienna.jpg');
figure
[rows,cols,cls] = size(vi);
thresh = 180;
grey = 150;
for r = 1:700
    for c = 1:cols
        red = vi(r, c, 1);
        grn = vi(r, c, 2);
        blu = vi(r, c, 3);
        if (red > thresh) && (grn > thresh) && (blu > thresh)
            vi(r, c, :) = pic(r, c, :);
        end
    end
end
image(vi)
imwrite(vi,'BlueDanube.jpg')