function [ varargout ] = saveResult( varargin )
%UNTITLED2 Summary of this function goes here
%   saveResult( filedir_filename,source,resultat )
    narginchk(3,3);
   [filename,source, resultat]=varargin{:};
    savestd(source,filename);
    file=filename(1:end-4);
    exe=filename(end-4:end);
    for n=1:7
        
        switch n
           case 1 % grayMorph 
                titre ='_Morpho_denoise';
           case 2 % gradMag 
                titre ='Gradien_Magnitude';
           case 3% binMorph 
                titre ='_Morpho_Bin';
           case 4 % L  
                titre ='_Watershed';
           case 5 % Lrgb 
                titre ='_RGB_Region';
           case 6 % squ , skelton issu de la morpho mat
                titre ='Skelton';
           case 7 % SquMorpho, skelton issu  du(des) points de selection(s)
                titre ='_Skelton_Extract';
           case 8 % squ 
                titre ='_Skelton';
            otherwise
                disp('no display for this input');
        end
       savestd(resultat{n},[file titre exe]);
    end


end
function savestd(I, filename)
imwrite(I,filename);
end