teambeef/raze
0
0
Fork 0
mirror of https://github.com/DrBeef/Raze.git synced 2024-11-17 09:51:39 +00:00
Code Issues Projects Releases Packages Wiki Activity
raze/source/exhumed/src/light.cpp
Christoph Oelckers 8d11990494 - more work on making Exhumed compile. 
Almost done, down to 20 compile errors.
2019-11-24 13:59:36 +01:00

749 lines
15 KiB
C++
Raw Blame History

//-------------------------------------------------------------------------
/*
Copyright (C) 2010-2019 EDuke32 developers and contributors
Copyright (C) 2019 sirlemonhead, Nuke.YKT
This file is part of PCExhumed.
PCExhumed is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License version 2
as published by the Free Software Foundation.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
//-------------------------------------------------------------------------
#include "ns.h"
#include "light.h"
#include "engine.h"
#include "exhumed.h"
#include "view.h"
#include "cd.h"
#include "lighting.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
BEGIN_PS_NS
#define kMaxGrads 12
const char *GradList[kMaxGrads] = {
"normal.rmp",
"nodim.rmp",
"torch.rmp",
"notorch.rmp",
"brite.rmp",
"redbrite.rmp",
"grnbrite.rmp",
"normal.rmp",
"nodim.rmp",
"torch.rmp",
"notorch.rmp",
"brite.rmp"
};
int rtint = 0;
int gtint = 0;
int btint = 0;
//char *origpalookup[kMaxPalookups];
//unsigned char curpal[768];
//unsigned char kenpal[768];
palette_t *fadedestpal;
palette_t *fadecurpal;
short nPalDelay;
short nPalDiff;
short overscanindex;
int bGreenPal = 0;
// keep a local copy of the palette that would have been sent to the VGA display adapter
uint8_t vgaPalette[768];
void MyLoadPalette()
{
//int hFile = kopen4load("PALETTE.DAT", 1);
//if (hFile == -1)
//{
// initprintf("Error reading palette 'PALETTE.DAT'\n");
// return;
//}
//
//kread(hFile, kenpal, sizeof(kenpal));
//kclose(hFile);
videoSetPalette(0, BASEPAL, 0);
SetOverscan(BASEPAL);
}
int LoadPaletteLookups()
{
uint8_t buffer[256*64];
numshades = 64;
for (int i = 0; i < kMaxGrads; i++)
{
auto hFile = kopenFileReader(GradList[i], 1);
if (!hFile.isOpen())
{
initprintf("Error reading palette lookup '%s'\n", GradList[i]);
return 0;
}
hFile.Read(buffer, 256*64);
// TODO: dumb hack
if (palookup[i])
ALIGNED_FREE_AND_NULL(palookup[i]);
paletteSetLookupTable(i, buffer);
// origpalookup[i] = palookup[i];
bGreenPal = 0;
#ifdef USE_OPENGL
/*
// Very rough approximation...
palookupfogfactor[kPalNormal] = 1.f;
palookupfogfactor[kPalNoDim] = 0.f;
palookupfogfactor[kPalTorch] = 0.36f;
palookupfogfactor[kPalNoTorch] = 0.15f;
palookupfogfactor[kPalBrite] = 2.f;
palookupfogfactor[kPalRedBrite] = 0.36f;
palookupfog[kPalRedBrite] = { 248, 32, 0, 0 };
hicsetpalettetint(kPalRedBrite, 255, 255, 255, 248, 32, 0, 0);
palookupfog[kPalGreenBrite] = { 248, 32, 0, 0 };
palookupfogfactor[kPalGreenBrite] = 0.f;
hicsetpalettetint(kPalGreenBrite, 100, 200, 100, 0, 0, 0, 0);
palookupfogfactor[kPalNormal2] = 1.f;
palookupfogfactor[kPalNoDim2] = 0.f;
palookupfogfactor[kPalTorch2] = 0.36f;
palookupfogfactor[kPalNoTorch2] = 0.15f;
palookupfogfactor[kPalBrite2] = 2.f;
*/
#endif
}
return 1;
}
void SetGreenPal()
{
bGreenPal = 1;
// for (int i = 0; i < kMaxGrads; i++)
// {
// palookup[i] = palookup[6];
// }
//
// palookup[5] = origpalookup[5];
}
void RestoreGreenPal()
{
bGreenPal = 0;
// for (int i = 0; i < kMaxGrads; i++)
// {
// palookup[i] = origpalookup[i];
// }
}
int HavePLURemap()
{
return bGreenPal || bTorch;
}
uint8_t RemapPLU(uint8_t pal)
{
if (bGreenPal)
{
if (pal != kPalRedBrite)
pal = kPalGreenBrite;
}
else if (bTorch)
{
switch (pal)
{
case kPalTorch:
pal = kPalNoTorch;
break;
case kPalNoTorch:
pal = kPalTorch;
break;
case kPalTorch2:
pal = kPalNoTorch2;
break;
case kPalNoTorch2:
pal = kPalTorch2;
break;
}
}
return pal;
}
void WaitVBL()
{
#ifdef __WATCOMC__
while (!(inp(0x3da) & 8));
#endif
}
//void MySetPalette(unsigned char *palette)
//{
// WaitVBL();
//
// // TODO
// kensetpalette(palette);
//
// memcpy(vgaPalette, palette, sizeof(vgaPalette));
//}
//void GetCurPal(unsigned char *palette)
//{
// if (!palette) {
// memcpy(curpal, vgaPalette, sizeof(curpal));
// }
// else {
// memcpy(palette, vgaPalette, sizeof(curpal));
// }
//}
void GrabPalette()
{
SetOverscan(BASEPAL);
videoSetPalette(0, BASEPAL, 2+8);
nPalDiff = 0;
nPalDelay = 0;
btint = 0;
gtint = 0;
rtint = 0;
#ifdef USE_OPENGL
videoTintBlood(0, 0, 0);
#endif
}
void BlackOut()
{
for (int i = 0; i < 256; i++)
{
curpalettefaded[i].r = 0;
curpalettefaded[i].g = 0;
curpalettefaded[i].b = 0;
}
videoUpdatePalette(0, 256);
g_lastpalettesum = -1;
#ifdef USE_OPENGL
videoTintBlood(0, 0, 0);
#endif
}
void RestorePalette()
{
videoSetPalette(0, BASEPAL, 2+8);
#ifdef USE_OPENGL
videoTintBlood(0, 0, 0);
#endif
}
void WaitTicks(int nTicks)
{
if (htimer)
{
nTicks += (int)totalclock;
while (nTicks > (int)totalclock) { HandleAsync(); }
}
else
{
while (nTicks > 0) {
nTicks--;
WaitVBL();
}
}
}
// unused
void DoFadeToRed()
{
#ifdef USE_OPENGL
if (videoGetRenderMode() >= REND_POLYMOST)
{
videoTintBlood(-255, -255, -255);
videoNextPage();
return;
}
#endif
for (int i = 0; i < 256; i++)
{
if (curpalettefaded[i].g > 0)
{
curpalettefaded[i].g -= 4;
if (curpalettefaded[i].g < 0)
curpalettefaded[i].g = 0;
}
if (curpalettefaded[i].b > 0)
{
curpalettefaded[i].b -= 4;
if (curpalettefaded[i].b < 0)
curpalettefaded[i].b = 0;
}
}
videoUpdatePalette(0, 256);
g_lastpalettesum = -1;
}
void FadeToWhite()
{
int ebx = 0;
#ifdef USE_OPENGL
if (videoGetRenderMode() >= REND_POLYMOST)
{
videoTintBlood(255, 255, 255);
videoNextPage();
return;
}
#endif
for (int i = 0; i < 64; i++)
{
palette_t *pPal = curpalettefaded;
for (int j = 0; j < 256; j++)
{
if (pPal->r < 255)
{
pPal->r += 4;
if (pPal->r > 255)
pPal->r = 255;
ebx++;
}
if (pPal->g < 255)
{
pPal->g += 4;
if (pPal->g > 255)
pPal->g = 255;
ebx++;
}
if (pPal->b < 255)
{
pPal->b += 4;
if (pPal->b > 255)
pPal->b = 255;
ebx++;
}
pPal++;
}
videoUpdatePalette(0, 256);
g_lastpalettesum = -1;
WaitTicks(2);
// need to page flip in each iteration of the loop for non DOS version
videoNextPage();
if (!ebx) {
return;
}
}
}
void FadeOut(int bFadeMusic)
{
if (bFadeMusic) {
StartfadeCDaudio();
}
#ifdef USE_OPENGL
if (videoGetRenderMode() >= REND_POLYMOST)
{
videoTintBlood(-255, -255, -255);
videoNextPage();
}
else
#endif
for (int i = 64; i > 0; i--)
{
int v4 = 0;
palette_t *pPal = curpalettefaded;
for (int j = 0; j < 256; j++)
{
if (pPal->r > 0)
{
pPal->r -= 4;
if (pPal->r < 0)
pPal->r = 0;
v4++;
}
if (pPal->g > 0)
{
pPal->g -= 4;
if (pPal->g < 0)
pPal->g = 0;
v4++;
}
if (pPal->b > 0)
{
pPal->b -= 4;
if (pPal->b < 0)
pPal->b = 0;
v4++;
}
pPal++;
}
videoUpdatePalette(0, 256);
g_lastpalettesum = -1;
WaitTicks(2);
// need to page flip in each iteration of the loop for non DOS version
videoNextPage();
if (v4 == 0) {
break;
}
if (bFadeMusic) {
StepFadeCDaudio();
}
}
if (bFadeMusic) {
while (StepFadeCDaudio() != 0) {}
}
EraseScreen(overscanindex);
}
void StartFadeIn()
{
//fadedestpal = curpalette;
//fadecurpal = curpal;
}
int DoFadeIn()
{
#ifdef USE_OPENGL
if (videoGetRenderMode() >= REND_POLYMOST)
{
paletteSetColorTable(curbasepal, basepaltable[BASEPAL]);
videoSetPalette(0, curbasepal, 2+8);
videoNextPage();
return 0;
}
#endif
int v2 = 0;
for (int i = 0; i < 256; i++)
{
if (curpalettefaded[i].r != curpalette[i].r)
{
v2++;
int diff = curpalette[i].r - curpalettefaded[i].r;
if (klabs(diff) < 4)
curpalettefaded[i].r = curpalette[i].r;
else
curpalettefaded[i].r += 4 * ksgn(diff);
}
if (curpalettefaded[i].g != curpalette[i].g)
{
v2++;
int diff = curpalette[i].g - curpalettefaded[i].g;
if (klabs(diff) < 4)
curpalettefaded[i].g = curpalette[i].g;
else
curpalettefaded[i].g += 4 * ksgn(diff);
}
if (curpalettefaded[i].b != curpalette[i].b)
{
v2++;
int diff = curpalette[i].b - curpalettefaded[i].b;
if (klabs(diff) < 4)
curpalettefaded[i].b = curpalette[i].b;
else
curpalettefaded[i].b += 4 * ksgn(diff);
}
}
videoUpdatePalette(0, 256);
g_lastpalettesum = -1;
return v2;
}
void FadeIn()
{
#ifdef USE_OPENGL
if (videoGetRenderMode() >= REND_POLYMOST)
{
videoSetPalette(0, BASEPAL, 2+8);
videoNextPage();
return;
}
#endif
StartFadeIn();
int val;
do
{
val = DoFadeIn();
WaitTicks(2);
// need to page flip in each iteration of the loop for non DOS version
videoNextPage();
} while (val);
}
void FixPalette()
{
if (!nPalDiff) {
return;
}
if (nPalDelay > 0)
{
nPalDelay--;
return;
}
nPalDelay = 5;
#ifdef USE_OPENGL
if (videoGetRenderMode() == REND_CLASSIC)
#endif
for (int i = 0; i < 256; i++)
{
short nVal;
nVal = curpalettefaded[i].r - curpalette[i].r;
if (nVal > 0)
{
if (nVal > 20)
{
curpalettefaded[i].r -= 20;
}
else
{
curpalettefaded[i].r = curpalette[i].r;
}
}
nVal = curpalettefaded[i].g - curpalette[i].g;
if (nVal > 0)
{
if (nVal > 20)
{
curpalettefaded[i].g -= 20;
}
else
{
curpalettefaded[i].g = curpalette[i].g;
}
}
nVal = curpalettefaded[i].b - curpalette[i].b;
if (nVal > 0)
{
if (nVal > 20)
{
curpalettefaded[i].b -= 20;
}
else
{
curpalettefaded[i].b = curpalette[i].b;
}
}
}
nPalDiff -= 20;
gtint -= 20;
rtint -= 20;
btint -= 20;
if (gtint < 0) {
gtint = 0;
}
if (rtint < 0) {
rtint = 0;
}
if (btint < 0) {
btint = 0;
}
if (nPalDiff < 0) {
nPalDiff = 0;
}
#ifdef USE_OPENGL
if (videoGetRenderMode() >= REND_POLYMOST) videoTintBlood(rtint, gtint, btint);
else
#endif
{
videoUpdatePalette(0, 256);
g_lastpalettesum = -1;
}
}
void TintPalette(int r, int g, int b)
{
palette_t *pPal = curpalettefaded;
if (bCamera) {
return;
}
// range limit R between 20 and 255 if positive
if (r > 255)
{
r = 255;
}
else
{
if (r && r < 20) {
r = 20;
}
}
// range limit G between 20 and 255 if positive
if (g > 255)
{
g = 255;
}
else
{
if (g && g < 20) {
g = 20;
}
}
// range limit B between 20 and 255 if positive
if (b > 255)
{
b = 255;
}
else
{
if (b && b < 20) {
b = 20;
}
}
// loc_17EFA
if (g && gtint > 32) {
return;
}
gtint += g;
if (r && rtint > 256) {
return;
}
rtint += r;
btint += b;
// do not modify r, g or b variables from this point on
int nVal;
// loc_17F49
if (klabs(r) > klabs(g)) {
nVal = klabs(r);
}
else {
nVal = klabs(g);
}
if (nVal < klabs(b)) {
nVal = klabs(b);
}
nPalDiff += nVal;
#ifdef USE_OPENGL
if (videoGetRenderMode() >= REND_POLYMOST) videoTintBlood(rtint, gtint, btint);
else
#endif
for (int i = 0; i < 256; i++)
{
nVal = pPal->r + r;
if (nVal > 255) {
nVal = 255;
}
pPal->r = nVal;
nVal = pPal->g + g;
if (nVal > 255) {
nVal = 255;
}
pPal->g = nVal;
nVal = pPal->b + b;
if (nVal > 255) {
nVal = 255;
}
pPal->b = nVal;
pPal++;
}
nPalDelay = 0;
}
void DoOverscanSet(short someval)
{
#ifdef __WATCOMC__
union REGS regs;
regs.h.al = 1;
regs.h.ah = 0x10;
regs.h.ch = someval;
int386(0x10, &regs, &regs);
#endif
}
// unused
void SetWhiteOverscan()
{
}
void SetOverscan(int id)
{
if (basepaltable[id] == NULL)
return;
uint8_t *palette = basepaltable[id];
int edi = 1000;
overscanindex = 0;
for (int i = 0; i < 256; i++)
{
int ebx = 0;
for (int j = 0; j < 3; j++)
{
uint8_t cl = *palette;
palette++;
ebx += cl;
}
if (ebx < edi)
{
edi = ebx;
overscanindex = i;
}
}
DoOverscanSet(overscanindex);
}
END_PS_NS
Reference in a new issue View git blame Copy permalink