%% Interpolação
%
% Nesta script uma imagem será interpolada
clear all; close all; clc

%% Leitura da imagem

im = imread('Foto.jpg');

figure
imshow(im)
title('Imagem original')

%% Criação da imagem expandida

im2 = uint8(zeros(100,100,3));
im2(1:2:end, 1:2:end, :) = im;

figure
imshow(im2)
title('Imagem expandida')

%% Calculando a média - Nível 1

for i = 1:3
	for linha = 1:2:size(im2,1)
		for coluna = 2:2:size(im2,2)-2
			
			im2(linha,coluna,i) = (im2(linha,coluna-1,i)+im2(linha,coluna+1,i))/2;
			
		end
	end
end

figure
imshow(im2)
title('Imagem interpolada - Nível 1')
