zoom in

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

%Questao 6: Aplicando ZOOM IN
function img_in=zoom_in(nome_entrada,nome_saida, tipo);
%Leitura da Iamgem
img_in=imread(nome_entrada, tipo);
%Leitura das dimensoes da imagem
[lin,col,can]=size(img_in);
img_out=img_in;
%Interação para obter dados
display('Bem-vindo à aplicação do ZOOM IN!');
tam=input('Zoom -> ');
a=tam/2;
%Laço para corte e zoom in
for i=1:a
 %Parametros para o corte da imagem
 r=lin/4;
 c=col/4;
 h=lin/2;
 w=col/2;
 %Aplicação do corte da imagem
 img_corte = img_out(r:r+h-1, c:c+w-1,:);
 %Leitura das dimensões da imagem cortada
 [lin1,col1,can1]=size(img_corte);
 %Matriz de zeros com o dobro das dimensões da imagem cortada
 img_out=zeros(2*lin1, 2*col1, size(img_out,3), class(img_out));
 %Matriz recebendo de maneira intercalada os dados da imagem cortada
 img_out(1:2:end,1:2:end,:) = img_corte;
 img_out(2:2:end,1:2:end,:) = img_corte; 
 img_out(1:2:end,2:2:end,:) = img_corte; 
 img_out(2:2:end,2:2:end,:) = img_corte; 
end
imwrite(uint8(img_out),nome_saida,tipo);
subplot(1,2,1); imshow(nome_entrada); title('Original');
subplot(1,2,2); imshow(nome_saida); title('ZOOM IN');
clc
return