#include <string.h>
#include <stdio.h>
#include <dir.h>
#include <dos.h>
#include <mem.h>
#include <fcntl.h>
#include <sys\stat.h>
#include <io.h>

typedef unsigned char byte;
unsigned        NUMLIGHTS;

byte    palette[768];
byte    far lightpalette[254][256];


/*
=====================
=
= RF_BuildLights
=
= 0 is full palette
= NUMLIGHTS     and NUMLIGHTS+1 are all black
=
=====================
*/

void    RF_BuildLights (void)
{
	int             i,l,c,test,table;
	int             red,green,blue;
	int             dist,bestdist,rdist,gdist,bdist,bestcolor;
	byte    *palptr, *palsrc;
	byte    far *screen;

	screen = MK_FP(0xa000,0);

	for (l=0;l<NUMLIGHTS;l++)
	{
//printf ("%i.",NUMLIGHTS-l);
		palsrc = palette;
		for (c=0;c<256;c++)
		{
			red = *palsrc++;
			green = *palsrc++;
			blue = *palsrc++;

			red = (red*(NUMLIGHTS-l)+NUMLIGHTS/2)/NUMLIGHTS;
			green = (green*(NUMLIGHTS-l)+NUMLIGHTS/2)/NUMLIGHTS;
			blue = (blue*(NUMLIGHTS-l)+NUMLIGHTS/2)/NUMLIGHTS;

		// find the closest color

			// TML -> added 11-12-94
			// Allows last 16 palette entries to be unafected
			// by shading and thus available for lighted tiles
			// such as flames, lamps, etc.

			if (c < 248)
			{
			  palptr = palette;
			  bestdist = 32000;
			  for (test=0;test<256;test++)
			  {
				rdist = (int)*palptr++ - red;
				gdist = (int)*palptr++ - green;
				bdist = (int)*palptr++ - blue;
				dist = rdist*rdist + gdist*gdist + bdist*bdist;
				if (dist<bestdist)
				{
					bestdist=dist;
					bestcolor = test;
				}
			  }
			}
			else
			  bestcolor = c;
			 

			lightpalette[l][c] = bestcolor;
		}
_fmemcpy (screen,lightpalette[l],256);
screen+=320;
_fmemcpy (screen,lightpalette[l],256);
screen+=320;
_fmemcpy (screen,lightpalette[l],256);
screen+=320;
	}
printf ("\n");
}



void extern LoadLBM(char *filename,int scrwidth,int graphflag);

/*
====================
=
= main
=
====================
*/

int main(int argc,char **argv)
{
	int             i,j,loop,handle;
	unsigned        writen;

	if (argc != 3)
	{
		printf ("lights picture.lbm lighttables\n");
		return 1;
	}

	LoadLBM(argv[1],1,1);

	_ES = FP_SEG(palette);
	_DX = FP_OFF(palette);
	_BX = 0;
	_CX = 0x100;
	_AX = 0x1017;
	geninterrupt(0x10);                     // get default palette

//
// write palette
//
	if ( (handle = open("palette.dat", O_BINARY | O_WRONLY | O_CREAT |
		O_TRUNC,S_IREAD | S_IWRITE) ) == -1)
	{
		perror ("Error opening output palette.dat");
		return 1;
	}

	write (handle,palette,sizeof(palette));
	close(handle);

//
// write light sources
//

//      printf ("Calculating diminished palettes...\n");

	NUMLIGHTS = atoi (argv[2]);
	RF_BuildLights ();


	if ( (handle = open("lights.dat", O_BINARY | O_WRONLY | O_CREAT |
		O_TRUNC,S_IREAD | S_IWRITE) ) == -1)
	{
		perror ("Error opening output lights.dat");
		return 1;
	}

	_dos_write (handle,&lightpalette[0][0],NUMLIGHTS*256,&writen);
	close(handle);

	bioskey (0);
	_AX = 3;
	geninterrupt(0x10);

	return 0;
}