/***********************************************************************************
 *                                                                                 *
 *       Programa: croma 1.1    Proyecto Fin de Carrera  (c) Angel Soria 1994       *
 *                                                                                 *
 *           Superpone dos ficheros PICT teniendo en cuenta el canal Alfa          *
 *                                                                                 *
 ***********************************************************************************/
 
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>
#include "pict.h"		/* pict.h (c) SPD Soft */

#ifdef THINK_C
#include "console.h"		/* !! Solo para pruebas en MacIntosh !! 	*/				/* Debe definirse en el proyecto: MAC	*/
#endif				

#define MAXCAD 100		/* Longitud maxima de las cadenas +1 		*/
#define TRUE 1			/* Para poder trabajar con booleanos  		*/
#define FALSE 0			/* Para poder trabajar con booleanos  		*/
#define ALFA 0			/* Si ALFA = 0 se eliminara el canal alfa	*/

/* Nombres y extensiones de los ficheros */

#define EXTENSION_P ".pict"	/* Extension del fichero PICT resultante	*/

#define MALLOC(n,x) ((x*)malloc((n)*sizeof(x)))



/***********************************************************************************/
void error(mensaje1,mensaje2)
char *mensaje1,*mensaje2;
/***********************************************************************************/

/* Da un mensaje de error.*/
/*------------------------*/
{
	printf("\tERROR: %s%s.\n",mensaje1,mensaje2);
}



/***********************************************************************************/
/*				Programa Principal				   */
/***********************************************************************************/

main(argc,argv)
int argc;
char *argv[];
{
	Pict pict1;		/* Fichero PICT original.			*/
	Pict pict2;		/* Fichero PICT original.			*/
	Pict pict;		/* Fichero PICT resultante.			*/
 	char nomb1[MAXCAD];	/* Nombre del fichero pict1. 			*/
 	char nomb2[MAXCAD];	/* Nombre del fichero pict2. 			*/
 	char nomb[MAXCAD];	/* Nombre del fichero pict. 			*/
	U_char *pix1;		/* Puntos que forman la linea origen en curso	*/
	U_char *pix2;		/* Puntos que forman la linea origen en curso	*/
	U_char *pix;		/* Puntos que forman la linea resultante	*/
	int  lx1,ly1;		/* Tama–o de la picture1.			*/
	int  lx2,ly2;		/* Tama–o de la picture2.			*/
	int  mode1,mode2;	/* Modo de las imagenes de entrada		*/
	int  ncmp1,ncmp2;	/* Numero de componenetes de color		*/
	int  y;			/* Linea en proceso de conversion.		*/
	int  i;			/* Pixel de la linea en curso.			*/
	int  j;			/* Componente de la linea en curso.		*/
 	int  verb;		/* Si es TRUE saca comentarios en la pantalla	*/
	float porcent;		/* Porcentaje del fichero que se ha convertido	*/
	int  aux1,aux2,aux3;	/* Variables auxiliares.			*/
	int  al1,al2;		/* Variables auxiliares.			*/
	U_char	alf1,res;	/* Variables auxiliares.			*/
	int z;

#ifdef THINK_C
	argc = ccommand(&argv);
#endif	
	if ( (argc>2)&&(!strcmp("-v",*++argv)) )	
	{
		--argc;
		verb=FALSE;
	}
	else
	{
		--argv;
		verb=TRUE;
	}
	if (verb)
	{
		printf("\n###  Ejecutando croma v1.1 ###\n");
		printf("\nFuncion croma para PICT's.\n");
		printf("(c) 1993 Angel Soria.\n\n");
	}

	if (argc<4)
	{
		error("Faltan parametros.","");
		printf("\nUso: croma [-v] [fuente1 fuente2 resultado].\n\n");
		printf("Se utiliza el canal alfa de fuente1 para realizar la superposicion\n");
		printf("sobre fuente2. El resulatado tiene el canal alfa de fuente2.\n\n");
		printf("fuente1 y fuente2 deben tener el mismo tama–o de imagen.\n\n");
		printf("-v indica sin comentarios, \n");
		exit(1);
	}
	
	  	
	/* Abro el primer fichero */
	/*------------------------*/
	  	
	strcpy(nomb1,*++argv);
  
	if( (pict1=pict_open(nomb1,P_READ,0,0,0,NULL))==NULL)
	{
		error("Imposible abrir: ",nomb1);
		goto salir1;
	}
	lx1=pict_width(pict1);
	ly1=pict_height(pict1);
	mode1=pict_mode(pict1);
	ncmp1=pict_n_comp(pict1);
	al1=ncmp1-3;
	if ( (mode1==M_MONO)||(mode1==M_RGB8) )
	{
		error("Modo no soportado en:",nomb1);
		goto salir2;
	}
	
	/* Abro el segundo fichero */
	/*------------------------*/

	strcpy(nomb2,*++argv);
  
	if( (pict2=pict_open(nomb2,P_READ,0,0,0,NULL))==NULL)
	{
		error("Imposible abrir: ",nomb2);
		goto salir2;
	}
	lx2=pict_width(pict2);
	ly2=pict_height(pict2);
	mode2=pict_mode(pict2);
	ncmp2=pict_n_comp(pict2);
	al2=ncmp2-3;
	if ( (mode2==M_MONO)||(mode2==M_RGB8) )
	{
		error("Modo no soportado en:",nomb2);
		goto salir3;
	}

	/* Comparo las pict y abro la nueva */
	/*----------------------------------*/
	
	strcpy(nomb,*++argv);
	
	if ( (lx1!=lx2)||(ly1!=ly2) )
	{
		error("Las dimansiones de los PICT deben ser iguales","");
		goto salir3;
	}

	if( (pict=pict_open(nomb,P_WRITE,ly2,lx2,mode2,NULL))==NULL)
	{
		error("Imposible crear: ",nomb);
		goto salir3;
	}
	
	/* Reserva memoria */
	/*-----------------*/
	
	if( (pix1 = MALLOC(lx1*ncmp1,U_char)) == NULL)
	{
 		error("Imposible crear espacio en memoria para Datos","");
 		goto salir4;
 	}
	if( (pix2 = MALLOC(lx1*ncmp2,U_char)) == NULL)
	{
 		error("Imposible crear espacio en memoria para Datos","");
 		goto salir4;
 	}
	if( (pix = MALLOC(lx1*ncmp2,U_char)) == NULL)
	{
 		error("Imposible crear espacio en memoria para Datos","");
 		goto salir4;
 	}

	/* Bucle para generar el resultado */
	/*---------------------------------*/
	
	if (verb)
		printf("Generando \"%s\"... 00 %%  \r",nomb);	
	for(y=0; y<ly1; y++)
	{
		if ( (pict_get_line(pict1,pix1))!=lx1 )
		{
			error("Al leer del fichero:",nomb1);
			goto salir4;
		}
		if ( (pict_get_line(pict2,pix2))!=lx2 )
		{
			error("Al leer del fichero:",nomb2);
			goto salir4;
		}
		
		for(i=0; i<lx1; i++)
		{
			if (al1)		/* Componentes alfa de los puntos */
				alf1=pix1[i];
			else
				alf1=0;
			if (al2)
				pix[i]=pix2[i];
			for(j=0; j<3; j++)	/* Bucle para las componentes RGB */
			{
				aux1=pix1[i+(j+al1)*lx1];
				aux2=pix2[i+(j+al2)*lx2];
				aux3=( aux1*(0xFF-alf1) + aux2*alf1 ) / 0xFF;
				res=(U_char)aux3;
				pix[i+(j+al2)*lx2]=res;
			}
		}	 
		pict_put_line(pict,pix);
		if ((z++<30) && verb)
		{
			z=0;
			porcent=100*(y+1)/ly1;
			printf("Generando \"%s\"... %02.0f %%  \r",nomb,porcent);	
		}
	}
	if (verb)
		printf("Generando \"%s\"... 100 %%  \n",nomb);	
salir4:
	pict_close(pict);
salir3:
	pict_close(pict2);
salir2:
	pict_close(pict1);
salir1:	
	if (verb)
		printf("\n### Croma Finalizado ###\n\n");
}