#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#define LIN 1540
#define COL 2050
#define DIF 4
struct Registro
{
    int lin;
    int col;
    int max_val;
    char comentario[100];
    char tipo[3];
};
typedef struct Registro registro;
struct Rgb
{
   int r;
   int g;
   int b;
};
typedef struct Rgb cores;							
 int aux[LIN][COL];
 int mat[LIN][COL];
 registro reg;
 int fundo;
/*  *********************************************************************************************** */
char conectar(FILE **arq,char *nome,char *opc)
{
    /*Estou supondo que a opc é válida*/
    *arq=fopen(nome,opc);
    if(*arq!=NULL)
        return 1/*verdadeiro*/;
    else
        return 0/*falso*/;
}
//Media ponderada das cores primarias
/*  *********************************************************************************************** */
int gray (int r ,int g, int b)
{
 int valor;
 valor = (r*(0.3)) + (g*(0.59)) + (b*(0.11));
 return(valor);
}
//ler os arquivos de imagens
/*  *********************************************************************************************** */
void inicializar(char *nome_arq)
{
 int r,g,b;
 int i,j;
 FILE* arq;
 if (conectar(&arq,nome_arq,"r"))
  {
    fscanf(arq,"%s",&reg.tipo);
    fscanf(arq,"\n");
    fscanf(arq,"%[^\n]",&reg.comentario);
    fscanf(arq,"%d %d ",&reg.col,&reg.lin);
    fscanf(arq,"%d",&reg.max_val);
        for(i=0;i<reg.lin;i++)
          for(j=0;j<reg.col;j++)
            {
                fscanf(arq,"%d %d %d",&r,&g,&b);
                mat[i][j]=gray(r,g,b);
              }
   }
}
//procedimento que gera 
/*  ***********************************************************************************************
void diagrama_ppm()
{
 int i,j,r,g,b;
 FILE *arq;
 if (conectar(&arq,"graficoppm.txt","w"))
   {
       for (i=0;i<reg.lin;i++)
         for (j=0;j<reg.col;j++)
           fprintf(arq,"%d %d %d\n",mat[i][j].r,mat[i][j].g,mat[i][j].b);
     fclose(arq);
   }
}
//salva as alterações num arquivo com formato pgm
/*  *********************************************************************************************** */
void salvar_alteracao(char *nome)
{
   int i,j;
   FILE *arq;
   if (conectar(&arq,nome,"w"));
    {
        /* essas  tres linhas coloca no arquivo os detanhes do arquivo*/
        fprintf(arq,"P2");
        fprintf(arq,"\n");
        fprintf(arq,reg.comentario);
        fprintf(arq,"\n");
        fprintf(arq,"%d %d\n",reg.col,reg.lin);
        fprintf(arq,"%d\n",reg.max_val);
         for (i=0;i<reg.lin;i++)
            for (j=0;j<reg.col;j++)
               {
                fprintf(arq,"%d",aux[i][j]);
                fprintf(arq,"\n");
               }
        fclose(arq);
    }
}
/*Convertendo Imagem Colorida para Tons de Cinza*/
/*  ***********************************************************************************************/
void transformar_ppm_png()
{
 int i,j,num;
 char nome[10];
 FILE *arq;
 printf("********diga o nome do arquivo que deseja salvar********\n");
 scanf("%s",&nome);
 conectar(&arq,nome,"w");
 fprintf(arq,"P2");
 fprintf(arq,"\n");
 fprintf(arq,reg.comentario);
 fprintf(arq,"\n");
 fprintf(arq,"%d %d\n",reg.col,reg.lin);
 fprintf(arq,"%d\n",reg.max_val);
 for (i=0;i<reg.lin;i++)
  for(j=0;j<reg.col;j++)
      fprintf(arq,"%d\n",mat[i][j]);
 fclose(arq);
}
/*  ***********************************************************************************************/ 
/*calcula a intensidade das cores numa região escolhida, para definer fundos e sombras*/
int freg(int lin, int col)
{
 int i,j,cont,soma;
cont=soma=0;
for(i=lin  ;i<(lin+50);i++)
  for(j=col;j<(col+50);j++)
    {
     soma+=mat[i][j];
     cont+=1;  
    }
  return (soma/(cont));
}
//procedimento que calcular a diferença entre vizinhos
/*  ***********************************************************************************************/
int diferenca (int valor_mat,int i, int j)
{
  int num,resul;
  num=mat[i][j];
  if (num >= valor_mat)
    resul=num - valor_mat;
  else
    resul=valor_mat - num;
 return(resul);   
}

//procedimento que identifica cada pixel como fronteira 
/*  ***********************************************************************************************/
void verificar_fronteiras(int i,int j)
{
  int achou; 
  achou=0; 
  if((diferenca(mat[i+1][j],i,j)>DIF) && (diferenca(mat[i-1][j],i,j) > DIF) && (diferenca(mat[i][j+1],i,j)>DIF) &&   (diferenca(mat[i][j-1],i,j)>DIF)) 
   achou=1;  
 else
    if( (diferenca(mat[i+1][j+1],i,j)>DIF) && (diferenca(mat[i+1][j-1],i,j) > DIF) && (diferenca(mat[i-1][j+1],i,j)>DIF) && (diferenca(mat[i-1][j-1],i,j)>DIF))
     achou=1;
 if (achou)
   aux[i][j]=0;

}
//procedimento que gera um nova imagem apenas com fronteiras
/*  ***********************************************************************************************/
void bordas()
{
 int j,i,valor;
 fundo = freg(1000,100);
 for(i=0 ;i<reg.lin;i++)
   for(j=0;j<reg.col;j++)
      { 
       aux[i][j]=255;
       if((i>0) && (i<(reg.lin-1)))
         if ((j>0) && (j<(reg.col-1)))
           if ((fundo -10) > mat[i][j])
             verificar_fronteiras(i,j);
      }       
 salvar_alteracao("bordas5.pgm"); 
}
 /*********************************************************************************************** */
int  main()
{
 char nome[20];
 int i;
 printf("********diga o nome do arquivo que deseja trabalhar em ppm********\n");
 scanf("%s",&nome);
 inicializar(nome);
 do
      {
            system("cls");
        	printf ("\n\n*****Escolha a opção desejada******:\n\n");
        	printf ("\t(1)...achar bordas\n"); 
        	printf ("\t(2)...transformar o formato PPM em PGM\n");
        	printf ("\t(3)...escolher outro arquivo\n");
            printf ("\t(4)...sair do programa\n");
            scanf("%d",&i);
            switch (i)
               {
            	 case 1:bordas();
                 break;
        	 case 2:transformar_ppm_png();
                 break;
                 case 3:{
                        printf("diga o nome do arquivo\n");
                        scanf("%s",&nome);
                        inicializar(nome);
                        }
                 break;
                }
         } while ((i!=4));
}