ResizeImage.m

Go to the documentation of this file.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Funktion
%
% Optionen für Mode: 'stretch', 'original', 'repeat'
%
% Projekt: "Hologrammsoftware 2.0"
%
% Autor: Jan Marx
% Zuletzt bearbeitet: 28.09.2022
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function [image] = ResizeImage(input, x,y,mode)
%Passt ein Bild an eine andere Auflösung an.
% Verschiedene Anpassungsoptionen wählbar, s.u.
y0 = size(input,2);
x0 = size(input,1);
 
if(x0==x && y0==y)
    image = input;
    
elseif (mode == "stretch")
    %Strecken des Bildes
    image = imresize(input, [x y], 'nearest');
    
elseif (mode == "original")
    %Beibehalten der Originalauflösung.
    %Ist das Bild größer als die Zielauflösung, wird es mittig
    %ausgeschnitten
    %Ist das Bild kleiner als die Zielauflösung, werden Nullen um das Bild
    %ergänzt (vgl. Zero-Padding)
    if(x0<=x && y0<=y)
        image = zeros(x,y);
        image(floor((x-x0)/2)+1:floor((x+x0)/2),floor((y-y0)/2)+1:floor((y+y0)/2))=input;
    elseif(x0>=x && y0>=y)
        image =  input(floor((x0-x)/2)+1:floor((x0+x)/2),floor((y0-y)/2)+1:floor((y0+y)/2));
    elseif(x0<=x && y0>=y)
        image = zeros(x,y);
        image(floor((x-x0)/2)+1:floor((x+x0)/2),:)= input(:,floor((y0-y)/2)+1:floor((y0+y)/2));
    elseif(x0>=x && y0<=y)
        image = zeros(x,y);
        image(:,floor((y-y0)/2)+1:floor((y+y0)/2))=input(floor((x0-x)/2)+1:floor((x0+x)/2),:);        
    end
    
elseif (mode == "repeat")
    %Ist das Bild kleiner als die Zielauflösung, so wird ein sich
    %wiederholendes Muster des Bildes erzeugt
    image = zeros(x,y);
    for ki=1:x
        for kj=1:y
            image(ki,kj) = input(mod(ki,x0)+1,mod(kj,y0)+1);
        end
    end
    
    
else
    image = 0;
    disp('ERROR - Unknown Image ResizeMode');
end
 
 
end