function C = rbFilter( img )
%filtert rot und blau und setzt rest weis
% gibt gray aus
%% variablen festlegen

[row col plane] = size(img);
img = double(img);
C = zeros(row,col,plane);
factor1 = max(img(:))/255; %rot-Faktor (untergrenze)
factor2 = max(img(:))/255; %blau-factor (untergrenze)
factor3 = max(img(:))*100/255; %grün-factor (obergrenze)

%% Filter berechnen

for i = 1:row
    for j = 1:col
        if (img(i,j,1) > factor1 && img(i,j,2) < (factor3) && img(i,j,1) == max([img(i,j,1) img(i,j,2) img(i,j,3)]))
            C(i,j,1:3) = img(i,j,1:3); %Rot-Filter
        elseif (img(i,j,3) > factor2 && img(i,j,2) < (factor3) && img(i,j,3) == max([img(i,j,1) img(i,j,2) img(i,j,3)]))
            C(i,j,1:3) = img(i,j,1:3); %Blau-Filter
        else
            C(i,j,1:3) = 255;   %was nicht rot oder blau = weiß   
        end
     end
end
%% "Salzstreuereffekt" entfernen
C = medfilt2(rgb2gray(uint8(C)));
end