function Rouge=FiltreRouge(img)
[m,n,t]=size(img);
Rouge=zeros(m,n,t);
for i=1:m
    for j=1:n
        if(img(i,j,1)>130&&img(i,j,2)<130&&img(i,j,3)<130)
            Rouge(i,j,1)=1;
        end
    end
end
return