% *** ---------------------------------------------------------------------------------------- *** %
% ***| Funcion que crea los archivos de salida 'results.txt' y 'results.bmp' con datos de    | *** %
% ***| interes del proceso de segmentacion y la imagen segmentada respectivamente            | *** %
% *** ---------------------------------------------------------------------------------------- *** %

function crear_resultados(filename,imag,filas,columnas,dist_default,timer,cont_clicks)

date = clock;                           % Captura del reloj

fid = fopen('results.txt','wt+');       % Apertura del fichero de escritura

% Escribiendo datos en el archivo de texto
fprintf(fid,'\n %d - %d - %d                                                                         %d:%d:%2.0f',date(3),date(2),date(1),date(4),date(5),date(6));
fprintf(fid,'\n ______________________________________________________________________________________________ \n\n');

fprintf(fid,'\n ******************************              DATA                ****************************** \n\n');
fprintf(fid,'\n Original image:   %s \n\n Size (px):   %d x %d \n',filename,columnas,filas);
fprintf(fid,'\n Marginal distance:   %d \n',dist_default);


fprintf(fid,'\n\n *****************************            RESULTS            ********************************** \n' );
fprintf(fid,'\n Number of points:   %d \n',cont_clicks);
fprintf(fid,'\n Segmentation time:   %4.4f seconds \n',timer);

fclose(fid);                            % Cierre del fichero de escritura


imwrite(imag,'results.bmp');            % Creacion del archivo imagen