165 lines
3.1 KiB
C
165 lines
3.1 KiB
C
#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;
|
|
}
|
|
|
|
|