mirror of
https://github.com/ZDoom/Raze.git
synced 2024-12-16 07:31:23 +00:00
cbe91be9ff
git-svn-id: https://svn.eduke32.com/eduke32@4661 1a8010ca-5511-0410-912e-c29ae57300e0
17855 lines
535 KiB
C
17855 lines
535 KiB
C
// "Build Engine & Tools" Copyright (c) 1993-1997 Ken Silverman
|
|
// Ken Silverman's official web site: "http://www.advsys.net/ken"
|
|
// See the included license file "BUILDLIC.TXT" for license info.
|
|
//
|
|
// This file has been modified from Ken Silverman's original release
|
|
// by Jonathon Fowler (jf@jonof.id.au)
|
|
|
|
|
|
#define ENGINE
|
|
|
|
#if (PNG_LIBPNG_VER > 10599)
|
|
# include <string.h>
|
|
#endif
|
|
#include "compat.h"
|
|
#include "build.h"
|
|
#include "pragmas.h"
|
|
#include "cache1d.h"
|
|
#include "a.h"
|
|
#include "osd.h"
|
|
#include "crc32.h"
|
|
#include "xxhash.h"
|
|
#include "lz4.h"
|
|
|
|
#include "baselayer.h"
|
|
#include "scriptfile.h"
|
|
|
|
#ifdef USE_OPENGL
|
|
# include "glbuild.h"
|
|
# include "mdsprite.h"
|
|
# ifdef POLYMER
|
|
# include "polymer.h"
|
|
# endif
|
|
# include "hightile.h"
|
|
# include "polymost.h"
|
|
# ifdef _WIN32
|
|
# define WIN32_LEAN_AND_MEAN
|
|
# include <windows.h>
|
|
# endif
|
|
#endif
|
|
|
|
#ifdef USE_LIBPNG
|
|
//# include <setjmp.h>
|
|
# include <png.h>
|
|
#endif
|
|
|
|
#include <math.h> // pow
|
|
|
|
#include "engine_priv.h"
|
|
|
|
#ifdef LUNATIC
|
|
# include "lunatic.h"
|
|
L_State g_engState;
|
|
#endif
|
|
|
|
#define CACHEAGETIME 16
|
|
#define CLASSIC_NONPOW2_YSIZE_SPRITES
|
|
|
|
#ifdef LUNATIC
|
|
# define CLASSIC_NONPOW2_YSIZE_WALLS
|
|
#endif
|
|
|
|
#if !defined(__arm__) && !defined(GEKKO)
|
|
#define HIGH_PRECISION_SPRITE
|
|
#endif
|
|
|
|
#define MULTI_COLUMN_VLINE
|
|
//#define DEBUG_TILESIZY_512
|
|
//#define DEBUG_TILEOFFSETS
|
|
|
|
#ifdef LUNATIC
|
|
# if !defined DEBUG_MAIN_ARRAYS
|
|
LUNATIC_EXTERN const int32_t engine_main_arrays_are_static = 0; // for Lunatic
|
|
# else
|
|
LUNATIC_EXTERN const int32_t engine_main_arrays_are_static = 1;
|
|
# endif
|
|
|
|
#if MAXSECTORS==MAXSECTORSV8
|
|
LUNATIC_EXTERN const int32_t engine_v8 = 1;
|
|
#else
|
|
LUNATIC_EXTERN const int32_t engine_v8 = 0;
|
|
#endif
|
|
#endif
|
|
|
|
#ifdef DEBUGGINGAIDS
|
|
float debug1, debug2;
|
|
#endif
|
|
|
|
int32_t mapversion=7; // JBF 20040211: default mapversion to 7
|
|
int32_t g_loadedMapVersion = -1; // -1: none (e.g. started new)
|
|
|
|
static int32_t get_mapversion(void);
|
|
|
|
// Handle nonpow2-ysize walls the old way?
|
|
static inline int32_t oldnonpow2(void)
|
|
{
|
|
#if !defined CLASSIC_NONPOW2_YSIZE_WALLS
|
|
return 1;
|
|
#else
|
|
return (g_loadedMapVersion < 10);
|
|
#endif
|
|
}
|
|
|
|
static void drawpixel_safe(void *s, char a)
|
|
{
|
|
#if defined __GNUC__
|
|
if (__builtin_expect((intptr_t)s >= frameplace && (intptr_t)s < frameplace+bytesperline*ydim, 1))
|
|
#else
|
|
if ((intptr_t)s >= frameplace && (intptr_t)s < frameplace+bytesperline*ydim)
|
|
#endif
|
|
drawpixel(s, a);
|
|
#ifdef DEBUGGINGAIDS
|
|
else
|
|
{
|
|
const char c = editorcolors[15];
|
|
|
|
drawpixel((intptr_t *)frameplace, c);
|
|
drawpixel((intptr_t *)frameplace+1, c);
|
|
drawpixel((intptr_t *)frameplace+2, c);
|
|
drawpixel((intptr_t *)frameplace+bytesperline, c);
|
|
drawpixel((intptr_t *)frameplace+bytesperline+1, c);
|
|
drawpixel((intptr_t *)frameplace+bytesperline+2, c);
|
|
drawpixel((intptr_t *)frameplace+2*bytesperline, c);
|
|
drawpixel((intptr_t *)frameplace+2*bytesperline+1, c);
|
|
drawpixel((intptr_t *)frameplace+2*bytesperline+2, c);
|
|
}
|
|
#endif
|
|
}
|
|
|
|
//void loadvoxel(int32_t voxindex) { UNREFERENCED_PARAMATER(voxindex); }
|
|
int16_t tiletovox[MAXTILES];
|
|
int32_t usevoxels = 1;
|
|
//#define kloadvoxel loadvoxel
|
|
|
|
int32_t novoxmips = 1;
|
|
int32_t editorgridextent = 131072;
|
|
|
|
//These variables need to be copied into BUILD
|
|
#define MAXXSIZ 256
|
|
#define MAXYSIZ 256
|
|
#define MAXZSIZ 255
|
|
#define MAXVOXMIPS 5
|
|
intptr_t voxoff[MAXVOXELS][MAXVOXMIPS]; // used in KenBuild
|
|
static char voxlock[MAXVOXELS][MAXVOXMIPS];
|
|
int32_t voxscale[MAXVOXELS];
|
|
|
|
static int32_t ggxinc[MAXXSIZ+1], ggyinc[MAXXSIZ+1];
|
|
static int32_t lowrecip[1024], nytooclose;
|
|
static const int32_t nytoofar = 65536*16384-1048576;
|
|
static uint32_t distrecip[65536+256];
|
|
|
|
static int32_t *lookups = NULL;
|
|
static int32_t dommxoverlay = 1, beforedrawrooms = 1;
|
|
int32_t indrawroomsandmasks = 0;
|
|
|
|
static int32_t oxdimen = -1, oviewingrange = -1, oxyaspect = -1;
|
|
|
|
// r_usenewaspect is the cvar, newaspect_enable to trigger the new behaviour in the code
|
|
int32_t r_usenewaspect = 1, newaspect_enable=0;
|
|
uint32_t r_screenxy = 0;
|
|
|
|
int32_t curbrightness = 0, gammabrightness = 0;
|
|
|
|
float vid_gamma = DEFAULT_GAMMA;
|
|
float vid_contrast = DEFAULT_CONTRAST;
|
|
float vid_brightness = DEFAULT_BRIGHTNESS;
|
|
|
|
//Textured Map variables
|
|
static char globalpolytype;
|
|
static int16_t *dotp1[MAXYDIM], *dotp2[MAXYDIM];
|
|
|
|
static int8_t tempbuf[MAXWALLS];
|
|
|
|
// referenced from asm
|
|
#if !defined(NOASM) && defined __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
int32_t ebpbak, espbak;
|
|
int32_t reciptable[2048], fpuasm;
|
|
intptr_t asm1, asm2, asm3, asm4, palookupoffse[4];
|
|
uint32_t vplce[4];
|
|
int32_t vince[4];
|
|
intptr_t bufplce[4];
|
|
int32_t globaltilesizy;
|
|
int32_t globalx1, globaly2, globalx3, globaly3;
|
|
#if !defined(NOASM) && defined __cplusplus
|
|
};
|
|
#endif
|
|
|
|
static intptr_t slopalookup[16384]; // was 2048
|
|
#if defined(USE_OPENGL)
|
|
palette_t palookupfog[MAXPALOOKUPS];
|
|
#endif
|
|
|
|
static void *pic = NULL;
|
|
|
|
// The tile file number (tilesXXX <- this) of each tile:
|
|
// 0 <= . < MAXARTFILES_BASE: tile is in a "base" ART file
|
|
// MAXARTFILES_BASE <= . < MAXARTFILES_TOTAL: tile is in a map-specific ART file
|
|
static uint8_t tilefilenum[MAXTILES];
|
|
EDUKE32_STATIC_ASSERT(MAXARTFILES_TOTAL <= 256);
|
|
|
|
static int32_t tilefileoffs[MAXTILES];
|
|
static int32_t lastageclock;
|
|
|
|
// Backup tilefilenum[] and tilefileoffs[]. These get allocated only when
|
|
// necessary (have per-map ART files).
|
|
static uint8_t *g_bakTileFileNum;
|
|
static int32_t *g_bakTileFileOffs;
|
|
static vec2_t *g_bakTileSiz;
|
|
static picanm_t *g_bakPicAnm;
|
|
// NOTE: picsiz[] is not backed up, but recalculated when necessary.
|
|
|
|
//static int32_t artsize = 0;
|
|
static int32_t cachesize = 0;
|
|
|
|
// Whole ART file contents loaded from ZIPs in memory.
|
|
static char *artptrs[MAXARTFILES_TOTAL];
|
|
|
|
static int32_t no_radarang2 = 0;
|
|
static int16_t radarang[1280], radarang2[MAXXDIM];
|
|
|
|
uint16_t ATTRIBUTE((used)) sqrtable[4096], ATTRIBUTE((used)) shlookup[4096+256];
|
|
const char pow2char[8] = {1,2,4,8,16,32,64,128};
|
|
const int32_t pow2long[32] =
|
|
{
|
|
1, 2, 4, 8,
|
|
16, 32, 64, 128,
|
|
256, 512, 1024, 2048,
|
|
4096, 8192, 16384, 32768,
|
|
65536, 131072, 262144, 524288,
|
|
1048576, 2097152, 4194304, 8388608,
|
|
16777216, 33554432, 67108864, 134217728,
|
|
268435456, 536870912, 1073741824, 2147483647
|
|
};
|
|
|
|
char britable[16][256]; // JBF 20040207: full 8bit precision
|
|
|
|
extern char textfont[2048], smalltextfont[2048];
|
|
|
|
static char kensmessage[128];
|
|
const char *engineerrstr = "No error";
|
|
|
|
int32_t showfirstwall=0;
|
|
int32_t showheightindicators=1;
|
|
int32_t circlewall=-1;
|
|
|
|
int32_t whitecol;
|
|
|
|
#ifdef POLYMER
|
|
static int16_t maphacklightcnt=0;
|
|
static int16_t maphacklight[PR_MAXLIGHTS];
|
|
#endif
|
|
|
|
// forward refs
|
|
int32_t getscreenvdisp(int32_t bz, int32_t zoome);
|
|
void screencoords(int32_t *xres, int32_t *yres, int32_t x, int32_t y, int32_t zoome);
|
|
|
|
static void scansector(int16_t startsectnum);
|
|
static void draw_rainbow_background(void);
|
|
|
|
int16_t editstatus = 0;
|
|
static int32_t global100horiz; // (-100..300)-scale horiz (the one passed to drawrooms)
|
|
|
|
|
|
////////// YAX //////////
|
|
|
|
int32_t numgraysects = 0;
|
|
uint8_t graysectbitmap[MAXSECTORS>>3];
|
|
uint8_t graywallbitmap[MAXWALLS>>3];
|
|
int32_t autogray = 0, showinnergray = 1;
|
|
|
|
//#define YAX_DEBUG_YMOSTS
|
|
|
|
#ifdef YAX_DEBUG
|
|
// XXX: This could be replaced with the use of gethiticks().
|
|
double u64tickspersec;
|
|
#endif
|
|
#ifdef ENGINE_SCREENSHOT_DEBUG
|
|
int32_t engine_screenshot = 0;
|
|
#endif
|
|
|
|
int32_t get_alwaysshowgray(void)
|
|
{
|
|
return showinnergray || !(editorzrange[0]==INT32_MIN && editorzrange[1]==INT32_MAX);
|
|
}
|
|
|
|
void yax_updategrays(int32_t posze)
|
|
{
|
|
int32_t i, j, k=1;
|
|
#ifdef YAX_ENABLE
|
|
int32_t mingoodz=INT32_MAX, maxgoodz=INT32_MIN;
|
|
#else
|
|
UNREFERENCED_PARAMETER(posze);
|
|
#endif
|
|
|
|
Bmemset(graysectbitmap, 0, sizeof(graysectbitmap));
|
|
Bmemset(graywallbitmap, 0, sizeof(graywallbitmap));
|
|
|
|
for (i=0; i<numsectors; i++)
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
int16_t cb, fb;
|
|
|
|
yax_getbunches(i, &cb, &fb);
|
|
// update grayouts due to yax --v-- has to be half-open --v--
|
|
// because only one level should v be ever active v
|
|
k = ((cb<0 || sector[i].ceilingz < posze) && (fb<0 || posze <= sector[i].floorz));
|
|
if (autogray && (cb>=0 || fb>=0) && (sector[i].ceilingz <= posze && posze <= sector[i].floorz))
|
|
{
|
|
mingoodz = min(mingoodz, sector[i].ceilingz);
|
|
maxgoodz = max(maxgoodz, sector[i].floorz);
|
|
}
|
|
#endif
|
|
// update grayouts due to editorzrange
|
|
k &= (sector[i].ceilingz >= editorzrange[0] && sector[i].floorz <= editorzrange[1]);
|
|
|
|
if (!k) // outside bounds, gray out!
|
|
graysectbitmap[i>>3] |= (1<<(i&7));
|
|
}
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (autogray && mingoodz<=maxgoodz)
|
|
{
|
|
for (i=0; i<numsectors; i++)
|
|
if (!(mingoodz <= sector[i].ceilingz && sector[i].floorz <= maxgoodz))
|
|
graysectbitmap[i>>3] |= (1<<(i&7));
|
|
}
|
|
#endif
|
|
|
|
numgraysects = 0;
|
|
for (i=0; i<numsectors; i++)
|
|
{
|
|
if (graysectbitmap[i>>3]&(1<<(i&7)))
|
|
{
|
|
numgraysects++;
|
|
for (j=sector[i].wallptr; j<sector[i].wallptr+sector[i].wallnum; j++)
|
|
graywallbitmap[j>>3] |= (1<<(j&7));
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
#if !defined YAX_ENABLE
|
|
# warning Non-TROR builds are supported only for debugging. Expect savegame breakage etc...
|
|
#endif
|
|
|
|
#ifdef YAX_ENABLE
|
|
// all references to floor/ceiling bunchnums should be through the
|
|
// get/set functions!
|
|
|
|
int32_t g_nodraw = 0;
|
|
int32_t scansector_retfast = 0;
|
|
static int32_t scansector_collectsprites = 1;
|
|
int32_t yax_globalcf = -1, yax_nomaskpass=0, yax_nomaskdidit; // engine internal
|
|
int32_t r_tror_nomaskpass = 1; // cvar
|
|
int32_t yax_globallev = YAX_MAXDRAWS;
|
|
int32_t yax_globalbunch = -1;
|
|
|
|
// duplicated tsprites
|
|
// [i]:
|
|
// i==MAXDRAWS: base level
|
|
// i<MAXDRAWS: MAXDRAWS-i-1 is level towards ceiling
|
|
// i>MAXDRAWS: i-MAXDRAWS-1 is level towards floor
|
|
static int16_t yax_spritesortcnt[1 + 2*YAX_MAXDRAWS];
|
|
static uint16_t yax_tsprite[1 + 2*YAX_MAXDRAWS][MAXSPRITESONSCREEN];
|
|
static uint8_t yax_tsprfrombunch[1 + 2*YAX_MAXDRAWS][MAXSPRITESONSCREEN];
|
|
|
|
// drawn sectors
|
|
uint8_t yax_gotsector[MAXSECTORS>>3]; // engine internal
|
|
|
|
# if !defined NEW_MAP_FORMAT
|
|
// Game-time YAX data structures, V7-V9 map formats.
|
|
int16_t yax_bunchnum[MAXSECTORS][2];
|
|
int16_t yax_nextwall[MAXWALLS][2];
|
|
|
|
static int32_t yax_islockededge(int32_t line, int32_t cf)
|
|
{
|
|
return !!(wall[line].cstat&(YAX_NEXTWALLBIT(cf)));
|
|
}
|
|
|
|
#define YAX_PTRBUNCHNUM(Ptr, Sect, Cf) (*(&Ptr[Sect].ceilingxpanning + 8*Cf))
|
|
#define YAX_BUNCHNUM(Sect, Cf) YAX_PTRBUNCHNUM(sector, Sect, Cf)
|
|
|
|
//// bunch getters/setters
|
|
int16_t yax_getbunch(int16_t i, int16_t cf)
|
|
{
|
|
if (editstatus==0)
|
|
return yax_bunchnum[i][cf];
|
|
|
|
if (((*(§or[i].ceilingstat + cf))&YAX_BIT)==0)
|
|
return -1;
|
|
|
|
return YAX_BUNCHNUM(i, cf);
|
|
}
|
|
|
|
void yax_getbunches(int16_t i, int16_t *cb, int16_t *fb)
|
|
{
|
|
*cb = yax_getbunch(i, YAX_CEILING);
|
|
*fb = yax_getbunch(i, YAX_FLOOR);
|
|
}
|
|
# else
|
|
# define YAX_PTRBUNCHNUM(Ptr, Sect, Cf) (*((Cf) ? &(Ptr)[Sect].floorbunch : &(Ptr)[Sect].ceilingbunch))
|
|
# define YAX_BUNCHNUM(Sect, Cf) YAX_PTRBUNCHNUM(sector, Sect, Cf)
|
|
|
|
# if !defined NEW_MAP_FORMAT
|
|
static int32_t yax_islockededge(int32_t line, int32_t cf)
|
|
{
|
|
return (yax_getnextwall(line, cf) >= 0);
|
|
}
|
|
# endif
|
|
# endif
|
|
|
|
// bunchnum: -1: also clear yax-nextwalls (forward and reverse)
|
|
// -2: don't clear reverse yax-nextwalls
|
|
// -3: don't clear either forward or reverse yax-nextwalls
|
|
void yax_setbunch(int16_t i, int16_t cf, int16_t bunchnum)
|
|
{
|
|
if (editstatus==0)
|
|
{
|
|
#ifdef NEW_MAP_FORMAT
|
|
YAX_BUNCHNUM(i, cf) = bunchnum;
|
|
#else
|
|
yax_bunchnum[i][cf] = bunchnum;
|
|
#endif
|
|
return;
|
|
}
|
|
|
|
if (bunchnum < 0)
|
|
{
|
|
int32_t j;
|
|
int16_t ynw;
|
|
|
|
if (bunchnum > -3)
|
|
{
|
|
// TODO: for in-game too?
|
|
for (j=sector[i].wallptr; j<sector[i].wallptr+sector[i].wallnum; j++)
|
|
{
|
|
ynw = yax_getnextwall(j, cf);
|
|
if (ynw >= 0)
|
|
{
|
|
if (bunchnum > -2)
|
|
yax_setnextwall(ynw, !cf, -1);
|
|
yax_setnextwall(j, cf, -1);
|
|
}
|
|
}
|
|
}
|
|
|
|
#if !defined NEW_MAP_FORMAT
|
|
*(§or[i].ceilingstat + cf) &= ~YAX_BIT;
|
|
// NOTE: Don't reset xpanning-as-index, since we can be called from
|
|
// e.g. Mapster32's "Inner loop made into new sector" functionality.
|
|
// YAX_BUNCHNUM(i, cf) = 0;
|
|
#else
|
|
YAX_BUNCHNUM(i, cf) = -1;
|
|
#endif
|
|
return;
|
|
}
|
|
|
|
#if !defined NEW_MAP_FORMAT
|
|
*(§or[i].ceilingstat + cf) |= YAX_BIT;
|
|
#endif
|
|
YAX_BUNCHNUM(i, cf) = bunchnum;
|
|
}
|
|
|
|
void yax_setbunches(int16_t i, int16_t cb, int16_t fb)
|
|
{
|
|
yax_setbunch(i, YAX_CEILING, cb);
|
|
yax_setbunch(i, YAX_FLOOR, fb);
|
|
}
|
|
|
|
# if !defined NEW_MAP_FORMAT
|
|
//// nextwall getters/setters
|
|
int16_t yax_getnextwall(int16_t wal, int16_t cf)
|
|
{
|
|
if (editstatus==0)
|
|
return yax_nextwall[wal][cf];
|
|
|
|
if (!yax_islockededge(wal, cf))
|
|
return -1;
|
|
|
|
return YAX_NEXTWALL(wal, cf);
|
|
}
|
|
|
|
// unchecked!
|
|
void yax_setnextwall(int16_t wal, int16_t cf, int16_t thenextwall)
|
|
{
|
|
if (editstatus==0)
|
|
{
|
|
yax_nextwall[wal][cf] = thenextwall;
|
|
return;
|
|
}
|
|
|
|
if (thenextwall >= 0)
|
|
{
|
|
wall[wal].cstat |= YAX_NEXTWALLBIT(cf);
|
|
YAX_NEXTWALL(wal, cf) = thenextwall;
|
|
}
|
|
else
|
|
{
|
|
wall[wal].cstat &= ~YAX_NEXTWALLBIT(cf);
|
|
YAX_NEXTWALL(wal, cf) = YAX_NEXTWALLDEFAULT(cf);
|
|
}
|
|
}
|
|
# endif
|
|
|
|
// make one step in the vertical direction, and if the wall we arrive at
|
|
// is red, return its nextsector.
|
|
int16_t yax_vnextsec(int16_t line, int16_t cf)
|
|
{
|
|
int16_t ynw = yax_getnextwall(line, cf);
|
|
|
|
if (ynw < 0)
|
|
return -1;
|
|
|
|
return wall[ynw].nextsector;
|
|
}
|
|
|
|
|
|
//// in-struct --> array transfer (only resetstat==0); list construction
|
|
// resetstat: 0: reset and read data from structs and construct linked lists etc.
|
|
// 1: only reset
|
|
// 2: read data from game-time arrays and construct linked lists etc.
|
|
void yax_update(int32_t resetstat)
|
|
{
|
|
int32_t i;
|
|
#if !defined NEW_MAP_FORMAT
|
|
int32_t j;
|
|
const int32_t oeditstatus=editstatus;
|
|
#endif
|
|
int16_t cb, fb;
|
|
|
|
if (resetstat != 2)
|
|
numyaxbunches = 0;
|
|
|
|
for (i=0; i<MAXSECTORS; i++)
|
|
{
|
|
#if !defined NEW_MAP_FORMAT
|
|
if (resetstat != 2 || i>=numsectors)
|
|
yax_bunchnum[i][0] = yax_bunchnum[i][1] = -1;
|
|
#endif
|
|
nextsectbunch[0][i] = nextsectbunch[1][i] = -1;
|
|
}
|
|
for (i=0; i<YAX_MAXBUNCHES; i++)
|
|
headsectbunch[0][i] = headsectbunch[1][i] = -1;
|
|
#if !defined NEW_MAP_FORMAT
|
|
for (i=0; i<MAXWALLS; i++)
|
|
if (resetstat != 2 || i>=numwalls)
|
|
yax_nextwall[i][0] = yax_nextwall[i][1] = -1;
|
|
#endif
|
|
|
|
if (resetstat==1)
|
|
return;
|
|
|
|
// Constuct singly linked list of sectors-of-bunch.
|
|
|
|
#if !defined NEW_MAP_FORMAT
|
|
// Read bunchnums directly from the sector struct in yax_[gs]etbunch{es}!
|
|
editstatus = (resetstat==0);
|
|
// NOTE: Use oeditstatus to check for in-gamedness from here on!
|
|
#endif
|
|
|
|
if (resetstat==0)
|
|
{
|
|
// make bunchnums consecutive
|
|
uint8_t *const havebunch = (uint8_t *)tempbuf;
|
|
uint8_t *const bunchmap = havebunch + (YAX_MAXBUNCHES>>3);
|
|
int32_t dasub = 0;
|
|
|
|
Bmemset(havebunch, 0, YAX_MAXBUNCHES>>3);
|
|
for (i=0; i<numsectors; i++)
|
|
{
|
|
yax_getbunches(i, &cb, &fb);
|
|
if (cb>=0)
|
|
havebunch[cb>>3] |= (1<<(cb&7));
|
|
if (fb>=0)
|
|
havebunch[fb>>3] |= (1<<(fb&7));
|
|
}
|
|
|
|
for (i=0; i<YAX_MAXBUNCHES; i++)
|
|
{
|
|
if ((havebunch[i>>3]&(1<<(i&7)))==0)
|
|
{
|
|
bunchmap[i] = 255;
|
|
dasub++;
|
|
continue;
|
|
}
|
|
|
|
bunchmap[i] = i-dasub;
|
|
}
|
|
|
|
for (i=0; i<numsectors; i++)
|
|
{
|
|
yax_getbunches(i, &cb, &fb);
|
|
if (cb>=0)
|
|
yax_setbunch(i, YAX_CEILING, bunchmap[cb]);
|
|
if (fb>=0)
|
|
yax_setbunch(i, YAX_FLOOR, bunchmap[fb]);
|
|
}
|
|
}
|
|
|
|
// In-struct --> array transfer (resetstat==0 and !defined NEW_MAP_FORMAT)
|
|
// and list construction.
|
|
for (i=numsectors-1; i>=0; i--)
|
|
{
|
|
yax_getbunches(i, &cb, &fb);
|
|
#if !defined NEW_MAP_FORMAT
|
|
if (resetstat==0)
|
|
{
|
|
yax_bunchnum[i][0] = cb;
|
|
yax_bunchnum[i][1] = fb;
|
|
}
|
|
#endif
|
|
|
|
if (cb >= 0)
|
|
{
|
|
#if !defined NEW_MAP_FORMAT
|
|
if (resetstat==0)
|
|
for (j=sector[i].wallptr; j<sector[i].wallptr+sector[i].wallnum; j++)
|
|
{
|
|
if (yax_islockededge(j,YAX_CEILING))
|
|
{
|
|
yax_nextwall[j][0] = YAX_NEXTWALL(j,0);
|
|
if (oeditstatus==0)
|
|
YAX_NEXTWALL(j,0) = 0; // reset lotag!
|
|
}
|
|
}
|
|
#endif
|
|
if (headsectbunch[0][cb] == -1)
|
|
{
|
|
headsectbunch[0][cb] = i;
|
|
// not duplicated in floors, since every extended ceiling
|
|
// must have a corresponding floor:
|
|
if (resetstat==0)
|
|
numyaxbunches++;
|
|
}
|
|
else
|
|
{
|
|
int32_t tmpsect = headsectbunch[0][cb];
|
|
headsectbunch[0][cb] = i;
|
|
nextsectbunch[0][i] = tmpsect;
|
|
}
|
|
}
|
|
|
|
if (fb >= 0)
|
|
{
|
|
#if !defined NEW_MAP_FORMAT
|
|
if (resetstat==0)
|
|
for (j=sector[i].wallptr; j<sector[i].wallptr+sector[i].wallnum; j++)
|
|
{
|
|
if (yax_islockededge(j,YAX_FLOOR))
|
|
{
|
|
yax_nextwall[j][1] = YAX_NEXTWALL(j,1);
|
|
if (oeditstatus==0)
|
|
YAX_NEXTWALL(j,1) = -1; // reset extra!
|
|
}
|
|
}
|
|
#endif
|
|
if (headsectbunch[1][fb] == -1)
|
|
headsectbunch[1][fb] = i;
|
|
else
|
|
{
|
|
int32_t tmpsect = headsectbunch[1][fb];
|
|
headsectbunch[1][fb] = i;
|
|
nextsectbunch[1][i] = tmpsect;
|
|
}
|
|
}
|
|
}
|
|
|
|
#if !defined NEW_MAP_FORMAT
|
|
editstatus = oeditstatus;
|
|
#else
|
|
mapversion = get_mapversion();
|
|
#endif
|
|
}
|
|
|
|
int32_t yax_getneighborsect(int32_t x, int32_t y, int32_t sectnum, int32_t cf)
|
|
{
|
|
int16_t bunchnum = yax_getbunch(sectnum, cf);
|
|
int32_t i;
|
|
|
|
if (bunchnum < 0)
|
|
return -1;
|
|
|
|
for (SECTORS_OF_BUNCH(bunchnum, !cf, i))
|
|
if (inside(x, y, i)==1)
|
|
return i;
|
|
|
|
return -1;
|
|
}
|
|
|
|
// indexed as a list:
|
|
static int16_t bunches[2][YAX_MAXBUNCHES];
|
|
// indexed with bunchnums directly:
|
|
static int16_t bunchsec[YAX_MAXBUNCHES], bunchdist[YAX_MAXBUNCHES];
|
|
|
|
static int32_t ymostallocsize = 0; // numyaxbunches*xdimen (no sizeof(int16_t) here!)
|
|
static int16_t *yumost=NULL, *ydmost=NULL; // used as if [numyaxbunches][xdimen]
|
|
uint8_t haveymost[YAX_MAXBUNCHES>>3];
|
|
|
|
// adapted from build.c
|
|
static void yax_getclosestpointonwall(int32_t dawall, int32_t *closestx, int32_t *closesty)
|
|
{
|
|
int64_t i, j, wx,wy, wx2,wy2, dx, dy;
|
|
|
|
wx = wall[dawall].x;
|
|
wy = wall[dawall].y;
|
|
wx2 = wall[wall[dawall].point2].x;
|
|
wy2 = wall[wall[dawall].point2].y;
|
|
|
|
dx = wx2 - wx;
|
|
dy = wy2 - wy;
|
|
i = dx*(globalposx-wx) + dy*(globalposy-wy);
|
|
if (i <= 0) { *closestx = wx; *closesty = wy; return; }
|
|
j = dx*dx + dy*dy;
|
|
if (i >= j) { *closestx = wx2; *closesty = wy2; return; }
|
|
i=((i<<15)/j)<<15;
|
|
*closestx = wx + ((dx*i)>>30);
|
|
*closesty = wy + ((dy*i)>>30);
|
|
}
|
|
|
|
static inline int32_t yax_walldist(int32_t w)
|
|
{
|
|
int32_t closestx, closesty;
|
|
|
|
yax_getclosestpointonwall(w, &closestx, &closesty);
|
|
return klabs(closestx-globalposx) + klabs(closesty-globalposy);
|
|
|
|
// return klabs(wall[w].x-globalposx) + klabs(wall[w].y-globalposy);
|
|
}
|
|
|
|
// calculate distances to bunches and best start-drawing sectors
|
|
static void yax_scanbunches(int32_t bbeg, int32_t numhere, const uint8_t *lastgotsector)
|
|
{
|
|
int32_t bnchcnt, bunchnum, j, k;
|
|
int32_t startwall, endwall;
|
|
|
|
UNREFERENCED_PARAMETER(lastgotsector);
|
|
|
|
scansector_retfast = 1;
|
|
scansector_collectsprites = 0;
|
|
|
|
for (bnchcnt=bbeg; bnchcnt<bbeg+numhere; bnchcnt++)
|
|
{
|
|
int32_t walldist, bestsec=-1;
|
|
int32_t bestwalldist=INT32_MAX, bestbestdist=INT32_MAX;
|
|
|
|
bunchnum = bunches[yax_globalcf][bnchcnt];
|
|
|
|
for (SECTORS_OF_BUNCH(bunchnum,!yax_globalcf, k))
|
|
{
|
|
int32_t checkthisec = 0;
|
|
|
|
if (inside(globalposx, globalposy, k)==1)
|
|
{
|
|
bestsec = k;
|
|
bestbestdist = 0;
|
|
break;
|
|
}
|
|
|
|
startwall = sector[k].wallptr;
|
|
endwall = startwall+sector[k].wallnum;
|
|
|
|
for (j=startwall; j<endwall; j++)
|
|
{
|
|
/*
|
|
if ((w=yax_getnextwall(j,!yax_globalcf))>=0)
|
|
if ((ns=wall[w].nextsector)>=0)
|
|
if ((lastgotsector[ns>>3]&(1<<(ns&7)))==0)
|
|
continue;
|
|
*/
|
|
walldist = yax_walldist(j);
|
|
if (walldist < bestwalldist)
|
|
{
|
|
checkthisec = 1;
|
|
bestwalldist = walldist;
|
|
}
|
|
}
|
|
|
|
if (checkthisec)
|
|
{
|
|
numscans = numbunches = 0;
|
|
if (getrendermode() == REND_CLASSIC)
|
|
scansector(k);
|
|
#ifdef USE_OPENGL
|
|
else
|
|
polymost_scansector(k);
|
|
#endif
|
|
if (numbunches > 0)
|
|
{
|
|
bestsec = k;
|
|
bestbestdist = bestwalldist;
|
|
}
|
|
}
|
|
}
|
|
|
|
bunchsec[bunchnum] = bestsec;
|
|
bunchdist[bunchnum] = bestbestdist;
|
|
}
|
|
|
|
scansector_collectsprites = 1;
|
|
scansector_retfast = 0;
|
|
}
|
|
|
|
static int yax_cmpbunches(const void *b1, const void *b2)
|
|
{
|
|
return (bunchdist[*(int16_t *)b2] - bunchdist[*(int16_t *)b1]);
|
|
}
|
|
|
|
|
|
void yax_tweakpicnums(int32_t bunchnum, int32_t cf, int32_t restore)
|
|
{
|
|
// for polymer, this is called before polymer_drawrooms() with restore==0
|
|
// and after polymer_drawmasks() with restore==1
|
|
|
|
int32_t i, dastat;
|
|
static int16_t opicnum[2][MAXSECTORS];
|
|
#ifdef DEBUGGINGAIDS
|
|
static uint8_t expect_restore[2][YAX_MAXBUNCHES];
|
|
|
|
// must call this with restore == 0, 1, 0, 1, 0, 1, ...
|
|
Bassert(expect_restore[cf][bunchnum] == restore);
|
|
expect_restore[cf][bunchnum] = !expect_restore[cf][bunchnum];
|
|
#endif
|
|
|
|
for (SECTORS_OF_BUNCH(bunchnum, cf, i))
|
|
{
|
|
dastat = (SECTORFLD(i,stat, cf)&(128+256));
|
|
|
|
// only consider non-masked ceilings/floors
|
|
if (dastat==0 || (restore==1 && opicnum[cf][i]&0x8000))
|
|
{
|
|
if (!restore)
|
|
{
|
|
opicnum[cf][i] = SECTORFLD(i,picnum, cf);
|
|
if (editstatus && showinvisibility)
|
|
SECTORFLD(i,picnum, cf) = MAXTILES-1;
|
|
else //if ((dastat&(128+256))==0)
|
|
SECTORFLD(i,picnum, cf) = 13; //FOF;
|
|
}
|
|
else
|
|
{
|
|
SECTORFLD(i,picnum, cf) = opicnum[cf][i];
|
|
}
|
|
#ifdef POLYMER
|
|
// will be called only in editor
|
|
if (getrendermode() == REND_POLYMER)
|
|
{
|
|
if (!restore)
|
|
{
|
|
SECTORFLD(i,stat, cf) |= 128;
|
|
opicnum[cf][i] |= 0x8000;
|
|
}
|
|
else
|
|
{
|
|
SECTORFLD(i,stat, cf) &= ~128;
|
|
SECTORFLD(i,picnum, cf) &= 0x7fff;
|
|
opicnum[cf][i] = 0;
|
|
}
|
|
}
|
|
#endif
|
|
}
|
|
}
|
|
}
|
|
|
|
static void yax_copytsprites()
|
|
{
|
|
int32_t i, spritenum, gotthrough, sectnum;
|
|
int32_t sortcnt = yax_spritesortcnt[yax_globallev];
|
|
const spritetype *spr;
|
|
|
|
for (i=0; i<sortcnt; i++)
|
|
{
|
|
spritenum = yax_tsprite[yax_globallev][i];
|
|
|
|
gotthrough = spritenum&(MAXSPRITES|(MAXSPRITES<<1));
|
|
|
|
spritenum &= MAXSPRITES-1;
|
|
spr = &sprite[spritenum];
|
|
sectnum = spr->sectnum;
|
|
|
|
if (gotthrough == (MAXSPRITES|(MAXSPRITES<<1)))
|
|
{
|
|
if (yax_globalbunch != yax_tsprfrombunch[yax_globallev][i])
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
int32_t cf = -1;
|
|
|
|
if (gotthrough == MAXSPRITES)
|
|
cf = YAX_CEILING; // sprite got here through the ceiling of lower sector
|
|
else if (gotthrough == (MAXSPRITES<<1))
|
|
cf = YAX_FLOOR; // sprite got here through the floor of upper sector
|
|
|
|
if (cf != -1)
|
|
{
|
|
if ((yax_globallev-YAX_MAXDRAWS)*(-1 + 2*cf) > 0)
|
|
if (yax_getbunch(sectnum, cf) != yax_globalbunch)
|
|
continue;
|
|
|
|
sectnum = yax_getneighborsect(spr->x, spr->y, sectnum, cf);
|
|
if (sectnum < 0)
|
|
continue;
|
|
}
|
|
}
|
|
|
|
if (spritesortcnt >= MAXSPRITESONSCREEN)
|
|
break;
|
|
|
|
Bmemcpy(&tsprite[spritesortcnt], spr, sizeof(spritetype));
|
|
tsprite[spritesortcnt].owner = spritenum;
|
|
|
|
tsprite[spritesortcnt].sectnum = sectnum; // potentially tweak sectnum!
|
|
spritesortcnt++;
|
|
}
|
|
}
|
|
|
|
|
|
void yax_preparedrawrooms(void)
|
|
{
|
|
if (getrendermode() == REND_POLYMER || numyaxbunches==0)
|
|
return;
|
|
|
|
g_nodraw = 1;
|
|
Bmemset(yax_spritesortcnt, 0, sizeof(yax_spritesortcnt));
|
|
Bmemset(haveymost, 0, (numyaxbunches+7)>>3);
|
|
|
|
if (getrendermode() == REND_CLASSIC && ymostallocsize < xdimen*numyaxbunches)
|
|
{
|
|
ymostallocsize = xdimen*numyaxbunches;
|
|
yumost = (int16_t *)Xrealloc(yumost, ymostallocsize*sizeof(int16_t));
|
|
ydmost = (int16_t *)Xrealloc(ydmost, ymostallocsize*sizeof(int16_t));
|
|
}
|
|
}
|
|
|
|
void yax_drawrooms(void (*SpriteAnimFunc)(int32_t,int32_t,int32_t,int32_t),
|
|
int16_t sectnum, int32_t didmirror, int32_t smoothr)
|
|
{
|
|
static uint8_t havebunch[YAX_MAXBUNCHES>>3];
|
|
|
|
const int32_t horiz = global100horiz;
|
|
|
|
int32_t i, j, k, lev, cf, nmp;
|
|
int32_t bnchcnt, bnchnum[2] = {0,0}, maxlev[2];
|
|
int16_t ourbunch[2] = {-1,-1}, osectnum=sectnum;
|
|
int32_t bnchbeg[YAX_MAXDRAWS][2], bnchend[YAX_MAXDRAWS][2];
|
|
int32_t bbeg, numhere;
|
|
|
|
// original (1st-draw) and accumulated ('per-level') gotsector bitmaps
|
|
static uint8_t ogotsector[MAXSECTORS>>3], lgotsector[MAXSECTORS>>3];
|
|
#ifdef YAX_DEBUG
|
|
uint64_t t;
|
|
#endif
|
|
|
|
if (getrendermode() == REND_POLYMER || numyaxbunches==0)
|
|
{
|
|
#ifdef ENGINE_SCREENSHOT_DEBUG
|
|
engine_screenshot = 0;
|
|
#endif
|
|
return;
|
|
}
|
|
|
|
// if we're here, there was just a drawrooms() call with g_nodraw=1
|
|
|
|
Bmemcpy(ogotsector, gotsector, (numsectors+7)>>3);
|
|
|
|
if (sectnum >= 0)
|
|
yax_getbunches(sectnum, &ourbunch[0], &ourbunch[1]);
|
|
Bmemset(&havebunch, 0, (numyaxbunches+7)>>3);
|
|
|
|
// first scan all bunches above, then all below...
|
|
for (cf=0; cf<2; cf++)
|
|
{
|
|
yax_globalcf = cf;
|
|
|
|
if (cf==1)
|
|
{
|
|
sectnum = osectnum;
|
|
Bmemcpy(gotsector, ogotsector, (numsectors+7)>>3);
|
|
}
|
|
|
|
for (lev=0; /*lev<YAX_MAXDRAWS*/; lev++)
|
|
{
|
|
yax_globallev = YAX_MAXDRAWS + (-1 + 2*cf)*(lev+1);
|
|
|
|
bbeg = bnchbeg[lev][cf] = bnchend[lev][cf] = bnchnum[cf];
|
|
numhere = 0;
|
|
|
|
for (i=0; i<numsectors; i++)
|
|
{
|
|
if (!(gotsector[i>>3]&(1<<(i&7))))
|
|
continue;
|
|
|
|
j = yax_getbunch(i, cf);
|
|
if (j >= 0 && !(havebunch[j>>3]&(1<<(j&7))))
|
|
{
|
|
if (getrendermode() == REND_CLASSIC && (haveymost[j>>3]&(1<<(j&7)))==0)
|
|
{
|
|
yaxdebug("%s, l %d: skipped bunch %d (no *most)", cf?"v":"^", lev, j);
|
|
continue;
|
|
}
|
|
|
|
if ((SECTORFLD(i,stat, cf)&2) ||
|
|
(cf==0 && globalposz > sector[i].ceilingz) ||
|
|
(cf==1 && globalposz < sector[i].floorz))
|
|
{
|
|
havebunch[j>>3] |= (1<<(j&7));
|
|
bunches[cf][bnchnum[cf]++] = j;
|
|
bnchend[lev][cf]++;
|
|
numhere++;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (numhere > 0)
|
|
{
|
|
// found bunches -- need to fake-draw
|
|
|
|
yax_scanbunches(bbeg, numhere, (uint8_t *)gotsector);
|
|
|
|
qsort(&bunches[cf][bbeg], numhere, sizeof(int16_t), &yax_cmpbunches);
|
|
|
|
if (numhere > 1 && lev != YAX_MAXDRAWS-1)
|
|
Bmemset(lgotsector, 0, (numsectors+7)>>3);
|
|
|
|
for (bnchcnt=bbeg; bnchcnt < bbeg+numhere; bnchcnt++)
|
|
{
|
|
j = bunches[cf][bnchcnt]; // the actual bunchnum...
|
|
yax_globalbunch = j;
|
|
#ifdef YAX_DEBUG
|
|
t=getu64ticks();
|
|
#endif
|
|
k = bunchsec[j];
|
|
|
|
if (k < 0)
|
|
{
|
|
yaxprintf("%s, l %d: skipped bunch %d\n", cf?"v":"^", lev, j);
|
|
continue;
|
|
}
|
|
|
|
if (lev != YAX_MAXDRAWS-1)
|
|
{
|
|
#ifdef YAX_DEBUG
|
|
int32_t odsprcnt = yax_spritesortcnt[yax_globallev];
|
|
#endif
|
|
// +MAXSECTORS: force
|
|
drawrooms(globalposx,globalposy,globalposz,globalang,horiz,k+MAXSECTORS);
|
|
if (numhere > 1)
|
|
for (i=0; i<(numsectors+7)>>3; i++)
|
|
lgotsector[i] |= gotsector[i];
|
|
|
|
yaxdebug("l%d: faked (bn %2d) sec %4d,%3d dspr, ob=[%2d,%2d], sn=%4d, %.3f ms",
|
|
yax_globallev-YAX_MAXDRAWS, j, k, yax_spritesortcnt[yax_globallev]-odsprcnt,
|
|
ourbunch[0],ourbunch[1],sectnum,
|
|
(double)(1000*(getu64ticks()-t))/u64tickspersec);
|
|
}
|
|
|
|
if (ourbunch[cf]==j)
|
|
{
|
|
ourbunch[cf] = yax_getbunch(k, cf);
|
|
sectnum = k;
|
|
}
|
|
}
|
|
|
|
if (numhere > 1 && lev != YAX_MAXDRAWS-1)
|
|
Bmemcpy(gotsector, lgotsector, (numsectors+7)>>3);
|
|
}
|
|
|
|
if (numhere==0 || lev==YAX_MAXDRAWS-1)
|
|
{
|
|
// no new bunches or max level reached
|
|
maxlev[cf] = lev - (numhere==0);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
// yax_globalcf = -1;
|
|
|
|
// now comes the real drawing!
|
|
g_nodraw = 0;
|
|
scansector_collectsprites = 0;
|
|
|
|
if (editstatus==1)
|
|
{
|
|
if (getrendermode() == REND_CLASSIC)
|
|
{
|
|
begindrawing();
|
|
draw_rainbow_background();
|
|
enddrawing();
|
|
}
|
|
#ifdef USE_OPENGL
|
|
else
|
|
{
|
|
bglClear(GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT);
|
|
}
|
|
#endif
|
|
}
|
|
|
|
for (cf=0; cf<2; cf++)
|
|
{
|
|
yax_globalcf = cf;
|
|
|
|
for (lev=maxlev[cf]; lev>=0; lev--)
|
|
{
|
|
yax_globallev = YAX_MAXDRAWS + (-1 + 2*cf)*(lev+1);
|
|
scansector_collectsprites = (lev == YAX_MAXDRAWS-1);
|
|
|
|
for (bnchcnt=bnchbeg[lev][cf]; bnchcnt<bnchend[lev][cf]; bnchcnt++)
|
|
{
|
|
j = bunches[cf][bnchcnt]; // the actual bunchnum...
|
|
k = bunchsec[j]; // best start-drawing sector
|
|
yax_globalbunch = j;
|
|
#ifdef YAX_DEBUG
|
|
t=getu64ticks();
|
|
#endif
|
|
yax_tweakpicnums(j, cf, 0);
|
|
if (k < 0)
|
|
continue;
|
|
|
|
yax_nomaskdidit = 0;
|
|
for (nmp=r_tror_nomaskpass; nmp>=0; nmp--)
|
|
{
|
|
yax_nomaskpass = nmp;
|
|
drawrooms(globalposx,globalposy,globalposz,globalang,horiz,k+MAXSECTORS); // +MAXSECTORS: force
|
|
|
|
if (nmp==1)
|
|
{
|
|
yaxdebug("nm1 l%d: DRAWN (bn %2d) sec %4d, %.3f ms",
|
|
yax_globallev-YAX_MAXDRAWS, j, k,
|
|
(double)(1000*(getu64ticks()-t))/u64tickspersec);
|
|
|
|
if (!yax_nomaskdidit)
|
|
{
|
|
yax_nomaskpass = 0;
|
|
break; // no need to draw the same stuff twice
|
|
}
|
|
Bmemcpy(yax_gotsector, gotsector, (numsectors+7)>>3);
|
|
}
|
|
}
|
|
|
|
if (!scansector_collectsprites)
|
|
spritesortcnt = 0;
|
|
yax_copytsprites();
|
|
yaxdebug("nm0 l%d: DRAWN (bn %2d) sec %4d,%3d tspr, %.3f ms",
|
|
yax_globallev-YAX_MAXDRAWS, j, k, spritesortcnt,
|
|
(double)(1000*(getu64ticks()-t))/u64tickspersec);
|
|
|
|
SpriteAnimFunc(globalposx, globalposy, globalang, smoothr);
|
|
drawmasks();
|
|
}
|
|
|
|
if (lev < maxlev[cf])
|
|
for (bnchcnt=bnchbeg[lev+1][cf]; bnchcnt<bnchend[lev+1][cf]; bnchcnt++)
|
|
yax_tweakpicnums(bunches[cf][bnchcnt], cf, 1); // restore picnums
|
|
}
|
|
}
|
|
|
|
#ifdef YAX_DEBUG
|
|
t=getu64ticks();
|
|
#endif
|
|
yax_globalcf = -1;
|
|
yax_globalbunch = -1;
|
|
yax_globallev = YAX_MAXDRAWS;
|
|
scansector_collectsprites = 0;
|
|
|
|
// draw base level
|
|
drawrooms(globalposx,globalposy,globalposz,globalang,horiz,
|
|
osectnum + MAXSECTORS*didmirror);
|
|
// if (scansector_collectsprites)
|
|
// spritesortcnt = 0;
|
|
yax_copytsprites();
|
|
yaxdebug("DRAWN base level sec %d,%3d tspr, %.3f ms", osectnum,
|
|
spritesortcnt, (double)(1000*(getu64ticks()-t))/u64tickspersec);
|
|
scansector_collectsprites = 1;
|
|
|
|
for (cf=0; cf<2; cf++)
|
|
if (maxlev[cf] >= 0)
|
|
for (bnchcnt=bnchbeg[0][cf]; bnchcnt<bnchend[0][cf]; bnchcnt++)
|
|
yax_tweakpicnums(bunches[cf][bnchcnt], cf, 1); // restore picnums
|
|
|
|
#ifdef ENGINE_SCREENSHOT_DEBUG
|
|
engine_screenshot = 0;
|
|
#endif
|
|
|
|
#ifdef YAX_DEBUG_YMOSTS
|
|
if (getrendermode() == REND_CLASSIC && numyaxbunches>0)
|
|
{
|
|
char purple = getclosestcol(63, 0, 63);
|
|
char yellow = getclosestcol(63, 63, 0);
|
|
|
|
begindrawing();
|
|
for (i=0; i<numyaxbunches; i++)
|
|
{
|
|
int32_t x, x1;
|
|
|
|
if ((haveymost[i>>3]&(1<<i&7))==0)
|
|
continue;
|
|
|
|
x1 = i*xdimen;
|
|
|
|
for (x=x1; x<x1+xdimen; x++)
|
|
{
|
|
if (yumost[x] >= 0 && yumost[x] < ydim && (x&1))
|
|
*((char *)frameplace + yumost[x]*bytesperline + x-x1) = purple;
|
|
|
|
if (ydmost[x]-1 >= 0 && ydmost[x]-1 < ydim && !(x&1))
|
|
*((char *)frameplace + (ydmost[x]-1)*bytesperline + x-x1) = yellow;
|
|
}
|
|
}
|
|
enddrawing();
|
|
}
|
|
#endif
|
|
}
|
|
|
|
#endif // defined YAX_ENABLE
|
|
|
|
// must have writable frame buffer, i.e. done begindrawing()
|
|
static void draw_rainbow_background(void)
|
|
{
|
|
int32_t y, i;
|
|
const int32_t N = 240; // don't use fullbright colors
|
|
const int32_t numfull=bytesperline/N, numrest=bytesperline%N;
|
|
|
|
const char *const src = palookup[0] + 256*18;
|
|
char *dst = (char *)frameplace;
|
|
|
|
for (y=0; y<ydim; y++)
|
|
{
|
|
for (i=0; i<numfull; i++)
|
|
Bmemcpy(&dst[N*i], src, N);
|
|
if (numrest > 0)
|
|
Bmemcpy(&dst[N*i], src, numrest);
|
|
|
|
dst += bytesperline;
|
|
}
|
|
}
|
|
|
|
//
|
|
// setslope
|
|
//
|
|
void setslope(int32_t sectnum, int32_t cf, int16_t slope)
|
|
{
|
|
if (slope==0)
|
|
{
|
|
SECTORFLD(sectnum,stat, cf) &= ~2;
|
|
SECTORFLD(sectnum,heinum, cf) = 0;
|
|
}
|
|
else
|
|
{
|
|
SECTORFLD(sectnum,stat, cf) |= 2;
|
|
SECTORFLD(sectnum,heinum, cf) = slope;
|
|
}
|
|
}
|
|
|
|
////////// editor side view //////////
|
|
int32_t m32_sideview = 0;
|
|
int32_t m32_sideelev = 256; // elevation in BUILD degrees, 0..512
|
|
int16_t m32_sideang = 200; // azimuth, 0..2047
|
|
|
|
int32_t m32_sidecos, m32_sidesin;
|
|
int32_t m32_swcnt;
|
|
int32_t m32_wallscreenxy[MAXWALLS][2];
|
|
int16_t m32_wallsprite[MAXWALLS+MAXSPRITES];
|
|
static int32_t m32_sidedist[MAXWALLS+MAXSPRITES];
|
|
static vec3_t m32_viewplane;
|
|
|
|
|
|
////// sector-like clipping for sprites //////
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
typedef struct
|
|
{
|
|
int16_t numsectors, numwalls;
|
|
sectortype *sector;
|
|
walltype *wall;
|
|
} mapinfo_t;
|
|
|
|
static void mapinfo_set(mapinfo_t *bak, mapinfo_t *newmap)
|
|
{
|
|
if (bak)
|
|
{
|
|
bak->numsectors = numsectors;
|
|
bak->numwalls = numwalls;
|
|
bak->sector = sector;
|
|
bak->wall = wall;
|
|
}
|
|
|
|
if (newmap)
|
|
{
|
|
numsectors = newmap->numsectors;
|
|
numwalls = newmap->numwalls;
|
|
sector = newmap->sector;
|
|
wall = newmap->wall;
|
|
}
|
|
}
|
|
|
|
static mapinfo_t origmapinfo, clipmapinfo;
|
|
static int32_t quickloadboard=0;
|
|
|
|
|
|
#define CM_MAX 256 // must be a power of 2
|
|
|
|
typedef struct
|
|
{
|
|
int16_t qbeg, qend; // indices into sectq
|
|
int16_t picnum, next;
|
|
int32_t maxdist;
|
|
} clipinfo_t;
|
|
|
|
static int32_t numclipmaps;
|
|
static clipinfo_t clipinfo[CM_MAX];
|
|
|
|
static int32_t numclipsects; // number in sectq[]
|
|
static int16_t *sectoidx, *sectq; // [numsectors]
|
|
static int16_t pictoidx[MAXTILES]; // maps tile num to clipinfo[] index
|
|
static int16_t *tempictoidx;
|
|
|
|
static sectortype *loadsector;
|
|
static walltype *loadwall, *loadwallinv;
|
|
static spritetype *loadsprite;
|
|
|
|
// sectoidx bits
|
|
#undef CM_NONE
|
|
#define CM_NONE (CM_MAX<<1)
|
|
#define CM_SOME (CM_NONE-1)
|
|
#define CM_OUTER (CM_MAX) // sector surrounds clipping sector
|
|
|
|
// sprite -> sector tag mappings
|
|
#define CM_XREPEAT floorpal
|
|
#define CM_YREPEAT floorxpanning
|
|
#define CM_XOFFSET ceilingshade
|
|
#define CM_YOFFSET floorshade
|
|
#define CM_CSTAT hitag
|
|
#define CM_ANG extra
|
|
#define CM_FLOORZ(Sec) (*(int32_t *)§or[Sec].ceilingxpanning) // ceilingxpanning,ceilingypanning,floorpicnum
|
|
#define CM_CEILINGZ(Sec) (*(int32_t *)§or[Sec].visibility) // visibility,fogpal,lotag
|
|
|
|
// backup of original normalized coordinates
|
|
#define CM_WALL_X(Wal) (*(int32_t *)&wall[Wal].picnum) // picnum, overpicnum
|
|
#define CM_WALL_Y(Wal) (*(int32_t *)&wall[Wal].lotag) // lotag, hitag
|
|
|
|
// don't rotate when applying clipping, for models with rotational symmetry
|
|
#define CM_NOROT(Spri) (sprite[Spri].cstat&2)
|
|
#define CM_NOROTS(Sect) (sector[Sect].CM_CSTAT&2)
|
|
|
|
|
|
static void clipmapinfo_init()
|
|
{
|
|
int32_t i;
|
|
|
|
numclipmaps = 0;
|
|
numclipsects = 0;
|
|
|
|
if (sectq) { Bfree(sectq); sectq=NULL; }
|
|
if (sectoidx) { Bfree(sectoidx); sectoidx=NULL; }
|
|
if (tempictoidx) { Bfree(tempictoidx); tempictoidx=NULL; }
|
|
|
|
for (i=0; i<MAXTILES; i++)
|
|
pictoidx[i]=-1;
|
|
|
|
if (loadsector) { Bfree(loadsector); loadsector=NULL; }
|
|
if (loadwall) { Bfree(loadwall); loadwall=NULL; }
|
|
if (loadwallinv) { Bfree(loadwallinv); loadwallinv=NULL; }
|
|
if (loadsprite) { Bfree(loadsprite); loadsprite=NULL; }
|
|
|
|
clipmapinfo.numsectors = clipmapinfo.numwalls = 0;
|
|
clipmapinfo.sector=NULL;
|
|
clipmapinfo.wall=NULL;
|
|
|
|
numsectors = 0;
|
|
numwalls = 0;
|
|
}
|
|
|
|
// loads the clip maps.
|
|
// this should be called before any real map is loaded.
|
|
int32_t clipmapinfo_load(void)
|
|
{
|
|
int32_t i,k,w;
|
|
|
|
int32_t lwcp = 0;
|
|
int32_t fi;
|
|
|
|
int32_t *fisec = NULL;
|
|
int32_t *fispr = NULL;
|
|
|
|
int32_t ournumsectors=0, ournumwalls=0, ournumsprites=0;
|
|
|
|
clipmapinfo_init();
|
|
|
|
loadsector = (sectortype *)Xmalloc(MAXSECTORS * sizeof(sectortype));
|
|
loadwall = (walltype *)Xmalloc(MAXWALLS * sizeof(walltype));
|
|
loadsprite = (spritetype *)Xmalloc(MAXSPRITES * sizeof(spritetype));
|
|
|
|
if (g_clipMapFilesNum)
|
|
fisec = (int32_t *)Xcalloc(g_clipMapFilesNum, sizeof (int32_t));
|
|
if (g_clipMapFilesNum)
|
|
fispr = (int32_t *)Xcalloc(g_clipMapFilesNum, sizeof (int32_t));
|
|
|
|
quickloadboard = 1;
|
|
for (fi = 0; fi < g_clipMapFilesNum; ++fi)
|
|
{
|
|
int16_t ang,cs;
|
|
vec3_t tmppos;
|
|
|
|
fisec[fi] = ournumsectors;
|
|
fispr[fi] = ournumsprites;
|
|
|
|
i = loadboard(g_clipMapFiles[fi], 8, &tmppos, &ang, &cs);
|
|
if (i<0)
|
|
continue;
|
|
// Numsprites will now be set!
|
|
|
|
initprintf("Loading clip map: %s\n", g_clipMapFiles[fi]);
|
|
|
|
if (ournumsectors+numsectors>MAXSECTORS ||
|
|
ournumwalls+numwalls>MAXWALLS ||
|
|
ournumsprites+Numsprites>MAXSPRITES)
|
|
{
|
|
initprintf("clip map: warning: exceeded limits when loading %s, aborting.\n", g_clipMapFiles[fi]);
|
|
break;
|
|
}
|
|
|
|
Bmemcpy(loadsector+ournumsectors, sector, numsectors*sizeof(sectortype));
|
|
Bmemcpy(loadwall+ournumwalls, wall, numwalls*sizeof(walltype));
|
|
Bmemcpy(loadsprite+ournumsprites, sprite, Numsprites*sizeof(spritetype));
|
|
for (i=ournumsectors; i<ournumsectors+numsectors; i++)
|
|
loadsector[i].wallptr += ournumwalls;
|
|
for (i=ournumwalls; i<ournumwalls+numwalls; i++)
|
|
{
|
|
if (loadwall[i].point2>=0)
|
|
loadwall[i].point2 += ournumwalls;
|
|
if (loadwall[i].nextwall>=0)
|
|
{
|
|
loadwall[i].nextwall += ournumwalls;
|
|
loadwall[i].nextsector += ournumsectors;
|
|
}
|
|
}
|
|
for (i=ournumsprites; i<ournumsprites+Numsprites; i++)
|
|
if (loadsprite[i].sectnum>=0)
|
|
loadsprite[i].sectnum += ournumsectors;
|
|
ournumsectors += numsectors;
|
|
ournumwalls += numwalls;
|
|
ournumsprites += Numsprites;
|
|
|
|
++lwcp;
|
|
}
|
|
quickloadboard = 0;
|
|
|
|
if (ournumsectors==0 || ournumwalls==0 || ournumsprites==0) // nothing loaded
|
|
{
|
|
clipmapinfo_init();
|
|
|
|
Bfree(fisec);
|
|
Bfree(fispr);
|
|
|
|
return -1;
|
|
}
|
|
|
|
// shrink
|
|
loadsector = (sectortype *)Xrealloc(loadsector, ournumsectors*sizeof(sectortype));
|
|
loadwall = (walltype *)Xrealloc(loadwall, ournumwalls*sizeof(walltype));
|
|
|
|
Bmemcpy(sector, loadsector, ournumsectors*sizeof(sectortype));
|
|
Bmemcpy(wall, loadwall, ournumwalls*sizeof(walltype));
|
|
Bmemcpy(sprite, loadsprite, ournumsprites*sizeof(spritetype));
|
|
numsectors = ournumsectors;
|
|
numwalls = ournumwalls;
|
|
|
|
// vvvv don't use headsprite[sect,stat]! vvvv
|
|
|
|
sectoidx = (int16_t *)Xmalloc(numsectors*sizeof(sectoidx[0]));
|
|
|
|
for (i=0; i<numsectors; i++)
|
|
sectoidx[i] = CM_NONE;
|
|
|
|
// determine outer sectors
|
|
for (i=0; i<numsectors; i++)
|
|
{
|
|
for (w=sector[i].wallptr; w<sector[i].wallptr+sector[i].wallnum; w++)
|
|
if (wall[w].nextsector<0)
|
|
{
|
|
sectoidx[i] = CM_OUTER;
|
|
break;
|
|
}
|
|
}
|
|
// break connections between outer sectors
|
|
for (i=0; i<numsectors; i++)
|
|
{
|
|
if (sectoidx[i] == CM_OUTER)
|
|
for (w=sector[i].wallptr; w<sector[i].wallptr+sector[i].wallnum; w++)
|
|
{
|
|
k = wall[w].nextwall;
|
|
if (k>=0 && sectoidx[wall[w].nextsector]==CM_OUTER)
|
|
{
|
|
wall[k].nextwall = wall[k].nextsector = -1;
|
|
wall[w].nextwall = wall[w].nextsector = -1;
|
|
}
|
|
}
|
|
}
|
|
|
|
{
|
|
int16_t ns, outersect;
|
|
int32_t pn,scnt, x,y,z, maxdist;
|
|
|
|
sectq = (int16_t *)Xmalloc(numsectors*sizeof(sectq[0]));
|
|
tempictoidx = (int16_t *)Xmalloc(MAXTILES*sizeof(tempictoidx[0]));
|
|
|
|
for (i=0; i<MAXTILES; i++)
|
|
tempictoidx[i]=-1;
|
|
|
|
// collect sprite picnums
|
|
for (i=0; i<MAXSPRITES && sprite[i].statnum<MAXSTATUS; i++)
|
|
{
|
|
pn = sprite[i].picnum;
|
|
k = sprite[i].sectnum;
|
|
// -v- note the <= ignore sprites in outer sectors
|
|
if (pn<=0 || pn>=MAXTILES || k<0 || k>=numsectors || (sectoidx[k]&CM_OUTER))
|
|
continue;
|
|
|
|
if (numclipmaps >= CM_MAX)
|
|
{
|
|
initprintf("warning: reached max clip map number %d, not processing any more\n", CM_MAX);
|
|
break;
|
|
}
|
|
|
|
// chain
|
|
if (pictoidx[pn]>=0)
|
|
{
|
|
if (sectoidx[k]&CM_SOME)
|
|
{
|
|
for (fi = 0; fi < g_clipMapFilesNum; ++fi)
|
|
if (k>=fisec[fi])
|
|
break;
|
|
initprintf("clip map \"%s\": error: tried to chain picnum %d (sprite %d) in sector %d which"
|
|
" already belongs to picnum %d.\n", g_clipMapFiles[fi], pn, i-fispr[fi], k-fisec[fi],
|
|
clipinfo[sectoidx[k]].picnum);
|
|
clipmapinfo_init();
|
|
|
|
Bfree(fisec);
|
|
Bfree(fispr);
|
|
|
|
return 2;
|
|
}
|
|
|
|
// new one is front
|
|
clipinfo[numclipmaps].next = pictoidx[pn];
|
|
pictoidx[pn] = numclipmaps;
|
|
}
|
|
else
|
|
{
|
|
clipinfo[numclipmaps].next = -1;
|
|
pictoidx[pn] = numclipmaps;
|
|
}
|
|
|
|
if (!CM_NOROT(i))
|
|
{
|
|
if (sprite[i].ang!=1536 && sprite[i].ang!=512)
|
|
{
|
|
for (fi = 0; fi < g_clipMapFilesNum; ++fi)
|
|
if (i>=fispr[fi])
|
|
break;
|
|
initprintf("clip map \"%s\": warning: sprite %d pointing neither northward nor southward. %s will be wrong.\n",
|
|
g_clipMapFiles[fi], i-fispr[fi], (sprite[i].cstat&48)==32 ? "Scaling and flipping" : "X-flipping");
|
|
}
|
|
}
|
|
|
|
clipinfo[numclipmaps].picnum = pn;
|
|
|
|
// collect sectors
|
|
scnt = numclipsects;
|
|
sectq[numclipsects++] = k;
|
|
sectoidx[k] = numclipmaps;
|
|
|
|
clipinfo[numclipmaps].qbeg = scnt;
|
|
|
|
outersect = -1;
|
|
|
|
do
|
|
{
|
|
k = sectq[scnt];
|
|
|
|
for (w=sector[k].wallptr; w<sector[k].wallptr+sector[k].wallnum; w++)
|
|
{
|
|
ns = wall[w].nextsector;
|
|
if (ns>=0)
|
|
{
|
|
if (sectoidx[ns]==CM_NONE)
|
|
{
|
|
sectoidx[ns] = numclipmaps;
|
|
sectq[numclipsects++] = ns;
|
|
}
|
|
else if (sectoidx[ns]&CM_OUTER)
|
|
{
|
|
if (outersect>=0 && ns!=outersect)
|
|
{
|
|
for (fi = 0; fi < g_clipMapFilesNum; ++fi)
|
|
if (ns>=fisec[fi])
|
|
break;
|
|
initprintf("clip map \"%s\": error: encountered more than one outer sector (%d and %d)"
|
|
" for sprite %d.\n", g_clipMapFiles[fi], outersect-fisec[fi], ns-fisec[fi], i-fispr[fi]);
|
|
clipmapinfo_init();
|
|
|
|
Bfree(fisec);
|
|
Bfree(fispr);
|
|
|
|
return 3;
|
|
}
|
|
|
|
outersect = ns;
|
|
sectoidx[outersect] |= numclipmaps;
|
|
}
|
|
else if (sectoidx[ns]!=numclipmaps)
|
|
{
|
|
for (fi = 0; fi < g_clipMapFilesNum; ++fi)
|
|
if (ns>=fisec[fi])
|
|
break;
|
|
initprintf("clip map \"%s\": error: encountered sector %d belonging to index %d"
|
|
" while collecting sectors for sprite %d (index %d).\n",
|
|
g_clipMapFiles[fi], ns-fisec[fi], sectoidx[ns], i-fispr[fi], numclipmaps);
|
|
clipmapinfo_init();
|
|
|
|
Bfree(fisec);
|
|
Bfree(fispr);
|
|
|
|
return 4;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
while (++scnt < numclipsects);
|
|
|
|
if (outersect==-1)
|
|
{
|
|
initprintf("clip map: INTERNAL ERROR: outersect==-1!\n");
|
|
clipmapinfo_init();
|
|
|
|
Bfree(fisec);
|
|
Bfree(fispr);
|
|
|
|
return 5;
|
|
}
|
|
|
|
sectq[numclipsects++] = outersect; // last is outer
|
|
clipinfo[numclipmaps].qend = numclipsects-1;
|
|
|
|
// normalize
|
|
maxdist = 0;
|
|
|
|
for (scnt=clipinfo[numclipmaps].qbeg; scnt<=clipinfo[numclipmaps].qend; scnt++)
|
|
{
|
|
k = sectq[scnt];
|
|
|
|
x = sprite[i].x;
|
|
y = sprite[i].y;
|
|
z = sprite[i].z;
|
|
|
|
sector[k].floorz -= z;
|
|
sector[k].ceilingz -= z;
|
|
|
|
if (scnt==clipinfo[numclipmaps].qbeg)
|
|
{
|
|
// backup sprite tags since we'll discard sprites later
|
|
sector[k].CM_XREPEAT = sprite[i].xrepeat;
|
|
sector[k].CM_YREPEAT = sprite[i].yrepeat;
|
|
sector[k].CM_XOFFSET = sprite[i].xoffset;
|
|
sector[k].CM_YOFFSET = sprite[i].yoffset;
|
|
sector[k].CM_CSTAT = sprite[i].cstat;
|
|
sector[k].CM_ANG = sprite[i].ang;
|
|
}
|
|
|
|
// backup floor and ceiling z
|
|
CM_FLOORZ(k) = sector[k].floorz;
|
|
CM_CEILINGZ(k) = sector[k].ceilingz;
|
|
|
|
for (w=sector[k].wallptr; w<sector[k].wallptr+sector[k].wallnum; w++)
|
|
{
|
|
wall[w].x -= x;
|
|
wall[w].y -= y;
|
|
|
|
if (scnt!=clipinfo[numclipmaps].qend)
|
|
{
|
|
if (CM_NOROT(i))
|
|
{
|
|
if (klabs(wall[w].x) > maxdist)
|
|
maxdist = klabs(wall[w].x);
|
|
if (klabs(wall[w].y) > maxdist)
|
|
maxdist = klabs(wall[w].y);
|
|
}
|
|
else
|
|
{
|
|
int32_t tmp = ksqrt(uhypsq(wall[w].x, wall[w].y));
|
|
if (tmp > maxdist)
|
|
maxdist = tmp;
|
|
}
|
|
}
|
|
|
|
// aliasing
|
|
if (wall[w].lotag>0 || wall[w].hitag>0)
|
|
{
|
|
int32_t ii;
|
|
|
|
if (wall[w].lotag>0 && wall[w].hitag>0)
|
|
{
|
|
if (wall[w].lotag > wall[w].hitag)
|
|
swapshort(&wall[w].lotag, &wall[w].hitag);
|
|
|
|
for (ii=wall[w].lotag; ii<wall[w].hitag; ii++)
|
|
tempictoidx[ii] = numclipmaps;
|
|
}
|
|
else if (wall[w].lotag>0)
|
|
{
|
|
if (wall[w].lotag<MAXTILES)
|
|
tempictoidx[wall[w].lotag] = numclipmaps;
|
|
}
|
|
else
|
|
{
|
|
if (wall[w].hitag<MAXTILES)
|
|
tempictoidx[wall[w].hitag] = numclipmaps;
|
|
}
|
|
}
|
|
|
|
CM_WALL_X(w) = wall[w].x;
|
|
CM_WALL_Y(w) = wall[w].y;
|
|
}
|
|
}
|
|
|
|
clipinfo[numclipmaps].maxdist = maxdist;
|
|
numclipmaps++;
|
|
}
|
|
}
|
|
|
|
// yes, too much copying, but better than ugly code
|
|
Bmemcpy(loadsector, sector, ournumsectors*sizeof(sectortype));
|
|
Bmemcpy(loadwall, wall, ournumwalls*sizeof(walltype));
|
|
|
|
// loadwallinv will contain all walls with inverted orientation for x/y-flip handling
|
|
loadwallinv = (walltype *)Xmalloc(ournumwalls*sizeof(walltype));
|
|
|
|
{
|
|
int32_t j, loopstart, loopend, numloopwalls;
|
|
|
|
// invert walls!
|
|
loopstart = 0;
|
|
for (j=0; j<ournumwalls; j++)
|
|
{
|
|
wall[j].nextsector = wall[j].nextwall = -1;
|
|
|
|
if (wall[j].point2 < j)
|
|
{
|
|
loopend = j+1;
|
|
numloopwalls = loopend-loopstart;
|
|
|
|
if (numloopwalls<3)
|
|
{
|
|
loopstart = loopend;
|
|
continue;
|
|
}
|
|
|
|
for (k=0; k<numloopwalls; k++)
|
|
{
|
|
wall[loopstart+k].x = loadwall[loopstart + (numloopwalls+1-k)%numloopwalls].x;
|
|
wall[loopstart+k].y = loadwall[loopstart + (numloopwalls+1-k)%numloopwalls].y;
|
|
|
|
CM_WALL_X(loopstart+k) = wall[loopstart+k].x;
|
|
CM_WALL_Y(loopstart+k) = wall[loopstart+k].y;
|
|
}
|
|
|
|
loopstart = loopend;
|
|
}
|
|
}
|
|
|
|
// reconstruct wall connections
|
|
for (i=0; i<ournumsectors; i++)
|
|
{
|
|
for (j=sector[i].wallptr; j<sector[i].wallptr+sector[i].wallnum; j++)
|
|
checksectorpointer(j, i);
|
|
}
|
|
}
|
|
Bmemcpy(loadwallinv, wall, ournumwalls*sizeof(walltype));
|
|
|
|
clipmapinfo.numsectors = numsectors;
|
|
clipmapinfo.sector = loadsector;
|
|
clipmapinfo.numwalls = numwalls;
|
|
clipmapinfo.wall = loadwall;
|
|
|
|
for (i=0; i<MAXTILES; i++)
|
|
{
|
|
if (pictoidx[i]==-1 && tempictoidx[i]>=0)
|
|
pictoidx[i]=tempictoidx[i];
|
|
}
|
|
|
|
Bfree(loadsprite); loadsprite=NULL;
|
|
Bfree(tempictoidx); tempictoidx=NULL;
|
|
|
|
// don't let other code be distracted by the temporary map we constructed
|
|
numsectors = 0;
|
|
numwalls = 0;
|
|
initspritelists();
|
|
|
|
if (lwcp > 0)
|
|
initprintf("Loaded clip map%s.\n", lwcp==1?"":"s");
|
|
|
|
Bfree(fisec);
|
|
Bfree(fispr);
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
int32_t clipshape_idx_for_sprite(spritetype *curspr, int32_t curidx)
|
|
{
|
|
if (curidx < 0) // per-sprite init
|
|
curidx = pictoidx[curspr->picnum];
|
|
else
|
|
curidx = clipinfo[curidx].next;
|
|
|
|
while (curidx>=0 && (curspr->cstat&32) != (sector[sectq[clipinfo[curidx].qbeg]].CM_CSTAT&32))
|
|
curidx = clipinfo[curidx].next;
|
|
|
|
return curidx;
|
|
}
|
|
#else
|
|
int32_t clipshape_idx_for_sprite(spritetype *curspr, int32_t curidx)
|
|
{
|
|
UNREFERENCED_PARAMETER(curspr);
|
|
UNREFERENCED_PARAMETER(curidx);
|
|
return -1;
|
|
}
|
|
#endif // HAVE_CLIPSHAPE_FEATURE
|
|
////// //////
|
|
|
|
#define WALLS_ARE_CONSISTENT(k) ((wall[k].x == x2 && wall[k].y == y2) \
|
|
&& ((wall[wall[k].point2]).x == x1 && (wall[wall[k].point2]).y == y1))
|
|
|
|
static int32_t getscore(int32_t w1c, int32_t w1f, int32_t w2c, int32_t w2f)
|
|
{
|
|
int32_t minflor, maxceil;
|
|
|
|
if (w1c > w1f)
|
|
swaplong(&w1c, &w1f);
|
|
if (w2c > w2f)
|
|
swaplong(&w2c, &w2f);
|
|
|
|
// now: c <= f for each "wall-vline"
|
|
|
|
maxceil = max(w1c, w2c);
|
|
minflor = min(w1f, w2f);
|
|
|
|
return minflor-maxceil;
|
|
}
|
|
|
|
const int16_t *chsecptr_onextwall = NULL;
|
|
|
|
int32_t checksectorpointer(int16_t i, int16_t sectnum)
|
|
{
|
|
int32_t startsec, endsec;
|
|
int32_t j, k, startwall, endwall, x1, y1, x2, y2, numnewwalls=0;
|
|
int32_t bestnextwall=-1, bestnextsec=-1, bestwallscore=INT32_MIN;
|
|
int32_t cz[4], fz[4], tmp[2], tmpscore=0;
|
|
#ifdef YAX_ENABLE
|
|
int16_t cb[2], fb[2];
|
|
#endif
|
|
|
|
#if 0
|
|
if (checksectorpointer_warn && (i<0 || i>=max(numwalls,newnumwalls)))
|
|
{
|
|
char buf[128];
|
|
Bsprintf(buf, "WARN: checksectorpointer called with i=%d but (new)numwalls=%d", i, max(numwalls,newnumwalls));
|
|
OSD_Printf("%s\n", buf);
|
|
printmessage16("%s", buf);
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
x1 = wall[i].x;
|
|
y1 = wall[i].y;
|
|
x2 = (wall[wall[i].point2]).x;
|
|
y2 = (wall[wall[i].point2]).y;
|
|
|
|
k = wall[i].nextwall;
|
|
if (k >= 0) //Check for early exit
|
|
{
|
|
if (WALLS_ARE_CONSISTENT(k))
|
|
return 0;
|
|
|
|
wall[k].nextwall = wall[k].nextsector = -1;
|
|
}
|
|
|
|
if ((unsigned)wall[i].nextsector < (unsigned)numsectors && wall[i].nextwall < 0)
|
|
{
|
|
// if we have a nextsector but no nextwall, take this as a hint
|
|
// to search only the walls of that sector
|
|
startsec = wall[i].nextsector;
|
|
endsec = startsec+1;
|
|
}
|
|
else
|
|
{
|
|
startsec = 0;
|
|
endsec = numsectors;
|
|
}
|
|
|
|
wall[i].nextsector = wall[i].nextwall = -1;
|
|
|
|
if (chsecptr_onextwall && (k=chsecptr_onextwall[i])>=0 && wall[k].nextwall<0)
|
|
{
|
|
// old next wall found
|
|
if (WALLS_ARE_CONSISTENT(k))
|
|
{
|
|
j = sectorofwall(k);
|
|
|
|
wall[i].nextsector = j;
|
|
wall[i].nextwall = k;
|
|
wall[k].nextsector = sectnum;
|
|
wall[k].nextwall = i;
|
|
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
for (j=startsec; j<endsec; j++)
|
|
{
|
|
if (j == sectnum)
|
|
continue;
|
|
|
|
YAX_SKIPSECTOR(j);
|
|
|
|
startwall = sector[j].wallptr;
|
|
endwall = startwall + sector[j].wallnum;
|
|
for (k=startwall; k<endwall; k++)
|
|
{
|
|
if (!WALLS_ARE_CONSISTENT(k))
|
|
continue;
|
|
|
|
// Don't create link if the other side is connected to another wall.
|
|
// The nextwall relation should be definitely one-to-one at all times!
|
|
if (wall[k].nextwall>=0 && wall[k].nextwall != i)
|
|
continue;
|
|
#ifdef YAX_ENABLE
|
|
yax_getbunches(sectnum, &cb[0], &fb[0]);
|
|
yax_getbunches(j, &cb[1], &fb[1]);
|
|
|
|
if ((cb[0]>=0 && cb[0]==cb[1]) || (fb[0]>=0 && fb[0]==fb[1]))
|
|
{
|
|
tmpscore = INT32_MAX;
|
|
}
|
|
else
|
|
#endif
|
|
{
|
|
getzsofslope(sectnum, x1,y1, &cz[0],&fz[0]);
|
|
getzsofslope(sectnum, x2,y2, &cz[1],&fz[1]);
|
|
getzsofslope(j, x1,y1, &cz[2],&fz[2]);
|
|
getzsofslope(j, x2,y2, &cz[3],&fz[3]);
|
|
|
|
tmp[0] = getscore(cz[0],fz[0], cz[2],fz[2]);
|
|
tmp[1] = getscore(cz[1],fz[1], cz[3],fz[3]);
|
|
|
|
if ((tmp[0]^tmp[1]) >= 0)
|
|
tmpscore = tmp[0]+tmp[1];
|
|
else
|
|
tmpscore = max(tmp[0], tmp[1]);
|
|
}
|
|
|
|
if (bestnextwall == -1 || tmpscore > bestwallscore)
|
|
{
|
|
bestwallscore = tmpscore;
|
|
bestnextwall = k;
|
|
bestnextsec = j;
|
|
}
|
|
|
|
numnewwalls++;
|
|
}
|
|
}
|
|
|
|
// sectnum -2 means dry run
|
|
if (bestnextwall >= 0 && sectnum!=-2)
|
|
#ifdef YAX_ENABLE
|
|
// for walls with TROR neighbors, be conservative in case if score <=0
|
|
// (meaning that no wall area is mutually visible) -- it could be that
|
|
// another sector is a better candidate later on
|
|
if ((yax_getnextwall(i, 0)<0 && yax_getnextwall(i, 1)<0) || bestwallscore>0)
|
|
#endif
|
|
{
|
|
// initprintf("w%d new nw=%d (score %d)\n", i, bestnextwall, bestwallscore)
|
|
wall[i].nextsector = bestnextsec;
|
|
wall[i].nextwall = bestnextwall;
|
|
wall[bestnextwall].nextsector = sectnum;
|
|
wall[bestnextwall].nextwall = i;
|
|
}
|
|
|
|
return numnewwalls;
|
|
}
|
|
|
|
#undef WALLS_ARE_CONSISTENT
|
|
|
|
|
|
#if defined(_MSC_VER) && !defined(NOASM)
|
|
|
|
//
|
|
// Microsoft C Inline Assembly Routines
|
|
//
|
|
|
|
static inline int32_t nsqrtasm(int32_t a)
|
|
{
|
|
_asm
|
|
{
|
|
push ebx
|
|
mov eax, a
|
|
test eax, 0xff000000
|
|
mov ebx, eax
|
|
jnz short over24
|
|
shr ebx, 12
|
|
mov cx, word ptr shlookup[ebx*2]
|
|
jmp short under24
|
|
over24:
|
|
shr ebx, 24
|
|
mov cx, word ptr shlookup[ebx*2+8192]
|
|
under24:
|
|
shr eax, cl
|
|
mov cl, ch
|
|
mov ax, word ptr sqrtable[eax*2]
|
|
shr eax, cl
|
|
pop ebx
|
|
}
|
|
}
|
|
|
|
static inline int32_t msqrtasm(int32_t c)
|
|
{
|
|
_asm
|
|
{
|
|
push ebx
|
|
mov ecx, c
|
|
mov eax, 0x40000000
|
|
mov ebx, 0x20000000
|
|
begit:
|
|
cmp ecx, eax
|
|
jl skip
|
|
sub ecx, eax
|
|
lea eax, [eax+ebx*4]
|
|
skip:
|
|
sub eax, ebx
|
|
shr eax, 1
|
|
shr ebx, 2
|
|
jnz begit
|
|
cmp ecx, eax
|
|
sbb eax, -1
|
|
shr eax, 1
|
|
pop ebx
|
|
}
|
|
}
|
|
|
|
static inline int32_t getclipmask(int32_t a, int32_t b, int32_t c, int32_t d)
|
|
{
|
|
_asm
|
|
{
|
|
push ebx
|
|
mov eax, a
|
|
mov ebx, b
|
|
mov ecx, c
|
|
mov edx, d
|
|
sar eax, 31
|
|
add ebx, ebx
|
|
adc eax, eax
|
|
add ecx, ecx
|
|
adc eax, eax
|
|
add edx, edx
|
|
adc eax, eax
|
|
mov ebx, eax
|
|
shl ebx, 4
|
|
or al, 0xf0
|
|
xor eax, ebx
|
|
pop ebx
|
|
}
|
|
}
|
|
|
|
static inline int32_t getkensmessagecrc(void *b)
|
|
{
|
|
_asm
|
|
{
|
|
push ebx
|
|
mov ebx, b
|
|
xor eax, eax
|
|
mov ecx, 32
|
|
beg:
|
|
mov edx, dword ptr [ebx+ecx*4-4]
|
|
ror edx, cl
|
|
adc eax, edx
|
|
bswap eax
|
|
loop short beg
|
|
pop ebx
|
|
}
|
|
}
|
|
|
|
#elif defined(__GNUC__) && defined(__i386__) && !defined(NOASM) // _MSC_VER
|
|
|
|
//
|
|
// GCC "Inline" Assembly Routines
|
|
//
|
|
|
|
#define nsqrtasm(a) \
|
|
({ int32_t __r, __a=(a); \
|
|
__asm__ __volatile__ ( \
|
|
"testl $0xff000000, %%eax\n\t" \
|
|
"movl %%eax, %%ebx\n\t" \
|
|
"jnz 0f\n\t" \
|
|
"shrl $12, %%ebx\n\t" \
|
|
"movw " ASMSYM("shlookup") "(,%%ebx,2), %%cx\n\t" \
|
|
"jmp 1f\n\t" \
|
|
"0:\n\t" \
|
|
"shrl $24, %%ebx\n\t" \
|
|
"movw (" ASMSYM("shlookup") "+8192)(,%%ebx,2), %%cx\n\t" \
|
|
"1:\n\t" \
|
|
"shrl %%cl, %%eax\n\t" \
|
|
"movb %%ch, %%cl\n\t" \
|
|
"movw " ASMSYM("sqrtable") "(,%%eax,2), %%ax\n\t" \
|
|
"shrl %%cl, %%eax" \
|
|
: "=a" (__r) : "a" (__a) : "ebx", "ecx", "cc"); \
|
|
__r; })
|
|
|
|
// edx is blown by this code somehow?!
|
|
#define msqrtasm(c) \
|
|
({ int32_t __r, __c=(c); \
|
|
__asm__ __volatile__ ( \
|
|
"movl $0x40000000, %%eax\n\t" \
|
|
"movl $0x20000000, %%ebx\n\t" \
|
|
"0:\n\t" \
|
|
"cmpl %%eax, %%ecx\n\t" \
|
|
"jl 1f\n\t" \
|
|
"subl %%eax, %%ecx\n\t" \
|
|
"leal (%%eax,%%ebx,4), %%eax\n\t" \
|
|
"1:\n\t" \
|
|
"subl %%ebx, %%eax\n\t" \
|
|
"shrl $1, %%eax\n\t" \
|
|
"shrl $2, %%ebx\n\t" \
|
|
"jnz 0b\n\t" \
|
|
"cmpl %%eax, %%ecx\n\t" \
|
|
"sbbl $-1, %%eax\n\t" \
|
|
"shrl $1, %%eax" \
|
|
: "=a" (__r) : "c" (__c) : "edx","ebx", "cc"); \
|
|
__r; })
|
|
|
|
#define getclipmask(a,b,c,d) \
|
|
({ int32_t __a=(a), __b=(b), __c=(c), __d=(d); \
|
|
__asm__ __volatile__ ("sarl $31, %%eax; addl %%ebx, %%ebx; adcl %%eax, %%eax; " \
|
|
"addl %%ecx, %%ecx; adcl %%eax, %%eax; addl %%edx, %%edx; " \
|
|
"adcl %%eax, %%eax; movl %%eax, %%ebx; shl $4, %%ebx; " \
|
|
"orb $0xf0, %%al; xorl %%ebx, %%eax" \
|
|
: "=a" (__a), "=b" (__b), "=c" (__c), "=d" (__d) \
|
|
: "a" (__a), "b" (__b), "c" (__c), "d" (__d) : "cc"); \
|
|
__a; })
|
|
|
|
|
|
#define getkensmessagecrc(b) \
|
|
({ int32_t __a, __b=(b); \
|
|
__asm__ __volatile__ ( \
|
|
"xorl %%eax, %%eax\n\t" \
|
|
"movl $32, %%ecx\n\t" \
|
|
"0:\n\t" \
|
|
"movl -4(%%ebx,%%ecx,4), %%edx\n\t" \
|
|
"rorl %%cl, %%edx\n\t" \
|
|
"adcl %%edx, %%eax\n\t" \
|
|
"bswapl %%eax\n\t" \
|
|
"loop 0b" \
|
|
: "=a" (__a) : "b" (__b) : "ecx", "edx" \
|
|
__a; })
|
|
|
|
#else // __GNUC__ && __i386__
|
|
|
|
static inline int32_t nsqrtasm(uint32_t a)
|
|
{
|
|
// JBF 20030901: This was a damn lot simpler to reverse engineer than
|
|
// msqrtasm was. Really, it was just like simplifying an algebra equation.
|
|
uint16_t c;
|
|
|
|
if (a & 0xff000000) // test eax, 0xff000000 / jnz short over24
|
|
{
|
|
c = shlookup[(a >> 24) + 4096]; // mov ebx, eax
|
|
// over24: shr ebx, 24
|
|
// mov cx, word ptr shlookup[ebx*2+8192]
|
|
}
|
|
else
|
|
{
|
|
c = shlookup[a >> 12]; // mov ebx, eax
|
|
// shr ebx, 12
|
|
// mov cx, word ptr shlookup[ebx*2]
|
|
// jmp short under24
|
|
}
|
|
a >>= c&0xff; // under24: shr eax, cl
|
|
a = (a&0xffff0000)|(sqrtable[a]); // mov ax, word ptr sqrtable[eax*2]
|
|
a >>= ((c&0xff00) >> 8); // mov cl, ch
|
|
// shr eax, cl
|
|
return a;
|
|
}
|
|
|
|
static inline int32_t msqrtasm(uint32_t c)
|
|
{
|
|
uint32_t a,b;
|
|
|
|
a = 0x40000000l; // mov eax, 0x40000000
|
|
b = 0x20000000l; // mov ebx, 0x20000000
|
|
do // begit:
|
|
{
|
|
if (c >= a) // cmp ecx, eax / jl skip
|
|
{
|
|
c -= a; // sub ecx, eax
|
|
a += b*4; // lea eax, [eax+ebx*4]
|
|
} // skip:
|
|
a -= b; // sub eax, ebx
|
|
a >>= 1; // shr eax, 1
|
|
b >>= 2; // shr ebx, 2
|
|
}
|
|
while (b); // jnz begit
|
|
if (c >= a) // cmp ecx, eax
|
|
a++; // sbb eax, -1
|
|
a >>= 1; // shr eax, 1
|
|
return a;
|
|
}
|
|
|
|
static inline int32_t getclipmask(int32_t a, int32_t b, int32_t c, int32_t d)
|
|
{
|
|
// Ken did this
|
|
d = ((a<0)*8) + ((b<0)*4) + ((c<0)*2) + (d<0);
|
|
return(((d<<4)^0xf0)|d);
|
|
}
|
|
|
|
inline int32_t getkensmessagecrc(int32_t b)
|
|
{
|
|
UNREFERENCED_PARAMETER(b);
|
|
return 0x56c764d4l;
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
int32_t xb1[MAXWALLSB]; // Polymost uses this as a temp array
|
|
static int32_t yb1[MAXWALLSB], xb2[MAXWALLSB], yb2[MAXWALLSB];
|
|
int32_t rx1[MAXWALLSB], ry1[MAXWALLSB];
|
|
static int32_t rx2[MAXWALLSB], ry2[MAXWALLSB];
|
|
int16_t bunchp2[MAXWALLSB], thesector[MAXWALLSB];
|
|
|
|
int16_t bunchfirst[MAXWALLSB], bunchlast[MAXWALLSB];
|
|
|
|
static int32_t smostcnt;
|
|
static int16_t smost[MAXYSAVES];
|
|
static int32_t smoststart[MAXWALLSB];
|
|
static char smostwalltype[MAXWALLSB];
|
|
static int32_t smostwall[MAXWALLSB], smostwallcnt = -1;
|
|
|
|
static int32_t spritesx[MAXSPRITESONSCREEN];
|
|
static int32_t spritesy[MAXSPRITESONSCREEN+1];
|
|
static int32_t spritesz[MAXSPRITESONSCREEN];
|
|
|
|
static int16_t umost[MAXXDIM], dmost[MAXXDIM];
|
|
static int16_t bakumost[MAXXDIM], bakdmost[MAXXDIM];
|
|
static int16_t uplc[MAXXDIM], dplc[MAXXDIM];
|
|
static int16_t uwall[MAXXDIM], dwall[MAXXDIM];
|
|
static int32_t swplc[MAXXDIM], lplc[MAXXDIM];
|
|
static int32_t swall[MAXXDIM], lwall[MAXXDIM+4];
|
|
#ifdef HIGH_PRECISION_SPRITE
|
|
static float swallf[MAXXDIM];
|
|
#endif
|
|
int32_t xdimen = -1, xdimenrecip, halfxdimen, xdimenscale, xdimscale;
|
|
int32_t ydimen;
|
|
static int32_t wx1, wy1, wx2, wy2;
|
|
intptr_t frameoffset;
|
|
|
|
static int32_t nrx1[8], nry1[8], nrx2[8], nry2[8]; // JBF 20031206: Thanks Ken
|
|
|
|
static int32_t rxi[8], ryi[8], rzi[8], rxi2[8], ryi2[8], rzi2[8];
|
|
static int32_t xsi[8], ysi[8], horizycent;
|
|
static int32_t *horizlookup=0, *horizlookup2=0;
|
|
|
|
int32_t globalposx, globalposy, globalposz, globalhoriz;
|
|
int16_t globalang, globalcursectnum;
|
|
int32_t globalpal, cosglobalang, singlobalang;
|
|
static int32_t globalblend;
|
|
int32_t cosviewingrangeglobalang, sinviewingrangeglobalang;
|
|
static char *globalpalwritten;
|
|
static int32_t globaluclip, globaldclip;
|
|
int32_t globvis, globalvisibility;
|
|
int32_t globalhisibility, globalpisibility, globalcisibility;
|
|
//char globparaceilclip, globparaflorclip;
|
|
|
|
int32_t xyaspect;
|
|
static int32_t viewingrangerecip;
|
|
|
|
static char globalxshift, globalyshift;
|
|
static int32_t globalxpanning, globalypanning;
|
|
int32_t globalshade, globalorientation;
|
|
int16_t globalpicnum;
|
|
static int16_t globalshiftval;
|
|
#ifdef HIGH_PRECISION_SPRITE
|
|
static int64_t globalzd;
|
|
#else
|
|
static int32_t globalzd;
|
|
#endif
|
|
static int32_t globalyscale;
|
|
static int32_t globalxspan, globalyspan, globalispow2=1; // true if texture has power-of-two x and y size
|
|
static intptr_t globalbufplc;
|
|
|
|
static int32_t globaly1, globalx2;
|
|
|
|
int16_t sectorborder[256];
|
|
int32_t ydim16, qsetmode = 0;
|
|
int16_t pointhighlight=-1, linehighlight=-1, highlightcnt=0;
|
|
static int32_t lastx[MAXYDIM];
|
|
|
|
static char paletteloaded = 0;
|
|
|
|
int32_t halfxdim16, midydim16;
|
|
|
|
#define FASTPALGRIDSIZ 8
|
|
static int32_t rdist[129], gdist[129], bdist[129];
|
|
static char colhere[((FASTPALGRIDSIZ+2)*(FASTPALGRIDSIZ+2)*(FASTPALGRIDSIZ+2))>>3];
|
|
static char colhead[(FASTPALGRIDSIZ+2)*(FASTPALGRIDSIZ+2)*(FASTPALGRIDSIZ+2)];
|
|
static int32_t colnext[256];
|
|
static char coldist[8] = {0,1,2,3,4,3,2,1};
|
|
static int32_t colscan[27];
|
|
|
|
static int16_t clipnum, hitwalls[4];
|
|
const int32_t hitscangoalx = (1<<29)-1, hitscangoaly = (1<<29)-1;
|
|
#ifdef USE_OPENGL
|
|
int32_t hitallsprites = 0;
|
|
#endif
|
|
|
|
typedef struct { int32_t x1, y1, x2, y2; } linetype;
|
|
static linetype clipit[MAXCLIPNUM];
|
|
static int32_t clipsectnum, origclipsectnum, clipspritenum;
|
|
static int16_t clipsectorlist[MAXCLIPNUM], origclipsectorlist[MAXCLIPNUM];
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
static int16_t clipspritelist[MAXCLIPNUM]; // sector-like sprite clipping
|
|
#endif
|
|
static int16_t clipobjectval[MAXCLIPNUM];
|
|
|
|
typedef struct
|
|
{
|
|
int32_t sx, sy, z;
|
|
int16_t a, picnum;
|
|
int8_t dashade;
|
|
char dapalnum, dastat;
|
|
uint8_t daalpha, dablend;
|
|
char pagesleft;
|
|
int32_t cx1, cy1, cx2, cy2;
|
|
int32_t uniqid; //JF extension
|
|
} permfifotype;
|
|
static permfifotype permfifo[MAXPERMS];
|
|
static int32_t permhead = 0, permtail = 0;
|
|
|
|
EDUKE32_STATIC_ASSERT(MAXWALLSB < INT16_MAX);
|
|
int16_t numscans, numbunches;
|
|
static int16_t numhits;
|
|
int16_t capturecount = 0;
|
|
|
|
char vgapal16[4*256] =
|
|
{
|
|
00,00,00,00, 42,00,00,00, 00,42,00,00, 42,42,00,00, 00,00,42,00,
|
|
42,00,42,00, 00,21,42,00, 42,42,42,00, 21,21,21,00, 63,21,21,00,
|
|
21,63,21,00, 63,63,21,00, 21,21,63,00, 63,21,63,00, 21,63,63,00,
|
|
63,63,63,00
|
|
};
|
|
|
|
int16_t searchit;
|
|
int32_t searchx = -1, searchy; //search input
|
|
int16_t searchsector, searchwall, searchstat; //search output
|
|
|
|
// SEARCHBOTTOMWALL:
|
|
// When aiming at a the bottom part of a 2-sided wall whose bottom part
|
|
// is swapped (.cstat&2), searchbottomwall equals that wall's .nextwall. In all
|
|
// other cases (when aiming at a wall), searchbottomwall equals searchwall.
|
|
//
|
|
// SEARCHISBOTTOM:
|
|
// When aiming at a 2-sided wall, 1 if aiming at the bottom part, 0 else
|
|
int16_t searchbottomwall, searchisbottom;
|
|
|
|
double msens = 1.0;
|
|
|
|
static char artfilename[20];
|
|
static char mapartfilename[BMAX_PATH]; // map-specific ART file name
|
|
static int32_t mapartfnXXofs; // byte offset to 'XX' (the number part) in the above
|
|
static int32_t artfil = -1, artfilnum, artfilplc;
|
|
|
|
char inpreparemirror = 0;
|
|
static int32_t mirrorsx1, mirrorsy1, mirrorsx2, mirrorsy2;
|
|
|
|
static int32_t setviewcnt = 0; // interface layers use this now
|
|
static int32_t bakframeplace[4], bakxsiz[4], bakysiz[4];
|
|
static int32_t bakwindowx1[4], bakwindowy1[4];
|
|
static int32_t bakwindowx2[4], bakwindowy2[4];
|
|
#ifdef USE_OPENGL
|
|
static int32_t bakrendmode;
|
|
#endif
|
|
static int32_t baktile;
|
|
|
|
char apptitle[256] = "Build Engine";
|
|
|
|
static uint8_t basepalreset=1;
|
|
uint8_t basepalcount;
|
|
uint8_t curbasepal;
|
|
|
|
static uint32_t g_lastpalettesum = 0;
|
|
palette_t curpalette[256]; // the current palette, unadjusted for brightness or tint
|
|
palette_t curpalettefaded[256]; // the current palette, adjusted for brightness and tint (ie. what gets sent to the card)
|
|
palette_t palfadergb = { 0,0,0,0 };
|
|
char palfadedelta = 0;
|
|
|
|
|
|
|
|
//
|
|
// Internal Engine Functions
|
|
//
|
|
|
|
// blendtable[1] to blendtable[numalphatabs] are considered to be
|
|
// alpha-blending tables:
|
|
static uint8_t numalphatabs;
|
|
|
|
static char *blendtable[MAXBLENDTABS];
|
|
void setblendtab(int32_t blend, const char *tab);
|
|
#define getblendtab(blend) (blendtable[blend])
|
|
|
|
static void setpalettefade_calc(uint8_t offset);
|
|
|
|
void fade_screen_black(int32_t moreopaquep)
|
|
{
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST)
|
|
fullscreen_tint_gl(0,0,0, moreopaquep ? 168 : 84);
|
|
else
|
|
#endif
|
|
{
|
|
Bassert(!offscreenrendering);
|
|
|
|
begindrawing();
|
|
{
|
|
char *const p = (char *)frameplace;
|
|
const char *const trans = getblendtab(0);
|
|
const int32_t shiftamnt = ((!!moreopaquep)*8);
|
|
const int32_t dimprod = xdim*ydim;
|
|
int32_t i = 0;
|
|
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
for (; i<dimprod-4; i+=4)
|
|
{
|
|
p[i] = trans[p[i]<<shiftamnt];
|
|
p[i+1] = trans[p[i+1]<<shiftamnt];
|
|
p[i+2] = trans[p[i+2]<<shiftamnt];
|
|
p[i+3] = trans[p[i+3]<<shiftamnt];
|
|
}
|
|
#endif
|
|
|
|
for (; i<dimprod; i++)
|
|
p[i] = trans[p[i]<<shiftamnt];
|
|
}
|
|
enddrawing();
|
|
}
|
|
}
|
|
|
|
|
|
// returns: 0=continue sprite collecting;
|
|
// 1=break out of sprite collecting;
|
|
int32_t engine_addtsprite(int16_t z, int16_t sectnum)
|
|
{
|
|
spritetype *spr = &sprite[z];
|
|
#ifdef YAX_ENABLE
|
|
int16_t cb, fb, *sortcnt;
|
|
int32_t spheight, spzofs;
|
|
|
|
if (g_nodraw==0)
|
|
{
|
|
if (numyaxbunches==0)
|
|
{
|
|
#endif
|
|
if (spritesortcnt >= MAXSPRITESONSCREEN)
|
|
return 1;
|
|
|
|
Bmemcpy(&tsprite[spritesortcnt], spr, sizeof(spritetype));
|
|
tsprite[spritesortcnt++].owner = z;
|
|
|
|
#ifdef YAX_ENABLE
|
|
}
|
|
}
|
|
else
|
|
if (yax_nomaskpass==0)
|
|
{
|
|
sortcnt = &yax_spritesortcnt[yax_globallev];
|
|
if (*sortcnt >= MAXSPRITESONSCREEN)
|
|
return 1;
|
|
|
|
yax_tsprite[yax_globallev][*sortcnt] = z;
|
|
if (yax_globalbunch >= 0)
|
|
{
|
|
yax_tsprite[yax_globallev][*sortcnt] |= (MAXSPRITES|(MAXSPRITES<<1));
|
|
yax_tsprfrombunch[yax_globallev][*sortcnt] = yax_globalbunch;
|
|
}
|
|
(*sortcnt)++;
|
|
|
|
// now check whether the tsprite needs duplication into another level
|
|
if ((spr->cstat&48)==32)
|
|
return 0;
|
|
|
|
yax_getbunches(sectnum, &cb, &fb);
|
|
if (cb < 0 && fb < 0)
|
|
return 0;
|
|
|
|
spzofs = spriteheightofs(z, &spheight, 1);
|
|
|
|
// TODO: get*zofslope?
|
|
if (cb>=0 && spr->z+spzofs-spheight < sector[sectnum].ceilingz)
|
|
{
|
|
sortcnt = &yax_spritesortcnt[yax_globallev-1];
|
|
if (*sortcnt < MAXSPRITESONSCREEN)
|
|
{
|
|
yax_tsprite[yax_globallev-1][*sortcnt] = z|MAXSPRITES;
|
|
(*sortcnt)++;
|
|
}
|
|
}
|
|
if (fb>=0 && spr->z+spzofs > sector[sectnum].floorz)
|
|
{
|
|
sortcnt = &yax_spritesortcnt[yax_globallev+1];
|
|
if (*sortcnt < MAXSPRITESONSCREEN)
|
|
{
|
|
yax_tsprite[yax_globallev+1][*sortcnt] = z|(MAXSPRITES<<1);
|
|
(*sortcnt)++;
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
|
|
return 0;
|
|
}
|
|
|
|
//
|
|
// scansector (internal)
|
|
//
|
|
static void scansector(int16_t startsectnum)
|
|
{
|
|
int32_t tempint;
|
|
int32_t sectorbordercnt;
|
|
vec2_t p1, p2 ={ 0, 0 };
|
|
|
|
if (startsectnum < 0)
|
|
return;
|
|
|
|
sectorborder[0] = startsectnum, sectorbordercnt = 1;
|
|
|
|
do
|
|
{
|
|
int32_t z, startwall, endwall, numscansbefore, scanfirst, bunchfrst;
|
|
const int32_t sectnum = sectorborder[--sectorbordercnt];
|
|
walltype *wal;
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (scansector_collectsprites)
|
|
#endif
|
|
for (z=headspritesect[sectnum]; z>=0; z=nextspritesect[z])
|
|
{
|
|
const spritetype *const spr = &sprite[z];
|
|
|
|
if ((((spr->cstat&0x8000) == 0) || (showinvisibility)) &&
|
|
(spr->xrepeat > 0) && (spr->yrepeat > 0))
|
|
{
|
|
int32_t xs = spr->x-globalposx, ys = spr->y-globalposy;
|
|
|
|
if ((spr->cstat&48) || ((coord_t)xs*cosglobalang+(coord_t)ys*singlobalang > 0))
|
|
if ((spr->cstat&(64+48))!=(64+16) || dmulscale6(sintable[(spr->ang+512)&2047],-xs, sintable[spr->ang&2047],-ys) > 0)
|
|
if (engine_addtsprite(z, sectnum))
|
|
break;
|
|
}
|
|
}
|
|
|
|
gotsector[sectnum>>3] |= pow2char[sectnum&7];
|
|
|
|
bunchfrst = numbunches;
|
|
numscansbefore = numscans;
|
|
|
|
startwall = sector[sectnum].wallptr;
|
|
endwall = startwall + sector[sectnum].wallnum;
|
|
scanfirst = numscans;
|
|
for (z=startwall,wal=&wall[z]; z<endwall; z++,wal++)
|
|
{
|
|
const int32_t nextsectnum = wal->nextsector;
|
|
const walltype *const wal2 = &wall[wal->point2];
|
|
|
|
const int32_t x1 = wal->x-globalposx, y1 = wal->y-globalposy;
|
|
const int32_t x2 = wal2->x-globalposx, y2 = wal2->y-globalposy;
|
|
|
|
if ((nextsectnum >= 0) && ((wal->cstat&32) == 0))
|
|
#ifdef YAX_ENABLE
|
|
if (yax_nomaskpass==0 || !yax_isislandwall(z, !yax_globalcf) || (yax_nomaskdidit=1, 0))
|
|
#endif
|
|
if ((gotsector[nextsectnum>>3]&pow2char[nextsectnum&7]) == 0)
|
|
{
|
|
// OV: E2L10
|
|
coord_t temp = (coord_t)x1*y2-(coord_t)x2*y1;
|
|
tempint = temp;
|
|
if (((uint64_t)tempint+262144) < 524288) // BXY_MAX?
|
|
if (mulscale5(tempint,tempint) <= (x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
|
|
sectorborder[sectorbordercnt++] = nextsectnum;
|
|
}
|
|
|
|
if ((z == startwall) || (wall[z-1].point2 != z))
|
|
{
|
|
p1.x = dmulscale6(y1,cosglobalang,-x1,singlobalang);
|
|
p1.y = dmulscale6(x1,cosviewingrangeglobalang,y1,sinviewingrangeglobalang);
|
|
}
|
|
else
|
|
p1 = p2;
|
|
|
|
p2.x = dmulscale6(y2,cosglobalang,-x2,singlobalang);
|
|
p2.y = dmulscale6(x2,cosviewingrangeglobalang,y2,sinviewingrangeglobalang);
|
|
if ((p1.y < 256) && (p2.y < 256)) goto skipitaddwall;
|
|
|
|
//If wall's NOT facing you
|
|
if (dmulscale32(p1.x, p2.y,-p2.x, p1.y) >= 0) goto skipitaddwall;
|
|
|
|
if (p1.x >= -p1.y)
|
|
{
|
|
if ((p1.x > p1.y) || (p1.y == 0)) goto skipitaddwall;
|
|
xb1[numscans] = halfxdimen + scale(p1.x,halfxdimen,p1.y);
|
|
if (p1.x >= 0) xb1[numscans]++; //Fix for SIGNED divide
|
|
if (xb1[numscans] >= xdimen) xb1[numscans] = xdimen-1;
|
|
yb1[numscans] = p1.y;
|
|
}
|
|
else
|
|
{
|
|
if (p2.x < -p2.y) goto skipitaddwall;
|
|
xb1[numscans] = 0;
|
|
tempint = (p1.x + p1.y) - (p2.x + p2.y);
|
|
if (tempint == 0) goto skipitaddwall;
|
|
yb1[numscans] = p1.y + scale(p2.y-p1.y,p1.x+p1.y,tempint);
|
|
}
|
|
if (yb1[numscans] < 256) goto skipitaddwall;
|
|
|
|
if (p2.x <= p2.y)
|
|
{
|
|
if ((p2.x < -p2.y) || (p2.y == 0)) goto skipitaddwall;
|
|
xb2[numscans] = halfxdimen + scale(p2.x,halfxdimen,p2.y) - 1;
|
|
if (p2.x >= 0) xb2[numscans]++; //Fix for SIGNED divide
|
|
if (xb2[numscans] >= xdimen) xb2[numscans] = xdimen-1;
|
|
yb2[numscans] = p2.y;
|
|
}
|
|
else
|
|
{
|
|
if (p1.x > p1.y) goto skipitaddwall;
|
|
xb2[numscans] = xdimen-1;
|
|
tempint = (p1.y - p1.x) + (p2.x - p2.y);
|
|
if (tempint == 0) goto skipitaddwall;
|
|
yb2[numscans] = p1.y + scale(p2.y-p1.y,p1.y-p1.x,tempint);
|
|
}
|
|
if ((yb2[numscans] < 256) || (xb1[numscans] > xb2[numscans])) goto skipitaddwall;
|
|
|
|
//Made it all the way!
|
|
thesector[numscans] = sectnum; thewall[numscans] = z;
|
|
rx1[numscans] = p1.x; ry1[numscans] = p1.y;
|
|
rx2[numscans] = p2.x; ry2[numscans] = p2.y;
|
|
bunchp2[numscans] = numscans+1;
|
|
numscans++;
|
|
skipitaddwall:
|
|
|
|
if ((wall[z].point2 < z) && (scanfirst < numscans))
|
|
bunchp2[numscans-1] = scanfirst, scanfirst = numscans;
|
|
}
|
|
|
|
for (z=numscansbefore; z<numscans; z++)
|
|
if ((wall[thewall[z]].point2 != thewall[bunchp2[z]]) || (xb2[z] >= xb1[bunchp2[z]]))
|
|
{
|
|
bunchfirst[numbunches++] = bunchp2[z], bunchp2[z] = -1;
|
|
#ifdef YAX_ENABLE
|
|
if (scansector_retfast)
|
|
return;
|
|
#endif
|
|
}
|
|
|
|
for (z=bunchfrst; z<numbunches; z++)
|
|
{
|
|
int32_t zz;
|
|
for (zz=bunchfirst[z]; bunchp2[zz]>=0; zz=bunchp2[zz]);
|
|
bunchlast[z] = zz;
|
|
}
|
|
}
|
|
while (sectorbordercnt > 0);
|
|
}
|
|
|
|
|
|
////////// *WALLSCAN HELPERS //////////
|
|
|
|
#define WSHELPER_DECL inline //ATTRIBUTE((always_inline))
|
|
|
|
static WSHELPER_DECL void tweak_tsizes(vec2_t *tsiz)
|
|
{
|
|
if (pow2long[picsiz[globalpicnum]&15] == tsiz->x)
|
|
tsiz->x--;
|
|
else
|
|
tsiz->x = -tsiz->x;
|
|
|
|
if (pow2long[picsiz[globalpicnum]>>4] == tsiz->y)
|
|
tsiz->y = (picsiz[globalpicnum]>>4);
|
|
else
|
|
tsiz->y = -tsiz->y;
|
|
}
|
|
|
|
static WSHELPER_DECL void calc_bufplc(intptr_t *bufplc, int32_t lw, vec2_t tsiz)
|
|
{
|
|
// CAUTION: lw can be negative!
|
|
int32_t i = lw + globalxpanning;
|
|
|
|
// if (i >= tsizx)
|
|
{
|
|
if (tsiz.x < 0)
|
|
i = (uint32_t)i % -tsiz.x;
|
|
else
|
|
i &= tsiz.x;
|
|
}
|
|
|
|
if (tsiz.y < 0)
|
|
i *= -tsiz.y;
|
|
else
|
|
i <<= tsiz.y;
|
|
|
|
// Bassert(i >= 0 && i < tilesiz[globalpicnum].x*tilesiz[globalpicnum].y);
|
|
|
|
// Address is at the first row of tile storage (which is column-major).
|
|
*bufplc = waloff[globalpicnum] + i;
|
|
}
|
|
|
|
static WSHELPER_DECL void calc_vplcinc_wall(uint32_t *vplc, int32_t *vinc, inthi_t sw, int32_t y1v)
|
|
{
|
|
*vinc = sw*globalyscale;
|
|
*vplc = globalzd + (uint32_t)(*vinc)*(y1v-globalhoriz+1);
|
|
}
|
|
|
|
#ifdef HIGH_PRECISION_SPRITE
|
|
static WSHELPER_DECL void calc_vplcinc_sprite(uint32_t *vplc, int32_t *vinc, int32_t x, int32_t y1v)
|
|
{
|
|
inthi_t tmpvinc = Blrintf(swallf[x]);
|
|
inthi_t tmpvplc = globalzd + tmpvinc*(y1v-globalhoriz+1);
|
|
|
|
*vinc = tmpvinc;
|
|
// Clamp the vertical texture coordinate!
|
|
*vplc = min(max(0, tmpvplc), UINT32_MAX);
|
|
}
|
|
#endif
|
|
|
|
static int32_t drawing_sprite = 0;
|
|
|
|
static WSHELPER_DECL void calc_vplcinc(uint32_t *vplc, int32_t *vinc, const int32_t *swal, int32_t x, int32_t y1v)
|
|
{
|
|
#if !defined HIGH_PRECISION_SPRITE
|
|
(void)drawing_sprite;
|
|
#else
|
|
if (drawing_sprite)
|
|
calc_vplcinc_sprite(vplc, vinc, x, y1v);
|
|
else
|
|
#endif
|
|
calc_vplcinc_wall(vplc, vinc, swal[x], y1v);
|
|
}
|
|
|
|
#undef NONPOW2_YSIZE_ASM
|
|
#if !defined ENGINE_USING_A_C
|
|
# if defined CLASSIC_NONPOW2_YSIZE_WALLS || defined CLASSIC_NONPOW2_YSIZE_SPRITES
|
|
# define NONPOW2_YSIZE_ASM
|
|
# endif
|
|
#endif
|
|
|
|
|
|
//
|
|
// maskwallscan (internal)
|
|
//
|
|
static void maskwallscan(int32_t x1, int32_t x2, int32_t saturatevplc)
|
|
{
|
|
int32_t x;
|
|
intptr_t p, fpalookup;
|
|
int32_t y1ve[4], y2ve[4];
|
|
#ifdef MULTI_COLUMN_VLINE
|
|
char bad;
|
|
int32_t u4, d4, dax, z;
|
|
#endif
|
|
vec2_t tsiz;
|
|
setgotpic(globalpicnum);
|
|
if (globalshiftval < 0)
|
|
return;
|
|
|
|
tsiz = tilesiz[globalpicnum];
|
|
|
|
if ((tsiz.x <= 0) || (tsiz.y <= 0)) return;
|
|
if ((uwall[x1] > ydimen) && (uwall[x2] > ydimen)) return;
|
|
if ((dwall[x1] < 0) && (dwall[x2] < 0)) return;
|
|
|
|
if (waloff[globalpicnum] == 0) loadtile(globalpicnum);
|
|
|
|
tweak_tsizes(&tsiz);
|
|
|
|
if (palookup[globalpal] == NULL)
|
|
globalpal = 0;
|
|
|
|
fpalookup = FP_OFF(palookup[globalpal]);
|
|
|
|
setupmvlineasm(globalshiftval, saturatevplc);
|
|
|
|
|
|
x = x1;
|
|
while ((startumost[x+windowx1] > startdmost[x+windowx1]) && (x <= x2))
|
|
x++;
|
|
|
|
p = x+frameoffset;
|
|
|
|
#ifdef NONPOW2_YSIZE_ASM
|
|
if (globalshiftval==0)
|
|
goto do_mvlineasm1;
|
|
#endif
|
|
|
|
#ifdef MULTI_COLUMN_VLINE
|
|
for (; (x<=x2)&&(p&3); x++,p++)
|
|
{
|
|
y1ve[0] = max(uwall[x],startumost[x+windowx1]-windowy1);
|
|
y2ve[0] = min(dwall[x],startdmost[x+windowx1]-windowy1);
|
|
if (y2ve[0] <= y1ve[0]) continue;
|
|
|
|
palookupoffse[0] = fpalookup + getpalookupsh(mulscale16(swall[x],globvis));
|
|
|
|
calc_bufplc(&bufplce[0], lwall[x], tsiz);
|
|
calc_vplcinc(&vplce[0], &vince[0], swall, x, y1ve[0]);
|
|
|
|
mvlineasm1(vince[0],palookupoffse[0],y2ve[0]-y1ve[0]-1,vplce[0],bufplce[0],p+ylookup[y1ve[0]]);
|
|
}
|
|
for (; x<=x2-3; x+=4,p+=4)
|
|
{
|
|
intptr_t pp;
|
|
|
|
bad = 0;
|
|
for (z=3,dax=x+3; z>=0; z--,dax--)
|
|
{
|
|
y1ve[z] = max(uwall[dax],startumost[dax+windowx1]-windowy1);
|
|
y2ve[z] = min(dwall[dax],startdmost[dax+windowx1]-windowy1)-1;
|
|
if (y2ve[z] < y1ve[z]) { bad += pow2char[z]; continue; }
|
|
|
|
calc_bufplc(&bufplce[z], lwall[dax], tsiz);
|
|
calc_vplcinc(&vplce[z], &vince[z], swall, dax, y1ve[z]);
|
|
}
|
|
if (bad == 15) continue;
|
|
|
|
palookupoffse[0] = fpalookup + getpalookupsh(mulscale16(swall[x],globvis));
|
|
palookupoffse[3] = fpalookup + getpalookupsh(mulscale16(swall[x+3],globvis));
|
|
|
|
if ((palookupoffse[0] == palookupoffse[3]) && ((bad&0x9) == 0))
|
|
{
|
|
palookupoffse[1] = palookupoffse[0];
|
|
palookupoffse[2] = palookupoffse[0];
|
|
}
|
|
else
|
|
{
|
|
palookupoffse[1] = fpalookup + getpalookupsh(mulscale16(swall[x+1],globvis));
|
|
palookupoffse[2] = fpalookup + getpalookupsh(mulscale16(swall[x+2],globvis));
|
|
}
|
|
|
|
u4 = max(max(y1ve[0],y1ve[1]),max(y1ve[2],y1ve[3]));
|
|
d4 = min(min(y2ve[0],y2ve[1]),min(y2ve[2],y2ve[3]));
|
|
|
|
if ((bad > 0) || (u4 >= d4))
|
|
{
|
|
if (!(bad&1)) mvlineasm1(vince[0],palookupoffse[0],y2ve[0]-y1ve[0],vplce[0],bufplce[0],ylookup[y1ve[0]]+p+0);
|
|
if (!(bad&2)) mvlineasm1(vince[1],palookupoffse[1],y2ve[1]-y1ve[1],vplce[1],bufplce[1],ylookup[y1ve[1]]+p+1);
|
|
if (!(bad&4)) mvlineasm1(vince[2],palookupoffse[2],y2ve[2]-y1ve[2],vplce[2],bufplce[2],ylookup[y1ve[2]]+p+2);
|
|
if (!(bad&8)) mvlineasm1(vince[3],palookupoffse[3],y2ve[3]-y1ve[3],vplce[3],bufplce[3],ylookup[y1ve[3]]+p+3);
|
|
continue;
|
|
}
|
|
|
|
if (u4 > y1ve[0]) vplce[0] = mvlineasm1(vince[0],palookupoffse[0],u4-y1ve[0]-1,vplce[0],bufplce[0],ylookup[y1ve[0]]+p+0);
|
|
if (u4 > y1ve[1]) vplce[1] = mvlineasm1(vince[1],palookupoffse[1],u4-y1ve[1]-1,vplce[1],bufplce[1],ylookup[y1ve[1]]+p+1);
|
|
if (u4 > y1ve[2]) vplce[2] = mvlineasm1(vince[2],palookupoffse[2],u4-y1ve[2]-1,vplce[2],bufplce[2],ylookup[y1ve[2]]+p+2);
|
|
if (u4 > y1ve[3]) vplce[3] = mvlineasm1(vince[3],palookupoffse[3],u4-y1ve[3]-1,vplce[3],bufplce[3],ylookup[y1ve[3]]+p+3);
|
|
|
|
if (d4 >= u4) mvlineasm4(d4-u4+1, (char *)(ylookup[u4]+p));
|
|
|
|
pp = p+ylookup[d4+1];
|
|
if (y2ve[0] > d4) mvlineasm1(vince[0],palookupoffse[0],y2ve[0]-d4-1,vplce[0],bufplce[0],pp+0);
|
|
if (y2ve[1] > d4) mvlineasm1(vince[1],palookupoffse[1],y2ve[1]-d4-1,vplce[1],bufplce[1],pp+1);
|
|
if (y2ve[2] > d4) mvlineasm1(vince[2],palookupoffse[2],y2ve[2]-d4-1,vplce[2],bufplce[2],pp+2);
|
|
if (y2ve[3] > d4) mvlineasm1(vince[3],palookupoffse[3],y2ve[3]-d4-1,vplce[3],bufplce[3],pp+3);
|
|
}
|
|
#endif
|
|
|
|
#ifdef NONPOW2_YSIZE_ASM
|
|
do_mvlineasm1:
|
|
#endif
|
|
for (; x<=x2; x++,p++)
|
|
{
|
|
y1ve[0] = max(uwall[x],startumost[x+windowx1]-windowy1);
|
|
y2ve[0] = min(dwall[x],startdmost[x+windowx1]-windowy1);
|
|
if (y2ve[0] <= y1ve[0]) continue;
|
|
|
|
palookupoffse[0] = fpalookup + getpalookupsh(mulscale16(swall[x],globvis));
|
|
|
|
calc_bufplc(&bufplce[0], lwall[x], tsiz);
|
|
calc_vplcinc(&vplce[0], &vince[0], swall, x, y1ve[0]);
|
|
|
|
#ifdef NONPOW2_YSIZE_ASM
|
|
if (globalshiftval==0)
|
|
mvlineasm1nonpow2(vince[0],palookupoffse[0],y2ve[0]-y1ve[0]-1,vplce[0],bufplce[0],p+ylookup[y1ve[0]]);
|
|
else
|
|
#endif
|
|
mvlineasm1(vince[0],palookupoffse[0],y2ve[0]-y1ve[0]-1,vplce[0],bufplce[0],p+ylookup[y1ve[0]]);
|
|
}
|
|
|
|
faketimerhandler();
|
|
}
|
|
|
|
|
|
//
|
|
// wallfront (internal)
|
|
//
|
|
int32_t wallfront(int32_t l1, int32_t l2)
|
|
{
|
|
walltype *wal;
|
|
int32_t x11, y11, x21, y21, x12, y12, x22, y22, dx, dy, t1, t2;
|
|
|
|
wal = &wall[thewall[l1]]; x11 = wal->x; y11 = wal->y;
|
|
wal = &wall[wal->point2]; x21 = wal->x; y21 = wal->y;
|
|
wal = &wall[thewall[l2]]; x12 = wal->x; y12 = wal->y;
|
|
wal = &wall[wal->point2]; x22 = wal->x; y22 = wal->y;
|
|
|
|
dx = x21-x11; dy = y21-y11;
|
|
t1 = dmulscale2(x12-x11,dy,-dx,y12-y11); //p1(l2) vs. l1
|
|
t2 = dmulscale2(x22-x11,dy,-dx,y22-y11); //p2(l2) vs. l1
|
|
if (t1 == 0) { t1 = t2; if (t1 == 0) return(-1); }
|
|
if (t2 == 0) t2 = t1;
|
|
if ((t1^t2) >= 0)
|
|
{
|
|
t2 = dmulscale2(globalposx-x11,dy,-dx,globalposy-y11); //pos vs. l1
|
|
return((t2^t1) >= 0);
|
|
}
|
|
|
|
dx = x22-x12; dy = y22-y12;
|
|
t1 = dmulscale2(x11-x12,dy,-dx,y11-y12); //p1(l1) vs. l2
|
|
t2 = dmulscale2(x21-x12,dy,-dx,y21-y12); //p2(l1) vs. l2
|
|
if (t1 == 0) { t1 = t2; if (t1 == 0) return(-1); }
|
|
if (t2 == 0) t2 = t1;
|
|
if ((t1^t2) >= 0)
|
|
{
|
|
t2 = dmulscale2(globalposx-x12,dy,-dx,globalposy-y12); //pos vs. l2
|
|
return((t2^t1) < 0);
|
|
}
|
|
return(-2);
|
|
}
|
|
|
|
|
|
//
|
|
// spritewallfront (internal)
|
|
//
|
|
static inline int32_t spritewallfront(const spritetype *s, int32_t w)
|
|
{
|
|
const walltype *const wal = &wall[w];
|
|
const walltype *wal2 = &wall[wal->point2];
|
|
const int32_t x1 = wal->x, y1 = wal->y;
|
|
|
|
return (dmulscale32(wal2->x-x1, s->y-y1, -(s->x-x1), wal2->y-y1) >= 0);
|
|
}
|
|
|
|
//
|
|
// spritebehindwall(internal)
|
|
//
|
|
#if 0
|
|
static int32_t spriteobstructswall(spritetype *s, int32_t w)
|
|
{
|
|
walltype *wal;
|
|
int32_t x, y;
|
|
int32_t x1, y1;
|
|
int32_t x2, y2;
|
|
double a1, b1, c1;
|
|
double a2, b2, c2;
|
|
double d1, d2;
|
|
|
|
// wall line equation
|
|
wal = &wall[w]; x1 = wal->x - globalposx; y1 = wal->y - globalposy;
|
|
wal = &wall[wal->point2]; x2 = wal->x - globalposx; y2 = wal->y - globalposy;
|
|
if ((x2 - x1) != 0)
|
|
a1 = (float)(y2 - y1)/(x2 - x1);
|
|
else
|
|
a1 = 1e+37; // not infinite, but almost ;)
|
|
b1 = -1;
|
|
c1 = (y1 - (a1 * x1));
|
|
|
|
// player to sprite line equation
|
|
if ((s->x - globalposx) != 0)
|
|
a2 = (float)(s->y - globalposy)/(s->x - globalposx);
|
|
else
|
|
a2 = 1e+37;
|
|
b2 = -1;
|
|
c2 = 0;
|
|
|
|
// intersection point
|
|
d1 = (float)(1) / (a1*b2 - a2*b1);
|
|
x = ((b1*c2 - b2*c1) * d1);
|
|
y = ((a2*c1 - a1*c2) * d1);
|
|
|
|
// distance between the sprite and the player
|
|
a1 = s->x - globalposx;
|
|
b1 = s->y - globalposy;
|
|
d1 = (a1 * a1 + b1 * b1);
|
|
|
|
// distance between the intersection point and the player
|
|
d2 = (x * x + y * y);
|
|
|
|
// check if the sprite obstructs the wall
|
|
if ((d1 < d2) && (min(x1, x2) <= x) && (x <= max(x1, x2)) && (min(y1, y2) <= y) && (y <= max(y1, y2)))
|
|
return (1);
|
|
else
|
|
return (0);
|
|
}
|
|
#endif
|
|
//
|
|
// bunchfront (internal)
|
|
//
|
|
static inline int32_t bunchfront(int32_t b1, int32_t b2)
|
|
{
|
|
int32_t x1b1, x2b1, x1b2, x2b2, b1f, b2f, i;
|
|
|
|
b1f = bunchfirst[b1]; x1b1 = xb1[b1f]; x2b2 = xb2[bunchlast[b2]]+1;
|
|
if (x1b1 >= x2b2) return(-1);
|
|
b2f = bunchfirst[b2]; x1b2 = xb1[b2f]; x2b1 = xb2[bunchlast[b1]]+1;
|
|
if (x1b2 >= x2b1) return(-1);
|
|
|
|
if (x1b1 >= x1b2)
|
|
{
|
|
for (i=b2f; xb2[i]<x1b1; i=bunchp2[i]);
|
|
return(wallfront(b1f,i));
|
|
}
|
|
for (i=b1f; xb2[i]<x1b2; i=bunchp2[i]);
|
|
return(wallfront(i,b2f));
|
|
}
|
|
|
|
|
|
//
|
|
// hline (internal)
|
|
//
|
|
static inline void hline(int32_t xr, int32_t yp)
|
|
{
|
|
int32_t xl, r, s;
|
|
|
|
xl = lastx[yp]; if (xl > xr) return;
|
|
r = horizlookup2[yp-globalhoriz+horizycent];
|
|
asm1 = (inthi_t)globalx1*r;
|
|
asm2 = (inthi_t)globaly2*r;
|
|
s = getpalookupsh(mulscale16(r,globvis));
|
|
|
|
hlineasm4(xr-xl,0,s,(uint32_t)globalx2*r+globalypanning,(uint32_t)globaly1*r+globalxpanning,
|
|
ylookup[yp]+xr+frameoffset);
|
|
}
|
|
|
|
|
|
//
|
|
// slowhline (internal)
|
|
//
|
|
static inline void slowhline(int32_t xr, int32_t yp)
|
|
{
|
|
int32_t xl, r;
|
|
|
|
xl = lastx[yp]; if (xl > xr) return;
|
|
r = horizlookup2[yp-globalhoriz+horizycent];
|
|
asm1 = (inthi_t)globalx1*r;
|
|
asm2 = (inthi_t)globaly2*r;
|
|
|
|
asm3 = (intptr_t)globalpalwritten + getpalookupsh(mulscale16(r,globvis));
|
|
if (!(globalorientation&256))
|
|
{
|
|
mhline(globalbufplc,(uint32_t)globaly1*r+globalxpanning-asm1*(xr-xl),(xr-xl)<<16,0L,
|
|
(uint32_t)globalx2*r+globalypanning-asm2*(xr-xl),ylookup[yp]+xl+frameoffset);
|
|
return;
|
|
}
|
|
thline(globalbufplc,(uint32_t)globaly1*r+globalxpanning-asm1*(xr-xl),(xr-xl)<<16,0L,
|
|
(uint32_t)globalx2*r+globalypanning-asm2*(xr-xl),ylookup[yp]+xl+frameoffset);
|
|
}
|
|
|
|
|
|
//
|
|
// prepwall (internal)
|
|
//
|
|
static void prepwall(int32_t z, const walltype *wal)
|
|
{
|
|
int32_t l=0, ol=0, x;
|
|
|
|
int32_t walxrepeat = (wal->xrepeat<<3);
|
|
|
|
//lwall calculation
|
|
int32_t tmpx = xb1[z]-halfxdimen;
|
|
|
|
const int32_t topinc = -(ry1[z]>>2);
|
|
const int32_t botinc = (ry2[z]-ry1[z])>>8;
|
|
int32_t top = mulscale5(rx1[z],xdimen) + mulscale2(topinc,tmpx);
|
|
int32_t bot = mulscale11(rx1[z]-rx2[z],xdimen) + mulscale2(botinc,tmpx);
|
|
|
|
const int32_t splc = mulscale19(ry1[z],xdimscale);
|
|
const int32_t sinc = mulscale16(ry2[z]-ry1[z],xdimscale);
|
|
|
|
x = xb1[z];
|
|
if (bot != 0)
|
|
{
|
|
l = divscale12(top,bot);
|
|
swall[x] = mulscale21(l,sinc)+splc;
|
|
l *= walxrepeat;
|
|
lwall[x] = (l>>18);
|
|
}
|
|
while (x+4 <= xb2[z])
|
|
{
|
|
int32_t i;
|
|
|
|
top += topinc; bot += botinc;
|
|
if (bot != 0)
|
|
{
|
|
ol = l; l = divscale12(top,bot);
|
|
swall[x+4] = mulscale21(l,sinc)+splc;
|
|
l *= walxrepeat;
|
|
lwall[x+4] = (l>>18);
|
|
}
|
|
|
|
i = (ol+l)>>1;
|
|
|
|
lwall[x+2] = i>>18;
|
|
lwall[x+1] = (ol+i)>>19;
|
|
lwall[x+3] = (l+i)>>19;
|
|
|
|
swall[x+2] = (swall[x]+swall[x+4])>>1;
|
|
swall[x+1] = (swall[x]+swall[x+2])>>1;
|
|
swall[x+3] = (swall[x+4]+swall[x+2])>>1;
|
|
|
|
x += 4;
|
|
}
|
|
if (x+2 <= xb2[z])
|
|
{
|
|
top += (topinc>>1); bot += (botinc>>1);
|
|
if (bot != 0)
|
|
{
|
|
ol = l; l = divscale12(top,bot);
|
|
swall[x+2] = mulscale21(l,sinc)+splc;
|
|
l *= walxrepeat;
|
|
lwall[x+2] = (l>>18);
|
|
}
|
|
lwall[x+1] = (l+ol)>>19;
|
|
swall[x+1] = (swall[x]+swall[x+2])>>1;
|
|
x += 2;
|
|
}
|
|
if (x+1 <= xb2[z])
|
|
{
|
|
bot += (botinc>>2);
|
|
if (bot != 0)
|
|
{
|
|
l = divscale12(top+(topinc>>2),bot);
|
|
swall[x+1] = mulscale21(l,sinc)+splc;
|
|
lwall[x+1] = mulscale18(l,walxrepeat);
|
|
}
|
|
}
|
|
|
|
if (lwall[xb1[z]] < 0)
|
|
lwall[xb1[z]] = 0;
|
|
if (lwall[xb2[z]] >= walxrepeat && walxrepeat)
|
|
lwall[xb2[z]] = walxrepeat-1;
|
|
|
|
if (wal->cstat&8)
|
|
{
|
|
walxrepeat--;
|
|
for (x=xb1[z]; x<=xb2[z]; x++)
|
|
lwall[x] = walxrepeat-lwall[x];
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// animateoffs (internal)
|
|
//
|
|
int32_t animateoffs(int16_t tilenum, int16_t fakevar)
|
|
{
|
|
int32_t i, k, offs=0, animnum=picanm[tilenum].num;
|
|
|
|
UNREFERENCED_PARAMETER(fakevar);
|
|
|
|
i = totalclocklock>>(picanm[tilenum].sf&PICANM_ANIMSPEED_MASK);
|
|
|
|
if (picanm[tilenum].num > 0)
|
|
{
|
|
switch (picanm[tilenum].sf&PICANM_ANIMTYPE_MASK)
|
|
{
|
|
case PICANM_ANIMTYPE_OSC:
|
|
k = (i%(animnum<<1));
|
|
if (k < animnum)
|
|
offs = k;
|
|
else
|
|
offs = (animnum<<1)-k;
|
|
break;
|
|
case PICANM_ANIMTYPE_FWD:
|
|
offs = i%(animnum+1);
|
|
break;
|
|
case PICANM_ANIMTYPE_BACK:
|
|
offs = -(i%(animnum+1));
|
|
break;
|
|
}
|
|
}
|
|
|
|
return(offs);
|
|
}
|
|
|
|
|
|
static inline void wallmosts_finish(int16_t *mostbuf, int32_t z1, int32_t z2,
|
|
int32_t ix1, int32_t iy1, int32_t ix2, int32_t iy2)
|
|
{
|
|
const int32_t y = scale(z1, xdimenscale, iy1)<<4;
|
|
|
|
#if 0
|
|
// enable for paranoia:
|
|
ix1 = clamp(ix1, 0, xres-1);
|
|
ix2 = clamp(ix2, 0, xres-1);
|
|
if (ix2-ix1 < 0)
|
|
swaplong(&ix1, &ix2);
|
|
#endif
|
|
{
|
|
// PK 20110423: a bit consistency checking is a good thing:
|
|
int32_t tmp = (ix2-ix1 >= 0) ? (ix2-ix1+1) : 1;
|
|
int32_t yinc = ((scale(z2, xdimenscale, iy2)<<4) - y) / tmp;
|
|
|
|
qinterpolatedown16short((intptr_t)&mostbuf[ix1], tmp, y+(globalhoriz<<16), yinc);
|
|
}
|
|
|
|
if (mostbuf[ix1] < 0)
|
|
mostbuf[ix1] = 0;
|
|
if (mostbuf[ix1] > ydimen)
|
|
mostbuf[ix1] = ydimen;
|
|
|
|
if (mostbuf[ix2] < 0)
|
|
mostbuf[ix2] = 0;
|
|
if (mostbuf[ix2] > ydimen)
|
|
mostbuf[ix2] = ydimen;
|
|
}
|
|
|
|
//
|
|
// owallmost (internal)
|
|
//
|
|
static int32_t owallmost(int16_t *mostbuf, int32_t w, int32_t z)
|
|
{
|
|
int32_t bad, inty, xcross;
|
|
int32_t s1, s2, s3, s4, ix1, ix2, iy1, iy2, t;
|
|
int32_t i;
|
|
|
|
z <<= 7;
|
|
s1 = mulscale20(globaluclip,yb1[w]); s2 = mulscale20(globaluclip,yb2[w]);
|
|
s3 = mulscale20(globaldclip,yb1[w]); s4 = mulscale20(globaldclip,yb2[w]);
|
|
bad = (z<s1)+((z<s2)<<1)+((z>s3)<<2)+((z>s4)<<3);
|
|
|
|
ix1 = xb1[w]; iy1 = yb1[w];
|
|
ix2 = xb2[w]; iy2 = yb2[w];
|
|
|
|
if ((bad&3) == 3)
|
|
{
|
|
for (i=ix1; i<=ix2; i++)
|
|
mostbuf[i] = 0;
|
|
return bad;
|
|
}
|
|
|
|
if ((bad&12) == 12)
|
|
{
|
|
for (i=ix1; i<=ix2; i++)
|
|
mostbuf[i] = ydimen;
|
|
return bad;
|
|
}
|
|
|
|
if (bad&3)
|
|
{
|
|
t = divscale30(z-s1,s2-s1);
|
|
inty = yb1[w] + mulscale30(yb2[w]-yb1[w],t);
|
|
xcross = xb1[w] + scale(mulscale30(yb2[w],t),xb2[w]-xb1[w],inty);
|
|
|
|
if ((bad&3) == 2)
|
|
{
|
|
if (xb1[w] <= xcross) { iy2 = inty; ix2 = xcross; }
|
|
for (i=xcross+1; i<=xb2[w]; i++)
|
|
mostbuf[i] = 0;
|
|
}
|
|
else
|
|
{
|
|
if (xcross <= xb2[w]) { iy1 = inty; ix1 = xcross; }
|
|
for (i=xb1[w]; i<=xcross; i++)
|
|
mostbuf[i] = 0;
|
|
}
|
|
}
|
|
|
|
if (bad&12)
|
|
{
|
|
t = divscale30(z-s3,s4-s3);
|
|
inty = yb1[w] + mulscale30(yb2[w]-yb1[w],t);
|
|
xcross = xb1[w] + scale(mulscale30(yb2[w],t),xb2[w]-xb1[w],inty);
|
|
|
|
if ((bad&12) == 8)
|
|
{
|
|
if (xb1[w] <= xcross) { iy2 = inty; ix2 = xcross; }
|
|
for (i=xcross+1; i<=xb2[w]; i++)
|
|
mostbuf[i] = ydimen;
|
|
}
|
|
else
|
|
{
|
|
if (xcross <= xb2[w]) { iy1 = inty; ix1 = xcross; }
|
|
for (i=xb1[w]; i<=xcross; i++)
|
|
mostbuf[i] = ydimen;
|
|
}
|
|
}
|
|
|
|
wallmosts_finish(mostbuf, z, z, ix1, iy1, ix2, iy2);
|
|
|
|
return bad;
|
|
}
|
|
|
|
static inline int32_t wallmost_getz(int32_t fw, int32_t t, int32_t z,
|
|
int32_t x1, int32_t y1, int32_t x2, int32_t y2,
|
|
int32_t xv, int32_t yv, int32_t dx, int32_t dy)
|
|
{
|
|
// XXX: OVERFLOW with huge sectors and sloped ceilngs/floors!
|
|
int32_t i = xv*(y1-globalposy) - yv*(x1-globalposx);
|
|
const int32_t j = yv*x2 - xv*y2;
|
|
|
|
if (klabs(j) > klabs(i>>3))
|
|
i = divscale28(i,j);
|
|
|
|
return dmulscale24(dx*t, mulscale20(y2,i)+((y1-wall[fw].y)<<8),
|
|
-dy*t, mulscale20(x2,i)+((x1-wall[fw].x)<<8)) + ((z-globalposz)<<7);
|
|
}
|
|
|
|
//
|
|
// wallmost (internal)
|
|
//
|
|
static int32_t wallmost(int16_t *mostbuf, int32_t w, int32_t sectnum, char dastat)
|
|
{
|
|
int32_t bad, i, t, z, inty, intz, xcross, fw;
|
|
int32_t x1, y1, z1, x2, y2, z2, xv, yv, dx, dy, dasqr, oz1, oz2;
|
|
int32_t s1, s2, s3, s4, ix1, ix2, iy1, iy2;
|
|
|
|
if (dastat == 0)
|
|
{
|
|
z = sector[sectnum].ceilingz-globalposz;
|
|
if ((sector[sectnum].ceilingstat&2) == 0)
|
|
return owallmost(mostbuf,w,z);
|
|
}
|
|
else
|
|
{
|
|
z = sector[sectnum].floorz-globalposz;
|
|
if ((sector[sectnum].floorstat&2) == 0)
|
|
return owallmost(mostbuf,w,z);
|
|
}
|
|
|
|
i = thewall[w];
|
|
if (i == sector[sectnum].wallptr)
|
|
return owallmost(mostbuf,w,z);
|
|
|
|
x1 = wall[i].x; x2 = wall[wall[i].point2].x-x1;
|
|
y1 = wall[i].y; y2 = wall[wall[i].point2].y-y1;
|
|
|
|
fw = sector[sectnum].wallptr; i = wall[fw].point2;
|
|
dx = wall[i].x-wall[fw].x; dy = wall[i].y-wall[fw].y;
|
|
dasqr = krecipasm(nsqrtasm(uhypsq(dx,dy)));
|
|
|
|
if (dastat == 0)
|
|
{
|
|
t = mulscale15(sector[sectnum].ceilingheinum, dasqr);
|
|
z = sector[sectnum].ceilingz;
|
|
}
|
|
else
|
|
{
|
|
t = mulscale15(sector[sectnum].floorheinum,dasqr);
|
|
z = sector[sectnum].floorz;
|
|
}
|
|
|
|
|
|
if (xb1[w] == 0)
|
|
{ xv = cosglobalang+sinviewingrangeglobalang; yv = singlobalang-cosviewingrangeglobalang; }
|
|
else
|
|
{ xv = x1-globalposx; yv = y1-globalposy; }
|
|
z1 = wallmost_getz(fw, t, z, x1, y1, x2, y2, xv, yv, dx, dy);
|
|
|
|
|
|
if (xb2[w] == xdimen-1)
|
|
{ xv = cosglobalang-sinviewingrangeglobalang; yv = singlobalang+cosviewingrangeglobalang; }
|
|
else
|
|
{ xv = (x2+x1)-globalposx; yv = (y2+y1)-globalposy; }
|
|
z2 = wallmost_getz(fw, t, z, x1, y1, x2, y2, xv, yv, dx, dy);
|
|
|
|
|
|
s1 = mulscale20(globaluclip,yb1[w]); s2 = mulscale20(globaluclip,yb2[w]);
|
|
s3 = mulscale20(globaldclip,yb1[w]); s4 = mulscale20(globaldclip,yb2[w]);
|
|
bad = (z1<s1)+((z2<s2)<<1)+((z1>s3)<<2)+((z2>s4)<<3);
|
|
|
|
ix1 = xb1[w]; ix2 = xb2[w];
|
|
iy1 = yb1[w]; iy2 = yb2[w];
|
|
oz1 = z1; oz2 = z2;
|
|
|
|
if ((bad&3) == 3)
|
|
{
|
|
for (i=ix1; i<=ix2; i++)
|
|
mostbuf[i] = 0;
|
|
return bad;
|
|
}
|
|
|
|
if ((bad&12) == 12)
|
|
{
|
|
for (i=ix1; i<=ix2; i++)
|
|
mostbuf[i] = ydimen;
|
|
return bad;
|
|
}
|
|
|
|
if (bad&3)
|
|
{
|
|
//inty = intz / (globaluclip>>16)
|
|
t = divscale30(oz1-s1,s2-s1+oz1-oz2);
|
|
inty = yb1[w] + mulscale30(yb2[w]-yb1[w],t);
|
|
intz = oz1 + mulscale30(oz2-oz1,t);
|
|
xcross = xb1[w] + scale(mulscale30(yb2[w],t),xb2[w]-xb1[w],inty);
|
|
|
|
//t = divscale30((x1<<4)-xcross*yb1[w],xcross*(yb2[w]-yb1[w])-((x2-x1)<<4));
|
|
//inty = yb1[w] + mulscale30(yb2[w]-yb1[w],t);
|
|
//intz = z1 + mulscale30(z2-z1,t);
|
|
|
|
if ((bad&3) == 2)
|
|
{
|
|
if (xb1[w] <= xcross) { z2 = intz; iy2 = inty; ix2 = xcross; }
|
|
for (i=xcross+1; i<=xb2[w]; i++)
|
|
mostbuf[i] = 0;
|
|
}
|
|
else
|
|
{
|
|
if (xcross <= xb2[w]) { z1 = intz; iy1 = inty; ix1 = xcross; }
|
|
for (i=xb1[w]; i<=xcross; i++)
|
|
mostbuf[i] = 0;
|
|
}
|
|
}
|
|
|
|
if (bad&12)
|
|
{
|
|
//inty = intz / (globaldclip>>16)
|
|
t = divscale30(oz1-s3,s4-s3+oz1-oz2);
|
|
inty = yb1[w] + mulscale30(yb2[w]-yb1[w],t);
|
|
intz = oz1 + mulscale30(oz2-oz1,t);
|
|
xcross = xb1[w] + scale(mulscale30(yb2[w],t),xb2[w]-xb1[w],inty);
|
|
|
|
//t = divscale30((x1<<4)-xcross*yb1[w],xcross*(yb2[w]-yb1[w])-((x2-x1)<<4));
|
|
//inty = yb1[w] + mulscale30(yb2[w]-yb1[w],t);
|
|
//intz = z1 + mulscale30(z2-z1,t);
|
|
|
|
if ((bad&12) == 8)
|
|
{
|
|
if (xb1[w] <= xcross) { z2 = intz; iy2 = inty; ix2 = xcross; }
|
|
for (i=xcross+1; i<=xb2[w]; i++)
|
|
mostbuf[i] = ydimen;
|
|
}
|
|
else
|
|
{
|
|
if (xcross <= xb2[w]) { z1 = intz; iy1 = inty; ix1 = xcross; }
|
|
for (i=xb1[w]; i<=xcross; i++)
|
|
mostbuf[i] = ydimen;
|
|
}
|
|
}
|
|
|
|
wallmosts_finish(mostbuf, z1, z2, ix1, iy1, ix2, iy2);
|
|
|
|
return bad;
|
|
}
|
|
|
|
|
|
// globalpicnum --> globalxshift, globalyshift
|
|
static void calc_globalshifts(void)
|
|
{
|
|
globalxshift = (8-(picsiz[globalpicnum]&15));
|
|
globalyshift = (8-(picsiz[globalpicnum]>>4));
|
|
if (globalorientation&8) { globalxshift++; globalyshift++; }
|
|
// PK: the following can happen for large (>= 512) tile sizes.
|
|
// NOTE that global[xy]shift are unsigned chars.
|
|
if (globalxshift > 31) globalxshift=0;
|
|
if (globalyshift > 31) globalyshift=0;
|
|
}
|
|
|
|
static int32_t setup_globals_cf1(const sectortype *sec, int32_t pal, int32_t zd,
|
|
int32_t picnum, int32_t shade, int32_t stat,
|
|
int32_t xpanning, int32_t ypanning, int32_t x1)
|
|
{
|
|
int32_t i, j, ox, oy;
|
|
|
|
if (palookup[pal] != globalpalwritten)
|
|
{
|
|
globalpalwritten = palookup[pal];
|
|
if (!globalpalwritten) globalpalwritten = palookup[globalpal]; // JBF: fixes null-pointer crash
|
|
setpalookupaddress(globalpalwritten);
|
|
}
|
|
|
|
globalzd = zd;
|
|
if (globalzd > 0) return 1;
|
|
|
|
globalpicnum = picnum;
|
|
if ((unsigned)globalpicnum >= MAXTILES) globalpicnum = 0;
|
|
setgotpic(globalpicnum);
|
|
if ((tilesiz[globalpicnum].x <= 0) || (tilesiz[globalpicnum].y <= 0)) return 1;
|
|
DO_TILE_ANIM(globalpicnum, 0);
|
|
|
|
if (waloff[globalpicnum] == 0) loadtile(globalpicnum);
|
|
globalbufplc = waloff[globalpicnum];
|
|
|
|
globalshade = shade;
|
|
globvis = globalcisibility;
|
|
if (sec->visibility != 0) globvis = mulscale4(globvis, (uint8_t)(sec->visibility+16));
|
|
globalorientation = stat;
|
|
|
|
if ((globalorientation&64) == 0)
|
|
{
|
|
globalx1 = singlobalang; globalx2 = singlobalang;
|
|
globaly1 = cosglobalang; globaly2 = cosglobalang;
|
|
globalxpanning = ((inthi_t)globalposx<<20);
|
|
globalypanning = -((inthi_t)globalposy<<20);
|
|
}
|
|
else
|
|
{
|
|
j = sec->wallptr;
|
|
ox = wall[wall[j].point2].x - wall[j].x;
|
|
oy = wall[wall[j].point2].y - wall[j].y;
|
|
i = nsqrtasm(uhypsq(ox,oy)); if (i == 0) i = 1024; else i = tabledivide32(1048576, i);
|
|
globalx1 = mulscale10(dmulscale10(ox,singlobalang,-oy,cosglobalang),i);
|
|
globaly1 = mulscale10(dmulscale10(ox,cosglobalang,oy,singlobalang),i);
|
|
globalx2 = -globalx1;
|
|
globaly2 = -globaly1;
|
|
|
|
ox = ((wall[j].x-globalposx)<<6); oy = ((wall[j].y-globalposy)<<6);
|
|
i = dmulscale14(oy,cosglobalang,-ox,singlobalang);
|
|
j = dmulscale14(ox,cosglobalang,oy,singlobalang);
|
|
ox = i; oy = j;
|
|
globalxpanning = (coord_t)globalx1*ox - (coord_t)globaly1*oy;
|
|
globalypanning = (coord_t)globaly2*ox + (coord_t)globalx2*oy;
|
|
}
|
|
globalx2 = mulscale16(globalx2,viewingrangerecip);
|
|
globaly1 = mulscale16(globaly1,viewingrangerecip);
|
|
|
|
calc_globalshifts();
|
|
|
|
if ((globalorientation&0x4) > 0)
|
|
{
|
|
i = globalxpanning; globalxpanning = globalypanning; globalypanning = i;
|
|
i = globalx2; globalx2 = -globaly1; globaly1 = -i;
|
|
i = globalx1; globalx1 = globaly2; globaly2 = i;
|
|
}
|
|
if ((globalorientation&0x10) > 0) globalx1 = -globalx1, globaly1 = -globaly1, globalxpanning = -(inthi_t)globalxpanning;
|
|
if ((globalorientation&0x20) > 0) globalx2 = -globalx2, globaly2 = -globaly2, globalypanning = -(inthi_t)globalypanning;
|
|
globalx1 <<= globalxshift; globaly1 <<= globalxshift;
|
|
globalx2 <<= globalyshift; globaly2 <<= globalyshift;
|
|
globalxpanning <<= globalxshift; globalypanning <<= globalyshift;
|
|
globalxpanning = (uint32_t)globalxpanning + (xpanning<<24);
|
|
globalypanning = (uint32_t)globalypanning + (ypanning<<24);
|
|
globaly1 = (-globalx1-globaly1)*halfxdimen;
|
|
globalx2 = (globalx2-globaly2)*halfxdimen;
|
|
|
|
sethlinesizes(picsiz[globalpicnum]&15,picsiz[globalpicnum]>>4,globalbufplc);
|
|
|
|
globalx2 += globaly2*(x1-1);
|
|
globaly1 += globalx1*(x1-1);
|
|
globalx1 = mulscale16(globalx1,globalzd);
|
|
globalx2 = mulscale16(globalx2,globalzd);
|
|
globaly1 = mulscale16(globaly1,globalzd);
|
|
globaly2 = mulscale16(globaly2,globalzd);
|
|
globvis = klabs(mulscale10(globvis,globalzd));
|
|
|
|
return 0;
|
|
}
|
|
|
|
static void setup_blend(int32_t blend, int32_t doreverse)
|
|
{
|
|
if (blendtable[blend] == NULL)
|
|
blend = 0;
|
|
|
|
if (globalblend != blend)
|
|
{
|
|
globalblend = blend;
|
|
fixtransluscence(FP_OFF(getblendtab(blend)));
|
|
}
|
|
|
|
if (doreverse)
|
|
settransreverse();
|
|
else
|
|
settransnormal();
|
|
}
|
|
|
|
//
|
|
// ceilscan (internal)
|
|
//
|
|
static void ceilscan(int32_t x1, int32_t x2, int32_t sectnum)
|
|
{
|
|
int32_t x, y1, y2;
|
|
int32_t twall, bwall;
|
|
const sectortype *sec = §or[sectnum];
|
|
|
|
if (setup_globals_cf1(sec, sec->ceilingpal, sec->ceilingz-globalposz,
|
|
sec->ceilingpicnum, sec->ceilingshade, sec->ceilingstat,
|
|
sec->ceilingxpanning, sec->ceilingypanning, x1))
|
|
return;
|
|
|
|
if (!(globalorientation&0x180))
|
|
{
|
|
y1 = umost[x1]; y2 = y1;
|
|
for (x=x1; x<=x2; x++)
|
|
{
|
|
twall = umost[x]-1; bwall = min(uplc[x],dmost[x]);
|
|
if (twall < bwall-1)
|
|
{
|
|
if (twall >= y2)
|
|
{
|
|
while (y1 < y2-1) hline(x-1,++y1);
|
|
y1 = twall;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < twall) hline(x-1,++y1);
|
|
while (y1 > twall) lastx[y1--] = x;
|
|
}
|
|
while (y2 > bwall) hline(x-1,--y2);
|
|
while (y2 < bwall) lastx[y2++] = x;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < y2-1) hline(x-1,++y1);
|
|
if (x == x2) { globalx2 += globaly2; globaly1 += globalx1; break; }
|
|
y1 = umost[x+1]; y2 = y1;
|
|
}
|
|
globalx2 += globaly2; globaly1 += globalx1;
|
|
}
|
|
while (y1 < y2-1) hline(x2,++y1);
|
|
faketimerhandler();
|
|
return;
|
|
}
|
|
|
|
switch (globalorientation&0x180)
|
|
{
|
|
case 128:
|
|
msethlineshift(picsiz[globalpicnum]&15,picsiz[globalpicnum]>>4);
|
|
break;
|
|
case 256:
|
|
setup_blend(0, 0);
|
|
tsethlineshift(picsiz[globalpicnum]&15,picsiz[globalpicnum]>>4);
|
|
break;
|
|
case 384:
|
|
setup_blend(0, 0);
|
|
tsethlineshift(picsiz[globalpicnum]&15,picsiz[globalpicnum]>>4);
|
|
break;
|
|
}
|
|
|
|
y1 = umost[x1]; y2 = y1;
|
|
for (x=x1; x<=x2; x++)
|
|
{
|
|
twall = umost[x]-1; bwall = min(uplc[x],dmost[x]);
|
|
if (twall < bwall-1)
|
|
{
|
|
if (twall >= y2)
|
|
{
|
|
while (y1 < y2-1) slowhline(x-1,++y1);
|
|
y1 = twall;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < twall) slowhline(x-1,++y1);
|
|
while (y1 > twall) lastx[y1--] = x;
|
|
}
|
|
while (y2 > bwall) slowhline(x-1,--y2);
|
|
while (y2 < bwall) lastx[y2++] = x;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < y2-1) slowhline(x-1,++y1);
|
|
if (x == x2) { globalx2 += globaly2; globaly1 += globalx1; break; }
|
|
y1 = umost[x+1]; y2 = y1;
|
|
}
|
|
globalx2 += globaly2; globaly1 += globalx1;
|
|
}
|
|
while (y1 < y2-1) slowhline(x2,++y1);
|
|
faketimerhandler();
|
|
}
|
|
|
|
|
|
//
|
|
// florscan (internal)
|
|
//
|
|
static void florscan(int32_t x1, int32_t x2, int32_t sectnum)
|
|
{
|
|
int32_t x, y1, y2;
|
|
int32_t twall, bwall;
|
|
const sectortype *sec = §or[sectnum];
|
|
|
|
if (setup_globals_cf1(sec, sec->floorpal, globalposz-sec->floorz,
|
|
sec->floorpicnum, sec->floorshade, sec->floorstat,
|
|
sec->floorxpanning, sec->floorypanning, x1))
|
|
return;
|
|
|
|
if (!(globalorientation&0x180))
|
|
{
|
|
y1 = max(dplc[x1],umost[x1]); y2 = y1;
|
|
for (x=x1; x<=x2; x++)
|
|
{
|
|
twall = max(dplc[x],umost[x])-1; bwall = dmost[x];
|
|
if (twall < bwall-1)
|
|
{
|
|
if (twall >= y2)
|
|
{
|
|
while (y1 < y2-1) hline(x-1,++y1);
|
|
y1 = twall;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < twall) hline(x-1,++y1);
|
|
while (y1 > twall) lastx[y1--] = x;
|
|
}
|
|
while (y2 > bwall) hline(x-1,--y2);
|
|
while (y2 < bwall) lastx[y2++] = x;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < y2-1) hline(x-1,++y1);
|
|
if (x == x2) { globalx2 += globaly2; globaly1 += globalx1; break; }
|
|
y1 = max(dplc[x+1],umost[x+1]); y2 = y1;
|
|
}
|
|
globalx2 += globaly2; globaly1 += globalx1;
|
|
}
|
|
while (y1 < y2-1) hline(x2,++y1);
|
|
faketimerhandler();
|
|
return;
|
|
}
|
|
|
|
switch (globalorientation&0x180)
|
|
{
|
|
case 128:
|
|
msethlineshift(picsiz[globalpicnum]&15,picsiz[globalpicnum]>>4);
|
|
break;
|
|
case 256:
|
|
setup_blend(0, 0);
|
|
tsethlineshift(picsiz[globalpicnum]&15,picsiz[globalpicnum]>>4);
|
|
break;
|
|
case 384:
|
|
setup_blend(0, 1);
|
|
tsethlineshift(picsiz[globalpicnum]&15,picsiz[globalpicnum]>>4);
|
|
break;
|
|
}
|
|
|
|
y1 = max(dplc[x1],umost[x1]); y2 = y1;
|
|
for (x=x1; x<=x2; x++)
|
|
{
|
|
twall = max(dplc[x],umost[x])-1; bwall = dmost[x];
|
|
if (twall < bwall-1)
|
|
{
|
|
if (twall >= y2)
|
|
{
|
|
while (y1 < y2-1) slowhline(x-1,++y1);
|
|
y1 = twall;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < twall) slowhline(x-1,++y1);
|
|
while (y1 > twall) lastx[y1--] = x;
|
|
}
|
|
while (y2 > bwall) slowhline(x-1,--y2);
|
|
while (y2 < bwall) lastx[y2++] = x;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < y2-1) slowhline(x-1,++y1);
|
|
if (x == x2) { globalx2 += globaly2; globaly1 += globalx1; break; }
|
|
y1 = max(dplc[x+1],umost[x+1]); y2 = y1;
|
|
}
|
|
globalx2 += globaly2; globaly1 += globalx1;
|
|
}
|
|
while (y1 < y2-1) slowhline(x2,++y1);
|
|
faketimerhandler();
|
|
}
|
|
|
|
|
|
//
|
|
// wallscan (internal)
|
|
//
|
|
static void wallscan(int32_t x1, int32_t x2,
|
|
const int16_t *uwal, const int16_t *dwal,
|
|
const int32_t *swal, const int32_t *lwal)
|
|
{
|
|
int32_t x;
|
|
intptr_t fpalookup;
|
|
int32_t y1ve[4], y2ve[4];
|
|
vec2_t tsiz;
|
|
#ifdef MULTI_COLUMN_VLINE
|
|
char bad;
|
|
int32_t u4, d4, z;
|
|
uintptr_t p;
|
|
#endif
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (g_nodraw)
|
|
return;
|
|
#endif
|
|
setgotpic(globalpicnum);
|
|
if (globalshiftval < 0)
|
|
return;
|
|
|
|
if (x2 >= xdim) x2 = xdim-1;
|
|
|
|
tsiz = tilesiz[globalpicnum];
|
|
|
|
if ((tsiz.x <= 0) || (tsiz.y <= 0)) return;
|
|
if ((uwal[x1] > ydimen) && (uwal[x2] > ydimen)) return;
|
|
if ((dwal[x1] < 0) && (dwal[x2] < 0)) return;
|
|
|
|
if (waloff[globalpicnum] == 0) loadtile(globalpicnum);
|
|
|
|
tweak_tsizes(&tsiz);
|
|
|
|
fpalookup = FP_OFF(palookup[globalpal]);
|
|
|
|
setupvlineasm(globalshiftval);
|
|
|
|
|
|
x = x1;
|
|
while ((umost[x] > dmost[x]) && (x <= x2)) x++;
|
|
|
|
#ifdef NONPOW2_YSIZE_ASM
|
|
if (globalshiftval==0)
|
|
goto do_vlineasm1;
|
|
#endif
|
|
|
|
#ifdef MULTI_COLUMN_VLINE
|
|
for (; (x<=x2)&&((x+frameoffset)&3); x++)
|
|
{
|
|
y1ve[0] = max(uwal[x],umost[x]);
|
|
y2ve[0] = min(dwal[x],dmost[x]);
|
|
if (y2ve[0] <= y1ve[0]) continue;
|
|
|
|
palookupoffse[0] = fpalookup + getpalookupsh(mulscale16(swal[x],globvis));
|
|
|
|
calc_bufplc(&bufplce[0], lwal[x], tsiz);
|
|
calc_vplcinc(&vplce[0], &vince[0], swal, x, y1ve[0]);
|
|
|
|
vlineasm1(vince[0],palookupoffse[0],y2ve[0]-y1ve[0]-1,vplce[0],bufplce[0],x+frameoffset+ylookup[y1ve[0]]);
|
|
}
|
|
for (; x<=x2-3; x+=4)
|
|
{
|
|
bad = 0;
|
|
for (z=3; z>=0; z--)
|
|
{
|
|
y1ve[z] = max(uwal[x+z],umost[x+z]);
|
|
y2ve[z] = min(dwal[x+z],dmost[x+z])-1;
|
|
if (y2ve[z] < y1ve[z]) { bad += pow2char[z]; continue; }
|
|
|
|
calc_bufplc(&bufplce[z], lwal[x+z], tsiz);
|
|
calc_vplcinc(&vplce[z], &vince[z], swal, x+z, y1ve[z]);
|
|
}
|
|
if (bad == 15) continue;
|
|
|
|
palookupoffse[0] = fpalookup + getpalookupsh(mulscale16(swal[x],globvis));
|
|
palookupoffse[3] = fpalookup + getpalookupsh(mulscale16(swal[x+3],globvis));
|
|
|
|
if ((palookupoffse[0] == palookupoffse[3]) && ((bad&0x9) == 0))
|
|
{
|
|
palookupoffse[1] = palookupoffse[0];
|
|
palookupoffse[2] = palookupoffse[0];
|
|
}
|
|
else
|
|
{
|
|
palookupoffse[1] = fpalookup + getpalookupsh(mulscale16(swal[x+1],globvis));
|
|
palookupoffse[2] = fpalookup + getpalookupsh(mulscale16(swal[x+2],globvis));
|
|
}
|
|
|
|
u4 = max(max(y1ve[0],y1ve[1]),max(y1ve[2],y1ve[3]));
|
|
d4 = min(min(y2ve[0],y2ve[1]),min(y2ve[2],y2ve[3]));
|
|
|
|
if ((bad != 0) || (u4 >= d4))
|
|
{
|
|
if (!(bad&1)) prevlineasm1(vince[0],palookupoffse[0],y2ve[0]-y1ve[0],vplce[0],bufplce[0],ylookup[y1ve[0]]+x+frameoffset+0);
|
|
if (!(bad&2)) prevlineasm1(vince[1],palookupoffse[1],y2ve[1]-y1ve[1],vplce[1],bufplce[1],ylookup[y1ve[1]]+x+frameoffset+1);
|
|
if (!(bad&4)) prevlineasm1(vince[2],palookupoffse[2],y2ve[2]-y1ve[2],vplce[2],bufplce[2],ylookup[y1ve[2]]+x+frameoffset+2);
|
|
if (!(bad&8)) prevlineasm1(vince[3],palookupoffse[3],y2ve[3]-y1ve[3],vplce[3],bufplce[3],ylookup[y1ve[3]]+x+frameoffset+3);
|
|
continue;
|
|
}
|
|
|
|
if (u4 > y1ve[0]) vplce[0] = prevlineasm1(vince[0],palookupoffse[0],u4-y1ve[0]-1,vplce[0],bufplce[0],ylookup[y1ve[0]]+x+frameoffset+0);
|
|
if (u4 > y1ve[1]) vplce[1] = prevlineasm1(vince[1],palookupoffse[1],u4-y1ve[1]-1,vplce[1],bufplce[1],ylookup[y1ve[1]]+x+frameoffset+1);
|
|
if (u4 > y1ve[2]) vplce[2] = prevlineasm1(vince[2],palookupoffse[2],u4-y1ve[2]-1,vplce[2],bufplce[2],ylookup[y1ve[2]]+x+frameoffset+2);
|
|
if (u4 > y1ve[3]) vplce[3] = prevlineasm1(vince[3],palookupoffse[3],u4-y1ve[3]-1,vplce[3],bufplce[3],ylookup[y1ve[3]]+x+frameoffset+3);
|
|
|
|
if (d4 >= u4) vlineasm4(d4-u4+1, (char *)(ylookup[u4]+x+frameoffset));
|
|
|
|
p = x+frameoffset+ylookup[d4+1];
|
|
if (y2ve[0] > d4) prevlineasm1(vince[0],palookupoffse[0],y2ve[0]-d4-1,vplce[0],bufplce[0],p+0);
|
|
if (y2ve[1] > d4) prevlineasm1(vince[1],palookupoffse[1],y2ve[1]-d4-1,vplce[1],bufplce[1],p+1);
|
|
if (y2ve[2] > d4) prevlineasm1(vince[2],palookupoffse[2],y2ve[2]-d4-1,vplce[2],bufplce[2],p+2);
|
|
if (y2ve[3] > d4) prevlineasm1(vince[3],palookupoffse[3],y2ve[3]-d4-1,vplce[3],bufplce[3],p+3);
|
|
}
|
|
#endif
|
|
|
|
#ifdef NONPOW2_YSIZE_ASM
|
|
do_vlineasm1:
|
|
#endif
|
|
for (; x<=x2; x++)
|
|
{
|
|
y1ve[0] = max(uwal[x],umost[x]);
|
|
y2ve[0] = min(dwal[x],dmost[x]);
|
|
if (y2ve[0] <= y1ve[0]) continue;
|
|
|
|
palookupoffse[0] = fpalookup + getpalookupsh(mulscale16(swal[x],globvis));
|
|
|
|
calc_bufplc(&bufplce[0], lwal[x], tsiz);
|
|
calc_vplcinc(&vplce[0], &vince[0], swal, x, y1ve[0]);
|
|
|
|
#ifdef NONPOW2_YSIZE_ASM
|
|
if (globalshiftval==0)
|
|
vlineasm1nonpow2(vince[0],palookupoffse[0],y2ve[0]-y1ve[0]-1,vplce[0],bufplce[0],x+frameoffset+ylookup[y1ve[0]]);
|
|
else
|
|
#endif
|
|
vlineasm1(vince[0],palookupoffse[0],y2ve[0]-y1ve[0]-1,vplce[0],bufplce[0],x+frameoffset+ylookup[y1ve[0]]);
|
|
}
|
|
|
|
faketimerhandler();
|
|
}
|
|
|
|
//
|
|
// transmaskvline (internal)
|
|
//
|
|
static void transmaskvline(int32_t x)
|
|
{
|
|
uint32_t vplc;
|
|
int32_t vinc;
|
|
intptr_t palookupoffs;
|
|
intptr_t bufplc,p;
|
|
int32_t y1v, y2v;
|
|
|
|
vec2_t ntsiz;
|
|
|
|
if ((x < 0) || (x >= xdimen)) return;
|
|
|
|
y1v = max(uwall[x],startumost[x+windowx1]-windowy1);
|
|
y2v = min(dwall[x],startdmost[x+windowx1]-windowy1);
|
|
y2v--;
|
|
if (y2v < y1v) return;
|
|
|
|
palookupoffs = FP_OFF(palookup[globalpal]) + getpalookupsh(mulscale16(swall[x],globvis));
|
|
|
|
ntsiz.x = -tilesiz[globalpicnum].x;
|
|
ntsiz.y = -tilesiz[globalpicnum].y;
|
|
calc_bufplc(&bufplc, lwall[x], ntsiz);
|
|
calc_vplcinc(&vplc, &vinc, swall, x, y1v);
|
|
|
|
p = ylookup[y1v]+x+frameoffset;
|
|
|
|
#ifdef NONPOW2_YSIZE_ASM
|
|
if (globalshiftval==0)
|
|
tvlineasm1nonpow2(vinc,palookupoffs,y2v-y1v,vplc,bufplc,p);
|
|
else
|
|
#endif
|
|
tvlineasm1(vinc,palookupoffs,y2v-y1v,vplc,bufplc,p);
|
|
}
|
|
|
|
|
|
//
|
|
// transmaskvline2 (internal)
|
|
//
|
|
#ifdef MULTI_COLUMN_VLINE
|
|
static void transmaskvline2(int32_t x)
|
|
{
|
|
int32_t y1, y2, x2;
|
|
int32_t y1ve[2], y2ve[2];
|
|
|
|
uintptr_t p;
|
|
|
|
vec2_t ntsiz;
|
|
|
|
if ((x < 0) || (x >= xdimen)) return;
|
|
if (x == xdimen-1) { transmaskvline(x); return; }
|
|
|
|
x2 = x+1;
|
|
|
|
y1ve[0] = max(uwall[x],startumost[x+windowx1]-windowy1);
|
|
y2ve[0] = min(dwall[x],startdmost[x+windowx1]-windowy1)-1;
|
|
if (y2ve[0] < y1ve[0]) { transmaskvline(x2); return; }
|
|
y1ve[1] = max(uwall[x2],startumost[x2+windowx1]-windowy1);
|
|
y2ve[1] = min(dwall[x2],startdmost[x2+windowx1]-windowy1)-1;
|
|
if (y2ve[1] < y1ve[1]) { transmaskvline(x); return; }
|
|
|
|
palookupoffse[0] = FP_OFF(palookup[globalpal]) + getpalookupsh(mulscale16(swall[x],globvis));
|
|
palookupoffse[1] = FP_OFF(palookup[globalpal]) + getpalookupsh(mulscale16(swall[x2],globvis));
|
|
|
|
setuptvlineasm2(globalshiftval,palookupoffse[0],palookupoffse[1]);
|
|
|
|
ntsiz.x = -tilesiz[globalpicnum].x;
|
|
ntsiz.y = -tilesiz[globalpicnum].y;
|
|
|
|
calc_bufplc(&bufplce[0], lwall[x], ntsiz);
|
|
calc_bufplc(&bufplce[1], lwall[x2], ntsiz);
|
|
calc_vplcinc(&vplce[0], &vince[0], swall, x, y1ve[0]);
|
|
calc_vplcinc(&vplce[1], &vince[1], swall, x2, y1ve[1]);
|
|
|
|
y1 = max(y1ve[0],y1ve[1]);
|
|
y2 = min(y2ve[0],y2ve[1]);
|
|
|
|
p = x+frameoffset;
|
|
|
|
if (y1ve[0] != y1ve[1])
|
|
{
|
|
if (y1ve[0] < y1)
|
|
vplce[0] = tvlineasm1(vince[0],palookupoffse[0],y1-y1ve[0]-1,vplce[0],bufplce[0],ylookup[y1ve[0]]+p);
|
|
else
|
|
vplce[1] = tvlineasm1(vince[1],palookupoffse[1],y1-y1ve[1]-1,vplce[1],bufplce[1],ylookup[y1ve[1]]+p+1);
|
|
}
|
|
|
|
if (y2 > y1)
|
|
{
|
|
asm1 = vince[1];
|
|
asm2 = ylookup[y2]+p+1;
|
|
tvlineasm2(vplce[1],vince[0],bufplce[0],bufplce[1],vplce[0],ylookup[y1]+p);
|
|
}
|
|
else
|
|
{
|
|
asm1 = vplce[0];
|
|
asm2 = vplce[1];
|
|
}
|
|
|
|
if (y2ve[0] > y2ve[1])
|
|
tvlineasm1(vince[0],palookupoffse[0],y2ve[0]-y2-1,asm1,bufplce[0],ylookup[y2+1]+p);
|
|
else if (y2ve[0] < y2ve[1])
|
|
tvlineasm1(vince[1],palookupoffse[1],y2ve[1]-y2-1,asm2,bufplce[1],ylookup[y2+1]+p+1);
|
|
|
|
faketimerhandler();
|
|
}
|
|
#endif
|
|
|
|
//
|
|
// transmaskwallscan (internal)
|
|
//
|
|
static void transmaskwallscan(int32_t x1, int32_t x2, int32_t saturatevplc)
|
|
{
|
|
int32_t x;
|
|
|
|
setgotpic(globalpicnum);
|
|
|
|
Bassert(globalshiftval>=0 || ((tilesiz[globalpicnum].x <= 0) || (tilesiz[globalpicnum].y <= 0)));
|
|
// globalshiftval<0 implies following condition
|
|
if ((tilesiz[globalpicnum].x <= 0) || (tilesiz[globalpicnum].y <= 0))
|
|
return;
|
|
|
|
if (waloff[globalpicnum] == 0) loadtile(globalpicnum);
|
|
|
|
setuptvlineasm(globalshiftval, saturatevplc);
|
|
|
|
x = x1;
|
|
while ((startumost[x+windowx1] > startdmost[x+windowx1]) && (x <= x2)) x++;
|
|
|
|
#ifndef ENGINE_USING_A_C
|
|
if (globalshiftval==0)
|
|
{
|
|
while (x <= x2) transmaskvline(x), x++;
|
|
}
|
|
else
|
|
#endif
|
|
{
|
|
#ifdef MULTI_COLUMN_VLINE
|
|
if ((x <= x2) && (x&1)) transmaskvline(x), x++;
|
|
while (x < x2) transmaskvline2(x), x += 2;
|
|
#endif
|
|
while (x <= x2) transmaskvline(x), x++;
|
|
}
|
|
|
|
faketimerhandler();
|
|
}
|
|
|
|
|
|
////////// NON-power-of-two replacements for mhline/thline, adapted from a.c //////////
|
|
#if defined(__GNUC__) && defined(__i386__) && !defined(NOASM)
|
|
// from pragmas.h
|
|
# define ourdivscale32(d,b) \
|
|
({ int32_t __d=(d), __b=(b), __r; \
|
|
__asm__ __volatile__ ("xorl %%eax, %%eax; divl %%ebx" \
|
|
: "=a" (__r), "=d" (__d) : "d" (__d), "b" (__b) : "cc"); \
|
|
__r; })
|
|
#else
|
|
# define ourdivscale32(d,b) divscale32(d,b)
|
|
#endif
|
|
|
|
// cntup16>>16 iterations
|
|
|
|
static void nonpow2_mhline(intptr_t bufplc, uint32_t bx, int32_t cntup16, int32_t junk, uint32_t by, char *p)
|
|
{
|
|
char ch;
|
|
|
|
const char *const buf = (char *)bufplc;
|
|
const char *const pal = (char *)asm3;
|
|
|
|
const uint32_t xdiv = globalxspan > 1 ? (uint32_t)ourdivscale32(1, globalxspan) : UINT32_MAX;
|
|
const uint32_t ydiv = globalyspan > 1 ? (uint32_t)ourdivscale32(1, globalyspan) : UINT32_MAX;
|
|
const uint32_t yspan = globalyspan;
|
|
const int32_t xinc = asm1, yinc = asm2;
|
|
|
|
UNREFERENCED_PARAMETER(junk);
|
|
|
|
for (cntup16>>=16; cntup16>0; cntup16--)
|
|
{
|
|
ch = buf[(divideu32(bx, xdiv))*yspan + divideu32(by, ydiv)];
|
|
|
|
if (ch != 255) *p = pal[ch];
|
|
bx += xinc;
|
|
by += yinc;
|
|
p++;
|
|
}
|
|
}
|
|
|
|
// cntup16>>16 iterations
|
|
static void nonpow2_thline(intptr_t bufplc, uint32_t bx, int32_t cntup16, int32_t junk, uint32_t by, char *p)
|
|
{
|
|
char ch;
|
|
|
|
const char *const buf = (char *)bufplc;
|
|
const char *const pal = (char *)asm3;
|
|
const char *const trans = getblendtab(globalblend);
|
|
|
|
const uint32_t xdiv = globalxspan > 1 ? (uint32_t)ourdivscale32(1, globalxspan) : UINT32_MAX;
|
|
const uint32_t ydiv = globalyspan > 1 ? (uint32_t)ourdivscale32(1, globalyspan) : UINT32_MAX;
|
|
const uint32_t yspan = globalyspan;
|
|
const int32_t xinc = asm1, yinc = asm2;
|
|
|
|
UNREFERENCED_PARAMETER(junk);
|
|
|
|
if (globalorientation&512)
|
|
{
|
|
for (cntup16>>=16; cntup16>0; cntup16--)
|
|
{
|
|
ch = buf[divideu32(bx, xdiv)*yspan + divideu32(by, ydiv)];
|
|
if (ch != 255) *p = trans[(*p)|(pal[ch]<<8)];
|
|
bx += xinc;
|
|
by += yinc;
|
|
p++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for (cntup16>>=16; cntup16>0; cntup16--)
|
|
{
|
|
ch = buf[divideu32(bx, xdiv)*yspan + divideu32(by, ydiv)];
|
|
if (ch != 255) *p = trans[((*p)<<8)|pal[ch]];
|
|
bx += xinc;
|
|
by += yinc;
|
|
p++;
|
|
}
|
|
}
|
|
}
|
|
////////// END non-power-of-two replacements //////////
|
|
|
|
//
|
|
// ceilspritehline (internal)
|
|
//
|
|
static void ceilspritehline(int32_t x2, int32_t y)
|
|
{
|
|
int32_t x1, v, bx, by;
|
|
|
|
//x = x1 + (x2-x1)t + (y1-y2)u ~ x = 160v
|
|
//y = y1 + (y2-y1)t + (x2-x1)u ~ y = (scrx-160)v
|
|
//z = z1 = z2 ~ z = posz + (scry-horiz)v
|
|
|
|
x1 = lastx[y]; if (x2 < x1) return;
|
|
|
|
v = mulscale20(globalzd,horizlookup[y-globalhoriz+horizycent]);
|
|
bx = (uint32_t)mulscale14(globalx2*x1+globalx1,v) + globalxpanning;
|
|
by = (uint32_t)mulscale14(globaly2*x1+globaly1,v) + globalypanning;
|
|
asm1 = mulscale14(globalx2,v);
|
|
asm2 = mulscale14(globaly2,v);
|
|
|
|
asm3 = FP_OFF(palookup[globalpal]) + getpalookupsh(mulscale28(klabs(v),globvis));
|
|
|
|
if (globalispow2)
|
|
{
|
|
if ((globalorientation&2) == 0)
|
|
mhline(globalbufplc,bx,(x2-x1)<<16,0L,by,ylookup[y]+x1+frameoffset);
|
|
else
|
|
thline(globalbufplc,bx,(x2-x1)<<16,0L,by,ylookup[y]+x1+frameoffset);
|
|
}
|
|
else
|
|
{
|
|
if ((globalorientation&2) == 0)
|
|
nonpow2_mhline(globalbufplc,bx,(x2-x1)<<16,0L,by,(char *)(ylookup[y]+x1+frameoffset));
|
|
else
|
|
nonpow2_thline(globalbufplc,bx,(x2-x1)<<16,0L,by,(char *)(ylookup[y]+x1+frameoffset));
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// ceilspritescan (internal)
|
|
//
|
|
static void ceilspritescan(int32_t x1, int32_t x2)
|
|
{
|
|
int32_t x, y1, y2, twall, bwall;
|
|
|
|
y1 = uwall[x1]; y2 = y1;
|
|
for (x=x1; x<=x2; x++)
|
|
{
|
|
twall = uwall[x]-1; bwall = dwall[x];
|
|
if (twall < bwall-1)
|
|
{
|
|
if (twall >= y2)
|
|
{
|
|
while (y1 < y2-1) ceilspritehline(x-1,++y1);
|
|
y1 = twall;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < twall) ceilspritehline(x-1,++y1);
|
|
while (y1 > twall) lastx[y1--] = x;
|
|
}
|
|
while (y2 > bwall) ceilspritehline(x-1,--y2);
|
|
while (y2 < bwall) lastx[y2++] = x;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < y2-1) ceilspritehline(x-1,++y1);
|
|
if (x == x2) break;
|
|
y1 = uwall[x+1]; y2 = y1;
|
|
}
|
|
}
|
|
while (y1 < y2-1) ceilspritehline(x2,++y1);
|
|
faketimerhandler();
|
|
}
|
|
|
|
////////// translucent slope vline, based on a-c.c's slopevlin //////////
|
|
static int32_t gglogx, gglogy, ggpinc;
|
|
static char *ggbuf, *ggpal;
|
|
|
|
#ifdef ENGINE_USING_A_C
|
|
extern int32_t glogx, glogy, gpinc;
|
|
extern char *gbuf;
|
|
#endif
|
|
|
|
static inline void setupslopevlin_alsotrans(int32_t logylogx, intptr_t bufplc, int32_t pinc)
|
|
{
|
|
#ifdef ENGINE_USING_A_C
|
|
glogx = (logylogx&255); glogy = (logylogx>>8);
|
|
gbuf = (char *) bufplc; gpinc = pinc;
|
|
#else
|
|
setupslopevlin(logylogx, bufplc, pinc);
|
|
#endif
|
|
gglogx = (logylogx&255); gglogy = (logylogx>>8);
|
|
ggbuf = (char *)bufplc; ggpinc = pinc;
|
|
ggpal = palookup[globalpal] + getpalookupsh(0);
|
|
}
|
|
|
|
// cnt iterations
|
|
static void tslopevlin(uint8_t *p, int32_t i, const intptr_t *slopalptr, int32_t cnt, int32_t bx, int32_t by)
|
|
{
|
|
const char *const buf = ggbuf;
|
|
const char *const pal = ggpal;
|
|
const char *const trans = getblendtab(0);
|
|
const int32_t bzinc = (asm1>>3), pinc = ggpinc;
|
|
|
|
const int32_t transmode = (globalorientation&128);
|
|
const uint32_t xtou = globalx3, ytov = globaly3;
|
|
const int32_t logx = gglogx, logy = gglogy;
|
|
|
|
int32_t bz = asm3;
|
|
|
|
do
|
|
{
|
|
uint8_t ch;
|
|
uint32_t u, v;
|
|
|
|
i = krecipasm(bz>>6); bz += bzinc;
|
|
u = bx + xtou*i;
|
|
v = by + ytov*i;
|
|
ch = *(uint8_t *)(slopalptr[0] + buf[((u>>(32-logx))<<logy)+(v>>(32-logy))]);
|
|
|
|
if (ch != 255)
|
|
*p = trans[transmode ? *p|(pal[ch]<<8) : (*p<<8)|pal[ch]];
|
|
|
|
slopalptr--;
|
|
p += pinc;
|
|
}
|
|
while (--cnt);
|
|
}
|
|
|
|
//
|
|
// grouscan (internal)
|
|
//
|
|
#define BITSOFPRECISION 3 //Don't forget to change this in A.ASM also!
|
|
static void grouscan(int32_t dax1, int32_t dax2, int32_t sectnum, char dastat)
|
|
{
|
|
int32_t i, l, x, y, dx, dy, wx, wy, y1, y2, daz;
|
|
int32_t daslope, dasqr;
|
|
int32_t shoffs, shinc, m1, m2;
|
|
intptr_t *mptr1, *mptr2, j;
|
|
|
|
// Er, yes, they're not global anymore:
|
|
int32_t globalx, globaly, globalz, globalzx;
|
|
|
|
const sectortype *const sec = §or[sectnum];
|
|
const walltype *wal;
|
|
|
|
if (dastat == 0)
|
|
{
|
|
if (globalposz <= getceilzofslope(sectnum,globalposx,globalposy))
|
|
return; //Back-face culling
|
|
globalorientation = sec->ceilingstat;
|
|
globalpicnum = sec->ceilingpicnum;
|
|
globalshade = sec->ceilingshade;
|
|
globalpal = sec->ceilingpal;
|
|
daslope = sec->ceilingheinum;
|
|
daz = sec->ceilingz;
|
|
}
|
|
else
|
|
{
|
|
if (globalposz >= getflorzofslope(sectnum,globalposx,globalposy))
|
|
return; //Back-face culling
|
|
globalorientation = sec->floorstat;
|
|
globalpicnum = sec->floorpicnum;
|
|
globalshade = sec->floorshade;
|
|
globalpal = sec->floorpal;
|
|
daslope = sec->floorheinum;
|
|
daz = sec->floorz;
|
|
}
|
|
|
|
DO_TILE_ANIM(globalpicnum, sectnum);
|
|
setgotpic(globalpicnum);
|
|
if ((tilesiz[globalpicnum].x <= 0) || (tilesiz[globalpicnum].y <= 0)) return;
|
|
if (waloff[globalpicnum] == 0) loadtile(globalpicnum);
|
|
|
|
wal = &wall[sec->wallptr];
|
|
wx = wall[wal->point2].x - wal->x;
|
|
wy = wall[wal->point2].y - wal->y;
|
|
dasqr = krecipasm(nsqrtasm(uhypsq(wx,wy)));
|
|
i = mulscale21(daslope,dasqr);
|
|
wx *= i; wy *= i;
|
|
|
|
globalx = -mulscale19(singlobalang,xdimenrecip);
|
|
globaly = mulscale19(cosglobalang,xdimenrecip);
|
|
globalx1 = (globalposx<<8);
|
|
globaly1 = -(globalposy<<8);
|
|
i = (dax1-halfxdimen)*xdimenrecip;
|
|
globalx2 = mulscale16(cosglobalang<<4,viewingrangerecip) - mulscale27(singlobalang,i);
|
|
globaly2 = mulscale16(singlobalang<<4,viewingrangerecip) + mulscale27(cosglobalang,i);
|
|
globalzd = (xdimscale<<9);
|
|
globalzx = -dmulscale17(wx,globaly2,-wy,globalx2) + mulscale10(1-globalhoriz,globalzd);
|
|
globalz = -dmulscale25(wx,globaly,-wy,globalx);
|
|
|
|
if (globalorientation&64) //Relative alignment
|
|
{
|
|
dx = mulscale14(wall[wal->point2].x-wal->x,dasqr);
|
|
dy = mulscale14(wall[wal->point2].y-wal->y,dasqr);
|
|
|
|
i = nsqrtasm(daslope*daslope+16777216);
|
|
|
|
x = globalx; y = globaly;
|
|
globalx = dmulscale16(x,dx,y,dy);
|
|
globaly = mulscale12(dmulscale16(-y,dx,x,dy),i);
|
|
|
|
x = ((wal->x-globalposx)<<8); y = ((wal->y-globalposy)<<8);
|
|
globalx1 = dmulscale16(-x,dx,-y,dy);
|
|
globaly1 = mulscale12(dmulscale16(-y,dx,x,dy),i);
|
|
|
|
x = globalx2; y = globaly2;
|
|
globalx2 = dmulscale16(x,dx,y,dy);
|
|
globaly2 = mulscale12(dmulscale16(-y,dx,x,dy),i);
|
|
}
|
|
if (globalorientation&0x4)
|
|
{
|
|
i = globalx; globalx = -globaly; globaly = -i;
|
|
i = globalx1; globalx1 = globaly1; globaly1 = i;
|
|
i = globalx2; globalx2 = -globaly2; globaly2 = -i;
|
|
}
|
|
if (globalorientation&0x10) { globalx1 = -globalx1, globalx2 = -globalx2, globalx = -globalx; }
|
|
if (globalorientation&0x20) { globaly1 = -globaly1, globaly2 = -globaly2, globaly = -globaly; }
|
|
|
|
daz = dmulscale9(wx,globalposy-wal->y,-wy,globalposx-wal->x) + ((daz-globalposz)<<8);
|
|
globalx2 = mulscale20(globalx2,daz); globalx = mulscale28(globalx,daz);
|
|
globaly2 = mulscale20(globaly2,-daz); globaly = mulscale28(globaly,-daz);
|
|
|
|
i = 8-(picsiz[globalpicnum]&15); j = 8-(picsiz[globalpicnum]>>4);
|
|
if (globalorientation&8) { i++; j++; }
|
|
globalx1 <<= (i+12); globalx2 <<= i; globalx <<= i;
|
|
globaly1 <<= (j+12); globaly2 <<= j; globaly <<= j;
|
|
|
|
if (dastat == 0)
|
|
{
|
|
globalx1 += (uint32_t)sec->ceilingxpanning<<24;
|
|
globaly1 += (uint32_t)sec->ceilingypanning<<24;
|
|
}
|
|
else
|
|
{
|
|
globalx1 += (uint32_t)sec->floorxpanning<<24;
|
|
globaly1 += (uint32_t)sec->floorypanning<<24;
|
|
}
|
|
|
|
asm1 = -(globalzd>>(16-BITSOFPRECISION));
|
|
|
|
{
|
|
int32_t vis = globalvisibility;
|
|
int64_t lvis;
|
|
|
|
if (sec->visibility != 0) vis = mulscale4(vis, (uint8_t)(sec->visibility+16));
|
|
lvis = ((uint64_t)vis*daz) >> 13; // NOTE: lvis can be negative now!
|
|
lvis = (lvis * xdimscale) >> 16;
|
|
globvis = lvis;
|
|
}
|
|
|
|
j = FP_OFF(palookup[globalpal]);
|
|
|
|
setupslopevlin_alsotrans((picsiz[globalpicnum]&15) + ((picsiz[globalpicnum]>>4)<<8),
|
|
waloff[globalpicnum],-ylookup[1]);
|
|
|
|
l = (globalzd>>16);
|
|
|
|
shinc = mulscale16(globalz,xdimenscale);
|
|
if (shinc > 0) shoffs = (4<<15); else shoffs = ((16380-ydimen)<<15); // JBF: was 2044
|
|
if (dastat == 0) y1 = umost[dax1]; else y1 = max(umost[dax1],dplc[dax1]);
|
|
m1 = mulscale16(y1,globalzd) + (globalzx>>6);
|
|
//Avoid visibility overflow by crossing horizon
|
|
if (globalzd > 0) m1 += (globalzd>>16); else m1 -= (globalzd>>16);
|
|
m2 = m1+l;
|
|
mptr1 = (intptr_t *)&slopalookup[y1+(shoffs>>15)]; mptr2 = mptr1+1;
|
|
|
|
for (x=dax1; x<=dax2; x++)
|
|
{
|
|
if (dastat == 0) { y1 = umost[x]; y2 = min(dmost[x],uplc[x])-1; }
|
|
else { y1 = max(umost[x],dplc[x]); y2 = dmost[x]-1; }
|
|
if (y1 <= y2)
|
|
{
|
|
intptr_t *nptr1 = &slopalookup[y1+(shoffs>>15)];
|
|
intptr_t *nptr2 = &slopalookup[y2+(shoffs>>15)];
|
|
|
|
while (nptr1 <= mptr1)
|
|
{
|
|
*mptr1-- = j + getpalookupsh(mulscale24(krecipasm(m1),globvis));
|
|
m1 -= l;
|
|
}
|
|
while (nptr2 >= mptr2)
|
|
{
|
|
*mptr2++ = j + getpalookupsh(mulscale24(krecipasm(m2),globvis));
|
|
m2 += l;
|
|
}
|
|
|
|
globalx3 = (globalx2>>10);
|
|
globaly3 = (globaly2>>10);
|
|
asm3 = mulscale16(y2,globalzd) + (globalzx>>6);
|
|
if ((globalorientation&256)==0)
|
|
slopevlin(ylookup[y2]+x+frameoffset,krecipasm(asm3>>3),(intptr_t)nptr2,y2-y1+1,globalx1,globaly1);
|
|
else
|
|
tslopevlin((uint8_t *)(ylookup[y2]+x+frameoffset),0,nptr2,y2-y1+1,globalx1,globaly1);
|
|
|
|
if ((x&15) == 0) faketimerhandler();
|
|
}
|
|
globalx2 += globalx;
|
|
globaly2 += globaly;
|
|
globalzx += globalz;
|
|
shoffs += shinc;
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// parascan (internal)
|
|
//
|
|
static void parascan(int32_t dax1, int32_t dax2, int32_t sectnum, char dastat, int32_t bunch)
|
|
{
|
|
sectortype *sec;
|
|
int32_t j, k, l, m, n, x, z, wallnum, nextsectnum, globalhorizbak;
|
|
int16_t *topptr, *botptr;
|
|
|
|
int32_t dapyscale, dapskybits;
|
|
const int8_t *dapskyoff;
|
|
|
|
int32_t logtilesizy, tsizy;
|
|
|
|
UNREFERENCED_PARAMETER(dax1);
|
|
UNREFERENCED_PARAMETER(dax2);
|
|
|
|
sectnum = thesector[bunchfirst[bunch]]; sec = §or[sectnum];
|
|
|
|
globalhorizbak = globalhoriz;
|
|
globvis = globalpisibility;
|
|
//globalorientation = 0L;
|
|
if (sec->visibility != 0)
|
|
globvis = mulscale4(globvis, (uint8_t)(sec->visibility+16));
|
|
|
|
if (dastat == 0)
|
|
{
|
|
globalpal = sec->ceilingpal;
|
|
globalpicnum = sec->ceilingpicnum;
|
|
globalshade = (int32_t)sec->ceilingshade;
|
|
globalxpanning = (int32_t)sec->ceilingxpanning;
|
|
globalypanning = (int32_t)sec->ceilingypanning;
|
|
topptr = umost;
|
|
botptr = uplc;
|
|
}
|
|
else
|
|
{
|
|
globalpal = sec->floorpal;
|
|
globalpicnum = sec->floorpicnum;
|
|
globalshade = (int32_t)sec->floorshade;
|
|
globalxpanning = (int32_t)sec->floorxpanning;
|
|
globalypanning = (int32_t)sec->floorypanning;
|
|
topptr = dplc;
|
|
botptr = dmost;
|
|
}
|
|
|
|
if ((unsigned)globalpicnum >= MAXTILES) globalpicnum = 0;
|
|
DO_TILE_ANIM(globalpicnum, sectnum);
|
|
|
|
logtilesizy = (picsiz[globalpicnum]>>4);
|
|
tsizy = tilesiz[globalpicnum].y;
|
|
|
|
if (tsizy==0)
|
|
return;
|
|
|
|
dapskyoff = getpsky(globalpicnum, &dapyscale, &dapskybits);
|
|
|
|
globalshiftval = logtilesizy;
|
|
|
|
// before proper non-power-of-two tilesizy drawing
|
|
if (oldnonpow2() && pow2long[logtilesizy] != tsizy)
|
|
globalshiftval++;
|
|
#ifdef CLASSIC_NONPOW2_YSIZE_WALLS
|
|
// non power-of-two y size textures!
|
|
if ((!oldnonpow2() && pow2long[logtilesizy] != tsizy) || tsizy >= 512)
|
|
{
|
|
globaltilesizy = tsizy;
|
|
globalyscale = 65536 / tsizy;
|
|
globalshiftval = 0;
|
|
globalzd = divscale32(((tsizy>>1)/*+g_psky.yoffs*/), tsizy) + ((uint32_t)globalypanning<<24);
|
|
}
|
|
else
|
|
#endif
|
|
{
|
|
globalshiftval = 32-globalshiftval;
|
|
globalyscale = (8<<(globalshiftval-19));
|
|
globalzd = (((tsizy>>1)/*+g_psky.yoffs*/)<<globalshiftval) + ((uint32_t)globalypanning<<24);
|
|
}
|
|
|
|
//if (globalorientation&256) globalyscale = -globalyscale, globalzd = -globalzd;
|
|
|
|
if (dapyscale != 65536)
|
|
globalhoriz = mulscale16(globalhoriz-(ydimen>>1),dapyscale) + (ydimen>>1);
|
|
|
|
k = 11 - (picsiz[globalpicnum]&15) - dapskybits;
|
|
|
|
// WGR2 SVN: select new episode after playing wgmicky1 with Polymer
|
|
// (maybe switched to classic earlier).
|
|
// --> rendmode==0, glrendermode == REND_POLYMER, we end up with globalpicnum==266,
|
|
// picsiz...==9 and dapskybits==3
|
|
// FIXME ?
|
|
if (k < 0)
|
|
k = 0;
|
|
|
|
x = -1;
|
|
|
|
for (z=bunchfirst[bunch]; z>=0; z=bunchp2[z])
|
|
{
|
|
wallnum = thewall[z]; nextsectnum = wall[wallnum].nextsector;
|
|
|
|
if (nextsectnum >= 0) //else negative array access
|
|
{
|
|
if (dastat == 0) j = sector[nextsectnum].ceilingstat;
|
|
else j = sector[nextsectnum].floorstat;
|
|
}
|
|
|
|
if ((nextsectnum < 0) || (wall[wallnum].cstat&32) || ((j&1) == 0))
|
|
{
|
|
if (x == -1) x = xb1[z];
|
|
|
|
if (parallaxtype == 0 || no_radarang2)
|
|
{
|
|
n = mulscale16(xdimenrecip,viewingrange);
|
|
for (j=xb1[z]; j<=xb2[z]; j++)
|
|
lplc[j] = ((mulscale23(j-halfxdimen,n)+globalang)&2047)>>k;
|
|
}
|
|
else
|
|
{
|
|
for (j=xb1[z]; j<=xb2[z]; j++)
|
|
lplc[j] = ((radarang2[j]+globalang)&2047)>>k;
|
|
}
|
|
|
|
if (parallaxtype == 2 && !no_radarang2)
|
|
{
|
|
n = mulscale16(xdimscale,viewingrange);
|
|
for (j=xb1[z]; j<=xb2[z]; j++)
|
|
swplc[j] = mulscale14(sintable[(radarang2[j]+512)&2047],n);
|
|
}
|
|
else
|
|
clearbuf(&swplc[xb1[z]],xb2[z]-xb1[z]+1,mulscale16(xdimscale,viewingrange));
|
|
}
|
|
else if (x >= 0)
|
|
{
|
|
l = globalpicnum; m = (picsiz[globalpicnum]&15);
|
|
globalpicnum = l + dapskyoff[lplc[x]>>m];
|
|
|
|
if (((lplc[x]^lplc[xb1[z]-1])>>m) == 0)
|
|
wallscan(x,xb1[z]-1,topptr,botptr,swplc,lplc);
|
|
else
|
|
{
|
|
j = x;
|
|
while (x < xb1[z])
|
|
{
|
|
n = l + dapskyoff[lplc[x]>>m];
|
|
if (n != globalpicnum)
|
|
{
|
|
wallscan(j,x-1,topptr,botptr,swplc,lplc);
|
|
j = x;
|
|
globalpicnum = n;
|
|
}
|
|
x++;
|
|
}
|
|
if (j < x)
|
|
wallscan(j,x-1,topptr,botptr,swplc,lplc);
|
|
}
|
|
|
|
globalpicnum = l;
|
|
x = -1;
|
|
}
|
|
}
|
|
|
|
if (x >= 0)
|
|
{
|
|
l = globalpicnum; m = (picsiz[globalpicnum]&15);
|
|
globalpicnum = l + dapskyoff[lplc[x]>>m];
|
|
|
|
if (((lplc[x]^lplc[xb2[bunchlast[bunch]]])>>m) == 0)
|
|
wallscan(x,xb2[bunchlast[bunch]],topptr,botptr,swplc,lplc);
|
|
else
|
|
{
|
|
j = x;
|
|
while (x <= xb2[bunchlast[bunch]])
|
|
{
|
|
n = l + dapskyoff[lplc[x]>>m];
|
|
if (n != globalpicnum)
|
|
{
|
|
wallscan(j,x-1,topptr,botptr,swplc,lplc);
|
|
j = x;
|
|
globalpicnum = n;
|
|
}
|
|
x++;
|
|
}
|
|
if (j <= x)
|
|
wallscan(j,x-1,topptr,botptr,swplc,lplc);
|
|
}
|
|
globalpicnum = l;
|
|
}
|
|
globalhoriz = globalhorizbak;
|
|
}
|
|
|
|
|
|
// set orientation, panning, shade, pal; picnum
|
|
static void setup_globals_wall1(const walltype *wal, int32_t dapicnum)
|
|
{
|
|
globalorientation = wal->cstat;
|
|
|
|
globalpicnum = dapicnum;
|
|
if ((unsigned)globalpicnum >= MAXTILES) globalpicnum = 0;
|
|
DO_TILE_ANIM(globalpicnum, 0);
|
|
|
|
globalxpanning = wal->xpanning;
|
|
globalypanning = wal->ypanning;
|
|
|
|
globalshade = wal->shade;
|
|
globalpal = wal->pal;
|
|
if (palookup[globalpal] == NULL) globalpal = 0; // JBF: fixes crash
|
|
}
|
|
|
|
static void setup_globals_wall2(const walltype *wal, uint8_t secvisibility, int32_t topzref, int32_t botzref)
|
|
{
|
|
const int32_t logtilesizy = (picsiz[globalpicnum]>>4);
|
|
const int32_t tsizy = tilesiz[globalpicnum].y;
|
|
|
|
if (tsizy==0)
|
|
{
|
|
globalshiftval = -1;
|
|
return;
|
|
}
|
|
|
|
globvis = globalvisibility;
|
|
if (secvisibility != 0)
|
|
globvis = mulscale4(globvis, (uint8_t)(secvisibility+16));
|
|
|
|
globalshiftval = logtilesizy;
|
|
|
|
// before proper non-power-of-two tilesizy drawing
|
|
if (oldnonpow2() && pow2long[logtilesizy] != tsizy)
|
|
globalshiftval++;
|
|
#ifdef CLASSIC_NONPOW2_YSIZE_WALLS
|
|
// non power-of-two y size textures!
|
|
if ((!oldnonpow2() && pow2long[logtilesizy] != tsizy) || tsizy >= 512)
|
|
{
|
|
globaltilesizy = tsizy;
|
|
globalyscale = divscale13(wal->yrepeat, tsizy);
|
|
globalshiftval = 0;
|
|
}
|
|
else
|
|
#endif
|
|
{
|
|
// globalshiftval==13 --> globalshiftval==19
|
|
// ==> upper texture y size limit *here* = 8192
|
|
globalshiftval = 32-globalshiftval;
|
|
globalyscale = wal->yrepeat<<(globalshiftval-19);
|
|
}
|
|
|
|
if ((globalorientation&4) == 0)
|
|
globalzd = (((int64_t)(globalposz-topzref)*globalyscale)<<8);
|
|
else // bottom-aligned
|
|
globalzd = (((int64_t)(globalposz-botzref)*globalyscale)<<8);
|
|
globalzd = (uint32_t)globalzd + (globalypanning<<24);
|
|
|
|
if (globalorientation&256) // y-flipped
|
|
globalyscale = -globalyscale, globalzd = -(inthi_t)globalzd;
|
|
}
|
|
|
|
|
|
/* _______________
|
|
* X umost #######
|
|
* ###### ________
|
|
* ______/
|
|
* X dwall
|
|
*
|
|
* ________
|
|
* X uwall \______
|
|
* ///////////////
|
|
* _______________
|
|
* X dmost
|
|
*/
|
|
|
|
#ifdef YAX_ENABLE
|
|
// returns: should dmost be raised when drawing a "ceiling wall"?
|
|
static int32_t should_clip_cwall(int32_t x1, int32_t x2)
|
|
{
|
|
int32_t x;
|
|
|
|
if (yax_globallev <= YAX_MAXDRAWS)
|
|
return 1;
|
|
|
|
for (x=x1; x<=x2; x++)
|
|
if (dwall[x] < dmost[x] || uplc[x] < dmost[x])
|
|
return 1;
|
|
|
|
return 0;
|
|
}
|
|
|
|
// returns: should umost be lowered when drawing a "floor wall"?
|
|
static int32_t should_clip_fwall(int32_t x1, int32_t x2)
|
|
{
|
|
int32_t x;
|
|
|
|
if (yax_globallev >= YAX_MAXDRAWS)
|
|
return 1;
|
|
|
|
for (x=x1; x<=x2; x++)
|
|
if (uwall[x] > umost[x] || dplc[x] > umost[x])
|
|
return 1;
|
|
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
//
|
|
// drawalls (internal)
|
|
//
|
|
static void drawalls(int32_t bunch)
|
|
{
|
|
sectortype *sec, *nextsec;
|
|
walltype *wal;
|
|
int32_t i, x, x1, x2, cz[5], fz[5];
|
|
int32_t z, wallnum, sectnum, nextsectnum;
|
|
int32_t startsmostwallcnt, startsmostcnt, gotswall;
|
|
char andwstat1, andwstat2;
|
|
|
|
z = bunchfirst[bunch];
|
|
sectnum = thesector[z]; sec = §or[sectnum];
|
|
|
|
andwstat1 = 0xff; andwstat2 = 0xff;
|
|
for (; z>=0; z=bunchp2[z]) //uplc/dplc calculation
|
|
{
|
|
andwstat1 &= wallmost(uplc,z,sectnum,(uint8_t)0);
|
|
andwstat2 &= wallmost(dplc,z,sectnum,(uint8_t)1);
|
|
}
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (g_nodraw)
|
|
{
|
|
int32_t baselevp, checkcf;
|
|
int16_t bn[2];
|
|
# if 0
|
|
int32_t obunchchk = (1 && yax_globalbunch>=0 &&
|
|
haveymost[yax_globalbunch>>3]&(1<<(yax_globalbunch&7)));
|
|
|
|
// if (obunchchk)
|
|
x2 = yax_globalbunch*xdimen;
|
|
# endif
|
|
baselevp = (yax_globallev == YAX_MAXDRAWS);
|
|
|
|
yax_getbunches(sectnum, &bn[0], &bn[1]);
|
|
checkcf = (bn[0]>=0) + ((bn[1]>=0)<<1);
|
|
if (!baselevp)
|
|
checkcf &= (1<<yax_globalcf);
|
|
|
|
if ((andwstat1&3) == 3) // ceilings clipped
|
|
checkcf &= ~1;
|
|
if ((andwstat2&12) == 12) // floors clipped
|
|
checkcf &= ~2;
|
|
|
|
for (i=0; i<2; i++)
|
|
if (checkcf&(1<<i))
|
|
{
|
|
if ((haveymost[bn[i]>>3]&(1<<(bn[i]&7)))==0)
|
|
{
|
|
// init yax *most arrays for that bunch
|
|
haveymost[bn[i]>>3] |= (1<<(bn[i]&7));
|
|
for (x=xdimen*bn[i]; x<xdimen*(bn[i]+1); x++)
|
|
{
|
|
yumost[x] = ydimen;
|
|
ydmost[x] = 0;
|
|
}
|
|
}
|
|
|
|
x1 = bn[i]*xdimen;
|
|
for (x=x1+xb1[bunchfirst[bunch]]; x<=x1+xb2[bunchlast[bunch]]; x++)
|
|
{
|
|
if (i==YAX_CEILING)
|
|
{
|
|
yumost[x] = min(yumost[x], umost[x-x1]);
|
|
ydmost[x] = max(ydmost[x], min(dmost[x-x1], uplc[x-x1]));
|
|
}
|
|
else
|
|
{
|
|
yumost[x] = min(yumost[x], max(umost[x-x1], dplc[x-x1]));
|
|
ydmost[x] = max(ydmost[x], dmost[x-x1]);
|
|
}
|
|
# if 0
|
|
if (obunchchk)
|
|
{
|
|
yumost[x] = max(yumost[x], yumost[x-x1+x2]);
|
|
ydmost[x] = min(ydmost[x], ydmost[x-x1+x2]);
|
|
}
|
|
# endif
|
|
}
|
|
}
|
|
}
|
|
else
|
|
#endif
|
|
{
|
|
if ((andwstat1&3) != 3) //draw ceilings
|
|
#ifdef YAX_ENABLE
|
|
// this is to prevent double-drawing of translucent masked ceilings
|
|
if (r_tror_nomaskpass==0 || yax_globallev==YAX_MAXDRAWS || (sec->ceilingstat&256)==0 ||
|
|
yax_nomaskpass==1 || !(yax_gotsector[sectnum>>3]&(1<<(sectnum&7))))
|
|
#endif
|
|
{
|
|
if ((sec->ceilingstat&3) == 2)
|
|
grouscan(xb1[bunchfirst[bunch]],xb2[bunchlast[bunch]],sectnum,0);
|
|
else if ((sec->ceilingstat&1) == 0)
|
|
ceilscan(xb1[bunchfirst[bunch]],xb2[bunchlast[bunch]],sectnum);
|
|
else
|
|
parascan(xb1[bunchfirst[bunch]],xb2[bunchlast[bunch]],sectnum,0,bunch);
|
|
}
|
|
|
|
if ((andwstat2&12) != 12) //draw floors
|
|
#ifdef YAX_ENABLE
|
|
// this is to prevent double-drawing of translucent masked floors
|
|
if (r_tror_nomaskpass==0 || yax_globallev==YAX_MAXDRAWS || (sec->floorstat&256)==0 ||
|
|
yax_nomaskpass==1 || !(yax_gotsector[sectnum>>3]&(1<<(sectnum&7))))
|
|
#endif
|
|
{
|
|
if ((sec->floorstat&3) == 2)
|
|
grouscan(xb1[bunchfirst[bunch]],xb2[bunchlast[bunch]],sectnum,1);
|
|
else if ((sec->floorstat&1) == 0)
|
|
florscan(xb1[bunchfirst[bunch]],xb2[bunchlast[bunch]],sectnum);
|
|
else
|
|
parascan(xb1[bunchfirst[bunch]],xb2[bunchlast[bunch]],sectnum,1,bunch);
|
|
}
|
|
}
|
|
|
|
|
|
//DRAW WALLS SECTION!
|
|
for (z=bunchfirst[bunch]; z>=0; z=bunchp2[z])
|
|
{
|
|
x1 = xb1[z]; x2 = xb2[z];
|
|
if (umost[x2] >= dmost[x2])
|
|
{
|
|
for (x=x1; x<x2; x++)
|
|
if (umost[x] < dmost[x]) break;
|
|
if (x >= x2)
|
|
{
|
|
smostwall[smostwallcnt] = z;
|
|
smostwalltype[smostwallcnt] = 0;
|
|
smostwallcnt++;
|
|
continue;
|
|
}
|
|
}
|
|
|
|
wallnum = thewall[z]; wal = &wall[wallnum];
|
|
nextsectnum = wal->nextsector;
|
|
nextsec = nextsectnum>=0 ? §or[nextsectnum] : NULL;
|
|
|
|
gotswall = 0;
|
|
|
|
startsmostwallcnt = smostwallcnt;
|
|
startsmostcnt = smostcnt;
|
|
|
|
if ((searchit == 2) && (searchx >= x1) && (searchx <= x2))
|
|
{
|
|
if (searchy <= uplc[searchx]
|
|
#ifdef YAX_ENABLE
|
|
&& umost[searchx] <= searchy && getceilzofslope(sectnum, globalposx, globalposy) <= globalposz
|
|
&& (yax_getbunch(sectnum, YAX_CEILING) < 0 || showinvisibility || (sec->ceilingstat&(256+128)) || klabs(yax_globallev-YAX_MAXDRAWS)==YAX_MAXDRAWS)
|
|
#endif
|
|
) //ceiling
|
|
{
|
|
searchsector = sectnum; searchwall = wallnum;
|
|
searchstat = 1; searchit = 1;
|
|
}
|
|
else if (dplc[searchx] <= searchy
|
|
#ifdef YAX_ENABLE
|
|
&& searchy < dmost[searchx] && getflorzofslope(sectnum, globalposx, globalposy) >= globalposz
|
|
&& (yax_getbunch(sectnum, YAX_FLOOR) < 0 || showinvisibility || (sec->floorstat&(256+128)) || klabs(yax_globallev-YAX_MAXDRAWS)==YAX_MAXDRAWS)
|
|
#endif
|
|
) //floor
|
|
{
|
|
searchsector = sectnum; searchwall = wallnum;
|
|
searchstat = 2; searchit = 1;
|
|
}
|
|
}
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (yax_nomaskpass==0 || !yax_isislandwall(wallnum, !yax_globalcf) || (yax_nomaskdidit=1, 0))
|
|
#endif
|
|
if (nextsectnum >= 0)
|
|
{
|
|
// 2 <--- 3
|
|
// x------------------x
|
|
// 0 ---> 1
|
|
//
|
|
// 4 (our pos, z wrt the nextsector!)
|
|
|
|
getzsofslope((int16_t)sectnum,wal->x,wal->y,&cz[0],&fz[0]);
|
|
getzsofslope((int16_t)sectnum,wall[wal->point2].x,wall[wal->point2].y,&cz[1],&fz[1]);
|
|
getzsofslope((int16_t)nextsectnum,wal->x,wal->y,&cz[2],&fz[2]);
|
|
getzsofslope((int16_t)nextsectnum,wall[wal->point2].x,wall[wal->point2].y,&cz[3],&fz[3]);
|
|
getzsofslope((int16_t)nextsectnum,globalposx,globalposy,&cz[4],&fz[4]);
|
|
|
|
if ((wal->cstat&48) == 16) maskwall[maskwallcnt++] = z;
|
|
|
|
if (((sec->ceilingstat&1) == 0) || ((nextsec->ceilingstat&1) == 0))
|
|
{
|
|
if ((cz[2] <= cz[0]) && (cz[3] <= cz[1]))
|
|
{
|
|
// if (globparaceilclip)
|
|
if (getceilzofslope(sectnum, globalposx, globalposy) <= globalposz)
|
|
for (x=x1; x<=x2; x++)
|
|
if (uplc[x] > umost[x])
|
|
if (umost[x] <= dmost[x])
|
|
{
|
|
umost[x] = uplc[x];
|
|
if (umost[x] > dmost[x]) numhits--;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
wallmost(dwall,z,nextsectnum,(uint8_t)0);
|
|
|
|
if ((cz[2] > fz[0]) || (cz[3] > fz[1]))
|
|
for (i=x1; i<=x2; i++) if (dwall[i] > dplc[i]) dwall[i] = dplc[i];
|
|
|
|
if ((searchit == 2) && (searchx >= x1) && (searchx <= x2))
|
|
#ifdef YAX_ENABLE
|
|
if (uplc[searchx] <= searchy)
|
|
#endif
|
|
if (searchy <= dwall[searchx]) //wall
|
|
{
|
|
searchsector = sectnum; searchbottomwall = searchwall = wallnum;
|
|
searchisbottom = 0;
|
|
searchstat = 0; searchit = 1;
|
|
}
|
|
|
|
setup_globals_wall1(wal, wal->picnum);
|
|
setup_globals_wall2(wal, sec->visibility, nextsec->ceilingz, sec->ceilingz);
|
|
|
|
if (gotswall == 0) { gotswall = 1; prepwall(z,wal); }
|
|
wallscan(x1,x2,uplc,dwall,swall,lwall);
|
|
|
|
if ((cz[2] >= cz[0]) && (cz[3] >= cz[1]))
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
if (should_clip_cwall(x1, x2))
|
|
#endif
|
|
for (x=x1; x<=x2; x++)
|
|
if (dwall[x] > umost[x])
|
|
if (umost[x] <= dmost[x])
|
|
{
|
|
umost[x] = dwall[x];
|
|
if (umost[x] > dmost[x]) numhits--;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
if (should_clip_cwall(x1, x2))
|
|
#endif
|
|
for (x=x1; x<=x2; x++)
|
|
if (umost[x] <= dmost[x])
|
|
{
|
|
i = max(uplc[x],dwall[x]);
|
|
if (i > umost[x])
|
|
{
|
|
umost[x] = i;
|
|
if (umost[x] > dmost[x]) numhits--;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if ((cz[2] < cz[0]) || (cz[3] < cz[1]) || (globalposz < cz[4]))
|
|
{
|
|
i = x2-x1+1;
|
|
if (smostcnt+i < MAXYSAVES)
|
|
{
|
|
smoststart[smostwallcnt] = smostcnt;
|
|
smostwall[smostwallcnt] = z;
|
|
smostwalltype[smostwallcnt] = 1; //1 for umost
|
|
smostwallcnt++;
|
|
copybufbyte(&umost[x1],&smost[smostcnt],i*sizeof(smost[0]));
|
|
smostcnt += i;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (((sec->floorstat&1) == 0) || ((nextsec->floorstat&1) == 0))
|
|
{
|
|
if ((fz[2] >= fz[0]) && (fz[3] >= fz[1]))
|
|
{
|
|
// if (globparaflorclip)
|
|
if (getflorzofslope(sectnum, globalposx, globalposy) >= globalposz)
|
|
for (x=x1; x<=x2; x++)
|
|
if (dplc[x] < dmost[x])
|
|
if (umost[x] <= dmost[x])
|
|
{
|
|
dmost[x] = dplc[x];
|
|
if (umost[x] > dmost[x]) numhits--;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
wallmost(uwall,z,nextsectnum,(uint8_t)1);
|
|
|
|
if ((fz[2] < cz[0]) || (fz[3] < cz[1]))
|
|
for (i=x1; i<=x2; i++) if (uwall[i] < uplc[i]) uwall[i] = uplc[i];
|
|
|
|
if ((searchit == 2) && (searchx >= x1) && (searchx <= x2))
|
|
#ifdef YAX_ENABLE
|
|
if (dplc[searchx] >= searchy)
|
|
#endif
|
|
if (searchy >= uwall[searchx]) //wall
|
|
{
|
|
searchsector = sectnum; searchbottomwall = searchwall = wallnum;
|
|
if ((wal->cstat&2) > 0) searchbottomwall = wal->nextwall;
|
|
searchisbottom = 1;
|
|
searchstat = 0; searchit = 1;
|
|
}
|
|
|
|
{
|
|
const walltype *twal = (wal->cstat&2) ? &wall[wal->nextwall] : wal;
|
|
setup_globals_wall1(twal, twal->picnum);
|
|
}
|
|
|
|
setup_globals_wall2(wal, sec->visibility, nextsec->floorz, sec->ceilingz);
|
|
|
|
if (gotswall == 0) { gotswall = 1; prepwall(z,wal); }
|
|
wallscan(x1,x2,uwall,dplc,swall,lwall);
|
|
|
|
if ((fz[2] <= fz[0]) && (fz[3] <= fz[1]))
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
if (should_clip_fwall(x1, x2))
|
|
#endif
|
|
for (x=x1; x<=x2; x++)
|
|
if (uwall[x] < dmost[x])
|
|
if (umost[x] <= dmost[x])
|
|
{
|
|
dmost[x] = uwall[x];
|
|
if (umost[x] > dmost[x]) numhits--;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
if (should_clip_fwall(x1, x2))
|
|
#endif
|
|
for (x=x1; x<=x2; x++)
|
|
if (umost[x] <= dmost[x])
|
|
{
|
|
i = min(dplc[x],uwall[x]);
|
|
if (i < dmost[x])
|
|
{
|
|
dmost[x] = i;
|
|
if (umost[x] > dmost[x]) numhits--;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if ((fz[2] > fz[0]) || (fz[3] > fz[1]) || (globalposz > fz[4]))
|
|
{
|
|
i = x2-x1+1;
|
|
if (smostcnt+i < MAXYSAVES)
|
|
{
|
|
smoststart[smostwallcnt] = smostcnt;
|
|
smostwall[smostwallcnt] = z;
|
|
smostwalltype[smostwallcnt] = 2; //2 for dmost
|
|
smostwallcnt++;
|
|
copybufbyte(&dmost[x1],&smost[smostcnt],i*sizeof(smost[0]));
|
|
smostcnt += i;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (numhits < 0) return;
|
|
if ((!(wal->cstat&32)) && ((gotsector[nextsectnum>>3]&pow2char[nextsectnum&7]) == 0))
|
|
{
|
|
if (umost[x2] < dmost[x2])
|
|
scansector(nextsectnum);
|
|
else
|
|
{
|
|
for (x=x1; x<x2; x++)
|
|
if (umost[x] < dmost[x])
|
|
{ scansector(nextsectnum); break; }
|
|
|
|
//If can't see sector beyond, then cancel smost array and just
|
|
//store wall!
|
|
if (x == x2)
|
|
{
|
|
smostwallcnt = startsmostwallcnt;
|
|
smostcnt = startsmostcnt;
|
|
smostwall[smostwallcnt] = z;
|
|
smostwalltype[smostwallcnt] = 0;
|
|
smostwallcnt++;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if ((nextsectnum < 0) || (wal->cstat&32)) //White/1-way wall
|
|
{
|
|
setup_globals_wall1(wal, (nextsectnum < 0) ? wal->picnum : wal->overpicnum);
|
|
setup_globals_wall2(wal, sec->visibility,
|
|
(nextsectnum >= 0) ? nextsec->ceilingz : sec->ceilingz,
|
|
(nextsectnum >= 0) ? sec->ceilingz : sec->floorz);
|
|
|
|
if (gotswall == 0) { gotswall = 1; prepwall(z,wal); }
|
|
wallscan(x1,x2,uplc,dplc,swall,lwall);
|
|
|
|
#ifdef YAX_ENABLE
|
|
// TODO: slopes?
|
|
|
|
if (globalposz > sec->floorz && yax_isislandwall(wallnum, YAX_FLOOR))
|
|
{
|
|
for (x=x1; x<=x2; x++)
|
|
if (dplc[x] > umost[x] && umost[x] <= dmost[x])
|
|
{
|
|
umost[x] = dplc[x];
|
|
if (umost[x] > dmost[x]) numhits--;
|
|
}
|
|
}
|
|
else if (globalposz < sec->ceilingz && yax_isislandwall(wallnum, YAX_CEILING))
|
|
{
|
|
for (x=x1; x<=x2; x++)
|
|
if (uplc[x] < dmost[x] && umost[x] <= dmost[x])
|
|
{
|
|
dmost[x] = uplc[x];
|
|
if (umost[x] > dmost[x]) numhits--;
|
|
}
|
|
}
|
|
else
|
|
#endif
|
|
for (x=x1; x<=x2; x++)
|
|
if (umost[x] <= dmost[x])
|
|
{ umost[x] = 1; dmost[x] = 0; numhits--; }
|
|
smostwall[smostwallcnt] = z;
|
|
smostwalltype[smostwallcnt] = 0;
|
|
smostwallcnt++;
|
|
|
|
if ((searchit == 2) && (x1 <= searchx) && (searchx <= x2))
|
|
#ifdef YAX_ENABLE
|
|
if (uplc[searchx] <= searchy && searchy < dplc[searchx])
|
|
#endif
|
|
{
|
|
searchit = 1; searchsector = sectnum; searchbottomwall = searchwall = wallnum;
|
|
if (nextsectnum < 0) searchstat = 0; else searchstat = 4;
|
|
}
|
|
}
|
|
|
|
#ifdef ENGINE_SCREENSHOT_DEBUG
|
|
if (engine_screenshot)
|
|
# ifdef YAX_ENABLE
|
|
if (!g_nodraw)
|
|
# endif
|
|
{
|
|
static char fn[32], tmpbuf[80];
|
|
static char bakframe[MAXXDIM*MAXYDIM];
|
|
|
|
char purple = getclosestcol(63, 0, 63);
|
|
char yellow = getclosestcol(63, 63, 0);
|
|
|
|
begindrawing(); //{{{
|
|
Bmemcpy(bakframe, (char *)frameplace, xdim*ydim);
|
|
for (x=0; x<xdim; x++)
|
|
{
|
|
if (umost[x] > dmost[x])
|
|
{
|
|
*((char *)frameplace + (ydim/2)*bytesperline + x) = yellow;
|
|
*((char *)frameplace + (ydim/2+1)*bytesperline + x) = purple;
|
|
continue;
|
|
}
|
|
|
|
if (umost[x] >= 0 && umost[x] < ydim)
|
|
*((char *)frameplace + umost[x]*bytesperline + x) = purple;
|
|
|
|
if (dmost[x]-1 >= 0 && dmost[x]-1 < ydim)
|
|
*((char *)frameplace + (dmost[x]-1)*bytesperline + x) = yellow;
|
|
}
|
|
|
|
Bsprintf(tmpbuf, "nmp%d l%d b%d s%d w%d", yax_nomaskpass, yax_globallev-YAX_MAXDRAWS,
|
|
yax_globalbunch, sectnum, wallnum);
|
|
printext256(8,8, whitecol,0, tmpbuf, 0);
|
|
|
|
Bsprintf(fn, "engshot%04d.png", engine_screenshot);
|
|
screencapture(fn, 0, "BUILD engine");
|
|
engine_screenshot++;
|
|
|
|
Bmemcpy((char *)frameplace, bakframe, xdim*ydim);
|
|
enddrawing(); //}}}
|
|
}
|
|
#endif
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// drawvox
|
|
//
|
|
static void drawvox(int32_t dasprx, int32_t daspry, int32_t dasprz, int32_t dasprang,
|
|
int32_t daxscale, int32_t dayscale, char daindex,
|
|
int8_t dashade, char dapal, const int32_t *daumost, const int32_t *dadmost)
|
|
{
|
|
int32_t i, j, k, x, y, syoff, ggxstart, ggystart, nxoff;
|
|
int32_t cosang, sinang, sprcosang, sprsinang, backx, backy, gxinc, gyinc;
|
|
int32_t daxsiz, daysiz, /*dazsiz,*/ daxpivot, daypivot, dazpivot;
|
|
int32_t daxscalerecip, dayscalerecip, cnt, gxstart, gystart, odayscale;
|
|
int32_t l1, l2, /*slabxoffs,*/ xyvoxoffs, *longptr;
|
|
intptr_t slabxoffs;
|
|
int32_t lx, rx, nx, ny, x1=0, y1=0, z1, x2=0, y2=0, z2, yplc, yinc=0;
|
|
int32_t yoff, xs=0, ys=0, xe, ye, xi=0, yi=0, cbackx, cbacky, dagxinc, dagyinc;
|
|
int16_t *shortptr;
|
|
char *voxptr, *voxend, *davoxptr, oand, oand16, oand32;
|
|
|
|
cosang = sintable[(globalang+512)&2047];
|
|
sinang = sintable[globalang&2047];
|
|
sprcosang = sintable[(dasprang+512)&2047];
|
|
sprsinang = sintable[dasprang&2047];
|
|
|
|
i = klabs(dmulscale6(dasprx-globalposx,cosang,daspry-globalposy,sinang));
|
|
j = getpalookup(mulscale21(globvis,i), dashade)<<8;
|
|
setupdrawslab(ylookup[1],FP_OFF(palookup[dapal])+j);
|
|
j = 1310720;
|
|
j *= min(daxscale,dayscale); j >>= 6; //New hacks (for sized-down voxels)
|
|
for (k=0; k<MAXVOXMIPS; k++)
|
|
{
|
|
if (i < j) { i = k; break; }
|
|
j <<= 1;
|
|
}
|
|
if (k >= MAXVOXMIPS) i = MAXVOXMIPS-1;
|
|
|
|
if (novoxmips) i = 0;
|
|
davoxptr = (char *)voxoff[daindex][i];
|
|
if (!davoxptr && i > 0) { davoxptr = (char *)voxoff[daindex][0]; i = 0; }
|
|
if (!davoxptr) return;
|
|
|
|
if (voxscale[daindex] == 65536)
|
|
{ daxscale <<= (i+8); dayscale <<= (i+8); }
|
|
else
|
|
{
|
|
daxscale = mulscale8(daxscale<<i,voxscale[daindex]);
|
|
dayscale = mulscale8(dayscale<<i,voxscale[daindex]);
|
|
}
|
|
|
|
odayscale = dayscale;
|
|
daxscale = mulscale16(daxscale,xyaspect);
|
|
daxscale = scale(daxscale,xdimenscale,xdimen<<8);
|
|
dayscale = scale(dayscale,mulscale16(xdimenscale,viewingrangerecip),xdimen<<8);
|
|
|
|
daxscalerecip = divideu32_noinline(1<<30, daxscale);
|
|
dayscalerecip = divideu32_noinline(1<<30, dayscale);
|
|
|
|
longptr = (int32_t *)davoxptr;
|
|
daxsiz = B_LITTLE32(longptr[0]); daysiz = B_LITTLE32(longptr[1]); //dazsiz = B_LITTLE32(longptr[2]);
|
|
daxpivot = B_LITTLE32(longptr[3]); daypivot = B_LITTLE32(longptr[4]); dazpivot = B_LITTLE32(longptr[5]);
|
|
davoxptr += (6<<2);
|
|
|
|
x = mulscale16(globalposx-dasprx,daxscalerecip);
|
|
y = mulscale16(globalposy-daspry,daxscalerecip);
|
|
backx = ((dmulscale10(x,sprcosang,y,sprsinang)+daxpivot)>>8);
|
|
backy = ((dmulscale10(y,sprcosang,x,-sprsinang)+daypivot)>>8);
|
|
cbackx = min(max(backx,0),daxsiz-1);
|
|
cbacky = min(max(backy,0),daysiz-1);
|
|
|
|
sprcosang = mulscale14(daxscale,sprcosang);
|
|
sprsinang = mulscale14(daxscale,sprsinang);
|
|
|
|
x = (dasprx-globalposx) - dmulscale18(daxpivot,sprcosang,daypivot,-sprsinang);
|
|
y = (daspry-globalposy) - dmulscale18(daypivot,sprcosang,daxpivot,sprsinang);
|
|
|
|
cosang = mulscale16(cosang,dayscalerecip);
|
|
sinang = mulscale16(sinang,dayscalerecip);
|
|
|
|
gxstart = y*cosang - x*sinang;
|
|
gystart = x*cosang + y*sinang;
|
|
gxinc = dmulscale10(sprsinang,cosang,sprcosang,-sinang);
|
|
gyinc = dmulscale10(sprcosang,cosang,sprsinang,sinang);
|
|
|
|
x = 0; y = 0; j = max(daxsiz,daysiz);
|
|
for (i=0; i<=j; i++)
|
|
{
|
|
ggxinc[i] = x; x += gxinc;
|
|
ggyinc[i] = y; y += gyinc;
|
|
}
|
|
|
|
if ((klabs(globalposz-dasprz)>>10) >= klabs(odayscale)) return;
|
|
syoff = divscale21(globalposz-dasprz,odayscale) + (dazpivot<<7);
|
|
yoff = ((klabs(gxinc)+klabs(gyinc))>>1);
|
|
longptr = (int32_t *)davoxptr;
|
|
xyvoxoffs = ((daxsiz+1)<<2);
|
|
|
|
begindrawing(); //{{{
|
|
|
|
for (cnt=0; cnt<8; cnt++)
|
|
{
|
|
switch (cnt)
|
|
{
|
|
case 0:
|
|
xs = 0; ys = 0; xi = 1; yi = 1; break;
|
|
case 1:
|
|
xs = daxsiz-1; ys = 0; xi = -1; yi = 1; break;
|
|
case 2:
|
|
xs = 0; ys = daysiz-1; xi = 1; yi = -1; break;
|
|
case 3:
|
|
xs = daxsiz-1; ys = daysiz-1; xi = -1; yi = -1; break;
|
|
case 4:
|
|
xs = 0; ys = cbacky; xi = 1; yi = 2; break;
|
|
case 5:
|
|
xs = daxsiz-1; ys = cbacky; xi = -1; yi = 2; break;
|
|
case 6:
|
|
xs = cbackx; ys = 0; xi = 2; yi = 1; break;
|
|
case 7:
|
|
xs = cbackx; ys = daysiz-1; xi = 2; yi = -1; break;
|
|
}
|
|
xe = cbackx; ye = cbacky;
|
|
if (cnt < 4)
|
|
{
|
|
if ((xi < 0) && (xe >= xs)) continue;
|
|
if ((xi > 0) && (xe <= xs)) continue;
|
|
if ((yi < 0) && (ye >= ys)) continue;
|
|
if ((yi > 0) && (ye <= ys)) continue;
|
|
}
|
|
else
|
|
{
|
|
if ((xi < 0) && (xe > xs)) continue;
|
|
if ((xi > 0) && (xe < xs)) continue;
|
|
if ((yi < 0) && (ye > ys)) continue;
|
|
if ((yi > 0) && (ye < ys)) continue;
|
|
xe += xi; ye += yi;
|
|
}
|
|
|
|
i = ksgn(ys-backy)+ksgn(xs-backx)*3+4;
|
|
switch (i)
|
|
{
|
|
case 6:
|
|
case 7:
|
|
x1 = 0; y1 = 0; break;
|
|
case 8:
|
|
case 5:
|
|
x1 = gxinc; y1 = gyinc; break;
|
|
case 0:
|
|
case 3:
|
|
x1 = gyinc; y1 = -gxinc; break;
|
|
case 2:
|
|
case 1:
|
|
x1 = gxinc+gyinc; y1 = gyinc-gxinc; break;
|
|
}
|
|
switch (i)
|
|
{
|
|
case 2:
|
|
case 5:
|
|
x2 = 0; y2 = 0; break;
|
|
case 0:
|
|
case 1:
|
|
x2 = gxinc; y2 = gyinc; break;
|
|
case 8:
|
|
case 7:
|
|
x2 = gyinc; y2 = -gxinc; break;
|
|
case 6:
|
|
case 3:
|
|
x2 = gxinc+gyinc; y2 = gyinc-gxinc; break;
|
|
}
|
|
oand = pow2char[(xs<backx)+0]+pow2char[(ys<backy)+2];
|
|
oand16 = oand+16;
|
|
oand32 = oand+32;
|
|
|
|
if (yi > 0) { dagxinc = gxinc; dagyinc = mulscale16(gyinc,viewingrangerecip); }
|
|
else { dagxinc = -gxinc; dagyinc = -mulscale16(gyinc,viewingrangerecip); }
|
|
|
|
//Fix for non 90 degree viewing ranges
|
|
nxoff = mulscale16(x2-x1,viewingrangerecip);
|
|
x1 = mulscale16(x1,viewingrangerecip);
|
|
|
|
ggxstart = gxstart+ggyinc[ys];
|
|
ggystart = gystart-ggxinc[ys];
|
|
|
|
for (x=xs; x!=xe; x+=xi)
|
|
{
|
|
slabxoffs = (intptr_t)&davoxptr[B_LITTLE32(longptr[x])];
|
|
shortptr = (int16_t *)&davoxptr[((x*(daysiz+1))<<1)+xyvoxoffs];
|
|
|
|
nx = mulscale16(ggxstart+ggxinc[x],viewingrangerecip)+x1;
|
|
ny = ggystart+ggyinc[x];
|
|
for (y=ys; y!=ye; y+=yi,nx+=dagyinc,ny-=dagxinc)
|
|
{
|
|
if ((ny <= nytooclose) || (ny >= nytoofar)) continue;
|
|
voxptr = (char *)(B_LITTLE16(shortptr[y])+slabxoffs);
|
|
voxend = (char *)(B_LITTLE16(shortptr[y+1])+slabxoffs);
|
|
if (voxptr == voxend) continue;
|
|
|
|
// AMCTC V1 MEGABASE: (ny+y1)>>14 == 65547
|
|
// (after long corridor with the blinds)
|
|
lx = mulscale32(nx>>3,distrecip[(ny+y1)>>14])+halfxdimen;
|
|
if (lx < 0) lx = 0;
|
|
rx = mulscale32((nx+nxoff)>>3,distrecip[(ny+y2)>>14])+halfxdimen;
|
|
if (rx > xdimen) rx = xdimen;
|
|
if (rx <= lx) continue;
|
|
rx -= lx;
|
|
|
|
l1 = distrecip[(ny-yoff)>>14];
|
|
// FIXME! AMCTC RC2/beta shotgun voxel
|
|
// (e.g. training map right after M16 shooting):
|
|
l2 = clamp((ny+yoff)>>14, 0, 65535);
|
|
l2 = distrecip[l2];
|
|
for (; voxptr<voxend; voxptr+=voxptr[1]+3)
|
|
{
|
|
j = (voxptr[0]<<15)-syoff;
|
|
if (j < 0)
|
|
{
|
|
k = j+(voxptr[1]<<15);
|
|
if (k < 0)
|
|
{
|
|
if ((voxptr[2]&oand32) == 0) continue;
|
|
z2 = mulscale32(l2,k) + globalhoriz; //Below slab
|
|
}
|
|
else
|
|
{
|
|
if ((voxptr[2]&oand) == 0) continue; //Middle of slab
|
|
z2 = mulscale32(l1,k) + globalhoriz;
|
|
}
|
|
z1 = mulscale32(l1,j) + globalhoriz;
|
|
}
|
|
else
|
|
{
|
|
if ((voxptr[2]&oand16) == 0) continue;
|
|
z1 = mulscale32(l2,j) + globalhoriz; //Above slab
|
|
z2 = mulscale32(l1,j+(voxptr[1]<<15)) + globalhoriz;
|
|
}
|
|
|
|
if (voxptr[1] == 1)
|
|
{
|
|
yplc = 0; yinc = 0;
|
|
if (z1 < daumost[lx]) z1 = daumost[lx];
|
|
}
|
|
else
|
|
{
|
|
if (z2-z1 >= 1024) yinc = divscale16(voxptr[1],z2-z1);
|
|
else if (z2 > z1) yinc = (lowrecip[z2-z1]*voxptr[1]>>8);
|
|
if (z1 < daumost[lx]) { yplc = yinc*(daumost[lx]-z1); z1 = daumost[lx]; }
|
|
else yplc = 0;
|
|
}
|
|
if (z2 > dadmost[lx]) z2 = dadmost[lx];
|
|
z2 -= z1; if (z2 <= 0) continue;
|
|
|
|
drawslab(rx,yplc,z2,yinc,(intptr_t)&voxptr[3],ylookup[z1]+lx+frameoffset);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
#if 0
|
|
for (x=0; x<xdimen; x++)
|
|
{
|
|
if (daumost[x]>=0 && daumost[x]<ydimen)
|
|
*(char *)(frameplace + x + bytesperline*daumost[x]) = editorcolors[13];
|
|
if (dadmost[x]>=0 && dadmost[x]<ydimen)
|
|
*(char *)(frameplace + x + bytesperline*dadmost[x]) = editorcolors[14];
|
|
}
|
|
#endif
|
|
|
|
enddrawing(); //}}}
|
|
}
|
|
|
|
|
|
static void setup_globals_sprite1(const spritetype *tspr, const sectortype *sec,
|
|
int32_t yspan, int32_t yoff, int32_t tilenum,
|
|
int32_t cstat, int32_t *z1ptr, int32_t *z2ptr)
|
|
{
|
|
int32_t logtilesizy, tsizy;
|
|
int32_t z1, z2 = tspr->z - ((yoff*tspr->yrepeat)<<2);
|
|
|
|
if (cstat&128)
|
|
{
|
|
z2 += ((yspan*tspr->yrepeat)<<1);
|
|
if (yspan&1) z2 += (tspr->yrepeat<<1); //Odd yspans
|
|
}
|
|
z1 = z2 - ((yspan*tspr->yrepeat)<<2);
|
|
|
|
globalorientation = 0;
|
|
globalpicnum = tilenum;
|
|
if ((unsigned)globalpicnum >= MAXTILES) globalpicnum = 0;
|
|
// sprite panning
|
|
globalxpanning = (((256-spriteext[tspr->owner].xpanning)&255) * tilesiz[globalpicnum].x)>>8;
|
|
globalypanning = 0;
|
|
|
|
globvis = globalvisibility;
|
|
if (sec->visibility != 0) globvis = mulscale4(globvis, (uint8_t)(sec->visibility+16));
|
|
|
|
logtilesizy = (picsiz[globalpicnum]>>4);
|
|
tsizy = tilesiz[globalpicnum].y;
|
|
|
|
globalshiftval = logtilesizy;
|
|
#if !defined CLASSIC_NONPOW2_YSIZE_SPRITES
|
|
// before proper non-power-of-two tilesizy drawing
|
|
if (pow2long[logtilesizy] != tsizy)
|
|
globalshiftval++;
|
|
#else
|
|
// non power-of-two y size textures!
|
|
if (pow2long[logtilesizy] != tsizy || tsizy >= 512)
|
|
{
|
|
globaltilesizy = tsizy;
|
|
globalyscale = (1<<22)/(tsizy*tspr->yrepeat);
|
|
globalshiftval = 0;
|
|
}
|
|
else
|
|
#endif
|
|
{
|
|
globalshiftval = 32-globalshiftval;
|
|
globalyscale = divscale(512,tspr->yrepeat,globalshiftval-19);
|
|
}
|
|
|
|
globalzd = ((int64_t)(globalposz-z1)*globalyscale)<<8;
|
|
if ((cstat&8) > 0)
|
|
{
|
|
globalyscale = -globalyscale;
|
|
globalzd = ((int64_t)(globalposz-z2)*globalyscale)<<8;
|
|
}
|
|
|
|
*z1ptr = z1;
|
|
*z2ptr = z2;
|
|
}
|
|
|
|
//
|
|
// drawsprite (internal)
|
|
//
|
|
|
|
|
|
static uint8_t falpha_to_blend(float alpha, int32_t *cstatptr, int32_t transbit1, int32_t transbit2)
|
|
{
|
|
int32_t blendidx, cstat = *cstatptr;
|
|
|
|
if (cstat&transbit1)
|
|
alpha = 1.0f - (1.0f - alpha) * ((cstat&transbit2) ? 0.33f : 0.66f);
|
|
|
|
cstat |= transbit1;
|
|
cstat &= ~transbit2;
|
|
|
|
blendidx = max(1, (int32_t)(alpha * (2*numalphatabs))); // [1 .. 2*numalphatabs-1]
|
|
if (blendidx > numalphatabs)
|
|
{
|
|
blendidx = 2*numalphatabs - blendidx;
|
|
cstat |= transbit2;
|
|
}
|
|
// blendidx now in [1 .. numalphatabs]
|
|
|
|
*cstatptr = cstat;
|
|
return blendidx;
|
|
}
|
|
|
|
static void drawsprite_classic(int32_t snum)
|
|
{
|
|
int32_t xoff, yoff, xspan, yspan;
|
|
int32_t x1, y1, x2, y2, lx, rx, dalx2, darx2, i, j, k, x;
|
|
int32_t z, zz, z1, z2, xp1, yp1, xp2, yp2;
|
|
int32_t dax, day, dax1, dax2, y;
|
|
int32_t vtilenum = 0;
|
|
|
|
spritetype *const tspr = tspriteptr[snum];
|
|
|
|
const int32_t xb = spritesx[snum];
|
|
const int32_t yp = spritesy[snum];
|
|
const int32_t spritenum = tspr->owner;
|
|
const int32_t sectnum = tspr->sectnum;
|
|
const sectortype *const sec = (sectnum>=0) ? §or[sectnum] : NULL;
|
|
int32_t tilenum;
|
|
int32_t cstat = tspr->cstat;
|
|
|
|
uint8_t blendidx = tspr->blend;
|
|
float alpha = spriteext[spritenum].alpha;
|
|
|
|
if (sec == NULL)
|
|
return;
|
|
|
|
if (bad_tspr(tspr))
|
|
return;
|
|
|
|
DO_TILE_ANIM(tspr->picnum, spritenum+32768);
|
|
|
|
if (alpha > 0.0f)
|
|
{
|
|
if (alpha >= 1.0f)
|
|
return;
|
|
|
|
if (numalphatabs != 0)
|
|
{
|
|
blendidx = falpha_to_blend(alpha, &cstat, 2, 512);
|
|
tspr->cstat = cstat;
|
|
}
|
|
else if (alpha >= 0.33f)
|
|
{
|
|
if ((cstat&2) && alpha >= 0.5f) // this covers the multiplicative aspect used in the Polymodes
|
|
cstat |= 512;
|
|
|
|
cstat |= 2;
|
|
|
|
if (alpha >= 0.66f)
|
|
cstat |= 512;
|
|
|
|
tspr->cstat = cstat;
|
|
}
|
|
}
|
|
|
|
tilenum = tspr->picnum;
|
|
|
|
if ((cstat&48)==48)
|
|
vtilenum = tilenum; // if the game wants voxels, it gets voxels
|
|
else if (usevoxels && tiletovox[tilenum] != -1
|
|
#ifdef USE_OPENGL
|
|
&& (!(spriteext[spritenum].flags&SPREXT_NOTMD))
|
|
#endif
|
|
)
|
|
{
|
|
vtilenum = tiletovox[tilenum];
|
|
cstat |= 48;
|
|
}
|
|
|
|
if ((cstat&48) != 48)
|
|
{
|
|
if (spritenum < 0 || tilesiz[tilenum].x <= 0 || tilesiz[tilenum].y <= 0)
|
|
return;
|
|
}
|
|
|
|
if (tspr->xrepeat <= 0 || tspr->yrepeat <= 0)
|
|
return;
|
|
|
|
globalpal = tspr->pal;
|
|
if (palookup[globalpal] == NULL) globalpal = 0; // JBF: fixes null-pointer crash
|
|
globalshade = tspr->shade;
|
|
|
|
if (cstat&2)
|
|
setup_blend(blendidx, cstat&512);
|
|
|
|
xoff = picanm[tilenum].xofs + tspr->xoffset;
|
|
yoff = picanm[tilenum].yofs + tspr->yoffset;
|
|
|
|
if ((cstat&48) == 0)
|
|
{
|
|
int32_t daclip, startum, startdm, siz;
|
|
int32_t xv, linum, linuminc;
|
|
int32_t xsiz, ysiz;
|
|
|
|
draw_as_face_sprite:
|
|
if (yp <= (4<<8)) return;
|
|
|
|
siz = divscale19(xdimenscale,yp);
|
|
|
|
xv = mulscale16(((int32_t)tspr->xrepeat)<<16,xyaspect);
|
|
|
|
xspan = tilesiz[tilenum].x;
|
|
yspan = tilesiz[tilenum].y;
|
|
xsiz = mulscale30(siz,xv*xspan);
|
|
ysiz = mulscale14(siz,tspr->yrepeat*yspan);
|
|
|
|
if ((tilesiz[tilenum].x>>11) >= xsiz || yspan >= (ysiz>>1))
|
|
return; //Watch out for divscale overflow
|
|
|
|
x1 = xb-(xsiz>>1);
|
|
if (xspan&1) x1 += mulscale31(siz,xv); //Odd xspans
|
|
i = mulscale30(siz,xv*xoff);
|
|
if ((cstat&4) == 0) x1 -= i; else x1 += i;
|
|
|
|
y1 = mulscale16(tspr->z-globalposz,siz);
|
|
y1 -= mulscale14(siz,tspr->yrepeat*yoff);
|
|
y1 += (globalhoriz<<8)-ysiz;
|
|
if (cstat&128)
|
|
{
|
|
y1 += (ysiz>>1);
|
|
if (yspan&1) y1 += mulscale15(siz,tspr->yrepeat); //Odd yspans
|
|
}
|
|
|
|
x2 = x1+xsiz-1;
|
|
y2 = y1+ysiz-1;
|
|
if ((y1|255) >= (y2|255)) return;
|
|
|
|
lx = (x1>>8)+1; if (lx < 0) lx = 0;
|
|
rx = (x2>>8); if (rx >= xdimen) rx = xdimen-1;
|
|
if (lx > rx) return;
|
|
|
|
if ((sec->ceilingstat&3) == 0)
|
|
startum = globalhoriz+mulscale24(siz,sec->ceilingz-globalposz)-1;
|
|
else
|
|
startum = 0;
|
|
if ((sec->floorstat&3) == 0)
|
|
startdm = globalhoriz+mulscale24(siz,sec->floorz-globalposz)+1;
|
|
else
|
|
startdm = INT32_MAX;
|
|
if ((y1>>8) > startum) startum = (y1>>8);
|
|
if ((y2>>8) < startdm) startdm = (y2>>8);
|
|
|
|
if (startum < -32768) startum = -32768;
|
|
if (startdm > 32767) startdm = 32767;
|
|
if (startum >= startdm) return;
|
|
|
|
if ((cstat&4) == 0)
|
|
{
|
|
linuminc = divscale24(xspan,xsiz);
|
|
linum = mulscale8((lx<<8)-x1,linuminc);
|
|
}
|
|
else
|
|
{
|
|
linuminc = -divscale24(xspan,xsiz);
|
|
linum = mulscale8((lx<<8)-x2,linuminc);
|
|
}
|
|
|
|
if ((cstat&8) > 0)
|
|
swaplong(&y1, &y2);
|
|
|
|
x = lx;
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
for (; x<=rx-4; x+=4)
|
|
{
|
|
uwall[x] = max(startumost[windowx1+x]-windowy1, (int16_t) startum);
|
|
uwall[x+1] = max(startumost[windowx1+x+1]-windowy1, (int16_t) startum);
|
|
uwall[x+2] = max(startumost[windowx1+x+2]-windowy1, (int16_t) startum);
|
|
uwall[x+3] = max(startumost[windowx1+x+3]-windowy1, (int16_t) startum);
|
|
|
|
dwall[x] = min(startdmost[windowx1+x]-windowy1, (int16_t) startdm);
|
|
dwall[x+1] = min(startdmost[windowx1+x+1]-windowy1, (int16_t) startdm);
|
|
dwall[x+2] = min(startdmost[windowx1+x+2]-windowy1, (int16_t) startdm);
|
|
dwall[x+3] = min(startdmost[windowx1+x+3]-windowy1, (int16_t) startdm);
|
|
}
|
|
#endif
|
|
for (; x<=rx; x++)
|
|
{
|
|
uwall[x] = max(startumost[windowx1+x]-windowy1,(int16_t)startum);
|
|
dwall[x] = min(startdmost[windowx1+x]-windowy1,(int16_t)startdm);
|
|
}
|
|
|
|
daclip = 0;
|
|
for (i=smostwallcnt-1; i>=0; i--)
|
|
{
|
|
if (smostwalltype[i]&daclip) continue;
|
|
j = smostwall[i];
|
|
if ((xb1[j] > rx) || (xb2[j] < lx)) continue;
|
|
if ((yp <= yb1[j]) && (yp <= yb2[j])) continue;
|
|
if (spritewallfront(tspr,(int32_t)thewall[j]) && ((yp <= yb1[j]) || (yp <= yb2[j]))) continue;
|
|
|
|
dalx2 = max(xb1[j],lx); darx2 = min(xb2[j],rx);
|
|
|
|
switch (smostwalltype[i])
|
|
{
|
|
case 0:
|
|
if (dalx2 <= darx2)
|
|
{
|
|
if ((dalx2 == lx) && (darx2 == rx)) return;
|
|
//clearbufbyte(&dwall[dalx2],(darx2-dalx2+1)*sizeof(dwall[0]),0L);
|
|
for (k=dalx2; k<=darx2; k++) dwall[k] = 0;
|
|
}
|
|
break;
|
|
case 1:
|
|
k = smoststart[i] - xb1[j];
|
|
x = dalx2;
|
|
#ifdef CLASSIC_SLICE_BY_4 // ok, this one is really by 2 ;)
|
|
for (; x<=darx2-2; x+=2)
|
|
{
|
|
if (smost[k+x] > uwall[x]) uwall[x] = smost[k+x];
|
|
if (smost[k+x+1] > uwall[x+1]) uwall[x+1] = smost[k+x+1];
|
|
}
|
|
#endif
|
|
for (; x<=darx2; x++)
|
|
if (smost[k+x] > uwall[x]) uwall[x] = smost[k+x];
|
|
if ((dalx2 == lx) && (darx2 == rx)) daclip |= 1;
|
|
break;
|
|
case 2:
|
|
k = smoststart[i] - xb1[j];
|
|
x = dalx2;
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
for (; x<=darx2-4; x+=4)
|
|
{
|
|
if (smost[k+x] < dwall[x]) dwall[x] = smost[k+x];
|
|
if (smost[k+x+1] < dwall[x+1]) dwall[x+1] = smost[k+x+1];
|
|
if (smost[k+x+2] < dwall[x+2]) dwall[x+2] = smost[k+x+2];
|
|
if (smost[k+x+3] < dwall[x+3]) dwall[x+3] = smost[k+x+3];
|
|
}
|
|
#endif
|
|
for (; x<=darx2; x++)
|
|
if (smost[k+x] < dwall[x]) dwall[x] = smost[k+x];
|
|
if ((dalx2 == lx) && (darx2 == rx)) daclip |= 2;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (uwall[rx] >= dwall[rx])
|
|
{
|
|
for (x=lx; x<rx; x++)
|
|
if (uwall[x] < dwall[x]) break;
|
|
if (x == rx) return;
|
|
}
|
|
|
|
//sprite
|
|
#ifdef YAX_ENABLE
|
|
if (yax_globallev==YAX_MAXDRAWS || searchit==2)
|
|
#endif
|
|
if ((searchit >= 1) && (searchx >= lx) && (searchx <= rx))
|
|
if ((searchy >= uwall[searchx]) && (searchy < dwall[searchx]))
|
|
{
|
|
searchsector = sectnum; searchwall = spritenum;
|
|
searchstat = 3; searchit = 1;
|
|
}
|
|
|
|
setup_globals_sprite1(tspr, sec, yspan, yoff, tilenum, cstat, &z1, &z2);
|
|
|
|
qinterpolatedown16((intptr_t)&lwall[lx],rx-lx+1,linum,linuminc);
|
|
clearbuf(&swall[lx],rx-lx+1,mulscale19(yp,xdimscale));
|
|
|
|
{
|
|
#ifdef HIGH_PRECISION_SPRITE
|
|
union { float f; int32_t i; } sw = {
|
|
// initialize the float of the union
|
|
((cstat&8) ? -1 : 1)
|
|
* (float)yp * xdimscale
|
|
* (1<<(22-19)) / (yspan*tspr->yrepeat)
|
|
};
|
|
|
|
clearbuf(&swallf[lx], rx-lx+1, sw.i);
|
|
#endif
|
|
}
|
|
|
|
drawing_sprite = 1;
|
|
|
|
if ((cstat&2) == 0)
|
|
maskwallscan(lx,rx, (cstat&8)==0);
|
|
else
|
|
transmaskwallscan(lx,rx, (cstat&8)==0);
|
|
|
|
drawing_sprite = 0;
|
|
}
|
|
else if ((cstat&48) == 16)
|
|
{
|
|
int32_t swapped, top, bot, topinc, botinc;
|
|
int32_t xv, yv, sx1, sx2, sy1, sy2;
|
|
|
|
if ((cstat&4) > 0) xoff = -xoff;
|
|
if ((cstat&8) > 0) yoff = -yoff;
|
|
|
|
xspan = tilesiz[tilenum].x; yspan = tilesiz[tilenum].y;
|
|
xv = tspr->xrepeat*sintable[(tspr->ang+2560+1536)&2047];
|
|
yv = tspr->xrepeat*sintable[(tspr->ang+2048+1536)&2047];
|
|
i = (xspan>>1)+xoff;
|
|
x1 = tspr->x-globalposx-mulscale16(xv,i); x2 = x1+mulscale16(xv,xspan);
|
|
y1 = tspr->y-globalposy-mulscale16(yv,i); y2 = y1+mulscale16(yv,xspan);
|
|
|
|
yp1 = dmulscale6(x1,cosviewingrangeglobalang,y1,sinviewingrangeglobalang);
|
|
yp2 = dmulscale6(x2,cosviewingrangeglobalang,y2,sinviewingrangeglobalang);
|
|
if ((yp1 <= 0) && (yp2 <= 0)) return;
|
|
xp1 = dmulscale6(y1,cosglobalang,-x1,singlobalang);
|
|
xp2 = dmulscale6(y2,cosglobalang,-x2,singlobalang);
|
|
|
|
x1 += globalposx; y1 += globalposy;
|
|
x2 += globalposx; y2 += globalposy;
|
|
|
|
swapped = 0;
|
|
if (dmulscale32(xp1,yp2,-xp2,yp1) >= 0) //If wall's NOT facing you
|
|
{
|
|
if ((cstat&64) != 0) return;
|
|
i = xp1, xp1 = xp2, xp2 = i;
|
|
i = yp1, yp1 = yp2, yp2 = i;
|
|
i = x1, x1 = x2, x2 = i;
|
|
i = y1, y1 = y2, y2 = i;
|
|
swapped = 1;
|
|
}
|
|
|
|
if (xp1 >= -yp1)
|
|
{
|
|
if (xp1 > yp1) return;
|
|
|
|
if (yp1 == 0) return;
|
|
sx1 = halfxdimen + scale(xp1,halfxdimen,yp1);
|
|
if (xp1 >= 0) sx1++; //Fix for SIGNED divide
|
|
if (sx1 >= xdimen) sx1 = xdimen-1;
|
|
sy1 = yp1;
|
|
}
|
|
else
|
|
{
|
|
if (xp2 < -yp2) return;
|
|
sx1 = 0;
|
|
i = yp1-yp2+xp1-xp2;
|
|
if (i == 0) return;
|
|
sy1 = yp1 + scale(yp2-yp1,xp1+yp1,i);
|
|
}
|
|
if (xp2 <= yp2)
|
|
{
|
|
if (xp2 < -yp2) return;
|
|
|
|
if (yp2 == 0) return;
|
|
sx2 = halfxdimen + scale(xp2,halfxdimen,yp2) - 1;
|
|
if (xp2 >= 0) sx2++; //Fix for SIGNED divide
|
|
if (sx2 >= xdimen) sx2 = xdimen-1;
|
|
sy2 = yp2;
|
|
}
|
|
else
|
|
{
|
|
if (xp1 > yp1) return;
|
|
|
|
sx2 = xdimen-1;
|
|
i = xp2-xp1+yp1-yp2;
|
|
if (i == 0) return;
|
|
sy2 = yp1 + scale(yp2-yp1,yp1-xp1,i);
|
|
}
|
|
|
|
if ((sy1 < 256) || (sy2 < 256) || (sx1 > sx2))
|
|
return;
|
|
|
|
topinc = -mulscale10(yp1,xspan);
|
|
top = (((mulscale10(xp1,xdimen) - mulscale9(sx1-halfxdimen,yp1))*xspan)>>3);
|
|
botinc = ((yp2-yp1)>>8);
|
|
bot = mulscale11(xp1-xp2,xdimen) + mulscale2(sx1-halfxdimen,botinc);
|
|
|
|
j = sx2+3;
|
|
z = mulscale20(top,krecipasm(bot));
|
|
lwall[sx1] = (z>>8);
|
|
for (x=sx1+4; x<=j; x+=4)
|
|
{
|
|
top += topinc; bot += botinc;
|
|
zz = z; z = mulscale20(top,krecipasm(bot));
|
|
lwall[x] = (z>>8);
|
|
i = ((z+zz)>>1);
|
|
lwall[x-2] = (i>>8);
|
|
lwall[x-3] = ((i+zz)>>9);
|
|
lwall[x-1] = ((i+z)>>9);
|
|
}
|
|
|
|
if (lwall[sx1] < 0) lwall[sx1] = 0;
|
|
if (lwall[sx2] >= xspan) lwall[sx2] = xspan-1;
|
|
|
|
if ((swapped^((cstat&4)>0)) > 0)
|
|
{
|
|
j = xspan-1;
|
|
for (x=sx1; x<=sx2; x++)
|
|
lwall[x] = j-lwall[x];
|
|
}
|
|
|
|
// XXX: UNUSED?
|
|
rx1[MAXWALLSB-1] = xp1; ry1[MAXWALLSB-1] = yp1;
|
|
rx2[MAXWALLSB-1] = xp2; ry2[MAXWALLSB-1] = yp2;
|
|
|
|
setup_globals_sprite1(tspr, sec, yspan, yoff, tilenum, cstat, &z1, &z2);
|
|
|
|
if (((sec->ceilingstat&1) == 0) && (z1 < sec->ceilingz))
|
|
z1 = sec->ceilingz;
|
|
if (((sec->floorstat&1) == 0) && (z2 > sec->floorz))
|
|
z2 = sec->floorz;
|
|
|
|
xb1[MAXWALLSB-1] = sx1;
|
|
xb2[MAXWALLSB-1] = sx2;
|
|
yb1[MAXWALLSB-1] = sy1;
|
|
yb2[MAXWALLSB-1] = sy2;
|
|
owallmost(uwall, MAXWALLSB-1, z1-globalposz);
|
|
owallmost(dwall, MAXWALLSB-1, z2-globalposz);
|
|
|
|
{
|
|
int32_t hplc = divscale19(xdimenscale,sy1);
|
|
const int32_t hplc2 = divscale19(xdimenscale,sy2);
|
|
const int32_t idiv = sx2-sx1;
|
|
int32_t hinc[4] ={ idiv ? tabledivide32(hplc2-hplc, idiv) : 0 };
|
|
|
|
#ifdef HIGH_PRECISION_SPRITE
|
|
const float cc = ((1<<19)*fxdimen*(float)yxaspect) * (1.f/320.f);
|
|
const float loopcc = ((cstat&8) ? -1 : 1)*((float)(1<<30)*(1<<24))
|
|
/ (yspan*tspr->yrepeat);
|
|
float hplcf = cc/sy1;
|
|
float hincf[4] = {idiv ? (cc/sy2 - hplcf)/idiv : 0};
|
|
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
hincf[1] = hincf[0] * 2.f;
|
|
hincf[2] = hincf[0] * 3.f;
|
|
hincf[3] = hincf[0] * 4.f;
|
|
#endif // CLASSIC_SLICE_BY_4
|
|
#endif // HIGH_PRECISION_SPRITE
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
hinc[1] = hinc[0]<<1;
|
|
hinc[2] = hinc[0]*3;
|
|
hinc[3] = hinc[0]<<2;
|
|
#endif
|
|
i = sx1;
|
|
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
for (; i<=sx2-4; i+=4)
|
|
{
|
|
swall[i] = (krecipasm(hplc)<<2);
|
|
swall[i+1] = (krecipasm(hplc+hinc[0])<<2);
|
|
swall[i+2] = (krecipasm(hplc+hinc[1])<<2);
|
|
swall[i+3] = (krecipasm(hplc+hinc[2])<<2);
|
|
hplc += hinc[3];
|
|
#ifdef HIGH_PRECISION_SPRITE
|
|
swallf[i] = loopcc/hplcf;
|
|
swallf[i+1] = loopcc/(hplcf+hincf[0]);
|
|
swallf[i+2] = loopcc/(hplcf+hincf[1]);
|
|
swallf[i+3] = loopcc/(hplcf+hincf[2]);
|
|
hplcf += hincf[3];
|
|
#endif // HIGH_PRECISION_SPRITE
|
|
}
|
|
#endif // CLASSIC_SLICE_BY_4
|
|
|
|
for (; i<=sx2; i++)
|
|
{
|
|
swall[i] = (krecipasm(hplc)<<2);
|
|
hplc += hinc[0];
|
|
#ifdef HIGH_PRECISION_SPRITE
|
|
swallf[i] = loopcc/hplcf;
|
|
hplcf += hincf[0];
|
|
#endif
|
|
}
|
|
}
|
|
|
|
for (i=smostwallcnt-1; i>=0; i--)
|
|
{
|
|
j = smostwall[i];
|
|
|
|
if ((xb1[j] > sx2) || (xb2[j] < sx1)) continue;
|
|
|
|
dalx2 = xb1[j]; darx2 = xb2[j];
|
|
if (max(sy1,sy2) > min(yb1[j],yb2[j]))
|
|
{
|
|
if (min(sy1,sy2) > max(yb1[j],yb2[j]))
|
|
{
|
|
x = INT32_MIN;
|
|
}
|
|
else
|
|
{
|
|
x = thewall[j]; xp1 = wall[x].x; yp1 = wall[x].y;
|
|
x = wall[x].point2; xp2 = wall[x].x; yp2 = wall[x].y;
|
|
|
|
z1 = (xp2-xp1)*(y1-yp1) - (yp2-yp1)*(x1-xp1);
|
|
z2 = (xp2-xp1)*(y2-yp1) - (yp2-yp1)*(x2-xp1);
|
|
if ((z1^z2) >= 0)
|
|
x = (z1+z2);
|
|
else
|
|
{
|
|
z1 = (x2-x1)*(yp1-y1) - (y2-y1)*(xp1-x1);
|
|
z2 = (x2-x1)*(yp2-y1) - (y2-y1)*(xp2-x1);
|
|
|
|
if ((z1^z2) >= 0)
|
|
x = -(z1+z2);
|
|
else
|
|
{
|
|
if ((xp2-xp1)*(tspr->y-yp1) == (tspr->x-xp1)*(yp2-yp1))
|
|
{
|
|
if (wall[thewall[j]].nextsector == tspr->sectnum)
|
|
x = INT32_MIN;
|
|
else
|
|
x = INT32_MAX;
|
|
}
|
|
else
|
|
{
|
|
//INTERSECTION!
|
|
x = (xp1-globalposx) + scale(xp2-xp1,z1,z1-z2);
|
|
y = (yp1-globalposy) + scale(yp2-yp1,z1,z1-z2);
|
|
|
|
yp1 = dmulscale14(x,cosviewingrangeglobalang,y,sinviewingrangeglobalang);
|
|
|
|
if (yp1 > 0)
|
|
{
|
|
xp1 = dmulscale14(y,cosglobalang,-x,singlobalang);
|
|
|
|
x = halfxdimen + scale(xp1,halfxdimen,yp1);
|
|
if (xp1 >= 0) x++; //Fix for SIGNED divide
|
|
|
|
if (z1 < 0)
|
|
{ if (dalx2 < x) dalx2 = x; }
|
|
else
|
|
{ if (darx2 > x) darx2 = x; }
|
|
x = INT32_MIN+1;
|
|
}
|
|
else
|
|
x = INT32_MAX;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (x < 0)
|
|
{
|
|
if (dalx2 < sx1) dalx2 = sx1;
|
|
if (darx2 > sx2) darx2 = sx2;
|
|
|
|
switch (smostwalltype[i])
|
|
{
|
|
case 0:
|
|
if (dalx2 <= darx2)
|
|
{
|
|
if ((dalx2 == sx1) && (darx2 == sx2)) return;
|
|
//clearbufbyte(&dwall[dalx2],(darx2-dalx2+1)*sizeof(dwall[0]),0L);
|
|
for (k=dalx2; k<=darx2; k++) dwall[k] = 0;
|
|
}
|
|
break;
|
|
case 1:
|
|
k = smoststart[i] - xb1[j];
|
|
x = dalx2;
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
for (; x<=darx2-2; x+=2)
|
|
{
|
|
if (smost[k+x] > uwall[x]) uwall[x] = smost[k+x];
|
|
if (smost[k+x+1] > uwall[x+1]) uwall[x+1] = smost[k+x+1];
|
|
}
|
|
#endif
|
|
for (; x<=darx2; x++)
|
|
if (smost[k+x] > uwall[x]) uwall[x] = smost[k+x];
|
|
break;
|
|
case 2:
|
|
k = smoststart[i] - xb1[j];
|
|
x = dalx2;
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
for (; x<=darx2-4; x+=4)
|
|
{
|
|
if (smost[k+x] < dwall[x]) dwall[x] = smost[k+x];
|
|
if (smost[k+x+1] < dwall[x+1]) dwall[x+1] = smost[k+x+1];
|
|
if (smost[k+x+2] < dwall[x+2]) dwall[x+2] = smost[k+x+2];
|
|
if (smost[k+x+3] < dwall[x+3]) dwall[x+3] = smost[k+x+3];
|
|
}
|
|
#endif
|
|
for (; x<=darx2; x++)
|
|
if (smost[k+x] < dwall[x]) dwall[x] = smost[k+x];
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
//sprite
|
|
#ifdef YAX_ENABLE
|
|
if (yax_globallev==YAX_MAXDRAWS || searchit==2)
|
|
#endif
|
|
if ((searchit >= 1) && (searchx >= sx1) && (searchx <= sx2))
|
|
if ((searchy >= uwall[searchx]) && (searchy <= dwall[searchx]))
|
|
{
|
|
searchsector = sectnum; searchwall = spritenum;
|
|
searchstat = 3; searchit = 1;
|
|
}
|
|
|
|
drawing_sprite = 1;
|
|
|
|
if ((cstat&2) == 0)
|
|
maskwallscan(sx1,sx2, (cstat&8)==0);
|
|
else
|
|
transmaskwallscan(sx1,sx2, (cstat&8)==0);
|
|
|
|
drawing_sprite = 0;
|
|
}
|
|
else if ((cstat&48) == 32)
|
|
{
|
|
int32_t npoints, npoints2;
|
|
int32_t zsgn, zzsgn, bot;
|
|
int32_t cosang, sinang, lpoint, lmax, rpoint, rmax;
|
|
|
|
if ((cstat&64) != 0)
|
|
if ((globalposz > tspr->z) == ((cstat&8)==0))
|
|
return;
|
|
|
|
if ((cstat&4) > 0) xoff = -xoff;
|
|
if ((cstat&8) > 0) yoff = -yoff;
|
|
xspan = tilesiz[tilenum].x;
|
|
yspan = tilesiz[tilenum].y;
|
|
|
|
//Rotate center point
|
|
dax = tspr->x-globalposx;
|
|
day = tspr->y-globalposy;
|
|
rzi[0] = dmulscale10(cosglobalang,dax,singlobalang,day);
|
|
rxi[0] = dmulscale10(cosglobalang,day,-singlobalang,dax);
|
|
|
|
//Get top-left corner
|
|
i = ((tspr->ang+2048-globalang)&2047);
|
|
cosang = sintable[(i+512)&2047]; sinang = sintable[i];
|
|
dax = ((xspan>>1)+xoff)*tspr->xrepeat;
|
|
day = ((yspan>>1)+yoff)*tspr->yrepeat;
|
|
rzi[0] += dmulscale12(sinang,dax,cosang,day);
|
|
rxi[0] += dmulscale12(sinang,day,-cosang,dax);
|
|
|
|
//Get other 3 corners
|
|
dax = xspan*tspr->xrepeat;
|
|
day = yspan*tspr->yrepeat;
|
|
rzi[1] = rzi[0]-mulscale12(sinang,dax);
|
|
rxi[1] = rxi[0]+mulscale12(cosang,dax);
|
|
dax = -mulscale12(cosang,day);
|
|
day = -mulscale12(sinang,day);
|
|
rzi[2] = rzi[1]+dax; rxi[2] = rxi[1]+day;
|
|
rzi[3] = rzi[0]+dax; rxi[3] = rxi[0]+day;
|
|
|
|
//Put all points on same z
|
|
ryi[0] = scale((tspr->z-globalposz),yxaspect,320<<8);
|
|
if (ryi[0] == 0) return;
|
|
ryi[1] = ryi[2] = ryi[3] = ryi[0];
|
|
|
|
if ((cstat&4) == 0)
|
|
{ z = 0; z1 = 1; z2 = 3; }
|
|
else
|
|
{ z = 1; z1 = 0; z2 = 2; }
|
|
|
|
dax = rzi[z1]-rzi[z]; day = rxi[z1]-rxi[z];
|
|
bot = dmulscale8(dax,dax,day,day);
|
|
if ((klabs(dax)>>13) >= bot || (klabs(day)>>13) >= bot)
|
|
return;
|
|
globalx1 = divscale18(dax,bot);
|
|
globalx2 = divscale18(day,bot);
|
|
|
|
dax = rzi[z2]-rzi[z]; day = rxi[z2]-rxi[z];
|
|
bot = dmulscale8(dax,dax,day,day);
|
|
if ((klabs(dax)>>13) >= bot || (klabs(day)>>13) >= bot)
|
|
return;
|
|
globaly1 = divscale18(dax,bot);
|
|
globaly2 = divscale18(day,bot);
|
|
|
|
//Calculate globals for hline texture mapping function
|
|
globalxpanning = (rxi[z]<<12);
|
|
globalypanning = (rzi[z]<<12);
|
|
globalzd = (ryi[z]<<12);
|
|
|
|
rzi[0] = mulscale16(rzi[0],viewingrange);
|
|
rzi[1] = mulscale16(rzi[1],viewingrange);
|
|
rzi[2] = mulscale16(rzi[2],viewingrange);
|
|
rzi[3] = mulscale16(rzi[3],viewingrange);
|
|
|
|
if (ryi[0] < 0) //If ceilsprite is above you, reverse order of points
|
|
{
|
|
i = rxi[1]; rxi[1] = rxi[3]; rxi[3] = i;
|
|
i = rzi[1]; rzi[1] = rzi[3]; rzi[3] = i;
|
|
}
|
|
|
|
|
|
//Clip polygon in 3-space
|
|
npoints = 4;
|
|
|
|
//Clip edge 1
|
|
npoints2 = 0;
|
|
zzsgn = rxi[0]+rzi[0];
|
|
for (z=0; z<npoints; z++)
|
|
{
|
|
zz = z+1; if (zz == npoints) zz = 0;
|
|
zsgn = zzsgn; zzsgn = rxi[zz]+rzi[zz];
|
|
if (zsgn >= 0)
|
|
{
|
|
rxi2[npoints2] = rxi[z]; ryi2[npoints2] = ryi[z]; rzi2[npoints2] = rzi[z];
|
|
npoints2++;
|
|
}
|
|
if ((zsgn^zzsgn) < 0)
|
|
{
|
|
int32_t t = divscale30(zsgn,zsgn-zzsgn);
|
|
rxi2[npoints2] = rxi[z] + mulscale30(t,rxi[zz]-rxi[z]);
|
|
ryi2[npoints2] = ryi[z] + mulscale30(t,ryi[zz]-ryi[z]);
|
|
rzi2[npoints2] = rzi[z] + mulscale30(t,rzi[zz]-rzi[z]);
|
|
npoints2++;
|
|
}
|
|
}
|
|
if (npoints2 <= 2) return;
|
|
|
|
//Clip edge 2
|
|
npoints = 0;
|
|
zzsgn = rxi2[0]-rzi2[0];
|
|
for (z=0; z<npoints2; z++)
|
|
{
|
|
zz = z+1; if (zz == npoints2) zz = 0;
|
|
zsgn = zzsgn; zzsgn = rxi2[zz]-rzi2[zz];
|
|
if (zsgn <= 0)
|
|
{
|
|
rxi[npoints] = rxi2[z]; ryi[npoints] = ryi2[z]; rzi[npoints] = rzi2[z];
|
|
npoints++;
|
|
}
|
|
if ((zsgn^zzsgn) < 0)
|
|
{
|
|
int32_t t = divscale30(zsgn,zsgn-zzsgn);
|
|
rxi[npoints] = rxi2[z] + mulscale30(t,rxi2[zz]-rxi2[z]);
|
|
ryi[npoints] = ryi2[z] + mulscale30(t,ryi2[zz]-ryi2[z]);
|
|
rzi[npoints] = rzi2[z] + mulscale30(t,rzi2[zz]-rzi2[z]);
|
|
npoints++;
|
|
}
|
|
}
|
|
if (npoints <= 2) return;
|
|
|
|
//Clip edge 3
|
|
npoints2 = 0;
|
|
zzsgn = ryi[0]*halfxdimen + (rzi[0]*(globalhoriz-0));
|
|
for (z=0; z<npoints; z++)
|
|
{
|
|
zz = z+1; if (zz == npoints) zz = 0;
|
|
zsgn = zzsgn; zzsgn = ryi[zz]*halfxdimen + (rzi[zz]*(globalhoriz-0));
|
|
if (zsgn >= 0)
|
|
{
|
|
rxi2[npoints2] = rxi[z];
|
|
ryi2[npoints2] = ryi[z];
|
|
rzi2[npoints2] = rzi[z];
|
|
npoints2++;
|
|
}
|
|
if ((zsgn^zzsgn) < 0)
|
|
{
|
|
int32_t t = divscale30(zsgn,zsgn-zzsgn);
|
|
rxi2[npoints2] = rxi[z] + mulscale30(t,rxi[zz]-rxi[z]);
|
|
ryi2[npoints2] = ryi[z] + mulscale30(t,ryi[zz]-ryi[z]);
|
|
rzi2[npoints2] = rzi[z] + mulscale30(t,rzi[zz]-rzi[z]);
|
|
npoints2++;
|
|
}
|
|
}
|
|
if (npoints2 <= 2) return;
|
|
|
|
//Clip edge 4
|
|
npoints = 0;
|
|
zzsgn = ryi2[0]*halfxdimen + (rzi2[0]*(globalhoriz-ydimen));
|
|
for (z=0; z<npoints2; z++)
|
|
{
|
|
zz = z+1; if (zz == npoints2) zz = 0;
|
|
zsgn = zzsgn; zzsgn = ryi2[zz]*halfxdimen + (rzi2[zz]*(globalhoriz-ydimen));
|
|
if (zsgn <= 0)
|
|
{
|
|
rxi[npoints] = rxi2[z];
|
|
ryi[npoints] = ryi2[z];
|
|
rzi[npoints] = rzi2[z];
|
|
npoints++;
|
|
}
|
|
if ((zsgn^zzsgn) < 0)
|
|
{
|
|
int32_t t = divscale30(zsgn,zsgn-zzsgn);
|
|
rxi[npoints] = rxi2[z] + mulscale30(t,rxi2[zz]-rxi2[z]);
|
|
ryi[npoints] = ryi2[z] + mulscale30(t,ryi2[zz]-ryi2[z]);
|
|
rzi[npoints] = rzi2[z] + mulscale30(t,rzi2[zz]-rzi2[z]);
|
|
npoints++;
|
|
}
|
|
}
|
|
if (npoints <= 2) return;
|
|
|
|
//Project onto screen
|
|
lpoint = -1; lmax = INT32_MAX;
|
|
rpoint = -1; rmax = INT32_MIN;
|
|
for (z=0; z<npoints; z++)
|
|
{
|
|
xsi[z] = scale(rxi[z],xdimen<<15,rzi[z]) + (xdimen<<15);
|
|
ysi[z] = scale(ryi[z],xdimen<<15,rzi[z]) + (globalhoriz<<16);
|
|
if (xsi[z] < 0) xsi[z] = 0;
|
|
if (xsi[z] > (xdimen<<16)) xsi[z] = (xdimen<<16);
|
|
if (ysi[z] < ((int32_t)0<<16)) ysi[z] = ((int32_t)0<<16);
|
|
if (ysi[z] > ((int32_t)ydimen<<16)) ysi[z] = ((int32_t)ydimen<<16);
|
|
if (xsi[z] < lmax) lmax = xsi[z], lpoint = z;
|
|
if (xsi[z] > rmax) rmax = xsi[z], rpoint = z;
|
|
}
|
|
|
|
//Get uwall arrays
|
|
for (z=lpoint; z!=rpoint; z=zz)
|
|
{
|
|
zz = z+1; if (zz == npoints) zz = 0;
|
|
|
|
dax1 = ((xsi[z]+65535)>>16);
|
|
dax2 = ((xsi[zz]+65535)>>16);
|
|
if (dax2 > dax1)
|
|
{
|
|
int32_t yinc = divscale16(ysi[zz]-ysi[z],xsi[zz]-xsi[z]);
|
|
y = ysi[z] + mulscale16((dax1<<16)-xsi[z],yinc);
|
|
qinterpolatedown16short((intptr_t)(&uwall[dax1]),dax2-dax1,y,yinc);
|
|
}
|
|
}
|
|
|
|
//Get dwall arrays
|
|
for (; z!=lpoint; z=zz)
|
|
{
|
|
zz = z+1; if (zz == npoints) zz = 0;
|
|
|
|
dax1 = ((xsi[zz]+65535)>>16);
|
|
dax2 = ((xsi[z]+65535)>>16);
|
|
if (dax2 > dax1)
|
|
{
|
|
int32_t yinc = divscale16(ysi[zz]-ysi[z],xsi[zz]-xsi[z]);
|
|
y = ysi[zz] + mulscale16((dax1<<16)-xsi[zz],yinc);
|
|
qinterpolatedown16short((intptr_t)(&dwall[dax1]),dax2-dax1,y,yinc);
|
|
}
|
|
}
|
|
|
|
|
|
lx = ((lmax+65535)>>16);
|
|
rx = ((rmax+65535)>>16);
|
|
for (x=lx; x<=rx; x++)
|
|
{
|
|
uwall[x] = max(uwall[x],startumost[x+windowx1]-windowy1);
|
|
dwall[x] = min(dwall[x],startdmost[x+windowx1]-windowy1);
|
|
}
|
|
|
|
//Additional uwall/dwall clipping goes here
|
|
for (i=smostwallcnt-1; i>=0; i--)
|
|
{
|
|
j = smostwall[i];
|
|
if ((xb1[j] > rx) || (xb2[j] < lx)) continue;
|
|
if ((yp <= yb1[j]) && (yp <= yb2[j])) continue;
|
|
|
|
//if (spritewallfront(tspr,thewall[j]) == 0)
|
|
x = thewall[j]; xp1 = wall[x].x; yp1 = wall[x].y;
|
|
x = wall[x].point2; xp2 = wall[x].x; yp2 = wall[x].y;
|
|
x = (xp2-xp1)*(tspr->y-yp1)-(tspr->x-xp1)*(yp2-yp1);
|
|
if ((yp > yb1[j]) && (yp > yb2[j])) x = -1;
|
|
if ((x >= 0) && ((x != 0) || (wall[thewall[j]].nextsector != tspr->sectnum))) continue;
|
|
|
|
dalx2 = max(xb1[j],lx); darx2 = min(xb2[j],rx);
|
|
|
|
switch (smostwalltype[i])
|
|
{
|
|
case 0:
|
|
if (dalx2 <= darx2)
|
|
{
|
|
if ((dalx2 == lx) && (darx2 == rx)) return;
|
|
//clearbufbyte(&dwall[dalx2],(darx2-dalx2+1)*sizeof(dwall[0]),0L);
|
|
for (x=dalx2; x<=darx2; x++) dwall[x] = 0;
|
|
}
|
|
break;
|
|
case 1:
|
|
k = smoststart[i] - xb1[j];
|
|
for (x=dalx2; x<=darx2; x++)
|
|
if (smost[k+x] > uwall[x]) uwall[x] = smost[k+x];
|
|
break;
|
|
case 2:
|
|
k = smoststart[i] - xb1[j];
|
|
for (x=dalx2; x<=darx2; x++)
|
|
if (smost[k+x] < dwall[x]) dwall[x] = smost[k+x];
|
|
break;
|
|
}
|
|
}
|
|
|
|
//sprite
|
|
#ifdef YAX_ENABLE
|
|
if (yax_globallev==YAX_MAXDRAWS || searchit==2)
|
|
#endif
|
|
if ((searchit >= 1) && (searchx >= lx) && (searchx <= rx))
|
|
if ((searchy >= uwall[searchx]) && (searchy <= dwall[searchx]))
|
|
{
|
|
searchsector = sectnum; searchwall = spritenum;
|
|
searchstat = 3; searchit = 1;
|
|
}
|
|
|
|
globalorientation = cstat;
|
|
globalpicnum = tilenum;
|
|
if ((unsigned)globalpicnum >= (unsigned)MAXTILES) globalpicnum = 0;
|
|
|
|
if (waloff[globalpicnum] == 0) loadtile(globalpicnum);
|
|
setgotpic(globalpicnum);
|
|
globalbufplc = waloff[globalpicnum];
|
|
|
|
globvis = mulscale16(globalhisibility,viewingrange);
|
|
if (sec->visibility != 0) globvis = mulscale4(globvis, (uint8_t)(sec->visibility+16));
|
|
|
|
x = picsiz[globalpicnum]; y = ((x>>4)&15); x &= 15;
|
|
#if 0
|
|
if (pow2long[x] != xspan)
|
|
{
|
|
x++;
|
|
globalx1 = mulscale(globalx1,xspan,x);
|
|
globalx2 = mulscale(globalx2,xspan,x);
|
|
}
|
|
#endif
|
|
dax = globalxpanning; day = globalypanning;
|
|
globalxpanning = -dmulscale6(globalx1,day,globalx2,dax);
|
|
globalypanning = -dmulscale6(globaly1,day,globaly2,dax);
|
|
|
|
globalx2 = mulscale16(globalx2,viewingrange);
|
|
globaly2 = mulscale16(globaly2,viewingrange);
|
|
globalzd = mulscale16(globalzd,viewingrangerecip);
|
|
|
|
globalx1 = (globalx1-globalx2)*halfxdimen;
|
|
globaly1 = (globaly1-globaly2)*halfxdimen;
|
|
|
|
if ((cstat&2) == 0)
|
|
msethlineshift(x,y);
|
|
else
|
|
tsethlineshift(x,y);
|
|
|
|
globalispow2 = (pow2long[x]==xspan && pow2long[y]==yspan);
|
|
globalxspan = xspan;
|
|
globalyspan = yspan;
|
|
|
|
//Draw it!
|
|
ceilspritescan(lx,rx-1);
|
|
globalispow2 = 1;
|
|
}
|
|
else if ((cstat&48) == 48)
|
|
{
|
|
int32_t nxrepeat, nyrepeat;
|
|
int32_t daxrepeat = tspr->xrepeat;
|
|
const int32_t *longptr;
|
|
|
|
if ((sprite[spritenum].cstat&48)==16)
|
|
daxrepeat = (daxrepeat*5)/4;
|
|
|
|
lx = 0; rx = xdim-1;
|
|
for (x=lx; x<=rx; x++)
|
|
{
|
|
lwall[x] = startumost[x+windowx1]-windowy1;
|
|
swall[x] = startdmost[x+windowx1]-windowy1;
|
|
}
|
|
for (i=smostwallcnt-1; i>=0; i--)
|
|
{
|
|
j = smostwall[i];
|
|
if ((xb1[j] > rx) || (xb2[j] < lx)) continue;
|
|
if ((yp <= yb1[j]) && (yp <= yb2[j])) continue;
|
|
if (spritewallfront(tspr,(int32_t)thewall[j]) && ((yp <= yb1[j]) || (yp <= yb2[j]))) continue;
|
|
|
|
dalx2 = max(xb1[j],lx); darx2 = min(xb2[j],rx);
|
|
|
|
switch (smostwalltype[i])
|
|
{
|
|
case 0:
|
|
if (dalx2 <= darx2)
|
|
{
|
|
if ((dalx2 == lx) && (darx2 == rx)) return;
|
|
//clearbufbyte(&swall[dalx2],(darx2-dalx2+1)*sizeof(swall[0]),0L);
|
|
for (x=dalx2; x<=darx2; x++) swall[x] = 0;
|
|
}
|
|
break;
|
|
case 1:
|
|
k = smoststart[i] - xb1[j];
|
|
x = dalx2;
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
for (; x<=darx2-2; x+=2)
|
|
{
|
|
if (smost[k+x] > lwall[x]) lwall[x] = smost[k+x];
|
|
if (smost[k+x+1] > lwall[x+1]) lwall[x+1] = smost[k+x+1];
|
|
}
|
|
#endif
|
|
for (; x<=darx2; x++)
|
|
if (smost[k+x] > lwall[x]) lwall[x] = smost[k+x];
|
|
break;
|
|
case 2:
|
|
k = smoststart[i] - xb1[j];
|
|
x = dalx2;
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
for (; x<=darx2-4; x+=4)
|
|
{
|
|
if (smost[k+x] < swall[x]) swall[x] = smost[k+x];
|
|
if (smost[k+x+1] < swall[x+1]) swall[x+1] = smost[k+x+1];
|
|
if (smost[k+x+2] < swall[x+2]) swall[x+2] = smost[k+x+2];
|
|
if (smost[k+x+3] < swall[x+3]) swall[x+3] = smost[k+x+3];
|
|
}
|
|
#endif
|
|
for (; x<=darx2; x++)
|
|
if (smost[k+x] < swall[x]) swall[x] = smost[k+x];
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (lwall[rx] >= swall[rx])
|
|
{
|
|
for (x=lx; x<rx; x++)
|
|
if (lwall[x] < swall[x]) break;
|
|
if (x == rx) return;
|
|
}
|
|
/*
|
|
for (i=0; i<MAXVOXMIPS; i++)
|
|
if (!voxoff[vtilenum][i])
|
|
{
|
|
kloadvoxel(vtilenum);
|
|
break;
|
|
}
|
|
*/
|
|
longptr = (const int32_t *)voxoff[vtilenum][0];
|
|
if (longptr == NULL)
|
|
{
|
|
globalshade = 32;
|
|
tspr->xrepeat = tspr->yrepeat = 255;
|
|
goto draw_as_face_sprite;
|
|
}
|
|
|
|
if (voxscale[vtilenum] == 65536)
|
|
{
|
|
nxrepeat = (daxrepeat<<16);
|
|
nyrepeat = (((int32_t)tspr->yrepeat)<<16);
|
|
}
|
|
else
|
|
{
|
|
nxrepeat = daxrepeat*voxscale[vtilenum];
|
|
nyrepeat = ((int32_t)tspr->yrepeat)*voxscale[vtilenum];
|
|
}
|
|
|
|
if (!(cstat&128)) tspr->z -= mulscale22(B_LITTLE32(longptr[5]),nyrepeat);
|
|
yoff = /*picanm[sprite[tspr->owner].picnum].yofs +*/ tspr->yoffset;
|
|
tspr->z -= mulscale14(yoff,nyrepeat);
|
|
|
|
globvis = globalvisibility;
|
|
if (sec->visibility != 0) globvis = mulscale4(globvis, (uint8_t)(sec->visibility+16));
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (yax_globallev==YAX_MAXDRAWS || searchit==2)
|
|
#endif
|
|
if ((searchit >= 1) && (yp > (4<<8)) && (searchy >= lwall[searchx]) && (searchy < swall[searchx]))
|
|
{
|
|
const int32_t siz = divscale19(xdimenscale,yp);
|
|
const int32_t xv = mulscale16(nxrepeat,xyaspect);
|
|
int32_t xsiz, ysiz;
|
|
|
|
xspan = ((B_LITTLE32(longptr[0])+B_LITTLE32(longptr[1]))>>1);
|
|
yspan = B_LITTLE32(longptr[2]);
|
|
xsiz = mulscale30(siz,xv*xspan);
|
|
ysiz = mulscale30(siz,nyrepeat*yspan);
|
|
|
|
//Watch out for divscale overflow
|
|
if (((xspan>>11) < xsiz) && (yspan < (ysiz>>1)))
|
|
{
|
|
x1 = xb-(xsiz>>1);
|
|
if (xspan&1) x1 += mulscale31(siz,xv); //Odd xspans
|
|
i = mulscale30(siz,xv*xoff);
|
|
if ((cstat&4) == 0) x1 -= i; else x1 += i;
|
|
|
|
y1 = mulscale16(tspr->z-globalposz,siz);
|
|
//y1 -= mulscale30(siz,nyrepeat*yoff);
|
|
y1 += (globalhoriz<<8)-ysiz;
|
|
//if (cstat&128) //Already fixed up above
|
|
y1 += (ysiz>>1);
|
|
|
|
x2 = x1+xsiz-1;
|
|
y2 = y1+ysiz-1;
|
|
if ((y1|255) < (y2|255) && searchx >= (x1>>8)+1 && searchx <= (x2>>8))
|
|
{
|
|
int32_t startum, startdm;
|
|
|
|
if ((sec->ceilingstat&3) == 0)
|
|
startum = globalhoriz+mulscale24(siz,sec->ceilingz-globalposz)-1;
|
|
else
|
|
startum = 0;
|
|
|
|
if ((sec->floorstat&3) == 0)
|
|
startdm = globalhoriz+mulscale24(siz,sec->floorz-globalposz)+1;
|
|
else
|
|
startdm = INT32_MAX;
|
|
|
|
//sprite
|
|
if (searchy >= max(startum,(y1>>8)) && searchy < min(startdm,(y2>>8)))
|
|
{
|
|
searchsector = sectnum; searchwall = spritenum;
|
|
searchstat = 3; searchit = 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
i = (int32_t)tspr->ang+1536;
|
|
#ifdef USE_OPENGL
|
|
i += spriteext[spritenum].angoff;
|
|
#endif
|
|
drawvox(tspr->x,tspr->y,tspr->z,i,daxrepeat,(int32_t)tspr->yrepeat,vtilenum,tspr->shade,tspr->pal,lwall,swall);
|
|
}
|
|
}
|
|
|
|
static void drawsprite(int32_t snum)
|
|
{
|
|
switch (getrendermode())
|
|
{
|
|
case REND_CLASSIC:
|
|
drawsprite_classic(snum);
|
|
return;
|
|
#ifdef USE_OPENGL
|
|
case REND_POLYMOST:
|
|
polymost_drawsprite(snum);
|
|
bglBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
|
|
bglDepthFunc(GL_LESS); //NEVER,LESS,(,L)EQUAL,GREATER,(NOT,G)EQUAL,ALWAYS
|
|
bglDepthRange(0.0, 1.0); //<- this is more widely supported than glPolygonOffset
|
|
return;
|
|
# ifdef POLYMER
|
|
case REND_POLYMER:
|
|
bglEnable(GL_ALPHA_TEST);
|
|
bglEnable(GL_BLEND);
|
|
polymer_drawsprite(snum);
|
|
bglDisable(GL_BLEND);
|
|
bglDisable(GL_ALPHA_TEST);
|
|
return;
|
|
# endif
|
|
#endif
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// drawmaskwall (internal)
|
|
//
|
|
static void drawmaskwall(int16_t damaskwallcnt)
|
|
{
|
|
int32_t i, j, k, x, z, sectnum, z1, z2, lx, rx;
|
|
sectortype *sec, *nsec;
|
|
walltype *wal;
|
|
|
|
//============================================================================= //POLYMOST BEGINS
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() == REND_POLYMOST) { polymost_drawmaskwall(damaskwallcnt); return; }
|
|
# ifdef POLYMER
|
|
if (getrendermode() == REND_POLYMER)
|
|
{
|
|
bglEnable(GL_ALPHA_TEST);
|
|
bglEnable(GL_BLEND);
|
|
|
|
polymer_drawmaskwall(damaskwallcnt);
|
|
|
|
bglDisable(GL_BLEND);
|
|
bglDisable(GL_ALPHA_TEST);
|
|
|
|
return;
|
|
}
|
|
#endif
|
|
#endif
|
|
//============================================================================= //POLYMOST ENDS
|
|
|
|
z = maskwall[damaskwallcnt];
|
|
wal = &wall[thewall[z]];
|
|
sectnum = thesector[z]; sec = §or[sectnum];
|
|
nsec = §or[wal->nextsector];
|
|
z1 = max(nsec->ceilingz,sec->ceilingz);
|
|
z2 = min(nsec->floorz,sec->floorz);
|
|
|
|
wallmost(uwall,z,sectnum,(uint8_t)0);
|
|
wallmost(uplc,z,(int32_t)wal->nextsector,(uint8_t)0);
|
|
for (x=xb1[z]; x<=xb2[z]; x++)
|
|
if (uplc[x] > uwall[x])
|
|
uwall[x] = uplc[x];
|
|
wallmost(dwall,z,sectnum,(uint8_t)1);
|
|
wallmost(dplc,z,(int32_t)wal->nextsector,(uint8_t)1);
|
|
for (x=xb1[z]; x<=xb2[z]; x++)
|
|
if (dplc[x] < dwall[x])
|
|
dwall[x] = dplc[x];
|
|
prepwall(z,wal);
|
|
|
|
setup_globals_wall1(wal, wal->overpicnum);
|
|
setup_globals_wall2(wal, sec->visibility, z1, z2);
|
|
|
|
for (i=smostwallcnt-1; i>=0; i--)
|
|
{
|
|
j = smostwall[i];
|
|
if ((xb1[j] > xb2[z]) || (xb2[j] < xb1[z])) continue;
|
|
if (wallfront(j,z)) continue;
|
|
|
|
lx = max(xb1[j],xb1[z]); rx = min(xb2[j],xb2[z]);
|
|
|
|
switch (smostwalltype[i])
|
|
{
|
|
case 0:
|
|
if (lx <= rx)
|
|
{
|
|
if ((lx == xb1[z]) && (rx == xb2[z])) return;
|
|
//clearbufbyte(&dwall[lx],(rx-lx+1)*sizeof(dwall[0]),0L);
|
|
for (x=lx; x<=rx; x++) dwall[x] = 0;
|
|
}
|
|
break;
|
|
case 1:
|
|
k = smoststart[i] - xb1[j];
|
|
for (x=lx; x<=rx; x++)
|
|
if (smost[k+x] > uwall[x]) uwall[x] = smost[k+x];
|
|
break;
|
|
case 2:
|
|
k = smoststart[i] - xb1[j];
|
|
for (x=lx; x<=rx; x++)
|
|
if (smost[k+x] < dwall[x]) dwall[x] = smost[k+x];
|
|
break;
|
|
}
|
|
}
|
|
|
|
//maskwall
|
|
if ((searchit >= 1) && (searchx >= xb1[z]) && (searchx <= xb2[z]))
|
|
if ((searchy >= uwall[searchx]) && (searchy <= dwall[searchx]))
|
|
{
|
|
searchsector = sectnum; searchbottomwall = searchwall = thewall[z];
|
|
searchstat = 4; searchit = 1;
|
|
}
|
|
|
|
if ((globalorientation&128) == 0)
|
|
{
|
|
maskwallscan(xb1[z],xb2[z], 0);
|
|
}
|
|
else
|
|
{
|
|
if (globalorientation&128)
|
|
#ifdef NEW_MAP_FORMAT
|
|
setup_blend(wal->blend, globalorientation&512);
|
|
#else
|
|
setup_blend(0, globalorientation&512);
|
|
#endif
|
|
transmaskwallscan(xb1[z],xb2[z], 0);
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// fillpolygon (internal)
|
|
//
|
|
static void fillpolygon(int32_t npoints)
|
|
{
|
|
int32_t i, z, y, miny, maxy;
|
|
|
|
// fix for bad next-point (xb1) values...
|
|
for (z=0; z<npoints; z++)
|
|
if ((unsigned)xb1[z] >= (unsigned)npoints)
|
|
xb1[z] = 0;
|
|
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST && in3dmode())
|
|
{
|
|
polymost_fillpolygon(npoints);
|
|
return;
|
|
}
|
|
#endif
|
|
|
|
// 1. Calculate y bounds.
|
|
miny = INT32_MAX; maxy = INT32_MIN;
|
|
for (z=npoints-1; z>=0; z--)
|
|
{
|
|
y = ry1[z];
|
|
miny = min(miny,y);
|
|
maxy = max(maxy,y);
|
|
}
|
|
|
|
miny >>= 12;
|
|
maxy >>= 12;
|
|
|
|
if (miny < 0)
|
|
miny = 0;
|
|
if (maxy >= ydim)
|
|
maxy = ydim-1;
|
|
|
|
for (i=0, y=miny; y<=maxy; y++, i++)
|
|
{
|
|
//They're pointers! - watch how you optimize this thing
|
|
dotp1[y] = &smost[i*MAXNODESPERLINE];
|
|
dotp2[y] = &smost[i*MAXNODESPERLINE + (MAXNODESPERLINE>>1)];
|
|
}
|
|
|
|
for (z=npoints-1; z>=0; z--)
|
|
{
|
|
const int32_t zz=xb1[z];
|
|
|
|
// NOTE: clamp for crash prevention... :-/
|
|
// r1874 says: "Fix more overheadmap crashes, this time with 'Last
|
|
// Pissed Time'"
|
|
const int32_t y1 = clamp(ry1[z], 0, (ydim<<12)-1);
|
|
const int32_t y2 = clamp(ry1[zz], 0, (ydim<<12)-1);
|
|
|
|
const int32_t day1 = y1>>12;
|
|
const int32_t day2 = y2>>12;
|
|
|
|
if (day1 != day2)
|
|
{
|
|
int32_t x1=rx1[z], x2=rx1[zz];
|
|
const int32_t xinc = divscale12(x2-x1, y2-y1);
|
|
|
|
if (day2 > day1)
|
|
{
|
|
x1 += mulscale12((day1<<12)+4095-y1, xinc);
|
|
for (y=day1; y<day2; y++)
|
|
{
|
|
if (dotp2[y])
|
|
*(dotp2[y]++) = x1>>12;
|
|
x1 += xinc;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
x2 += mulscale12((day2<<12)+4095-y2, xinc);
|
|
for (y=day2; y<day1; y++)
|
|
{
|
|
if (dotp1[y])
|
|
*(dotp1[y]++) = x2>>12;
|
|
x2 += xinc;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
globalx1 = mulscale16(globalx1,xyaspect);
|
|
globaly2 = mulscale16(globaly2,xyaspect);
|
|
|
|
{
|
|
const int32_t oy = miny+1-(ydim>>1);
|
|
globalposx += oy*(int64_t)globalx1;
|
|
globalposy += oy*(int64_t)globaly2;
|
|
}
|
|
|
|
setuphlineasm4(asm1,asm2);
|
|
|
|
for (i=0, y=miny; y<=maxy; y++, i++)
|
|
{
|
|
int16_t *const xptr = &smost[i*MAXNODESPERLINE];
|
|
int16_t *const xptr2 = &smost[i*MAXNODESPERLINE + (MAXNODESPERLINE>>1)];
|
|
|
|
const int32_t cnt = dotp1[y]-xptr;
|
|
|
|
for (z=cnt-1; z>=0; z--)
|
|
{
|
|
int32_t x1, x2;
|
|
int32_t zz, i1=0, i2=0; // point indices (like loop z)
|
|
|
|
for (zz=z; zz>0; zz--)
|
|
{
|
|
if (xptr[zz] < xptr[i1])
|
|
i1 = zz;
|
|
if (xptr2[zz] < xptr2[i2])
|
|
i2 = zz;
|
|
}
|
|
|
|
x1 = xptr[i1];
|
|
xptr[i1] = xptr[z];
|
|
|
|
x2 = xptr2[i2]-1;
|
|
xptr2[i2] = xptr2[z];
|
|
|
|
if (x1 > x2)
|
|
continue;
|
|
|
|
if ((unsigned)x1 >= xdim+0u || (unsigned)x2 >= xdim+0u)
|
|
continue;
|
|
|
|
if (globalpolytype < 1)
|
|
{
|
|
//maphline
|
|
const int32_t ox = x2+1-(xdim>>1);
|
|
const int32_t bx = ox*asm1 + globalposx;
|
|
const int32_t by = ox*asm2 - globalposy;
|
|
|
|
const intptr_t p = ylookup[y]+x2+frameplace;
|
|
|
|
hlineasm4(x2-x1,-1L,globalshade<<8,by,bx,p);
|
|
}
|
|
else
|
|
{
|
|
//maphline
|
|
const int32_t ox = x1+1-(xdim>>1);
|
|
const int32_t bx = ox*asm1 + globalposx;
|
|
const int32_t by = ox*asm2 - globalposy;
|
|
|
|
const intptr_t p = ylookup[y]+x1+frameplace;
|
|
|
|
if (globalpolytype == 1)
|
|
mhline(globalbufplc,bx,(x2-x1)<<16,0L,by,p);
|
|
else
|
|
thline(globalbufplc,bx,(x2-x1)<<16,0L,by,p);
|
|
}
|
|
}
|
|
|
|
globalposx += (int64_t)globalx1;
|
|
globalposy += (int64_t)globaly2;
|
|
}
|
|
|
|
faketimerhandler();
|
|
}
|
|
|
|
static inline int32_t addscaleclamp(int32_t a, int32_t b, int32_t s1, int32_t s2)
|
|
{
|
|
// a + scale(b, s1, s1-s2), but without arithmetic exception when the
|
|
// scale() expression overflows
|
|
|
|
int64_t tmp = (int64_t)a + ((int64_t)b*s1)/(s1-s2);
|
|
|
|
if (tmp <= INT32_MIN+1)
|
|
return INT32_MIN+1;
|
|
if (tmp >= INT32_MAX)
|
|
return INT32_MAX;
|
|
return tmp;
|
|
}
|
|
|
|
//
|
|
// clippoly (internal)
|
|
//
|
|
static int32_t clippoly(int32_t npoints, int32_t clipstat)
|
|
{
|
|
int32_t z, zz, s1, s2, t, npoints2, start2, z1, z2, z3, z4, splitcnt;
|
|
int32_t cx1, cy1, cx2, cy2;
|
|
|
|
cx1 = windowx1;
|
|
cy1 = windowy1;
|
|
cx2 = windowx2+1;
|
|
cy2 = windowy2+1;
|
|
cx1 <<= 12; cy1 <<= 12; cx2 <<= 12; cy2 <<= 12;
|
|
|
|
if (clipstat&0xa) //Need to clip top or left
|
|
{
|
|
npoints2 = 0; start2 = 0; z = 0; splitcnt = 0;
|
|
do
|
|
{
|
|
s2 = cx1-rx1[z];
|
|
do
|
|
{
|
|
zz = xb1[z]; xb1[z] = -1;
|
|
s1 = s2; s2 = cx1-rx1[zz];
|
|
if (s1 < 0)
|
|
{
|
|
rx2[npoints2] = rx1[z]; ry2[npoints2] = ry1[z];
|
|
xb2[npoints2] = npoints2+1; npoints2++;
|
|
}
|
|
if ((s1^s2) < 0)
|
|
{
|
|
rx2[npoints2] = addscaleclamp(rx1[z], rx1[zz]-rx1[z], s1, s2);
|
|
ry2[npoints2] = addscaleclamp(ry1[z], ry1[zz]-ry1[z], s1, s2);
|
|
if (s1 < 0) bunchp2[splitcnt++] = npoints2;
|
|
xb2[npoints2] = npoints2+1;
|
|
npoints2++;
|
|
}
|
|
z = zz;
|
|
}
|
|
while (xb1[z] >= 0);
|
|
|
|
if (npoints2 >= start2+3)
|
|
xb2[npoints2-1] = start2, start2 = npoints2;
|
|
else
|
|
npoints2 = start2;
|
|
|
|
z = 1;
|
|
while ((z < npoints) && (xb1[z] < 0)) z++;
|
|
}
|
|
while (z < npoints);
|
|
if (npoints2 <= 2) return(0);
|
|
|
|
for (z=1; z<splitcnt; z++)
|
|
for (zz=0; zz<z; zz++)
|
|
{
|
|
z1 = bunchp2[z]; z2 = xb2[z1]; z3 = bunchp2[zz]; z4 = xb2[z3];
|
|
s1 = klabs(rx2[z1]-rx2[z2])+klabs(ry2[z1]-ry2[z2]);
|
|
s1 += klabs(rx2[z3]-rx2[z4])+klabs(ry2[z3]-ry2[z4]);
|
|
s2 = klabs(rx2[z1]-rx2[z4])+klabs(ry2[z1]-ry2[z4]);
|
|
s2 += klabs(rx2[z3]-rx2[z2])+klabs(ry2[z3]-ry2[z2]);
|
|
if (s2 < s1)
|
|
{ t = xb2[bunchp2[z]]; xb2[bunchp2[z]] = xb2[bunchp2[zz]]; xb2[bunchp2[zz]] = t; }
|
|
}
|
|
|
|
|
|
npoints = 0; start2 = 0; z = 0; splitcnt = 0;
|
|
do
|
|
{
|
|
s2 = cy1-ry2[z];
|
|
do
|
|
{
|
|
zz = xb2[z]; xb2[z] = -1;
|
|
s1 = s2; s2 = cy1-ry2[zz];
|
|
if (s1 < 0)
|
|
{
|
|
rx1[npoints] = rx2[z]; ry1[npoints] = ry2[z];
|
|
xb1[npoints] = npoints+1; npoints++;
|
|
}
|
|
if ((s1^s2) < 0)
|
|
{
|
|
rx1[npoints] = addscaleclamp(rx2[z], rx2[zz]-rx2[z], s1, s2);
|
|
ry1[npoints] = addscaleclamp(ry2[z], ry2[zz]-ry2[z], s1, s2);
|
|
if (s1 < 0) bunchp2[splitcnt++] = npoints;
|
|
xb1[npoints] = npoints+1;
|
|
npoints++;
|
|
}
|
|
z = zz;
|
|
}
|
|
while (xb2[z] >= 0);
|
|
|
|
if (npoints >= start2+3)
|
|
xb1[npoints-1] = start2, start2 = npoints;
|
|
else
|
|
npoints = start2;
|
|
|
|
z = 1;
|
|
while ((z < npoints2) && (xb2[z] < 0)) z++;
|
|
}
|
|
while (z < npoints2);
|
|
if (npoints <= 2) return(0);
|
|
|
|
for (z=1; z<splitcnt; z++)
|
|
for (zz=0; zz<z; zz++)
|
|
{
|
|
z1 = bunchp2[z]; z2 = xb1[z1]; z3 = bunchp2[zz]; z4 = xb1[z3];
|
|
s1 = klabs(rx1[z1]-rx1[z2])+klabs(ry1[z1]-ry1[z2]);
|
|
s1 += klabs(rx1[z3]-rx1[z4])+klabs(ry1[z3]-ry1[z4]);
|
|
s2 = klabs(rx1[z1]-rx1[z4])+klabs(ry1[z1]-ry1[z4]);
|
|
s2 += klabs(rx1[z3]-rx1[z2])+klabs(ry1[z3]-ry1[z2]);
|
|
if (s2 < s1)
|
|
{ t = xb1[bunchp2[z]]; xb1[bunchp2[z]] = xb1[bunchp2[zz]]; xb1[bunchp2[zz]] = t; }
|
|
}
|
|
}
|
|
if (clipstat&0x5) //Need to clip bottom or right
|
|
{
|
|
npoints2 = 0; start2 = 0; z = 0; splitcnt = 0;
|
|
do
|
|
{
|
|
s2 = rx1[z]-cx2;
|
|
do
|
|
{
|
|
zz = xb1[z]; xb1[z] = -1;
|
|
s1 = s2; s2 = rx1[zz]-cx2;
|
|
if (s1 < 0)
|
|
{
|
|
rx2[npoints2] = rx1[z]; ry2[npoints2] = ry1[z];
|
|
xb2[npoints2] = npoints2+1; npoints2++;
|
|
}
|
|
if ((s1^s2) < 0)
|
|
{
|
|
rx2[npoints2] = addscaleclamp(rx1[z], rx1[zz]-rx1[z], s1, s2);
|
|
ry2[npoints2] = addscaleclamp(ry1[z], ry1[zz]-ry1[z], s1, s2);
|
|
if (s1 < 0) bunchp2[splitcnt++] = npoints2;
|
|
xb2[npoints2] = npoints2+1;
|
|
npoints2++;
|
|
}
|
|
z = zz;
|
|
}
|
|
while (xb1[z] >= 0);
|
|
|
|
if (npoints2 >= start2+3)
|
|
xb2[npoints2-1] = start2, start2 = npoints2;
|
|
else
|
|
npoints2 = start2;
|
|
|
|
z = 1;
|
|
while ((z < npoints) && (xb1[z] < 0)) z++;
|
|
}
|
|
while (z < npoints);
|
|
if (npoints2 <= 2) return(0);
|
|
|
|
for (z=1; z<splitcnt; z++)
|
|
for (zz=0; zz<z; zz++)
|
|
{
|
|
z1 = bunchp2[z]; z2 = xb2[z1]; z3 = bunchp2[zz]; z4 = xb2[z3];
|
|
s1 = klabs(rx2[z1]-rx2[z2])+klabs(ry2[z1]-ry2[z2]);
|
|
s1 += klabs(rx2[z3]-rx2[z4])+klabs(ry2[z3]-ry2[z4]);
|
|
s2 = klabs(rx2[z1]-rx2[z4])+klabs(ry2[z1]-ry2[z4]);
|
|
s2 += klabs(rx2[z3]-rx2[z2])+klabs(ry2[z3]-ry2[z2]);
|
|
if (s2 < s1)
|
|
{ t = xb2[bunchp2[z]]; xb2[bunchp2[z]] = xb2[bunchp2[zz]]; xb2[bunchp2[zz]] = t; }
|
|
}
|
|
|
|
|
|
npoints = 0; start2 = 0; z = 0; splitcnt = 0;
|
|
do
|
|
{
|
|
s2 = ry2[z]-cy2;
|
|
do
|
|
{
|
|
zz = xb2[z]; xb2[z] = -1;
|
|
s1 = s2; s2 = ry2[zz]-cy2;
|
|
if (s1 < 0)
|
|
{
|
|
rx1[npoints] = rx2[z]; ry1[npoints] = ry2[z];
|
|
xb1[npoints] = npoints+1; npoints++;
|
|
}
|
|
if ((s1^s2) < 0)
|
|
{
|
|
rx1[npoints] = addscaleclamp(rx2[z], rx2[zz]-rx2[z], s1, s2);
|
|
ry1[npoints] = addscaleclamp(ry2[z], ry2[zz]-ry2[z], s1, s2);
|
|
if (s1 < 0) bunchp2[splitcnt++] = npoints;
|
|
xb1[npoints] = npoints+1;
|
|
npoints++;
|
|
}
|
|
z = zz;
|
|
}
|
|
while (xb2[z] >= 0);
|
|
|
|
if (npoints >= start2+3)
|
|
xb1[npoints-1] = start2, start2 = npoints;
|
|
else
|
|
npoints = start2;
|
|
|
|
z = 1;
|
|
while ((z < npoints2) && (xb2[z] < 0)) z++;
|
|
}
|
|
while (z < npoints2);
|
|
if (npoints <= 2) return(0);
|
|
|
|
for (z=1; z<splitcnt; z++)
|
|
for (zz=0; zz<z; zz++)
|
|
{
|
|
z1 = bunchp2[z]; z2 = xb1[z1]; z3 = bunchp2[zz]; z4 = xb1[z3];
|
|
s1 = klabs(rx1[z1]-rx1[z2])+klabs(ry1[z1]-ry1[z2]);
|
|
s1 += klabs(rx1[z3]-rx1[z4])+klabs(ry1[z3]-ry1[z4]);
|
|
s2 = klabs(rx1[z1]-rx1[z4])+klabs(ry1[z1]-ry1[z4]);
|
|
s2 += klabs(rx1[z3]-rx1[z2])+klabs(ry1[z3]-ry1[z2]);
|
|
if (s2 < s1)
|
|
{ t = xb1[bunchp2[z]]; xb1[bunchp2[z]] = xb1[bunchp2[zz]]; xb1[bunchp2[zz]] = t; }
|
|
}
|
|
}
|
|
return(npoints);
|
|
}
|
|
|
|
|
|
//
|
|
// clippoly4 (internal)
|
|
//
|
|
//Assume npoints=4 with polygon on &nrx1,&nry1
|
|
//JBF 20031206: Thanks to Ken's hunting, s/(rx1|ry1|rx2|ry2)/n\1/ in this function
|
|
static int32_t clippoly4(int32_t cx1, int32_t cy1, int32_t cx2, int32_t cy2)
|
|
{
|
|
int32_t n, nn, z, zz, x, x1, x2, y, y1, y2, t;
|
|
|
|
nn = 0; z = 0;
|
|
do
|
|
{
|
|
zz = ((z+1)&3);
|
|
x1 = nrx1[z]; x2 = nrx1[zz]-x1;
|
|
|
|
if ((cx1 <= x1) && (x1 <= cx2))
|
|
nrx2[nn] = x1, nry2[nn] = nry1[z], nn++;
|
|
|
|
if (x2 <= 0) x = cx2; else x = cx1;
|
|
t = x-x1;
|
|
if (((t-x2)^t) < 0)
|
|
nrx2[nn] = x, nry2[nn] = nry1[z]+scale(t,nry1[zz]-nry1[z],x2), nn++;
|
|
|
|
if (x2 <= 0) x = cx1; else x = cx2;
|
|
t = x-x1;
|
|
if (((t-x2)^t) < 0)
|
|
nrx2[nn] = x, nry2[nn] = nry1[z]+scale(t,nry1[zz]-nry1[z],x2), nn++;
|
|
|
|
z = zz;
|
|
}
|
|
while (z != 0);
|
|
if (nn < 3) return(0);
|
|
|
|
n = 0; z = 0;
|
|
do
|
|
{
|
|
zz = z+1; if (zz == nn) zz = 0;
|
|
y1 = nry2[z]; y2 = nry2[zz]-y1;
|
|
|
|
if ((cy1 <= y1) && (y1 <= cy2))
|
|
nry1[n] = y1, nrx1[n] = nrx2[z], n++;
|
|
|
|
if (y2 <= 0) y = cy2; else y = cy1;
|
|
t = y-y1;
|
|
if (((t-y2)^t) < 0)
|
|
nry1[n] = y, nrx1[n] = nrx2[z]+scale(t,nrx2[zz]-nrx2[z],y2), n++;
|
|
|
|
if (y2 <= 0) y = cy1; else y = cy2;
|
|
t = y-y1;
|
|
if (((t-y2)^t) < 0)
|
|
nry1[n] = y, nrx1[n] = nrx2[z]+scale(t,nrx2[zz]-nrx2[z],y2), n++;
|
|
|
|
z = zz;
|
|
}
|
|
while (z != 0);
|
|
return(n);
|
|
}
|
|
|
|
|
|
// INTERNAL helper function for classic/polymost dorotatesprite
|
|
// sxptr, sxptr, z: in/out
|
|
// ret_yxaspect, ret_xyaspect: out
|
|
void dorotspr_handle_bit2(int32_t *sxptr, int32_t *syptr, int32_t *z, int32_t dastat,
|
|
int32_t cx1_plus_cx2, int32_t cy1_plus_cy2,
|
|
int32_t *ret_yxaspect, int32_t *ret_xyaspect)
|
|
{
|
|
if ((dastat & RS_AUTO) == 0)
|
|
{
|
|
if (!(dastat & RS_STRETCH) && 4*ydim <= 3*xdim)
|
|
{
|
|
*ret_yxaspect = (12<<16)/10;
|
|
*ret_xyaspect = (10<<16)/12;
|
|
}
|
|
else
|
|
{
|
|
*ret_yxaspect = yxaspect;
|
|
*ret_xyaspect = xyaspect;
|
|
}
|
|
|
|
// *sxptr and *syptr and *z are left unchanged
|
|
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
// dastat&2: Auto window size scaling
|
|
const int32_t oxdim = xdim;
|
|
int32_t xdim = oxdim; // SHADOWS global
|
|
|
|
int32_t zoomsc, sx=*sxptr, sy=*syptr;
|
|
int32_t ouryxaspect = yxaspect, ourxyaspect = xyaspect;
|
|
|
|
// screen center to s[xy], 320<<16 coords.
|
|
const int32_t normxofs = sx-(320<<15), normyofs = sy-(200<<15);
|
|
|
|
if (!(dastat & RS_STRETCH) && 4*ydim <= 3*xdim)
|
|
{
|
|
xdim = (4*ydim)/3;
|
|
|
|
ouryxaspect = (12<<16)/10;
|
|
ourxyaspect = (10<<16)/12;
|
|
}
|
|
|
|
// nasty hacks go here
|
|
if (!(dastat & RS_NOCLIP))
|
|
{
|
|
const int32_t twice_midcx = cx1_plus_cx2+2;
|
|
|
|
// screen x center to sx1, scaled to viewport
|
|
const int32_t scaledxofs = scale(normxofs, scale(xdimen, xdim, oxdim), 320);
|
|
|
|
int32_t xbord = 0;
|
|
|
|
if (dastat & RS_ALIGN_MASK)
|
|
{
|
|
xbord = scale(oxdim-xdim, twice_midcx, oxdim);
|
|
|
|
if ((dastat & RS_ALIGN_R)==0)
|
|
xbord = -xbord;
|
|
}
|
|
|
|
sx = ((twice_midcx+xbord)<<15) + scaledxofs;
|
|
|
|
zoomsc = xdimenscale; //= scale(xdimen,yxaspect,320);
|
|
sy = ((cy1_plus_cy2+2)<<15) + mulscale16(normyofs, zoomsc);
|
|
}
|
|
else
|
|
{
|
|
//If not clipping to startmosts, & auto-scaling on, as a
|
|
//hard-coded bonus, scale to full screen instead
|
|
|
|
sx = (xdim<<15)+32768 + scale(normxofs,xdim,320);
|
|
|
|
if (dastat & RS_ALIGN_R)
|
|
sx += (oxdim-xdim)<<16;
|
|
else if ((dastat & RS_ALIGN_L) == 0)
|
|
sx += (oxdim-xdim)<<15;
|
|
|
|
if (dastat & RS_CENTERORIGIN)
|
|
sx += oxdim<<15;
|
|
|
|
zoomsc = scale(xdim, ouryxaspect, 320);
|
|
sy = (ydim<<15)+32768 + mulscale16(normyofs, zoomsc);
|
|
}
|
|
|
|
*sxptr = sx;
|
|
*syptr = sy;
|
|
*z = mulscale16(*z, zoomsc);
|
|
|
|
*ret_yxaspect = ouryxaspect;
|
|
*ret_xyaspect = ourxyaspect;
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// dorotatesprite (internal)
|
|
//
|
|
//JBF 20031206: Thanks to Ken's hunting, s/(rx1|ry1|rx2|ry2)/n\1/ in this function
|
|
static void dorotatesprite(int32_t sx, int32_t sy, int32_t z, int16_t a, int16_t picnum,
|
|
int8_t dashade, char dapalnum, int32_t dastat, uint8_t daalpha, uint8_t dablend,
|
|
int32_t cx1, int32_t cy1, int32_t cx2, int32_t cy2,
|
|
int32_t uniqid)
|
|
{
|
|
// NOTE: if these are made unsigned (for safety), angled tiles may draw
|
|
// incorrectly, showing vertical seams at intervals.
|
|
int32_t bx, by;
|
|
|
|
int32_t cosang, sinang, v, nextv, dax1, dax2, oy;
|
|
int32_t i, x, y, x1, y1, x2, y2, gx1, gy1;
|
|
intptr_t p, bufplc, palookupoffs;
|
|
int32_t xsiz, ysiz, xoff, yoff, npoints, yplc, yinc, lx, rx;
|
|
int32_t xv, yv, xv2, yv2;
|
|
|
|
int32_t ouryxaspect, ourxyaspect;
|
|
|
|
if (g_rotatespriteNoWidescreen)
|
|
{
|
|
dastat |= RS_STRETCH;
|
|
dastat &= ~RS_ALIGN_MASK;
|
|
}
|
|
|
|
//============================================================================= //POLYMOST BEGINS
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST && in3dmode())
|
|
{
|
|
polymost_dorotatesprite(sx,sy,z,a,picnum,dashade,dapalnum,dastat,daalpha,cx1,cy1,cx2,cy2,uniqid);
|
|
return;
|
|
}
|
|
#else
|
|
UNREFERENCED_PARAMETER(uniqid);
|
|
#endif
|
|
//============================================================================= //POLYMOST ENDS
|
|
|
|
// bound clipping rectangle to screen
|
|
if (cx1 < 0) cx1 = 0;
|
|
if (cy1 < 0) cy1 = 0;
|
|
if (cx2 > xres-1) cx2 = xres-1;
|
|
if (cy2 > yres-1) cy2 = yres-1;
|
|
|
|
xsiz = tilesiz[picnum].x;
|
|
ysiz = tilesiz[picnum].y;
|
|
|
|
if (dastat & RS_TOPLEFT)
|
|
{
|
|
// Bit 1<<4 set: origin is top left corner?
|
|
xoff = 0;
|
|
yoff = 0;
|
|
}
|
|
else
|
|
{
|
|
// Bit 1<<4 clear: origin is center of tile, and per-tile offset is applied.
|
|
// TODO: split the two?
|
|
xoff = picanm[picnum].xofs + (xsiz>>1);
|
|
yoff = picanm[picnum].yofs + (ysiz>>1);
|
|
}
|
|
|
|
// Bit 1<<2: invert y
|
|
if (dastat & RS_YFLIP)
|
|
yoff = ysiz-yoff;
|
|
|
|
cosang = sintable[(a+512)&2047];
|
|
sinang = sintable[a&2047];
|
|
|
|
dorotspr_handle_bit2(&sx, &sy, &z, dastat, cx1+cx2, cy1+cy2, &ouryxaspect, &ourxyaspect);
|
|
|
|
xv = mulscale14(cosang,z);
|
|
yv = mulscale14(sinang,z);
|
|
if ((dastat&RS_AUTO) || (dastat&RS_NOCLIP) == 0) //Don't aspect unscaled perms
|
|
{
|
|
xv2 = mulscale16(xv,ourxyaspect);
|
|
yv2 = mulscale16(yv,ourxyaspect);
|
|
}
|
|
else
|
|
{
|
|
xv2 = xv;
|
|
yv2 = yv;
|
|
}
|
|
|
|
nry1[0] = sy - (yv*xoff + xv*yoff);
|
|
nry1[1] = nry1[0] + yv*xsiz;
|
|
nry1[3] = nry1[0] + xv*ysiz;
|
|
nry1[2] = nry1[1]+nry1[3]-nry1[0];
|
|
i = (cy1<<16); if ((nry1[0]<i) && (nry1[1]<i) && (nry1[2]<i) && (nry1[3]<i)) return;
|
|
i = (cy2<<16); if ((nry1[0]>i) && (nry1[1]>i) && (nry1[2]>i) && (nry1[3]>i)) return;
|
|
|
|
nrx1[0] = sx - (xv2*xoff - yv2*yoff);
|
|
nrx1[1] = nrx1[0] + xv2*xsiz;
|
|
nrx1[3] = nrx1[0] - yv2*ysiz;
|
|
nrx1[2] = nrx1[1]+nrx1[3]-nrx1[0];
|
|
i = (cx1<<16); if ((nrx1[0]<i) && (nrx1[1]<i) && (nrx1[2]<i) && (nrx1[3]<i)) return;
|
|
i = (cx2<<16); if ((nrx1[0]>i) && (nrx1[1]>i) && (nrx1[2]>i) && (nrx1[3]>i)) return;
|
|
|
|
gx1 = nrx1[0]; gy1 = nry1[0]; //back up these before clipping
|
|
|
|
npoints = clippoly4(cx1<<16,cy1<<16,(cx2+1)<<16,(cy2+1)<<16);
|
|
if (npoints < 3) return;
|
|
|
|
lx = nrx1[0]; rx = nrx1[0];
|
|
|
|
nextv = 0;
|
|
for (v=npoints-1; v>=0; v--)
|
|
{
|
|
x1 = nrx1[v]; x2 = nrx1[nextv];
|
|
dax1 = (x1>>16); if (x1 < lx) lx = x1;
|
|
dax2 = (x2>>16); if (x1 > rx) rx = x1;
|
|
if (dax1 != dax2)
|
|
{
|
|
y1 = nry1[v]; y2 = nry1[nextv];
|
|
yinc = divscale16(y2-y1,x2-x1);
|
|
if (dax2 > dax1)
|
|
{
|
|
yplc = y1 + mulscale16((dax1<<16)+65535-x1,yinc);
|
|
// Assertion fails with DNF mod: in mapster32,
|
|
// set dt_t 3864 (bike HUD, 700x220)
|
|
// set dt_a 100
|
|
// set dt_z 1280000 <- CRASH!
|
|
Bassert((unsigned)dax1 < MAXXDIM && (unsigned)dax2 < MAXXDIM+1);
|
|
qinterpolatedown16short((intptr_t)&uplc[dax1], dax2-dax1, yplc, yinc);
|
|
}
|
|
else
|
|
{
|
|
yplc = y2 + mulscale16((dax2<<16)+65535-x2,yinc);
|
|
Bassert((unsigned)dax2 < MAXXDIM && (unsigned)dax1 < MAXXDIM+1);
|
|
qinterpolatedown16short((intptr_t)&dplc[dax2], dax1-dax2, yplc, yinc);
|
|
}
|
|
}
|
|
nextv = v;
|
|
}
|
|
|
|
if (waloff[picnum] == 0) loadtile(picnum);
|
|
setgotpic(picnum);
|
|
bufplc = waloff[picnum];
|
|
|
|
if (palookup[dapalnum] == NULL) dapalnum = 0;
|
|
palookupoffs = FP_OFF(palookup[dapalnum]) + (getpalookup(0, dashade)<<8);
|
|
|
|
// Alpha handling
|
|
if (daalpha > 0)
|
|
{
|
|
if (daalpha == 255)
|
|
return;
|
|
|
|
if (numalphatabs != 0)
|
|
{
|
|
dablend = falpha_to_blend((float)daalpha / 255.0f, &dastat, RS_TRANS1, RS_TRANS2);
|
|
}
|
|
else if (daalpha > 84)
|
|
{
|
|
if ((dastat & RS_TRANS1) && daalpha > 127) // this covers the multiplicative aspect used in the Polymodes
|
|
dastat |= RS_TRANS2;
|
|
|
|
dastat |= RS_TRANS1;
|
|
|
|
if (daalpha > 168)
|
|
dastat |= RS_TRANS2;
|
|
}
|
|
}
|
|
|
|
i = divscale32(1L,z);
|
|
xv = mulscale14(sinang,i);
|
|
yv = mulscale14(cosang,i);
|
|
if ((dastat&RS_AUTO) || (dastat&RS_NOCLIP)==0) //Don't aspect unscaled perms
|
|
{
|
|
yv2 = mulscale16(-xv,ouryxaspect);
|
|
xv2 = mulscale16(yv,ouryxaspect);
|
|
}
|
|
else
|
|
{
|
|
yv2 = -xv;
|
|
xv2 = yv;
|
|
}
|
|
|
|
x1 = (lx>>16);
|
|
x2 = (rx>>16);
|
|
|
|
oy = 0;
|
|
x = (x1<<16)-1-gx1;
|
|
y = (oy<<16)+65535-gy1;
|
|
bx = dmulscale16(x,xv2,y,xv);
|
|
by = dmulscale16(x,yv2,y,yv);
|
|
|
|
if (dastat & RS_YFLIP)
|
|
{
|
|
yv = -yv;
|
|
yv2 = -yv2;
|
|
by = (ysiz<<16)-1-by;
|
|
}
|
|
|
|
#if defined ENGINE_USING_A_C
|
|
if ((dastat&RS_TRANS1)==0 && ((a&1023) == 0) && (ysiz <= 256)) //vlineasm4 has 256 high limit!
|
|
#else
|
|
if ((dastat&RS_TRANS1) == 0)
|
|
#endif
|
|
{
|
|
int32_t y1ve[4], y2ve[4], u4, d4;
|
|
|
|
if (((a&1023) == 0) && (ysiz <= 256)) //vlineasm4 has 256 high limit!
|
|
{
|
|
if (dastat & RS_NOMASK)
|
|
setupvlineasm(24L);
|
|
else
|
|
setupmvlineasm(24L, 0);
|
|
|
|
by <<= 8; yv <<= 8; yv2 <<= 8;
|
|
|
|
palookupoffse[0] = palookupoffse[1] = palookupoffse[2] = palookupoffse[3] = palookupoffs;
|
|
vince[0] = vince[1] = vince[2] = vince[3] = yv;
|
|
|
|
for (x=x1; x<x2; x+=4)
|
|
{
|
|
char bad;
|
|
int32_t xx, xend;
|
|
|
|
bad = 15; xend = min(x2-x,4);
|
|
for (xx=0; xx<xend; xx++)
|
|
{
|
|
bx += xv2;
|
|
|
|
y1 = uplc[x+xx]; y2 = dplc[x+xx];
|
|
if ((dastat & RS_NOCLIP) == 0)
|
|
{
|
|
if (startumost[x+xx] > y1) y1 = startumost[x+xx];
|
|
if (startdmost[x+xx] < y2) y2 = startdmost[x+xx];
|
|
}
|
|
if (y2 <= y1) continue;
|
|
|
|
by += (uint32_t)yv*(y1-oy); oy = y1;
|
|
|
|
// Assertion would fail with DNF mod without (uint32_t) below: in mapster32,
|
|
// set dt_t 3864 (bike HUD, 700x220)
|
|
// set dt_z 16777216
|
|
// <Increase yxaspect by pressing [9]> <-- CRASH!
|
|
// (It also fails when wrecking the bike in-game by driving into a wall.)
|
|
// Bassert(bx >= 0);
|
|
|
|
bufplce[xx] = ((uint32_t)bx>>16)*ysiz+bufplc;
|
|
vplce[xx] = by;
|
|
y1ve[xx] = y1;
|
|
y2ve[xx] = y2-1;
|
|
bad &= ~pow2char[xx];
|
|
}
|
|
|
|
p = x+frameplace;
|
|
|
|
u4 = INT32_MIN;
|
|
d4 = INT32_MAX;
|
|
for (xx=0; xx<4; xx++)
|
|
if (!(bad&pow2char[xx]))
|
|
{
|
|
u4 = max(u4, y1ve[xx]);
|
|
d4 = min(d4, y2ve[xx]);
|
|
}
|
|
// This version may access uninitialized y?ve[] values with
|
|
// thin tiles, e.g. 3085 (MINIFONT period, 1x5):
|
|
// u4 = max(max(y1ve[0],y1ve[1]),max(y1ve[2],y1ve[3]));
|
|
// d4 = min(min(y2ve[0],y2ve[1]),min(y2ve[2],y2ve[3]));
|
|
|
|
if (dastat & RS_NOMASK)
|
|
{
|
|
if ((bad != 0) || (u4 >= d4))
|
|
{
|
|
if (!(bad&1)) prevlineasm1(vince[0],palookupoffse[0],y2ve[0]-y1ve[0],vplce[0],bufplce[0],ylookup[y1ve[0]]+p+0);
|
|
if (!(bad&2)) prevlineasm1(vince[1],palookupoffse[1],y2ve[1]-y1ve[1],vplce[1],bufplce[1],ylookup[y1ve[1]]+p+1);
|
|
if (!(bad&4)) prevlineasm1(vince[2],palookupoffse[2],y2ve[2]-y1ve[2],vplce[2],bufplce[2],ylookup[y1ve[2]]+p+2);
|
|
if (!(bad&8)) prevlineasm1(vince[3],palookupoffse[3],y2ve[3]-y1ve[3],vplce[3],bufplce[3],ylookup[y1ve[3]]+p+3);
|
|
continue;
|
|
}
|
|
|
|
if (u4 > y1ve[0]) vplce[0] = prevlineasm1(vince[0],palookupoffse[0],u4-y1ve[0]-1,vplce[0],bufplce[0],ylookup[y1ve[0]]+p+0);
|
|
if (u4 > y1ve[1]) vplce[1] = prevlineasm1(vince[1],palookupoffse[1],u4-y1ve[1]-1,vplce[1],bufplce[1],ylookup[y1ve[1]]+p+1);
|
|
if (u4 > y1ve[2]) vplce[2] = prevlineasm1(vince[2],palookupoffse[2],u4-y1ve[2]-1,vplce[2],bufplce[2],ylookup[y1ve[2]]+p+2);
|
|
if (u4 > y1ve[3]) vplce[3] = prevlineasm1(vince[3],palookupoffse[3],u4-y1ve[3]-1,vplce[3],bufplce[3],ylookup[y1ve[3]]+p+3);
|
|
|
|
if (d4 >= u4) vlineasm4(d4-u4+1, (char *)(ylookup[u4]+p));
|
|
|
|
i = p+ylookup[d4+1];
|
|
if (y2ve[0] > d4) prevlineasm1(vince[0],palookupoffse[0],y2ve[0]-d4-1,vplce[0],bufplce[0],i+0);
|
|
if (y2ve[1] > d4) prevlineasm1(vince[1],palookupoffse[1],y2ve[1]-d4-1,vplce[1],bufplce[1],i+1);
|
|
if (y2ve[2] > d4) prevlineasm1(vince[2],palookupoffse[2],y2ve[2]-d4-1,vplce[2],bufplce[2],i+2);
|
|
if (y2ve[3] > d4) prevlineasm1(vince[3],palookupoffse[3],y2ve[3]-d4-1,vplce[3],bufplce[3],i+3);
|
|
}
|
|
else
|
|
{
|
|
if ((bad != 0) || (u4 >= d4))
|
|
{
|
|
if (!(bad&1)) mvlineasm1(vince[0],palookupoffse[0],y2ve[0]-y1ve[0],vplce[0],bufplce[0],ylookup[y1ve[0]]+p+0);
|
|
if (!(bad&2)) mvlineasm1(vince[1],palookupoffse[1],y2ve[1]-y1ve[1],vplce[1],bufplce[1],ylookup[y1ve[1]]+p+1);
|
|
if (!(bad&4)) mvlineasm1(vince[2],palookupoffse[2],y2ve[2]-y1ve[2],vplce[2],bufplce[2],ylookup[y1ve[2]]+p+2);
|
|
if (!(bad&8)) mvlineasm1(vince[3],palookupoffse[3],y2ve[3]-y1ve[3],vplce[3],bufplce[3],ylookup[y1ve[3]]+p+3);
|
|
continue;
|
|
}
|
|
|
|
if (u4 > y1ve[0]) vplce[0] = mvlineasm1(vince[0],palookupoffse[0],u4-y1ve[0]-1,vplce[0],bufplce[0],ylookup[y1ve[0]]+p+0);
|
|
if (u4 > y1ve[1]) vplce[1] = mvlineasm1(vince[1],palookupoffse[1],u4-y1ve[1]-1,vplce[1],bufplce[1],ylookup[y1ve[1]]+p+1);
|
|
if (u4 > y1ve[2]) vplce[2] = mvlineasm1(vince[2],palookupoffse[2],u4-y1ve[2]-1,vplce[2],bufplce[2],ylookup[y1ve[2]]+p+2);
|
|
if (u4 > y1ve[3]) vplce[3] = mvlineasm1(vince[3],palookupoffse[3],u4-y1ve[3]-1,vplce[3],bufplce[3],ylookup[y1ve[3]]+p+3);
|
|
|
|
if (d4 >= u4) mvlineasm4(d4-u4+1, (char *)(ylookup[u4]+p));
|
|
|
|
i = p+ylookup[d4+1];
|
|
if (y2ve[0] > d4) mvlineasm1(vince[0],palookupoffse[0],y2ve[0]-d4-1,vplce[0],bufplce[0],i+0);
|
|
if (y2ve[1] > d4) mvlineasm1(vince[1],palookupoffse[1],y2ve[1]-d4-1,vplce[1],bufplce[1],i+1);
|
|
if (y2ve[2] > d4) mvlineasm1(vince[2],palookupoffse[2],y2ve[2]-d4-1,vplce[2],bufplce[2],i+2);
|
|
if (y2ve[3] > d4) mvlineasm1(vince[3],palookupoffse[3],y2ve[3]-d4-1,vplce[3],bufplce[3],i+3);
|
|
}
|
|
|
|
faketimerhandler();
|
|
}
|
|
}
|
|
#ifndef ENGINE_USING_A_C
|
|
else
|
|
{
|
|
int32_t ny1, ny2;
|
|
int32_t qlinemode = 0;
|
|
|
|
if (dastat & RS_NOMASK)
|
|
{
|
|
if ((xv2&0x0000ffff) == 0)
|
|
{
|
|
qlinemode = 1;
|
|
setupqrhlineasm4(0L,yv2<<16,(xv2>>16)*ysiz+(yv2>>16),palookupoffs,0L,0L);
|
|
}
|
|
else
|
|
{
|
|
qlinemode = 0;
|
|
setuprhlineasm4(xv2<<16,yv2<<16,(xv2>>16)*ysiz+(yv2>>16),palookupoffs,ysiz,0L);
|
|
}
|
|
}
|
|
else
|
|
setuprmhlineasm4(xv2<<16,yv2<<16,(xv2>>16)*ysiz+(yv2>>16),palookupoffs,ysiz,0L);
|
|
|
|
y1 = uplc[x1];
|
|
if (((dastat & RS_NOCLIP) == 0) && startumost[x1] > y1)
|
|
y1 = startumost[x1];
|
|
y2 = y1;
|
|
for (x=x1; x<x2; x++)
|
|
{
|
|
ny1 = uplc[x]-1; ny2 = dplc[x];
|
|
if ((dastat & RS_NOCLIP) == 0)
|
|
{
|
|
if (startumost[x]-1 > ny1) ny1 = startumost[x]-1;
|
|
if (startdmost[x] < ny2) ny2 = startdmost[x];
|
|
}
|
|
|
|
if (ny1 < ny2-1)
|
|
{
|
|
if (ny1 >= y2)
|
|
{
|
|
while (y1 < y2-1)
|
|
{
|
|
y1++; if ((y1&31) == 0) faketimerhandler();
|
|
|
|
//x,y1
|
|
bx += xv*(y1-oy); by += yv*(y1-oy); oy = y1;
|
|
if (dastat & RS_NOMASK)
|
|
{
|
|
if (qlinemode) qrhlineasm4(x-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,0L ,by<<16,ylookup[y1]+x+frameplace);
|
|
else rhlineasm4(x-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,bx<<16,by<<16,ylookup[y1]+x+frameplace);
|
|
}
|
|
else rmhlineasm4(x-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,bx<<16,by<<16,ylookup[y1]+x+frameplace);
|
|
}
|
|
y1 = ny1;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < ny1)
|
|
{
|
|
y1++; if ((y1&31) == 0) faketimerhandler();
|
|
|
|
//x,y1
|
|
bx += xv*(y1-oy); by += yv*(y1-oy); oy = y1;
|
|
if (dastat & RS_NOMASK)
|
|
{
|
|
if (qlinemode) qrhlineasm4(x-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,0L ,by<<16,ylookup[y1]+x+frameplace);
|
|
else rhlineasm4(x-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,bx<<16,by<<16,ylookup[y1]+x+frameplace);
|
|
}
|
|
else rmhlineasm4(x-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,bx<<16,by<<16,ylookup[y1]+x+frameplace);
|
|
}
|
|
|
|
while (y1 > ny1) lastx[y1--] = x;
|
|
}
|
|
|
|
while (y2 > ny2)
|
|
{
|
|
y2--; if ((y2&31) == 0) faketimerhandler();
|
|
|
|
//x,y2
|
|
bx += xv*(y2-oy); by += yv*(y2-oy); oy = y2;
|
|
if (dastat & RS_NOMASK)
|
|
{
|
|
if (qlinemode) qrhlineasm4(x-lastx[y2],(bx>>16)*ysiz+(by>>16)+bufplc,0L,0L ,by<<16,ylookup[y2]+x+frameplace);
|
|
else rhlineasm4(x-lastx[y2],(bx>>16)*ysiz+(by>>16)+bufplc,0L,bx<<16,by<<16,ylookup[y2]+x+frameplace);
|
|
}
|
|
else rmhlineasm4(x-lastx[y2],(bx>>16)*ysiz+(by>>16)+bufplc,0L,bx<<16,by<<16,ylookup[y2]+x+frameplace);
|
|
}
|
|
|
|
while (y2 < ny2) lastx[y2++] = x;
|
|
}
|
|
else
|
|
{
|
|
while (y1 < y2-1)
|
|
{
|
|
y1++; if ((y1&31) == 0) faketimerhandler();
|
|
|
|
//x,y1
|
|
bx += xv*(y1-oy); by += yv*(y1-oy); oy = y1;
|
|
if (dastat & RS_NOMASK)
|
|
{
|
|
if (qlinemode) qrhlineasm4(x-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,0L ,by<<16,ylookup[y1]+x+frameplace);
|
|
else rhlineasm4(x-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,bx<<16,by<<16,ylookup[y1]+x+frameplace);
|
|
}
|
|
else rmhlineasm4(x-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,bx<<16,by<<16,ylookup[y1]+x+frameplace);
|
|
}
|
|
|
|
if (x == x2-1) { bx += xv2; by += yv2; break; }
|
|
y1 = uplc[x+1];
|
|
if (((dastat & RS_NOCLIP) == 0) && startumost[x+1] > y1)
|
|
y1 = startumost[x+1];
|
|
y2 = y1;
|
|
}
|
|
bx += xv2; by += yv2;
|
|
}
|
|
|
|
while (y1 < y2-1)
|
|
{
|
|
y1++; if ((y1&31) == 0) faketimerhandler();
|
|
|
|
//x2,y1
|
|
bx += xv*(y1-oy); by += yv*(y1-oy); oy = y1;
|
|
if (dastat & RS_NOMASK)
|
|
{
|
|
if (qlinemode) qrhlineasm4(x2-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,0L,by<<16,ylookup[y1]+x2+frameplace);
|
|
else rhlineasm4(x2-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,bx<<16,by<<16,ylookup[y1]+x2+frameplace);
|
|
}
|
|
else rmhlineasm4(x2-lastx[y1],(bx>>16)*ysiz+(by>>16)+bufplc,0L,bx<<16,by<<16,ylookup[y1]+x2+frameplace);
|
|
}
|
|
}
|
|
#endif // !defined ENGINE_USING_A_C
|
|
}
|
|
else
|
|
{
|
|
if ((dastat & RS_TRANS1) == 0)
|
|
{
|
|
#if !defined ENGINE_USING_A_C
|
|
if (dastat & RS_NOMASK)
|
|
setupspritevline(palookupoffs,(xv>>16)*ysiz,xv<<16,ysiz,yv,0L);
|
|
else
|
|
msetupspritevline(palookupoffs,(xv>>16)*ysiz,xv<<16,ysiz,yv,0L);
|
|
#else
|
|
if (dastat & RS_NOMASK)
|
|
setupspritevline(palookupoffs,xv,yv,ysiz);
|
|
else
|
|
msetupspritevline(palookupoffs,xv,yv,ysiz);
|
|
#endif
|
|
}
|
|
else
|
|
{
|
|
#if !defined ENGINE_USING_A_C
|
|
tsetupspritevline(palookupoffs,(xv>>16)*ysiz,xv<<16,ysiz,yv,0L);
|
|
#else
|
|
tsetupspritevline(palookupoffs,xv,yv,ysiz);
|
|
#endif
|
|
setup_blend(dablend, dastat & RS_TRANS2);
|
|
}
|
|
|
|
for (x=x1; x<x2; x++)
|
|
{
|
|
bx += xv2; by += yv2;
|
|
|
|
y1 = uplc[x]; y2 = dplc[x];
|
|
if ((dastat & RS_NOCLIP) == 0)
|
|
{
|
|
if (startumost[x] > y1) y1 = startumost[x];
|
|
if (startdmost[x] < y2) y2 = startdmost[x];
|
|
}
|
|
if (y2 <= y1) continue;
|
|
|
|
switch (y1-oy)
|
|
{
|
|
case -1:
|
|
bx -= xv; by -= yv; oy = y1; break;
|
|
case 0:
|
|
break;
|
|
case 1:
|
|
bx += xv; by += yv; oy = y1; break;
|
|
default:
|
|
bx += xv*(y1-oy); by += yv*(y1-oy); oy = y1; break;
|
|
}
|
|
|
|
p = ylookup[y1]+x+frameplace;
|
|
|
|
if ((dastat & RS_TRANS1) == 0)
|
|
{
|
|
#if !defined ENGINE_USING_A_C
|
|
if (dastat & RS_NOMASK)
|
|
spritevline(0L,by<<16,y2-y1+1,bx<<16,(bx>>16)*ysiz+(by>>16)+bufplc,p);
|
|
else
|
|
mspritevline(0L,by<<16,y2-y1+1,bx<<16,(bx>>16)*ysiz+(by>>16)+bufplc,p);
|
|
#else
|
|
if (dastat & RS_NOMASK)
|
|
spritevline(bx&65535,by&65535,y2-y1+1,(bx>>16)*ysiz+(by>>16)+bufplc,p);
|
|
else
|
|
mspritevline(bx&65535,by&65535,y2-y1+1,(bx>>16)*ysiz+(by>>16)+bufplc,p);
|
|
#endif
|
|
}
|
|
else
|
|
{
|
|
#if !defined ENGINE_USING_A_C
|
|
tspritevline(0L,by<<16,y2-y1+1,bx<<16,(bx>>16)*ysiz+(by>>16)+bufplc,p);
|
|
#else
|
|
tspritevline(bx&65535,by&65535,y2-y1+1,(bx>>16)*ysiz+(by>>16)+bufplc,p);
|
|
//transarea += (y2-y1);
|
|
#endif
|
|
}
|
|
|
|
faketimerhandler();
|
|
}
|
|
}
|
|
|
|
/* if ((dastat & RS_PERM) && (origbuffermode == 0))
|
|
{
|
|
buffermode = obuffermode;
|
|
setactivepage(activepage);
|
|
}*/
|
|
}
|
|
|
|
|
|
//
|
|
// initksqrt (internal)
|
|
//
|
|
static inline void initksqrt(void)
|
|
{
|
|
int32_t i, j, k;
|
|
|
|
j = 1; k = 0;
|
|
for (i=0; i<4096; i++)
|
|
{
|
|
if (i >= j) { j <<= 2; k++; }
|
|
sqrtable[i] = (uint16_t)(msqrtasm((i<<18)+131072)<<1);
|
|
shlookup[i] = (k<<1)+((10-k)<<8);
|
|
if (i < 256) shlookup[i+4096] = ((k+6)<<1)+((10-(k+6))<<8);
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// dosetaspect
|
|
//
|
|
static void dosetaspect(void)
|
|
{
|
|
int32_t i, j;
|
|
|
|
if (xyaspect != oxyaspect)
|
|
{
|
|
oxyaspect = xyaspect;
|
|
j = xyaspect*320;
|
|
horizlookup2[horizycent-1] = divscale26(131072,j);
|
|
for (i=0; i < horizycent-1; i++)
|
|
{
|
|
horizlookup[i] = divscale28(1, i-(horizycent-1));
|
|
horizlookup2[i] = divscale14(klabs(horizlookup[i]), j);
|
|
}
|
|
|
|
for (i=horizycent; i < ydim*4-1; i++)
|
|
{
|
|
horizlookup[i] = divscale28(1, i-(horizycent-1));
|
|
horizlookup2[i] = divscale14(klabs(horizlookup[i]), j);
|
|
}
|
|
}
|
|
|
|
if (xdimen != oxdimen || viewingrange != oviewingrange)
|
|
{
|
|
int32_t k, x, xinc;
|
|
|
|
no_radarang2 = 0;
|
|
oviewingrange = viewingrange;
|
|
|
|
xinc = mulscale32(viewingrange*320,xdimenrecip);
|
|
x = (640<<16)-mulscale1(xinc,xdimen);
|
|
|
|
for (i=0; i<xdimen; i++)
|
|
{
|
|
j = (x&65535); k = (x>>16); x += xinc;
|
|
|
|
if (k < 0 || k >= (int32_t)ARRAY_SIZE(radarang)-1)
|
|
{
|
|
no_radarang2 = 1;
|
|
#ifdef DEBUGGINGAIDS
|
|
if (editstatus)
|
|
initprintf("no rad2\n");
|
|
#endif
|
|
break;
|
|
}
|
|
|
|
if (j != 0)
|
|
j = mulscale16(radarang[k+1]-radarang[k], j);
|
|
radarang2[i] = (int16_t)((radarang[k]+j)>>6);
|
|
}
|
|
|
|
if (xdimen != oxdimen)
|
|
{
|
|
EDUKE32_STATIC_ASSERT((uint64_t) MAXXDIM*(ARRAY_SIZE(distrecip)-1) <= INT32_MAX);
|
|
|
|
i = 1;
|
|
|
|
#ifdef CLASSIC_SLICE_BY_4
|
|
for (; i<(int32_t) ARRAY_SIZE(distrecip)-4; i+=4)
|
|
{
|
|
distrecip[i] = (xdimen * i)>>20;
|
|
distrecip[i+1] = (xdimen * (i+1))>>20;
|
|
distrecip[i+2] = (xdimen * (i+2))>>20;
|
|
distrecip[i+3] = (xdimen * (i+3))>>20;
|
|
}
|
|
#endif
|
|
for (; i<(int32_t) ARRAY_SIZE(distrecip); i++)
|
|
distrecip[i] = (xdimen * i)>>20;
|
|
|
|
nytooclose = xdimen*2100;
|
|
}
|
|
|
|
oxdimen = xdimen;
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// loadtables (internal)
|
|
//
|
|
static inline void calcbritable(void)
|
|
{
|
|
int32_t i, j;
|
|
float a, b;
|
|
|
|
for (i=0; i<16; i++)
|
|
{
|
|
a = 8.f / ((float)i+8.f);
|
|
b = 255.f / powf(255.f, a);
|
|
|
|
for (j=0; j<256; j++) // JBF 20040207: full 8bit precision
|
|
britable[i][j] = (uint8_t) (powf((float)j, a) * b);
|
|
}
|
|
}
|
|
|
|
#define BANG2RAD ((float)PI * (1.f/1024.f))
|
|
|
|
static int32_t loadtables(void)
|
|
{
|
|
static char tablesloaded = 0;
|
|
|
|
if (tablesloaded == 0)
|
|
{
|
|
int32_t i;
|
|
libdivide_s64_t d;
|
|
libdivide_s32_t d32;
|
|
|
|
initksqrt();
|
|
|
|
for (i=1; i<DIVTABLESIZE; i++)
|
|
{
|
|
d = libdivide_s64_gen(i);
|
|
divtable64[i].magic = d.magic, divtable64[i].more = d.more;
|
|
d32 = libdivide_s32_gen(i);
|
|
divtable32[i].magic = d32.magic, divtable32[i].more = d32.more;
|
|
}
|
|
|
|
for (i=0; i<2048; i++)
|
|
reciptable[i] = divscale30(2048, i+2048);
|
|
|
|
for (i=0; i<=512; i++)
|
|
sintable[i] = (int16_t)(16384.f * sinf((float)i * BANG2RAD));
|
|
for (i=513; i<1024; i++)
|
|
sintable[i] = sintable[1024-i];
|
|
for (i=1024; i<2048; i++)
|
|
sintable[i] = -sintable[i-1024];
|
|
|
|
for (i=0; i<640; i++)
|
|
radarang[i] = (int16_t)(atanf(((float)(640-i)-0.5f) * (1.f/160.f)) * (-64.f * (1.f/BANG2RAD)));
|
|
for (i=0; i<640; i++)
|
|
radarang[1279-i] = -radarang[i];
|
|
|
|
#ifdef B_LITTLE_ENDIAN
|
|
i = 0;
|
|
if (Bcrc32((uint8_t *)sintable, sizeof(sintable), 0) != 0xee1e7aba)
|
|
i |= 1;
|
|
if (Bcrc32((uint8_t *)radarang, 640*sizeof(radarang[0]), 0) != 0xee893d92)
|
|
i |= 2;
|
|
|
|
if (i != 0)
|
|
{
|
|
static const char *str[3] = { "sine table", "arctangent table",
|
|
"sine and arctangent tables" };
|
|
initprintf("WARNING: Calculated %s differ%s from original!\n",
|
|
str[i-1], i==3 ? "" : "s");
|
|
}
|
|
#endif
|
|
// TABLES.DAT format:
|
|
//kread(fil,sintable,2048*2);
|
|
//kread(fil,radarang,640*2);
|
|
//kread(fil,textfont,1024);
|
|
//kread(fil,smalltextfont,1024);
|
|
//kread(fil,britable,1024);
|
|
|
|
calcbritable();
|
|
|
|
tablesloaded = 1;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
//
|
|
// initfastcolorlookup (internal)
|
|
//
|
|
static void initfastcolorlookup(int32_t rscale, int32_t gscale, int32_t bscale)
|
|
{
|
|
int32_t i, j, x, y, z;
|
|
const char *pal1;
|
|
|
|
j = 0;
|
|
for (i=64; i>=0; i--)
|
|
{
|
|
//j = (i-64)*(i-64);
|
|
rdist[i] = rdist[128-i] = j*rscale;
|
|
gdist[i] = gdist[128-i] = j*gscale;
|
|
bdist[i] = bdist[128-i] = j*bscale;
|
|
j += 129-(i<<1);
|
|
}
|
|
|
|
Bmemset(colhere,0,sizeof(colhere));
|
|
Bmemset(colhead,0,sizeof(colhead));
|
|
|
|
pal1 = (char *)&palette[768-3];
|
|
for (i=255; i>=0; i--,pal1-=3)
|
|
{
|
|
j = (pal1[0]>>3)*FASTPALGRIDSIZ*FASTPALGRIDSIZ
|
|
+ (pal1[1]>>3)*FASTPALGRIDSIZ + (pal1[2]>>3)
|
|
+ FASTPALGRIDSIZ*FASTPALGRIDSIZ + FASTPALGRIDSIZ+1;
|
|
if (colhere[j>>3]&pow2char[j&7]) colnext[i] = colhead[j]; else colnext[i] = -1;
|
|
colhead[j] = i;
|
|
colhere[j>>3] |= pow2char[j&7];
|
|
}
|
|
|
|
i = 0;
|
|
for (x=-FASTPALGRIDSIZ*FASTPALGRIDSIZ; x<=FASTPALGRIDSIZ*FASTPALGRIDSIZ; x+=FASTPALGRIDSIZ*FASTPALGRIDSIZ)
|
|
for (y=-FASTPALGRIDSIZ; y<=FASTPALGRIDSIZ; y+=FASTPALGRIDSIZ)
|
|
for (z=-1; z<=1; z++)
|
|
colscan[i++] = x+y+z;
|
|
i = colscan[13]; colscan[13] = colscan[26]; colscan[26] = i;
|
|
}
|
|
|
|
|
|
static void alloc_palookup(int32_t pal)
|
|
{
|
|
#if defined ENGINE_USING_A_C || (defined CLASSIC_NONPOW2_YSIZE_WALLS && defined CLASSIC_NONPOW2_YSIZE_SPRITES)
|
|
palookup[pal] = (char *)Xmalloc(numshades*256);
|
|
#else
|
|
// The asm functions vlineasm1, mvlineasm1 (maybe others?) access the next
|
|
// palookup[...] shade entry for tilesizy==512 tiles.
|
|
// See DEBUG_TILESIZY_512 and the comment in a.nasm: vlineasm1.
|
|
palookup[pal] = (char *)Xcalloc(numshades+1, 256);
|
|
#endif
|
|
}
|
|
|
|
static int32_t loadpalette_err(const char *msg)
|
|
{
|
|
engineerrstr = msg;
|
|
initprintf("ERROR: %s\n", engineerrstr);
|
|
return -1;
|
|
}
|
|
|
|
//
|
|
// loadpalette (internal)
|
|
//
|
|
static int32_t loadpalette(void)
|
|
{
|
|
int32_t fil, lamedukep=0;
|
|
char *transluc;
|
|
|
|
if (paletteloaded != 0) return 0;
|
|
if ((fil = kopen4load("palette.dat",0)) == -1)
|
|
return loadpalette_err("Failed to load \"palette.dat\"!");
|
|
|
|
kread(fil,palette,768);
|
|
kread(fil,&numshades,2); numshades = B_LITTLE16(numshades);
|
|
|
|
if (numshades <= 1)
|
|
return loadpalette_err("Invalid number of shades in \"palette.dat\"!");
|
|
|
|
alloc_palookup(0);
|
|
|
|
transluc = (char *)Xcalloc(256, 256);
|
|
|
|
globalpalwritten = palookup[0]; globalpal = 0;
|
|
setpalookupaddress(globalpalwritten);
|
|
|
|
blendtable[0] = transluc;
|
|
fixtransluscence(FP_OFF(transluc));
|
|
|
|
// Auto-detect LameDuke. Its PALETTE.DAT doesn't have a 'numshades' 16-bit
|
|
// int after the base palette, but starts directly with the shade tables.
|
|
// Thus, the first two bytes will be 00 01, which is 256 if read as
|
|
// little-endian int16_t.
|
|
if (numshades == 256)
|
|
{
|
|
if (klseek(fil, -2, BSEEK_CUR) < 0)
|
|
return loadpalette_err("klseek() failed in loadpalette()!");
|
|
|
|
numshades = 32;
|
|
lamedukep = 1;
|
|
}
|
|
|
|
// Read base shade table (palookup 0).
|
|
kread(fil, palookup[globalpal], numshades<<8);
|
|
|
|
// Read translucency (blending) table.
|
|
if (lamedukep)
|
|
{
|
|
int32_t i, j;
|
|
|
|
for (i=0; i<255; i++)
|
|
{
|
|
// NOTE: LameDuke's table doesn't have the last row or column (i==255).
|
|
|
|
// Read the entries above and on the diagonal, if the table is
|
|
// thought as being row-major.
|
|
if (kread(fil, &transluc[256*i + i], 256-i-1) != 256-i-1)
|
|
return loadpalette_err("Failed reading LameDuke translucency table!");
|
|
|
|
// Duplicate the entries below the diagonal.
|
|
for (j=0; j<i; j++)
|
|
transluc[256*i + j] = transluc[256*j + i];
|
|
}
|
|
}
|
|
else
|
|
{
|
|
int32_t i, n;
|
|
uint8_t magic[12];
|
|
|
|
if (kread(fil, transluc, 65536) != 65536)
|
|
return loadpalette_err("Failed reading translucency table!");
|
|
|
|
n = kread(fil, magic, (int32_t)sizeof(magic));
|
|
if (n == (int32_t)sizeof(magic) && !Bmemcmp(magic, "MoreBlendTab", sizeof(magic)))
|
|
{
|
|
// Read in additional blending tables.
|
|
uint8_t addblendtabs, blendnum;
|
|
char *tab = (char *)Xmalloc(256*256);
|
|
|
|
if (kread(fil, &addblendtabs, 1) != 1)
|
|
return loadpalette_err("failed reading additional blending table count");
|
|
|
|
for (i=0; i<addblendtabs; i++)
|
|
{
|
|
static char dup_blendnum_errmsg[] = "duplicate blending table index ??? encountered";
|
|
|
|
if (kread(fil, &blendnum, 1) != 1)
|
|
return loadpalette_err("failed reading additional blending table index");
|
|
|
|
if (getblendtab(blendnum) != NULL)
|
|
{
|
|
char *cp = Bstrchr(dup_blendnum_errmsg, '?');
|
|
Bsprintf(cp, "%3d", blendnum);
|
|
cp[3] = ' ';
|
|
return loadpalette_err(dup_blendnum_errmsg);
|
|
}
|
|
|
|
if (kread(fil, tab, 256*256) != 256*256)
|
|
return loadpalette_err("failed reading additional blending table");
|
|
|
|
setblendtab(blendnum, tab);
|
|
}
|
|
|
|
Bfree(tab);
|
|
|
|
// Read log2 of count of alpha blending tables.
|
|
{
|
|
uint8_t lognumalphatabs;
|
|
|
|
if (kread(fil, &lognumalphatabs, 1) == 1)
|
|
{
|
|
if (!(lognumalphatabs >= 1 && lognumalphatabs <= 7))
|
|
return loadpalette_err("invalid lognumalphatabs value, must be in [1 .. 7]");
|
|
numalphatabs = 1<<lognumalphatabs;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
kclose(fil);
|
|
|
|
#ifdef DEBUG_TILESIZY_512
|
|
{
|
|
int32_t i;
|
|
// Bump shade 1 by 16.
|
|
for (i=256; i<512; i++)
|
|
palookup[0][i] = palookup[0][i+(16<<8)];
|
|
}
|
|
#endif
|
|
|
|
// If Duke3D 1.5 GRP or LameDuke, ...
|
|
if (Bcrc32((uint8_t *)transluc, 65536, 0)==0x94a1fac6 || lamedukep)
|
|
{
|
|
int32_t i;
|
|
// ... fix up translucency table so that transluc(255,x)
|
|
// and transluc(x,255) is black instead of purple.
|
|
for (i=0; i<256; i++)
|
|
{
|
|
transluc[(255<<8) + i] = transluc[i];
|
|
transluc[255 + (i<<8)] = transluc[i<<8];
|
|
}
|
|
}
|
|
|
|
initfastcolorlookup(30, 59, 11);
|
|
|
|
{
|
|
int32_t i, j, k = 0;
|
|
for (i=0; i<256; i++)
|
|
{
|
|
j = palette[i*3] + palette[i*3+1] + palette[i*3+2];
|
|
if (j > k) { k = j; whitecol = i; }
|
|
}
|
|
}
|
|
|
|
paletteloaded = 1;
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Load LOOKUP.DAT, which contains lookup tables and additional base palettes.
|
|
//
|
|
// <fp>: kopen4load file handle
|
|
//
|
|
// Returns:
|
|
// - on success, 0
|
|
// - on error, -1 (didn't read enough data)
|
|
// - -2: error, we already wrote an error message ourselves
|
|
int32_t loadlookups(int32_t fp)
|
|
{
|
|
uint8_t numlookups;
|
|
char remapbuf[256];
|
|
int32_t j;
|
|
|
|
if (kread(fp, &numlookups, 1) != 1)
|
|
return -1;
|
|
|
|
for (j=0; j<numlookups; j++)
|
|
{
|
|
uint8_t palnum;
|
|
|
|
if (kread(fp, &palnum, 1) != 1)
|
|
return -1;
|
|
|
|
if (palnum >= 256-RESERVEDPALS)
|
|
{
|
|
initprintf("ERROR: attempt to load lookup at reserved pal %d\n", palnum);
|
|
return -2;
|
|
}
|
|
|
|
if (kread(fp, remapbuf, 256) != 256)
|
|
return -1;
|
|
|
|
makepalookup(palnum, remapbuf, 0,0,0, 1);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Returns:
|
|
// - if generated fog shade tables, their first palnum P (fog pals are [P .. P+3])
|
|
// - if didn't (no room), 0
|
|
int32_t generatefogpals(void)
|
|
{
|
|
int32_t j, firstfogpal=0;
|
|
|
|
// Find a gap of four consecutive unused pal numbers to generate fog shade tables.
|
|
for (j=1; j<=255-3; j++)
|
|
if (!palookup[j] && !palookup[j+1] && !palookup[j+2] && !palookup[j+3])
|
|
{
|
|
makepalookup(j, NULL, 15, 15, 15, 1);
|
|
makepalookup(j+1, NULL, 15, 0, 0, 1);
|
|
makepalookup(j+2, NULL, 0, 15, 0, 1);
|
|
makepalookup(j+3, NULL, 0, 0, 15, 1);
|
|
|
|
firstfogpal = j;
|
|
break;
|
|
}
|
|
|
|
return firstfogpal;
|
|
}
|
|
|
|
void fillemptylookups(void)
|
|
{
|
|
int32_t j;
|
|
|
|
// Alias remaining unused pal numbers to the base shade table.
|
|
for (j=1; j<MAXPALOOKUPS; j++)
|
|
if (!palookup[j])
|
|
makepalookup(j, NULL, 0,0,0, 1);
|
|
}
|
|
|
|
// Finds a color index in [0 .. lastokcol] closest to (r, g, b).
|
|
// <lastokcol> must be in [0 .. 255].
|
|
int32_t getclosestcol_lim(int32_t r, int32_t g, int32_t b, int32_t lastokcol)
|
|
{
|
|
int32_t i, k, retcol = -1;
|
|
|
|
const int32_t j = (r>>3)*FASTPALGRIDSIZ*FASTPALGRIDSIZ
|
|
+ (g>>3)*FASTPALGRIDSIZ + (b>>3)
|
|
+ FASTPALGRIDSIZ*FASTPALGRIDSIZ
|
|
+ FASTPALGRIDSIZ+1;
|
|
|
|
int32_t mindist = min(rdist[coldist[r&7]+64+8],gdist[coldist[g&7]+64+8]);
|
|
mindist = min(mindist,bdist[coldist[b&7]+64+8]);
|
|
mindist++;
|
|
|
|
Bassert(lastokcol >= 0 && lastokcol <= 255);
|
|
|
|
r = 64-r; g = 64-g; b = 64-b;
|
|
|
|
for (k=26; k>=0; k--)
|
|
{
|
|
i = colscan[k]+j;
|
|
if ((colhere[i>>3]&pow2char[i&7]) == 0)
|
|
continue;
|
|
|
|
i = colhead[i];
|
|
|
|
do
|
|
{
|
|
const char *pal1 = (char *)&palette[i*3];
|
|
int32_t dist = gdist[pal1[1]+g];
|
|
|
|
if (dist < mindist && i <= lastokcol)
|
|
{
|
|
dist += rdist[pal1[0]+r];
|
|
if (dist >= mindist)
|
|
continue;
|
|
dist += bdist[pal1[2]+b];
|
|
if (dist >= mindist)
|
|
continue;
|
|
mindist = dist;
|
|
retcol = i;
|
|
}
|
|
}
|
|
while ((i = colnext[i]) >= 0);
|
|
}
|
|
|
|
if (retcol >= 0)
|
|
return retcol;
|
|
|
|
mindist = INT32_MAX;
|
|
|
|
for (i=lastokcol; i>=0; i--)
|
|
{
|
|
const char *pal1 = (char *)&palette[i*3];
|
|
|
|
int32_t dist = gdist[pal1[1]+g]; if (dist >= mindist) continue;
|
|
dist += rdist[pal1[0]+r]; if (dist >= mindist) continue;
|
|
dist += bdist[pal1[2]+b]; if (dist >= mindist) continue;
|
|
|
|
mindist = dist; retcol = i;
|
|
}
|
|
|
|
return retcol;
|
|
}
|
|
|
|
|
|
////////// SPRITE LIST MANIPULATION FUNCTIONS //////////
|
|
|
|
#ifdef NETCODE_DISABLE
|
|
# define LISTFN_STATIC static
|
|
#else
|
|
# define LISTFN_STATIC
|
|
#endif
|
|
|
|
///// sector lists of sprites /////
|
|
|
|
// insert sprite at the head of sector list, change .sectnum
|
|
LISTFN_STATIC void do_insertsprite_at_headofsect(int16_t spritenum, int16_t sectnum)
|
|
{
|
|
int16_t ohead = headspritesect[sectnum];
|
|
|
|
prevspritesect[spritenum] = -1;
|
|
nextspritesect[spritenum] = ohead;
|
|
if (ohead >= 0)
|
|
prevspritesect[ohead] = spritenum;
|
|
headspritesect[sectnum] = spritenum;
|
|
|
|
sprite[spritenum].sectnum = sectnum;
|
|
}
|
|
|
|
// remove sprite 'deleteme' from its sector list
|
|
LISTFN_STATIC void do_deletespritesect(int16_t deleteme)
|
|
{
|
|
int32_t sectnum = sprite[deleteme].sectnum;
|
|
int32_t prev = prevspritesect[deleteme], next = nextspritesect[deleteme];
|
|
|
|
if (headspritesect[sectnum] == deleteme)
|
|
headspritesect[sectnum] = next;
|
|
if (prev >= 0)
|
|
nextspritesect[prev] = next;
|
|
if (next >= 0)
|
|
prevspritesect[next] = prev;
|
|
}
|
|
|
|
///// now, status lists /////
|
|
|
|
// insert sprite at head of status list, change .statnum
|
|
LISTFN_STATIC void do_insertsprite_at_headofstat(int16_t spritenum, int16_t statnum)
|
|
{
|
|
int16_t ohead = headspritestat[statnum];
|
|
|
|
prevspritestat[spritenum] = -1;
|
|
nextspritestat[spritenum] = ohead;
|
|
if (ohead >= 0)
|
|
prevspritestat[ohead] = spritenum;
|
|
headspritestat[statnum] = spritenum;
|
|
|
|
sprite[spritenum].statnum = statnum;
|
|
}
|
|
|
|
// insertspritestat (internal)
|
|
LISTFN_STATIC int32_t insertspritestat(int16_t statnum)
|
|
{
|
|
int16_t blanktouse;
|
|
|
|
if ((statnum >= MAXSTATUS) || (headspritestat[MAXSTATUS] == -1))
|
|
return(-1); //list full
|
|
|
|
// remove one sprite from the statnum-freelist
|
|
blanktouse = headspritestat[MAXSTATUS];
|
|
headspritestat[MAXSTATUS] = nextspritestat[blanktouse];
|
|
|
|
// make back-link of the new freelist head point to nil
|
|
if (headspritestat[MAXSTATUS] >= 0)
|
|
prevspritestat[headspritestat[MAXSTATUS]] = -1;
|
|
else
|
|
tailspritefree = -1;
|
|
|
|
do_insertsprite_at_headofstat(blanktouse, statnum);
|
|
|
|
return(blanktouse);
|
|
}
|
|
|
|
// remove sprite 'deleteme' from its status list
|
|
static void do_deletespritestat(int16_t deleteme)
|
|
{
|
|
int32_t sectnum = sprite[deleteme].statnum;
|
|
int32_t prev = prevspritestat[deleteme], next = nextspritestat[deleteme];
|
|
|
|
if (headspritestat[sectnum] == deleteme)
|
|
headspritestat[sectnum] = next;
|
|
if (prev >= 0)
|
|
nextspritestat[prev] = next;
|
|
if (next >= 0)
|
|
prevspritestat[next] = prev;
|
|
}
|
|
|
|
|
|
//
|
|
// insertsprite
|
|
//
|
|
int32_t insertsprite(int16_t sectnum, int16_t statnum)
|
|
{
|
|
// TODO: guard against bad sectnum?
|
|
int32_t newspritenum = insertspritestat(statnum);
|
|
|
|
if (newspritenum >= 0)
|
|
{
|
|
Bassert((unsigned)sectnum < MAXSECTORS);
|
|
|
|
do_insertsprite_at_headofsect(newspritenum, sectnum);
|
|
Numsprites++;
|
|
}
|
|
|
|
return newspritenum;
|
|
|
|
}
|
|
|
|
//
|
|
// deletesprite
|
|
//
|
|
int32_t deletesprite(int16_t spritenum)
|
|
{
|
|
Bassert((sprite[spritenum].statnum == MAXSTATUS)
|
|
== (sprite[spritenum].sectnum == MAXSECTORS));
|
|
|
|
if (sprite[spritenum].statnum == MAXSTATUS)
|
|
return(-1); // already not in the world
|
|
|
|
do_deletespritestat(spritenum);
|
|
do_deletespritesect(spritenum);
|
|
|
|
// (dummy) insert at tail of sector freelist, compat
|
|
// for code that checks .sectnum==MAXSECTOR
|
|
sprite[spritenum].sectnum = MAXSECTORS;
|
|
|
|
// insert at tail of status freelist
|
|
prevspritestat[spritenum] = tailspritefree;
|
|
nextspritestat[spritenum] = -1;
|
|
if (tailspritefree >= 0)
|
|
nextspritestat[tailspritefree] = spritenum;
|
|
else
|
|
headspritestat[MAXSTATUS] = spritenum;
|
|
sprite[spritenum].statnum = MAXSTATUS;
|
|
|
|
tailspritefree = spritenum;
|
|
Numsprites--;
|
|
|
|
return 0;
|
|
}
|
|
|
|
//
|
|
// changespritesect
|
|
//
|
|
int32_t changespritesect(int16_t spritenum, int16_t newsectnum)
|
|
{
|
|
// XXX: NOTE: MAXSECTORS is allowed
|
|
if (newsectnum < 0 || newsectnum > MAXSECTORS)
|
|
return(-1);
|
|
if (sprite[spritenum].sectnum == MAXSECTORS)
|
|
return(-1);
|
|
if (sprite[spritenum].sectnum == newsectnum)
|
|
return(0);
|
|
|
|
do_deletespritesect(spritenum);
|
|
do_insertsprite_at_headofsect(spritenum, newsectnum);
|
|
|
|
return(0);
|
|
}
|
|
|
|
//
|
|
// changespritestat
|
|
//
|
|
int32_t changespritestat(int16_t spritenum, int16_t newstatnum)
|
|
{
|
|
// XXX: NOTE: MAXSTATUS is allowed
|
|
if (newstatnum < 0 || newstatnum > MAXSTATUS)
|
|
return(-1);
|
|
if (sprite[spritenum].statnum == MAXSTATUS)
|
|
return(-1); // can't set the statnum of a sprite not in the world
|
|
if (sprite[spritenum].statnum == newstatnum)
|
|
return(0); // sprite already has desired statnum
|
|
|
|
do_deletespritestat(spritenum);
|
|
do_insertsprite_at_headofstat(spritenum, newstatnum);
|
|
|
|
return(0);
|
|
}
|
|
|
|
|
|
//
|
|
// lintersect (internal)
|
|
//
|
|
static int32_t lintersect(int32_t x1, int32_t y1, int32_t z1,
|
|
int32_t x2, int32_t y2, int32_t z2,
|
|
int32_t x3, int32_t y3, int32_t x4, int32_t y4,
|
|
int32_t *intx, int32_t *inty, int32_t *intz)
|
|
{
|
|
//p1 to p2 is a line segment
|
|
int32_t x21, y21, x34, y34, x31, y31, bot, topt, topu, t;
|
|
|
|
x21 = x2-x1; x34 = x3-x4;
|
|
y21 = y2-y1; y34 = y3-y4;
|
|
bot = x21*y34 - y21*x34;
|
|
if (bot >= 0)
|
|
{
|
|
if (bot == 0) return(0);
|
|
x31 = x3-x1; y31 = y3-y1;
|
|
topt = x31*y34 - y31*x34; if ((topt < 0) || (topt >= bot)) return(0);
|
|
topu = x21*y31 - y21*x31; if ((topu < 0) || (topu >= bot)) return(0);
|
|
}
|
|
else
|
|
{
|
|
x31 = x3-x1; y31 = y3-y1;
|
|
topt = x31*y34 - y31*x34; if ((topt > 0) || (topt <= bot)) return(0);
|
|
topu = x21*y31 - y21*x31; if ((topu > 0) || (topu <= bot)) return(0);
|
|
}
|
|
t = divscale24(topt,bot);
|
|
*intx = x1 + mulscale24(x21,t);
|
|
*inty = y1 + mulscale24(y21,t);
|
|
*intz = z1 + mulscale24(z2-z1,t);
|
|
return(1);
|
|
}
|
|
|
|
|
|
int32_t lineintersect(int32_t x1, int32_t y1, int32_t z1, int32_t x2, int32_t y2, int32_t z2, int32_t x3,
|
|
int32_t y3, int32_t x4, int32_t y4, int32_t *intx, int32_t *inty, int32_t *intz)
|
|
{
|
|
return lintersect(x1, y1, z1, x2, y2, z2, x3, y3, x4, y4, intx, inty, intz);
|
|
}
|
|
|
|
//
|
|
// rintersect (internal)
|
|
//
|
|
// returns: -1 if didn't intersect, coefficient (x3--x4 fraction)<<16 else
|
|
static int32_t rintersect(int32_t x1, int32_t y1, int32_t z1,
|
|
int32_t vx_, int32_t vy_, int32_t vz,
|
|
int32_t x3, int32_t y3, int32_t x4, int32_t y4,
|
|
int32_t *intx, int32_t *inty, int32_t *intz)
|
|
{
|
|
//p1 towards p2 is a ray
|
|
int64_t topt, topu, t;
|
|
|
|
const int64_t vx=vx_, vy=vy_;
|
|
const int64_t x34=x3-x4, y34=y3-y4;
|
|
const int64_t bot = vx*y34 - vy*x34;
|
|
|
|
if (bot == 0)
|
|
return -1;
|
|
|
|
if (bot >= 0)
|
|
{
|
|
int64_t x31=x3-x1, y31 = y3-y1;
|
|
topt = x31*y34 - y31*x34; if (topt < 0) return -1;
|
|
topu = vx*y31 - vy*x31; if (topu < 0 || topu >= bot) return -1;
|
|
}
|
|
else
|
|
{
|
|
int32_t x31=x3-x1, y31=y3-y1;
|
|
topt = x31*y34 - y31*x34; if (topt > 0) return -1;
|
|
topu = vx*y31 - vy*x31; if (topu > 0 || topu <= bot) return -1;
|
|
}
|
|
|
|
t = (topt<<16)/bot;
|
|
*intx = x1 + ((vx*t)>>16);
|
|
*inty = y1 + ((vy*t)>>16);
|
|
*intz = z1 + ((vz*t)>>16);
|
|
|
|
t = (topu<<16)/bot;
|
|
Bassert((unsigned)t < 65536);
|
|
|
|
return t;
|
|
}
|
|
|
|
int32_t rayintersect(int32_t x1, int32_t y1, int32_t z1, int32_t vx, int32_t vy, int32_t vz, int32_t x3,
|
|
int32_t y3, int32_t x4, int32_t y4, int32_t *intx, int32_t *inty, int32_t *intz)
|
|
{
|
|
return (rintersect(x1, y1, z1, vx, vy, vz, x3, y3, x4, y4, intx, inty, intz) != -1);
|
|
}
|
|
|
|
//
|
|
// keepaway (internal)
|
|
//
|
|
static inline void keepaway(int32_t *x, int32_t *y, int32_t w)
|
|
{
|
|
int32_t dx, dy, ox, oy, x1, y1;
|
|
char first;
|
|
|
|
x1 = clipit[w].x1; dx = clipit[w].x2-x1;
|
|
y1 = clipit[w].y1; dy = clipit[w].y2-y1;
|
|
ox = ksgn(-dy); oy = ksgn(dx);
|
|
first = (klabs(dx) <= klabs(dy));
|
|
|
|
do
|
|
{
|
|
if (dx*(*y-y1) > (*x-x1)*dy) return;
|
|
if (first == 0) *x += ox; else *y += oy;
|
|
first ^= 1;
|
|
} while (1);
|
|
}
|
|
|
|
|
|
//
|
|
// raytrace (internal)
|
|
//
|
|
static inline int32_t raytrace(int32_t x3, int32_t y3, int32_t *x4, int32_t *y4)
|
|
{
|
|
int32_t x1, y1, x2, y2, bot, topu, nintx, ninty, cnt, z, hitwall;
|
|
int32_t x21, y21, x43, y43;
|
|
|
|
hitwall = -1;
|
|
for (z=clipnum-1; z>=0; z--)
|
|
{
|
|
x1 = clipit[z].x1; x2 = clipit[z].x2; x21 = x2-x1;
|
|
y1 = clipit[z].y1; y2 = clipit[z].y2; y21 = y2-y1;
|
|
|
|
topu = x21*(y3-y1) - (x3-x1)*y21; if (topu <= 0) continue;
|
|
if (x21*(*y4-y1) > (*x4-x1)*y21) continue;
|
|
x43 = *x4-x3; y43 = *y4-y3;
|
|
if (x43*(y1-y3) > (x1-x3)*y43) continue;
|
|
if (x43*(y2-y3) <= (x2-x3)*y43) continue;
|
|
bot = x43*y21 - x21*y43; if (bot == 0) continue;
|
|
|
|
cnt = 256;
|
|
do
|
|
{
|
|
cnt--; if (cnt < 0) { *x4 = x3; *y4 = y3; return(z); }
|
|
nintx = x3 + scale(x43,topu,bot);
|
|
ninty = y3 + scale(y43,topu,bot);
|
|
topu--;
|
|
}
|
|
while (x21*(ninty-y1) <= (nintx-x1)*y21);
|
|
|
|
if (klabs(x3-nintx)+klabs(y3-ninty) < klabs(x3-*x4)+klabs(y3-*y4))
|
|
{ *x4 = nintx; *y4 = ninty; hitwall = z; }
|
|
}
|
|
return(hitwall);
|
|
}
|
|
|
|
|
|
|
|
//
|
|
// Exported Engine Functions
|
|
//
|
|
|
|
#if !defined _WIN32 && defined DEBUGGINGAIDS && !defined GEKKO
|
|
#ifdef GEKKO
|
|
#define __rtems__
|
|
#define _POSIX_REALTIME_SIGNALS
|
|
#endif
|
|
#include <signal.h>
|
|
static void sighandler(int sig, siginfo_t *info, void *ctx)
|
|
{
|
|
const char *s;
|
|
UNREFERENCED_PARAMETER(ctx);
|
|
switch (sig)
|
|
{
|
|
case SIGFPE:
|
|
switch (info->si_code)
|
|
{
|
|
case FPE_INTDIV:
|
|
s = "FPE_INTDIV (integer divide by zero)"; break;
|
|
case FPE_INTOVF:
|
|
s = "FPE_INTOVF (integer overflow)"; break;
|
|
case FPE_FLTDIV:
|
|
s = "FPE_FLTDIV (floating-point divide by zero)"; break;
|
|
case FPE_FLTOVF:
|
|
s = "FPE_FLTOVF (floating-point overflow)"; break;
|
|
case FPE_FLTUND:
|
|
s = "FPE_FLTUND (floating-point underflow)"; break;
|
|
case FPE_FLTRES:
|
|
s = "FPE_FLTRES (floating-point inexact result)"; break;
|
|
case FPE_FLTINV:
|
|
s = "FPE_FLTINV (floating-point invalid operation)"; break;
|
|
case FPE_FLTSUB:
|
|
s = "FPE_FLTSUB (floating-point subscript out of range)"; break;
|
|
default:
|
|
s = "?! (unknown)"; break;
|
|
}
|
|
ERRprintf("Caught SIGFPE at address %p, code %s. Aborting.\n", info->si_addr, s);
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
abort();
|
|
}
|
|
#endif
|
|
|
|
//
|
|
// preinitengine
|
|
//
|
|
static int32_t preinitcalled = 0;
|
|
|
|
// #define DYNALLOC_ARRAYS
|
|
|
|
#ifndef DYNALLOC_ARRAYS
|
|
# if !defined DEBUG_MAIN_ARRAYS
|
|
static spriteext_t spriteext_s[MAXSPRITES+MAXUNIQHUDID];
|
|
static spritesmooth_t spritesmooth_s[MAXSPRITES+MAXUNIQHUDID];
|
|
static sectortype sector_s[MAXSECTORS + M32_FIXME_SECTORS];
|
|
static walltype wall_s[MAXWALLS + M32_FIXME_WALLS];
|
|
static spritetype sprite_s[MAXSPRITES];
|
|
static spritetype tsprite_s[MAXSPRITESONSCREEN];
|
|
# endif
|
|
#else
|
|
void *blockptr = NULL;
|
|
#endif
|
|
|
|
int32_t preinitengine(void)
|
|
{
|
|
char *e;
|
|
if (initsystem()) Bexit(9);
|
|
|
|
makeasmwriteable();
|
|
|
|
#ifdef DYNALLOC_ARRAYS
|
|
{
|
|
size_t i, size = 0;
|
|
|
|
// allocate everything at once... why not? entries can just be added to this table
|
|
// to allocate future arrays without further intervention
|
|
struct
|
|
{
|
|
void **ptr;
|
|
size_t size;
|
|
}
|
|
dynarray[] =
|
|
{
|
|
{ (void **) §or, sizeof(sectortype) *MAXSECTORS },
|
|
{ (void **) &wall, sizeof(walltype) *MAXWALLS }, // +512: editor quirks. FIXME!
|
|
{ (void **) &sprite, sizeof(spritetype) *MAXSPRITES },
|
|
{ (void **) &tsprite, sizeof(spritetype) *MAXSPRITESONSCREEN },
|
|
{ (void **) &spriteext, sizeof(spriteext_t) *(MAXSPRITES+MAXUNIQHUDID) },
|
|
{ (void **) &spritesmooth, sizeof(spritesmooth_t) *(MAXSPRITES+MAXUNIQHUDID) },
|
|
};
|
|
|
|
if (editstatus)
|
|
{
|
|
dynarray[0].size += M32_FIXME_SECTORS*sizeof(sectortype); // join sectors needs a temp. sector
|
|
dynarray[1].size += M32_FIXME_WALLS*sizeof(walltype);
|
|
// Bprintf("FIXME: Allocating additional space beyond wall[] for editor bugs.\n");
|
|
}
|
|
|
|
for (i=0; i<(signed)ARRAY_SIZE(dynarray); i++)
|
|
size += dynarray[i].size;
|
|
|
|
if ((blockptr = Bcalloc(1, size)) == NULL)
|
|
return 1;
|
|
|
|
size = 0;
|
|
|
|
for (i=0; i<(signed)ARRAY_SIZE(dynarray); i++)
|
|
{
|
|
*dynarray[i].ptr = (int8_t *)blockptr + size;
|
|
size += dynarray[i].size;
|
|
}
|
|
}
|
|
|
|
#else
|
|
# if !defined DEBUG_MAIN_ARRAYS
|
|
sector = sector_s;
|
|
wall = wall_s;
|
|
sprite = sprite_s;
|
|
tsprite = tsprite_s;
|
|
spriteext = spriteext_s;
|
|
spritesmooth = spritesmooth_s;
|
|
# endif
|
|
#endif
|
|
|
|
if ((e = Bgetenv("BUILD_NOP6")) != NULL)
|
|
if (!Bstrcasecmp(e, "TRUE"))
|
|
{
|
|
Bprintf("Disabling P6 optimizations.\n");
|
|
dommxoverlay = 0;
|
|
}
|
|
if (dommxoverlay) mmxoverlay();
|
|
|
|
validmodecnt = 0;
|
|
getvalidmodes();
|
|
|
|
initcrc32table();
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
clipmapinfo_init();
|
|
#endif
|
|
preinitcalled = 1;
|
|
return 0;
|
|
}
|
|
|
|
|
|
//
|
|
// initengine
|
|
//
|
|
int32_t initengine(void)
|
|
{
|
|
int32_t i, j;
|
|
|
|
#if !defined _WIN32 && defined DEBUGGINGAIDS && !defined GEKKO
|
|
struct sigaction sigact, oldact;
|
|
memset(&sigact, 0, sizeof(sigact));
|
|
sigact.sa_sigaction = &sighandler;
|
|
sigact.sa_flags = SA_SIGINFO;
|
|
sigaction(SIGFPE, &sigact, &oldact);
|
|
#endif
|
|
|
|
if (!preinitcalled)
|
|
{
|
|
i = preinitengine();
|
|
if (i) return i;
|
|
}
|
|
|
|
#ifdef YAX_DEBUG
|
|
u64tickspersec = (double)getu64tickspersec();
|
|
if (u64tickspersec==0.0)
|
|
u64tickspersec = 1.0;
|
|
#endif
|
|
|
|
if (loadtables())
|
|
return 1;
|
|
|
|
xyaspect = -1;
|
|
|
|
showinvisibility = 0;
|
|
|
|
for (i=1; i<1024; i++)
|
|
lowrecip[i] = ((1<<24)-1)/i;
|
|
|
|
for (i=0; i<MAXVOXELS; i++)
|
|
for (j=0; j<MAXVOXMIPS; j++)
|
|
{
|
|
voxoff[i][j] = 0L;
|
|
voxlock[i][j] = 200;
|
|
}
|
|
for (i=0; i<MAXTILES; i++)
|
|
tiletovox[i] = -1;
|
|
clearbuf(voxscale, sizeof(voxscale)>>2, 65536);
|
|
|
|
paletteloaded = 0;
|
|
|
|
searchit = 0; searchstat = -1;
|
|
|
|
totalclock = 0;
|
|
g_visibility = 512;
|
|
parallaxvisibility = 512;
|
|
|
|
if (loadpalette())
|
|
return 1;
|
|
|
|
#ifdef USE_OPENGL
|
|
if (!hicinitcounter) hicinit();
|
|
if (!mdinited) mdinit();
|
|
#endif
|
|
|
|
#ifdef LUNATIC
|
|
if (L_CreateState(&g_engState, "eng", NULL))
|
|
return loadpalette_err("Failed creating engine Lua state!");
|
|
|
|
{
|
|
char *luastr = "_LUNATIC_AUX=true; decl=require('ffi').cdef; require'defs_common'";
|
|
|
|
if (L_RunString(&g_engState, luastr, 0, -1, "eng"))
|
|
return loadpalette_err("Failed setting up engine Lua state");
|
|
}
|
|
#endif
|
|
|
|
return 0;
|
|
}
|
|
|
|
//
|
|
// uninitengine
|
|
//
|
|
void uninitengine(void)
|
|
{
|
|
int32_t i;
|
|
|
|
#ifdef USE_OPENGL
|
|
polymost_glreset();
|
|
hicinit();
|
|
freeallmodels();
|
|
# ifdef POLYMER
|
|
polymer_uninit();
|
|
# endif
|
|
#endif
|
|
|
|
if (artfil != -1)
|
|
kclose(artfil);
|
|
|
|
// this leaves a bunch of invalid pointers in waloff... fixme?
|
|
for (i=0; i<MAXARTFILES_TOTAL; i++)
|
|
DO_FREE_AND_NULL(artptrs[i]);
|
|
|
|
DO_FREE_AND_NULL(pic);
|
|
DO_FREE_AND_NULL(lookups);
|
|
|
|
for (i=0; i<MAXPALOOKUPS; i++)
|
|
if (palookup[i] != NULL && (i==0 || palookup[i] != palookup[0]))
|
|
{
|
|
// Take care of handling aliased ^^^ cases!
|
|
Bfree(palookup[i]);
|
|
}
|
|
|
|
#ifdef DYNALLOC_ARRAYS
|
|
DO_FREE_AND_NULL(blockptr);
|
|
#endif
|
|
|
|
#ifdef WITHKPLIB
|
|
DO_FREE_AND_NULL(kpzbuf);
|
|
#endif
|
|
uninitsystem();
|
|
}
|
|
|
|
|
|
//
|
|
// initspritelists
|
|
//
|
|
void initspritelists(void)
|
|
{
|
|
int32_t i;
|
|
|
|
// initial list state for statnum lists:
|
|
//
|
|
// statnum 0: nil
|
|
// statnum 1: nil
|
|
// . . .
|
|
// statnum MAXSTATUS-1: nil
|
|
// "statnum MAXSTATUS": nil <- 0 <-> 1 <-> 2 <-> ... <-> MAXSPRITES-1 -> nil
|
|
//
|
|
// That is, the dummy MAXSTATUS statnum has all sprites.
|
|
|
|
for (i=0; i<MAXSECTORS; i++) //Init doubly-linked sprite sector lists
|
|
headspritesect[i] = -1;
|
|
headspritesect[MAXSECTORS] = 0;
|
|
|
|
for (i=0; i<MAXSPRITES; i++)
|
|
{
|
|
prevspritesect[i] = i-1;
|
|
nextspritesect[i] = i+1;
|
|
sprite[i].sectnum = MAXSECTORS;
|
|
}
|
|
prevspritesect[0] = -1;
|
|
nextspritesect[MAXSPRITES-1] = -1;
|
|
|
|
|
|
for (i=0; i<MAXSTATUS; i++) //Init doubly-linked sprite status lists
|
|
headspritestat[i] = -1;
|
|
headspritestat[MAXSTATUS] = 0;
|
|
|
|
for (i=0; i<MAXSPRITES; i++)
|
|
{
|
|
prevspritestat[i] = i-1;
|
|
nextspritestat[i] = i+1;
|
|
sprite[i].statnum = MAXSTATUS;
|
|
}
|
|
prevspritestat[0] = -1;
|
|
nextspritestat[MAXSPRITES-1] = -1;
|
|
|
|
tailspritefree = MAXSPRITES-1;
|
|
Numsprites = 0;
|
|
}
|
|
|
|
|
|
void set_globalang(int16_t ang)
|
|
{
|
|
globalang = ang&2047;
|
|
cosglobalang = sintable[(globalang+512)&2047];
|
|
singlobalang = sintable[globalang&2047];
|
|
cosviewingrangeglobalang = mulscale16(cosglobalang,viewingrange);
|
|
sinviewingrangeglobalang = mulscale16(singlobalang,viewingrange);
|
|
}
|
|
|
|
//
|
|
// drawrooms
|
|
//
|
|
int32_t drawrooms(int32_t daposx, int32_t daposy, int32_t daposz,
|
|
int16_t daang, int32_t dahoriz, int16_t dacursectnum)
|
|
{
|
|
int32_t i, j, /*cz, fz,*/ closest;
|
|
int16_t *shortptr1, *shortptr2;
|
|
|
|
int32_t didmirror = 0;
|
|
|
|
beforedrawrooms = 0;
|
|
indrawroomsandmasks = 1;
|
|
|
|
globalposx = daposx; globalposy = daposy; globalposz = daposz;
|
|
set_globalang(daang);
|
|
|
|
global100horiz = dahoriz;
|
|
|
|
// xdimenscale is scale(xdimen,yxaspect,320);
|
|
// normalization by viewingrange so that center-of-aim doesn't depend on it
|
|
globalhoriz = mulscale16(dahoriz-100,divscale16(xdimenscale,viewingrange))+(ydimen>>1);
|
|
|
|
globaluclip = (0-globalhoriz)*xdimscale;
|
|
globaldclip = (ydimen-globalhoriz)*xdimscale;
|
|
|
|
i = mulscale16(xdimenscale,viewingrangerecip);
|
|
globalpisibility = mulscale16(parallaxvisibility,i);
|
|
switch (getrendermode())
|
|
{
|
|
// switch on renderers to make fog look almost the same everywhere
|
|
|
|
case REND_CLASSIC:
|
|
globalvisibility = mulscale16(g_visibility,i);
|
|
break;
|
|
#ifdef USE_OPENGL
|
|
case REND_POLYMOST:
|
|
// NOTE: In Polymost, the fragment depth depends on the x screen size!
|
|
if (r_usenewshading >= 2)
|
|
globalvisibility = scale(g_visibility<<2, xdimen, 1680);
|
|
else
|
|
globalvisibility = scale(g_visibility<<2, xdimen, 1100);
|
|
break;
|
|
# ifdef POLYMER
|
|
case REND_POLYMER:
|
|
globalvisibility = g_visibility<<2;
|
|
break;
|
|
# endif
|
|
#endif
|
|
}
|
|
|
|
globalhisibility = mulscale16(globalvisibility,xyaspect);
|
|
globalcisibility = mulscale8(globalhisibility,320);
|
|
|
|
globalcursectnum = dacursectnum;
|
|
totalclocklock = totalclock;
|
|
|
|
if ((xyaspect != oxyaspect) || (xdimen != oxdimen) || (viewingrange != oviewingrange))
|
|
dosetaspect();
|
|
|
|
Bmemset(gotsector, 0, ((numsectors+7)>>3));
|
|
|
|
if (getrendermode() != REND_CLASSIC
|
|
#ifdef YAX_ENABLE
|
|
|| yax_globallev==YAX_MAXDRAWS
|
|
#endif
|
|
)
|
|
{
|
|
shortptr1 = (int16_t *)&startumost[windowx1];
|
|
shortptr2 = (int16_t *)&startdmost[windowx1];
|
|
i = xdimen-1;
|
|
do
|
|
{
|
|
umost[i] = shortptr1[i]-windowy1;
|
|
dmost[i] = shortptr2[i]-windowy1;
|
|
}
|
|
while (i--); // xdimen == 1 is OK!
|
|
umost[0] = shortptr1[0]-windowy1;
|
|
dmost[0] = shortptr2[0]-windowy1;
|
|
}
|
|
|
|
#ifdef USE_OPENGL
|
|
# ifdef POLYMER
|
|
if (getrendermode() == REND_POLYMER)
|
|
{
|
|
# ifdef YAX_ENABLE
|
|
// BEGIN_TWEAK ceiling/floor fake 'TROR' pics, see END_TWEAK in build.c
|
|
if (editstatus && showinvisibility)
|
|
{
|
|
for (i=0; i<numyaxbunches; i++)
|
|
{
|
|
yax_tweakpicnums(i, YAX_CEILING, 0);
|
|
yax_tweakpicnums(i, YAX_FLOOR, 0);
|
|
}
|
|
}
|
|
# endif
|
|
polymer_glinit();
|
|
polymer_drawrooms(daposx, daposy, daposz, daang, dahoriz, dacursectnum);
|
|
bglDisable(GL_CULL_FACE);
|
|
gloy1 = 0;
|
|
return 0;
|
|
}
|
|
# endif
|
|
|
|
//============================================================================= //POLYMOST BEGINS
|
|
polymost_drawrooms();
|
|
|
|
if (getrendermode() != REND_CLASSIC)
|
|
return 0;
|
|
//============================================================================= //POLYMOST ENDS
|
|
#endif
|
|
|
|
begindrawing(); //{{{
|
|
|
|
#ifdef ENGINE_CLEAR_SCREEN
|
|
#ifdef YAX_ENABLE
|
|
if (!g_nodraw)
|
|
#endif
|
|
if (numyaxbunches==0)
|
|
draw_rainbow_background();
|
|
#endif
|
|
|
|
frameoffset = frameplace + windowy1*bytesperline + windowx1;
|
|
|
|
//if (smostwallcnt < 0)
|
|
// if (getkensmessagecrc(FP_OFF(kensmessage)) != 0x56c764d4)
|
|
// { /* setvmode(0x3);*/ OSD_Printf("Nice try.\n"); Bexit(0); }
|
|
|
|
numhits = xdimen; numscans = 0; numbunches = 0;
|
|
maskwallcnt = 0; smostwallcnt = 0; smostcnt = 0; spritesortcnt = 0;
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (yax_globallev != YAX_MAXDRAWS)
|
|
{
|
|
j = yax_globalbunch*xdimen;
|
|
|
|
Bmemcpy(umost, yumost+j, xdimen*sizeof(int16_t));
|
|
Bmemcpy(dmost, ydmost+j, xdimen*sizeof(int16_t));
|
|
|
|
for (i=0; i<xdimen; i++)
|
|
if (umost[i] > dmost[i])
|
|
numhits--;
|
|
|
|
// yaxdebug("cf %d, tlev %d, bunch %d: numhits=%d", yax_globalcf, yax_globallev, yax_globalbunch, numhits);
|
|
}
|
|
#endif
|
|
|
|
if (globalcursectnum >= MAXSECTORS)
|
|
globalcursectnum -= MAXSECTORS;
|
|
else
|
|
{
|
|
i = globalcursectnum;
|
|
updatesector(globalposx,globalposy,&globalcursectnum);
|
|
if (globalcursectnum < 0) globalcursectnum = i;
|
|
|
|
// PK 20110123: I'm not sure what the line above is supposed to do, but 'i'
|
|
// *can* be negative, so let's just quit here in that case...
|
|
if (globalcursectnum<0)
|
|
{
|
|
enddrawing(); //!!!
|
|
return 0;
|
|
}
|
|
}
|
|
/*
|
|
globparaceilclip = 1;
|
|
globparaflorclip = 1;
|
|
getzsofslope(globalcursectnum,globalposx,globalposy,&cz,&fz);
|
|
if (globalposz < cz) globparaceilclip = 0;
|
|
if (globalposz > fz) globparaflorclip = 0;
|
|
*/
|
|
scansector(globalcursectnum);
|
|
|
|
if (inpreparemirror)
|
|
{
|
|
// INPREPAREMIRROR_NO_BUNCHES
|
|
// numbunches==0 can happen if the mirror is far away... the game code decides
|
|
// to draw it, but scansector gets zero bunches. Result: big screwup!
|
|
// Leave inpreparemirror as is, it's restored by completemirror.
|
|
if (numbunches==0)
|
|
{
|
|
enddrawing(); //!!!
|
|
return 0;
|
|
}
|
|
|
|
inpreparemirror = 0;
|
|
didmirror = 1;
|
|
|
|
mirrorsx1 = xdimen-1; mirrorsx2 = 0;
|
|
for (i=numscans-1; i>=0; i--)
|
|
{
|
|
if (wall[thewall[i]].nextsector >= 0)
|
|
{
|
|
if (xb1[i] < mirrorsx1) mirrorsx1 = xb1[i];
|
|
if (xb2[i] > mirrorsx2) mirrorsx2 = xb2[i];
|
|
}
|
|
}
|
|
|
|
for (i=0; i<mirrorsx1; i++)
|
|
if (umost[i] <= dmost[i])
|
|
{ umost[i] = 1; dmost[i] = 0; numhits--; }
|
|
for (i=mirrorsx2+1; i<xdimen; i++)
|
|
if (umost[i] <= dmost[i])
|
|
{ umost[i] = 1; dmost[i] = 0; numhits--; }
|
|
|
|
drawalls(0L);
|
|
numbunches--;
|
|
bunchfirst[0] = bunchfirst[numbunches];
|
|
bunchlast[0] = bunchlast[numbunches];
|
|
|
|
mirrorsy1 = min(umost[mirrorsx1],umost[mirrorsx2]);
|
|
mirrorsy2 = max(dmost[mirrorsx1],dmost[mirrorsx2]);
|
|
}
|
|
|
|
while ((numbunches > 0) && (numhits > 0))
|
|
{
|
|
Bmemset(tempbuf, 0, numbunches);
|
|
tempbuf[0] = 1;
|
|
|
|
closest = 0; //Almost works, but not quite :(
|
|
for (i=1; i<numbunches; i++)
|
|
{
|
|
if ((j = bunchfront(i,closest)) < 0) continue;
|
|
tempbuf[i] = 1;
|
|
if (j == 0) tempbuf[closest] = 1, closest = i;
|
|
}
|
|
for (i=0; i<numbunches; i++) //Double-check
|
|
{
|
|
if (tempbuf[i]) continue;
|
|
if ((j = bunchfront(i,closest)) < 0) continue;
|
|
tempbuf[i] = 1;
|
|
if (j == 0) tempbuf[closest] = 1, closest = i, i = 0;
|
|
}
|
|
|
|
drawalls(closest);
|
|
|
|
numbunches--;
|
|
bunchfirst[closest] = bunchfirst[numbunches];
|
|
bunchlast[closest] = bunchlast[numbunches];
|
|
}
|
|
|
|
enddrawing(); //}}}
|
|
|
|
return didmirror;
|
|
}
|
|
|
|
// UTILITY TYPES AND FUNCTIONS FOR DRAWMASKS OCCLUSION TREE
|
|
// typedef struct s_maskleaf
|
|
// {
|
|
// int32_t index;
|
|
// _point2d p1, p2;
|
|
// _equation maskeq, p1eq, p2eq;
|
|
// struct s_maskleaf* branch[MAXWALLSB];
|
|
// int32_t drawing;
|
|
// } _maskleaf;
|
|
//
|
|
// _maskleaf maskleaves[MAXWALLSB];
|
|
|
|
// returns equation of a line given two points
|
|
static inline _equation equation(float x1, float y1, float x2, float y2)
|
|
{
|
|
_equation ret;
|
|
const float f = x2-x1;
|
|
|
|
// vertical
|
|
if (f == 0.f)
|
|
{
|
|
ret.a = 1;
|
|
ret.b = 0;
|
|
ret.c = -x1;
|
|
|
|
return ret;
|
|
}
|
|
|
|
ret.a = (float) (y2 - y1)/f;
|
|
ret.b = -1;
|
|
ret.c = (y1 - (ret.a * x1));
|
|
|
|
return ret;
|
|
}
|
|
|
|
int32_t wallvisible(int32_t x, int32_t y, int16_t wallnum)
|
|
{
|
|
// 1 if wall is in front of player 0 otherwise
|
|
int32_t a1, a2;
|
|
walltype *w1, *w2;
|
|
|
|
w1 = &wall[wallnum];
|
|
w2 = &wall[w1->point2];
|
|
|
|
a1 = getangle(w1->x - x, w1->y - y);
|
|
a2 = getangle(w2->x - x, w2->y - y);
|
|
|
|
//if ((wallnum == 23) || (wallnum == 9))
|
|
// OSD_Printf("Wall %d : %d - sector %d - x %d - y %d.\n", wallnum, (a2 + (2048 - a1)) & 2047, globalcursectnum, globalposx, globalposy);
|
|
|
|
if (((a2 + (2048 - a1)) & 2047) <= 1024)
|
|
return (1);
|
|
return (0);
|
|
}
|
|
|
|
#if 0
|
|
// returns the intersection point between two lines
|
|
_point2d intersection(_equation eq1, _equation eq2)
|
|
{
|
|
_point2d ret;
|
|
float det;
|
|
|
|
det = (float)(1) / (eq1.a*eq2.b - eq2.a*eq1.b);
|
|
ret.x = ((eq1.b*eq2.c - eq2.b*eq1.c) * det);
|
|
ret.y = ((eq2.a*eq1.c - eq1.a*eq2.c) * det);
|
|
|
|
return (ret);
|
|
}
|
|
|
|
// check if a point that's on the line is within the segment boundaries
|
|
int32_t pointonmask(_point2d point, _maskleaf* wall)
|
|
{
|
|
if ((min(wall->p1.x, wall->p2.x) <= point.x) && (point.x <= max(wall->p1.x, wall->p2.x)) && (min(wall->p1.y, wall->p2.y) <= point.y) && (point.y <= max(wall->p1.y, wall->p2.y)))
|
|
return (1);
|
|
return (0);
|
|
}
|
|
|
|
// returns 1 if wall2 is hidden by wall1
|
|
int32_t wallobstructswall(_maskleaf* wall1, _maskleaf* wall2)
|
|
{
|
|
_point2d cross;
|
|
|
|
cross = intersection(wall2->p1eq, wall1->maskeq);
|
|
if (pointonmask(cross, wall1))
|
|
return (1);
|
|
|
|
cross = intersection(wall2->p2eq, wall1->maskeq);
|
|
if (pointonmask(cross, wall1))
|
|
return (1);
|
|
|
|
cross = intersection(wall1->p1eq, wall2->maskeq);
|
|
if (pointonmask(cross, wall2))
|
|
return (1);
|
|
|
|
cross = intersection(wall1->p2eq, wall2->maskeq);
|
|
if (pointonmask(cross, wall2))
|
|
return (1);
|
|
|
|
return (0);
|
|
}
|
|
|
|
// recursive mask drawing function
|
|
static inline void drawmaskleaf(_maskleaf* wall)
|
|
{
|
|
int32_t i;
|
|
|
|
wall->drawing = 1;
|
|
i = 0;
|
|
while (wall->branch[i] != NULL)
|
|
{
|
|
if (wall->branch[i]->drawing == 0)
|
|
{
|
|
//OSD_Printf("Drawing parent of %i : mask %i\n", wall->index, wall->branch[i]->index);
|
|
drawmaskleaf(wall->branch[i]);
|
|
}
|
|
i++;
|
|
}
|
|
|
|
//OSD_Printf("Drawing mask %i\n", wall->index);
|
|
drawmaskwall(wall->index);
|
|
}
|
|
#endif
|
|
|
|
static inline int32_t sameside(const _equation *eq, const vec2f_t *p1, const vec2f_t *p2)
|
|
{
|
|
const float sign1 = (eq->a * p1->x) + (eq->b * p1->y) + eq->c;
|
|
const float sign2 = (eq->a * p2->x) + (eq->b * p2->y) + eq->c;
|
|
return (sign1 * sign2) > 0.f;
|
|
}
|
|
|
|
// x1, y1: in/out
|
|
// rest x/y: out
|
|
static void get_wallspr_points(const spritetype *spr, int32_t *x1, int32_t *x2,
|
|
int32_t *y1, int32_t *y2);
|
|
static void get_floorspr_points(const spritetype *spr, int32_t px, int32_t py,
|
|
int32_t *x1, int32_t *x2, int32_t *x3, int32_t *x4,
|
|
int32_t *y1, int32_t *y2, int32_t *y3, int32_t *y4);
|
|
|
|
#ifdef DEBUG_MASK_DRAWING
|
|
int32_t g_maskDrawMode = 0;
|
|
#endif
|
|
|
|
//
|
|
// drawmasks
|
|
//
|
|
void drawmasks(void)
|
|
{
|
|
#ifdef DEBUG_MASK_DRAWING
|
|
static struct {
|
|
int16_t di; // &32768: &32767 is tspriteptr[], else thewall[] index
|
|
int16_t i; // sprite[] or wall[] index
|
|
} debugmask[MAXWALLSB + MAXSPRITESONSCREEN + 1];
|
|
|
|
int32_t dmasknum = 0;
|
|
|
|
# define debugmask_add(dispidx, idx) do { \
|
|
if (g_maskDrawMode && getrendermode()==REND_CLASSIC) { \
|
|
debugmask[dmasknum].di = dispidx; \
|
|
debugmask[dmasknum++].i = idx; \
|
|
} \
|
|
} while (0)
|
|
#else
|
|
# define debugmask_add(dispidx, idx) do {} while (0)
|
|
#endif
|
|
int32_t i;
|
|
|
|
for (i=spritesortcnt-1; i>=0; i--)
|
|
tspriteptr[i] = &tsprite[i];
|
|
|
|
for (i=spritesortcnt-1; i>=0; i--)
|
|
{
|
|
const int32_t xs = tspriteptr[i]->x-globalposx, ys = tspriteptr[i]->y-globalposy;
|
|
const int32_t yp = dmulscale6(xs,cosviewingrangeglobalang,ys,sinviewingrangeglobalang);
|
|
#ifdef USE_OPENGL
|
|
const int32_t modelp = (usemodels && tile2model[tspriteptr[i]->picnum].modelid >= 0);
|
|
#endif
|
|
|
|
if (yp > (4<<8))
|
|
{
|
|
const int32_t xp = dmulscale6(ys,cosglobalang,-xs,singlobalang);
|
|
|
|
if (mulscale24(labs(xp+yp),xdimen) >= yp)
|
|
goto killsprite;
|
|
|
|
spritesx[i] = scale(xp+yp,xdimen<<7,yp);
|
|
}
|
|
else if ((tspriteptr[i]->cstat&48) == 0)
|
|
{
|
|
killsprite:
|
|
#ifdef USE_OPENGL
|
|
if (!modelp)
|
|
#endif
|
|
{
|
|
spritesortcnt--; //Delete face sprite if on wrong side!
|
|
if (i != spritesortcnt)
|
|
{
|
|
tspriteptr[i] = tspriteptr[spritesortcnt];
|
|
spritesx[i] = spritesx[spritesortcnt];
|
|
spritesy[i] = spritesy[spritesortcnt];
|
|
}
|
|
continue;
|
|
}
|
|
}
|
|
spritesy[i] = yp;
|
|
}
|
|
|
|
{
|
|
int32_t j, l, gap, ys;
|
|
|
|
gap = 1; while (gap < spritesortcnt) gap = (gap<<1)+1;
|
|
for (gap>>=1; gap>0; gap>>=1) //Sort sprite list
|
|
for (i=0; i<spritesortcnt-gap; i++)
|
|
for (l=i; l>=0; l-=gap)
|
|
{
|
|
if (spritesy[l] <= spritesy[l+gap]) break;
|
|
swaplong(&tspriteptr[l],&tspriteptr[l+gap]);
|
|
swaplong(&spritesx[l],&spritesx[l+gap]);
|
|
swaplong(&spritesy[l],&spritesy[l+gap]);
|
|
}
|
|
|
|
if (spritesortcnt > 0)
|
|
spritesy[spritesortcnt] = (spritesy[spritesortcnt-1]^1);
|
|
|
|
ys = spritesy[0]; i = 0;
|
|
for (j=1; j<=spritesortcnt; j++)
|
|
{
|
|
if (spritesy[j] == ys)
|
|
continue;
|
|
|
|
ys = spritesy[j];
|
|
|
|
if (j > i+1)
|
|
{
|
|
int32_t k;
|
|
|
|
for (k=i; k<j; k++)
|
|
{
|
|
const spritetype *const s = tspriteptr[k];
|
|
|
|
spritesz[k] = s->z;
|
|
if ((s->cstat&48) != 32)
|
|
{
|
|
int32_t yoff = picanm[s->picnum].yofs + s->yoffset;
|
|
int32_t yspan = (tilesiz[s->picnum].y*s->yrepeat<<2);
|
|
|
|
spritesz[k] -= (yoff*s->yrepeat)<<2;
|
|
|
|
if (!(s->cstat&128))
|
|
spritesz[k] -= (yspan>>1);
|
|
if (klabs(spritesz[k]-globalposz) < (yspan>>1))
|
|
spritesz[k] = globalposz;
|
|
}
|
|
}
|
|
for (k=i+1; k<j; k++)
|
|
for (l=i; l<k; l++)
|
|
if (klabs(spritesz[k]-globalposz) < klabs(spritesz[l]-globalposz))
|
|
{
|
|
swaplong(&tspriteptr[k],&tspriteptr[l]);
|
|
swaplong(&spritesx[k],&spritesx[l]);
|
|
swaplong(&spritesy[k],&spritesy[l]);
|
|
swaplong(&spritesz[k],&spritesz[l]);
|
|
}
|
|
for (k=i+1; k<j; k++)
|
|
for (l=i; l<k; l++)
|
|
if (tspriteptr[k]->statnum < tspriteptr[l]->statnum)
|
|
{
|
|
swaplong(&tspriteptr[k],&tspriteptr[l]);
|
|
swaplong(&spritesx[k],&spritesx[l]);
|
|
swaplong(&spritesy[k],&spritesy[l]);
|
|
}
|
|
}
|
|
i = j;
|
|
}
|
|
}
|
|
|
|
begindrawing(); //{{{
|
|
#if 0
|
|
for (i=spritesortcnt-1; i>=0; i--)
|
|
{
|
|
double xs = tspriteptr[i]->x-globalposx;
|
|
double ys = tspriteptr[i]->y-globalposy;
|
|
int32_t zs = tspriteptr[i]->z-globalposz;
|
|
|
|
int32_t xp = ys*cosglobalang-xs*singlobalang;
|
|
int32_t yp = (zs<<1);
|
|
int32_t zp = xs*cosglobalang+ys*singlobalang;
|
|
|
|
xs = ((double)xp*(halfxdimen<<12)/zp)+((halfxdimen+windowx1)<<12);
|
|
ys = ((double)yp*(xdimenscale<<12)/zp)+((globalhoriz+windowy1)<<12);
|
|
|
|
if (xs >= INT32_MIN && xs <= INT32_MAX && ys >= INT32_MIN && ys <= INT32_MAX)
|
|
{
|
|
drawline256(xs-65536,ys-65536,xs+65536,ys+65536,31);
|
|
drawline256(xs+65536,ys-65536,xs-65536,ys+65536,31);
|
|
}
|
|
}
|
|
#endif
|
|
{
|
|
vec2f_t pos;
|
|
|
|
pos.x = fglobalposx;
|
|
pos.y = fglobalposy;
|
|
|
|
// CAUTION: maskwallcnt and spritesortcnt may be zero!
|
|
// Writing e.g. "while (maskwallcnt--)" is wrong!
|
|
while (maskwallcnt)
|
|
{
|
|
vec2f_t dot, dot2, middle;
|
|
// PLAG: sorting stuff
|
|
_equation maskeq, p1eq, p2eq;
|
|
|
|
const int32_t w = (getrendermode()==REND_POLYMER) ?
|
|
maskwall[maskwallcnt-1] : thewall[maskwall[maskwallcnt-1]];
|
|
|
|
maskwallcnt--;
|
|
|
|
dot.x = (float)wall[w].x;
|
|
dot.y = (float)wall[w].y;
|
|
dot2.x = (float)wall[wall[w].point2].x;
|
|
dot2.y = (float)wall[wall[w].point2].y;
|
|
|
|
maskeq = equation(dot.x, dot.y, dot2.x, dot2.y);
|
|
|
|
p1eq = equation(pos.x, pos.y, dot.x, dot.y);
|
|
p2eq = equation(pos.x, pos.y, dot2.x, dot2.y);
|
|
|
|
middle.x = (dot.x + dot2.x) * .5f;
|
|
middle.y = (dot.y + dot2.y) * .5f;
|
|
|
|
i = spritesortcnt;
|
|
while (i)
|
|
{
|
|
i--;
|
|
if (tspriteptr[i] != NULL)
|
|
{
|
|
vec2f_t spr;
|
|
const spritetype *tspr = tspriteptr[i];
|
|
|
|
spr.x = (float)tspr->x;
|
|
spr.y = (float)tspr->y;
|
|
|
|
if (!sameside(&maskeq, &spr, &pos))
|
|
{
|
|
// Sprite and camera are on different sides of the
|
|
// masked wall.
|
|
|
|
// Check if the sprite is inside the 'cone' given by
|
|
// the rays from the camera to the two wall-points.
|
|
const int32_t inleft = sameside(&p1eq, &middle, &spr);
|
|
const int32_t inright = sameside(&p2eq, &middle, &spr);
|
|
|
|
int32_t ok = (inleft && inright);
|
|
|
|
if (!ok)
|
|
{
|
|
// If not, check if any of the border points are...
|
|
int32_t xx[4] = { tspr->x };
|
|
int32_t yy[4] = { tspr->y };
|
|
int32_t numpts, jj;
|
|
|
|
const _equation pineq = inleft ? p1eq : p2eq;
|
|
|
|
if ((tspr->cstat & 48) == 32)
|
|
{
|
|
numpts = 4;
|
|
get_floorspr_points(tspr, 0, 0,
|
|
&xx[0], &xx[1], &xx[2], &xx[3],
|
|
&yy[0], &yy[1], &yy[2], &yy[3]);
|
|
}
|
|
else
|
|
{
|
|
const int32_t oang = tspr->ang;
|
|
numpts = 2;
|
|
|
|
// Consider face sprites as wall sprites with camera ang.
|
|
// XXX: factor 4/5 needed?
|
|
if ((tspr->cstat & 48) != 16)
|
|
tspriteptr[i]->ang = globalang;
|
|
|
|
get_wallspr_points(tspr, &xx[0], &xx[1], &yy[0], &yy[1]);
|
|
|
|
if ((tspr->cstat & 48) == 0)
|
|
tspriteptr[i]->ang = oang;
|
|
}
|
|
|
|
for (jj=0; jj<numpts; jj++)
|
|
{
|
|
spr.x = xx[jj];
|
|
spr.y = yy[jj];
|
|
|
|
if (!sameside(&maskeq, &spr, &pos)) // behind the maskwall,
|
|
if ((sameside(&p1eq, &middle, &spr) && // inside the 'cone',
|
|
sameside(&p2eq, &middle, &spr))
|
|
|| !sameside(&pineq, &middle, &spr)) // or on the other outside.
|
|
{
|
|
ok = 1;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (ok)
|
|
{
|
|
debugmask_add(i | 32768, tspr->owner);
|
|
drawsprite(i);
|
|
tspriteptr[i] = NULL;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
debugmask_add(maskwall[maskwallcnt], thewall[maskwall[maskwallcnt]]);
|
|
drawmaskwall(maskwallcnt);
|
|
}
|
|
|
|
while (spritesortcnt)
|
|
{
|
|
spritesortcnt--;
|
|
if (tspriteptr[spritesortcnt] != NULL)
|
|
{
|
|
debugmask_add(spritesortcnt | 32768, tspriteptr[spritesortcnt]->owner);
|
|
drawsprite(spritesortcnt);
|
|
}
|
|
}
|
|
}
|
|
|
|
#ifdef POLYMER
|
|
if (getrendermode() == REND_POLYMER)
|
|
polymer_drawmasks();
|
|
#endif
|
|
#ifdef DEBUG_MASK_DRAWING
|
|
if (g_maskDrawMode && getrendermode() == REND_CLASSIC)
|
|
{
|
|
for (i=0; i<dmasknum; i++)
|
|
{
|
|
EDUKE32_STATIC_ASSERT(MAXWALLS <= 32768 && MAXSPRITES <= 32768);
|
|
int32_t spritep = !!(debugmask[i].di & 32768);
|
|
int32_t di = debugmask[i].di & 32767;
|
|
// int32_t ii = debugmask[i].i;
|
|
|
|
char numstr[12];
|
|
Bsprintf(numstr, "%d", i+1);
|
|
|
|
if (spritep)
|
|
{
|
|
int32_t sx = spritesx[di]>>8, sy = ydim/2 + 8;
|
|
// XXX: printext256 really ought to do bound checking on the
|
|
// x/y coords!
|
|
sx = clamp(sx, 0, xdim-8*Bstrlen(numstr)-1);
|
|
printext256(sx, sy, 241, 0, numstr, 0);
|
|
}
|
|
else
|
|
{
|
|
int32_t sx = xb1[di] + (xb2[di]-xb1[di])/2, sy = ydim/2;
|
|
sx = clamp(sx, 0, xdim-8*Bstrlen(numstr)-1);
|
|
printext256(sx, sy, 31, 0, numstr, 0);
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
|
|
indrawroomsandmasks = 0;
|
|
enddrawing(); //}}}
|
|
}
|
|
|
|
//
|
|
// drawmapview
|
|
//
|
|
void drawmapview(int32_t dax, int32_t day, int32_t zoome, int16_t ang)
|
|
{
|
|
walltype *wal;
|
|
sectortype *sec;
|
|
spritetype *spr;
|
|
int32_t i, j, k, l;
|
|
int32_t x, y, x1, y1, x2, y2, x3, y3, x4, y4, bakx1, baky1;
|
|
int32_t s, w, ox, oy, startwall, cx1, cy1, cx2, cy2;
|
|
int32_t bakgxvect, bakgyvect, sortnum, gap, npoints;
|
|
int32_t xvect, yvect, xvect2, yvect2, daslope;
|
|
|
|
int32_t oyxaspect=yxaspect, oviewingrange=viewingrange;
|
|
|
|
setaspect(65536, divscale16((320*5)/8, 200));
|
|
|
|
beforedrawrooms = 0;
|
|
|
|
Bmemset(gotsector, 0, (numsectors+7)>>3);
|
|
|
|
cx1 = (windowx1<<12); cy1 = (windowy1<<12);
|
|
cx2 = ((windowx2+1)<<12)-1; cy2 = ((windowy2+1)<<12)-1;
|
|
|
|
zoome <<= 8;
|
|
|
|
bakgxvect = divscale28(sintable[(1536-ang)&2047],zoome);
|
|
bakgyvect = divscale28(sintable[(2048-ang)&2047],zoome);
|
|
xvect = mulscale8(sintable[(2048-ang)&2047],zoome);
|
|
yvect = mulscale8(sintable[(1536-ang)&2047],zoome);
|
|
xvect2 = mulscale16(xvect,yxaspect);
|
|
yvect2 = mulscale16(yvect,yxaspect);
|
|
|
|
sortnum = 0;
|
|
|
|
begindrawing(); //{{{
|
|
|
|
for (s=0,sec=§or[s]; s<numsectors; s++,sec++)
|
|
if (show2dsector[s>>3]&pow2char[s&7])
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
if (yax_getbunch(s, YAX_FLOOR) >= 0 && (sector[s].floorstat&(256+128))==0)
|
|
continue;
|
|
#endif
|
|
npoints = 0; i = 0;
|
|
startwall = sec->wallptr;
|
|
#if 0
|
|
for (w=sec->wallnum,wal=&wall[startwall]; w>0; w--,wal++)
|
|
{
|
|
ox = wal->x - dax; oy = wal->y - day;
|
|
x = dmulscale16(ox,xvect,-oy,yvect) + (xdim<<11);
|
|
y = dmulscale16(oy,xvect2,ox,yvect2) + (ydim<<11);
|
|
i |= getclipmask(x-cx1,cx2-x,y-cy1,cy2-y);
|
|
rx1[npoints] = x;
|
|
ry1[npoints] = y;
|
|
xb1[npoints] = wal->point2 - startwall;
|
|
npoints++;
|
|
}
|
|
#else
|
|
j = startwall; l = 0;
|
|
for (w=sec->wallnum,wal=&wall[startwall]; w>0; w--,wal++,j++)
|
|
{
|
|
k = lastwall(j);
|
|
if ((k > j) && (npoints > 0)) { xb1[npoints-1] = l; l = npoints; } //overwrite point2
|
|
//wall[k].x wal->x wall[wal->point2].x
|
|
//wall[k].y wal->y wall[wal->point2].y
|
|
if (!dmulscale1(wal->x-wall[k].x,wall[wal->point2].y-wal->y,-(wal->y-wall[k].y),wall[wal->point2].x-wal->x)) continue;
|
|
ox = wal->x - dax; oy = wal->y - day;
|
|
x = dmulscale16(ox,xvect,-oy,yvect) + (xdim<<11);
|
|
y = dmulscale16(oy,xvect2,ox,yvect2) + (ydim<<11);
|
|
i |= getclipmask(x-cx1,cx2-x,y-cy1,cy2-y);
|
|
rx1[npoints] = x;
|
|
ry1[npoints] = y;
|
|
xb1[npoints] = npoints+1;
|
|
npoints++;
|
|
}
|
|
if (npoints > 0) xb1[npoints-1] = l; //overwrite point2
|
|
#endif
|
|
if ((i&0xf0) != 0xf0) continue;
|
|
bakx1 = rx1[0]; baky1 = mulscale16(ry1[0]-(ydim<<11),xyaspect)+(ydim<<11);
|
|
if (i&0x0f)
|
|
{
|
|
npoints = clippoly(npoints,i);
|
|
if (npoints < 3) continue;
|
|
}
|
|
|
|
//Collect floor sprites to draw
|
|
for (i=headspritesect[s]; i>=0; i=nextspritesect[i])
|
|
if ((sprite[i].cstat&48) == 32)
|
|
{
|
|
if ((sprite[i].cstat&(64+8)) == (64+8)) continue;
|
|
tsprite[sortnum++].owner = i;
|
|
}
|
|
|
|
gotsector[s>>3] |= pow2char[s&7];
|
|
|
|
globalorientation = (int32_t)sec->floorstat;
|
|
if ((globalorientation&1) != 0) continue;
|
|
|
|
globalpal = sec->floorpal;
|
|
|
|
if (palookup[sec->floorpal] != globalpalwritten)
|
|
{
|
|
globalpalwritten = palookup[sec->floorpal];
|
|
if (!globalpalwritten) globalpalwritten = palookup[0]; // JBF: fixes null-pointer crash
|
|
setpalookupaddress(globalpalwritten);
|
|
}
|
|
globalpicnum = sec->floorpicnum;
|
|
if ((unsigned)globalpicnum >= (unsigned)MAXTILES) globalpicnum = 0;
|
|
setgotpic(globalpicnum);
|
|
if ((tilesiz[globalpicnum].x <= 0) || (tilesiz[globalpicnum].y <= 0)) continue;
|
|
DO_TILE_ANIM(globalpicnum, s);
|
|
if (waloff[globalpicnum] == 0) loadtile(globalpicnum);
|
|
globalbufplc = waloff[globalpicnum];
|
|
globalshade = max(min(sec->floorshade,numshades-1),0);
|
|
globvis = globalhisibility;
|
|
if (sec->visibility != 0) globvis = mulscale4(globvis, (uint8_t)(sec->visibility+16));
|
|
globalpolytype = 0;
|
|
if ((globalorientation&64) == 0)
|
|
{
|
|
globalposx = dax; globalx1 = bakgxvect; globaly1 = bakgyvect;
|
|
globalposy = day; globalx2 = bakgxvect; globaly2 = bakgyvect;
|
|
}
|
|
else
|
|
{
|
|
ox = wall[wall[startwall].point2].x - wall[startwall].x;
|
|
oy = wall[wall[startwall].point2].y - wall[startwall].y;
|
|
i = nsqrtasm(uhypsq(ox,oy)); if (i == 0) continue;
|
|
i = 1048576/i;
|
|
globalx1 = mulscale10(dmulscale10(ox,bakgxvect,oy,bakgyvect),i);
|
|
globaly1 = mulscale10(dmulscale10(ox,bakgyvect,-oy,bakgxvect),i);
|
|
ox = (bakx1>>4)-(xdim<<7); oy = (baky1>>4)-(ydim<<7);
|
|
globalposx = dmulscale28(-oy,globalx1,-ox,globaly1);
|
|
globalposy = dmulscale28(-ox,globalx1,oy,globaly1);
|
|
globalx2 = -globalx1;
|
|
globaly2 = -globaly1;
|
|
|
|
daslope = sector[s].floorheinum;
|
|
i = nsqrtasm(daslope*daslope+16777216);
|
|
globalposy = mulscale12(globalposy,i);
|
|
globalx2 = mulscale12(globalx2,i);
|
|
globaly2 = mulscale12(globaly2,i);
|
|
}
|
|
|
|
calc_globalshifts();
|
|
|
|
sethlinesizes(picsiz[globalpicnum]&15,picsiz[globalpicnum]>>4,globalbufplc);
|
|
|
|
if ((globalorientation&0x4) > 0)
|
|
{
|
|
i = globalposx; globalposx = -globalposy; globalposy = -i;
|
|
i = globalx2; globalx2 = globaly1; globaly1 = i;
|
|
i = globalx1; globalx1 = -globaly2; globaly2 = -i;
|
|
}
|
|
if ((globalorientation&0x10) > 0) globalx1 = -globalx1, globaly1 = -globaly1, globalposx = -globalposx;
|
|
if ((globalorientation&0x20) > 0) globalx2 = -globalx2, globaly2 = -globaly2, globalposy = -globalposy;
|
|
asm1 = (globaly1<<globalxshift);
|
|
asm2 = (globalx2<<globalyshift);
|
|
globalx1 <<= globalxshift;
|
|
globaly2 <<= globalyshift;
|
|
globalposx = ((int64_t)globalposx<<(20+globalxshift))+(((uint32_t)sec->floorxpanning)<<24);
|
|
globalposy = ((int64_t)globalposy<<(20+globalyshift))-(((uint32_t)sec->floorypanning)<<24);
|
|
|
|
fillpolygon(npoints);
|
|
}
|
|
|
|
//Sort sprite list
|
|
gap = 1; while (gap < sortnum) gap = (gap<<1)+1;
|
|
for (gap>>=1; gap>0; gap>>=1)
|
|
for (i=0; i<sortnum-gap; i++)
|
|
for (j=i; j>=0; j-=gap)
|
|
{
|
|
if (sprite[tsprite[j].owner].z <= sprite[tsprite[j+gap].owner].z) break;
|
|
swapshort(&tsprite[j].owner,&tsprite[j+gap].owner);
|
|
}
|
|
|
|
for (s=sortnum-1; s>=0; s--)
|
|
{
|
|
spr = &sprite[tsprite[s].owner];
|
|
if ((spr->cstat&48) == 32)
|
|
{
|
|
int32_t xspan;
|
|
|
|
npoints = 0;
|
|
|
|
x1 = spr->x;
|
|
y1 = spr->y;
|
|
get_floorspr_points(spr, 0, 0, &x1, &x2, &x3, &x4,
|
|
&y1, &y2, &y3, &y4);
|
|
xspan = tilesiz[spr->picnum].x;
|
|
|
|
xb1[0] = 1; xb1[1] = 2; xb1[2] = 3; xb1[3] = 0;
|
|
npoints = 4;
|
|
|
|
i = 0;
|
|
|
|
ox = x1 - dax; oy = y1 - day;
|
|
x = dmulscale16(ox,xvect,-oy,yvect) + (xdim<<11);
|
|
y = dmulscale16(oy,xvect2,ox,yvect2) + (ydim<<11);
|
|
i |= getclipmask(x-cx1,cx2-x,y-cy1,cy2-y);
|
|
rx1[0] = x; ry1[0] = y;
|
|
|
|
ox = x2 - dax; oy = y2 - day;
|
|
x = dmulscale16(ox,xvect,-oy,yvect) + (xdim<<11);
|
|
y = dmulscale16(oy,xvect2,ox,yvect2) + (ydim<<11);
|
|
i |= getclipmask(x-cx1,cx2-x,y-cy1,cy2-y);
|
|
rx1[1] = x; ry1[1] = y;
|
|
|
|
ox = x3 - dax; oy = y3 - day;
|
|
x = dmulscale16(ox,xvect,-oy,yvect) + (xdim<<11);
|
|
y = dmulscale16(oy,xvect2,ox,yvect2) + (ydim<<11);
|
|
i |= getclipmask(x-cx1,cx2-x,y-cy1,cy2-y);
|
|
rx1[2] = x; ry1[2] = y;
|
|
|
|
x = rx1[0]+rx1[2]-rx1[1];
|
|
y = ry1[0]+ry1[2]-ry1[1];
|
|
i |= getclipmask(x-cx1,cx2-x,y-cy1,cy2-y);
|
|
rx1[3] = x; ry1[3] = y;
|
|
|
|
if ((i&0xf0) != 0xf0) continue;
|
|
bakx1 = rx1[0]; baky1 = mulscale16(ry1[0]-(ydim<<11),xyaspect)+(ydim<<11);
|
|
if (i&0x0f)
|
|
{
|
|
npoints = clippoly(npoints,i);
|
|
if (npoints < 3) continue;
|
|
}
|
|
|
|
globalpicnum = spr->picnum;
|
|
globalpal = spr->pal; // GL needs this, software doesn't
|
|
if ((unsigned)globalpicnum >= (unsigned)MAXTILES) globalpicnum = 0;
|
|
setgotpic(globalpicnum);
|
|
if ((tilesiz[globalpicnum].x <= 0) || (tilesiz[globalpicnum].y <= 0)) continue;
|
|
DO_TILE_ANIM(globalpicnum, s);
|
|
if (waloff[globalpicnum] == 0) loadtile(globalpicnum);
|
|
globalbufplc = waloff[globalpicnum];
|
|
|
|
// 'loading' the tile doesn't actually guarantee that it's there afterwards.
|
|
// This can really happen when drawing the second frame of a floor-aligned
|
|
// 'storm icon' sprite (4894+1)
|
|
if (!globalbufplc)
|
|
continue;
|
|
|
|
if ((sector[spr->sectnum].ceilingstat&1) > 0)
|
|
globalshade = ((int32_t)sector[spr->sectnum].ceilingshade);
|
|
else
|
|
globalshade = ((int32_t)sector[spr->sectnum].floorshade);
|
|
globalshade = max(min(globalshade+spr->shade+6,numshades-1),0);
|
|
asm3 = FP_OFF(palookup[spr->pal]+(globalshade<<8));
|
|
globvis = globalhisibility;
|
|
if (sec->visibility != 0) globvis = mulscale4(globvis, (uint8_t)(sec->visibility+16));
|
|
globalpolytype = ((spr->cstat&2)>>1)+1;
|
|
|
|
//relative alignment stuff
|
|
ox = x2-x1; oy = y2-y1;
|
|
i = ox*ox+oy*oy; if (i == 0) continue; i = tabledivide32_noinline(65536*16384, i);
|
|
globalx1 = mulscale10(dmulscale10(ox,bakgxvect,oy,bakgyvect),i);
|
|
globaly1 = mulscale10(dmulscale10(ox,bakgyvect,-oy,bakgxvect),i);
|
|
ox = y1-y4; oy = x4-x1;
|
|
i = ox*ox+oy*oy; if (i == 0) continue; i = tabledivide32_noinline(65536*16384, i);
|
|
globalx2 = mulscale10(dmulscale10(ox,bakgxvect,oy,bakgyvect),i);
|
|
globaly2 = mulscale10(dmulscale10(ox,bakgyvect,-oy,bakgxvect),i);
|
|
|
|
ox = picsiz[globalpicnum]; oy = ((ox>>4)&15); ox &= 15;
|
|
if (pow2long[ox] != xspan)
|
|
{
|
|
ox++;
|
|
globalx1 = mulscale(globalx1,xspan,ox);
|
|
globaly1 = mulscale(globaly1,xspan,ox);
|
|
}
|
|
|
|
bakx1 = (bakx1>>4)-(xdim<<7); baky1 = (baky1>>4)-(ydim<<7);
|
|
globalposx = dmulscale28(-baky1,globalx1,-bakx1,globaly1);
|
|
globalposy = dmulscale28(bakx1,globalx2,-baky1,globaly2);
|
|
|
|
if ((spr->cstat&2) == 0)
|
|
msethlineshift(ox,oy);
|
|
else
|
|
{
|
|
setup_blend(spr->blend, spr->cstat&512);
|
|
tsethlineshift(ox,oy);
|
|
}
|
|
|
|
if ((spr->cstat&0x4) > 0) globalx1 = -globalx1, globaly1 = -globaly1, globalposx = -globalposx;
|
|
asm1 = (globaly1<<2); globalx1 <<= 2; globalposx <<= (20+2);
|
|
asm2 = (globalx2<<2); globaly2 <<= 2; globalposy <<= (20+2);
|
|
|
|
// so polymost can get the translucency. ignored in software mode:
|
|
globalorientation = ((spr->cstat&2)<<7) | ((spr->cstat&512)>>2);
|
|
fillpolygon(npoints);
|
|
}
|
|
}
|
|
|
|
enddrawing(); //}}}
|
|
|
|
if (r_usenewaspect)
|
|
setaspect(oviewingrange, oyxaspect);
|
|
else
|
|
setaspect(65536, divscale16(ydim*320, xdim*200));
|
|
}
|
|
|
|
////////// Per-map ART file loading //////////
|
|
|
|
// Some forward declarations.
|
|
static void set_picsiz(int32_t picnum);
|
|
static const char *E_GetArtFileName(int32_t tilefilei);
|
|
static int32_t E_ReadArtFile(int32_t tilefilei);
|
|
|
|
static void clearmapartfilename(void)
|
|
{
|
|
Bmemset(mapartfilename, 0, sizeof(mapartfilename));
|
|
mapartfnXXofs = 0;
|
|
}
|
|
|
|
static void E_RecalcPicSiz(void)
|
|
{
|
|
int32_t i;
|
|
for (i=0; i<MAXTILES; i++)
|
|
set_picsiz(i);
|
|
}
|
|
|
|
#define RESTORE_MAPART_ARRAY(origar, bakar) do { \
|
|
EDUKE32_STATIC_ASSERT(sizeof(origar[0]) == sizeof(bakar[0])); \
|
|
Bmemcpy(origar, bakar, MAXUSERTILES*sizeof(origar[0])); \
|
|
DO_FREE_AND_NULL(bakar); \
|
|
} while (0)
|
|
|
|
// Allocate per-map ART backup array and back up the original!
|
|
#ifdef __cplusplus
|
|
template <typename origar_t, typename bakar_t>
|
|
static inline void ALLOC_MAPART_ARRAY(origar_t &origar, bakar_t &bakar)
|
|
{
|
|
bakar = (bakar_t)Xmalloc(MAXUSERTILES*sizeof(origar[0]));
|
|
Bmemcpy(bakar, origar, MAXUSERTILES*sizeof(origar[0]));
|
|
}
|
|
#else
|
|
#define ALLOC_MAPART_ARRAY(origar, bakar) do { \
|
|
bakar = Xmalloc(MAXUSERTILES*sizeof(origar[0])); \
|
|
Bmemcpy(bakar, origar, MAXUSERTILES*sizeof(origar[0])); \
|
|
} while (0)
|
|
#endif
|
|
|
|
void E_MapArt_Clear(void)
|
|
{
|
|
int32_t i;
|
|
|
|
if (g_bakTileFileNum == NULL)
|
|
return; // per-map ART N/A
|
|
|
|
clearmapartfilename();
|
|
|
|
if (artfilnum >= MAXARTFILES_BASE)
|
|
{
|
|
kclose(artfil);
|
|
|
|
artfil = -1;
|
|
artfilnum = -1;
|
|
artfilplc = 0L;
|
|
}
|
|
|
|
for (i=0; i<MAXTILES; i++)
|
|
if (tilefilenum[i] >= MAXARTFILES_BASE)
|
|
{
|
|
// XXX: OK way to free it? Better: cache1d API. CACHE1D_FREE
|
|
walock[i] = 1;
|
|
waloff[i] = 0;
|
|
}
|
|
|
|
// Restore original per-tile arrays
|
|
RESTORE_MAPART_ARRAY(tilefilenum, g_bakTileFileNum);
|
|
RESTORE_MAPART_ARRAY(tilefileoffs, g_bakTileFileOffs);
|
|
RESTORE_MAPART_ARRAY(tilesiz, g_bakTileSiz);
|
|
RESTORE_MAPART_ARRAY(picanm, g_bakPicAnm);
|
|
|
|
E_RecalcPicSiz();
|
|
#ifdef USE_OPENGL
|
|
gltexinvalidatetype(INVALIDATE_ART);
|
|
# ifdef POLYMER
|
|
if (getrendermode() == REND_POLYMER)
|
|
polymer_texinvalidate();
|
|
# endif
|
|
#endif
|
|
}
|
|
|
|
void E_MapArt_Setup(const char *filename)
|
|
{
|
|
int32_t i;
|
|
|
|
if (Bstrlen(filename) + 7 >= sizeof(mapartfilename))
|
|
return;
|
|
|
|
E_MapArt_Clear();
|
|
|
|
Bstrcpy(mapartfilename, filename);
|
|
append_ext_UNSAFE(mapartfilename, "_XX.art");
|
|
mapartfnXXofs = Bstrlen(mapartfilename) - 6;
|
|
|
|
// Check for first per-map ART file: if that one doesn't exist, don't load any.
|
|
{
|
|
int32_t fil = kopen4load(E_GetArtFileName(MAXARTFILES_BASE), 0);
|
|
|
|
if (fil == -1)
|
|
{
|
|
clearmapartfilename();
|
|
return;
|
|
}
|
|
|
|
kclose(fil);
|
|
}
|
|
|
|
// Allocate backup arrays.
|
|
ALLOC_MAPART_ARRAY(tilefilenum, g_bakTileFileNum);
|
|
ALLOC_MAPART_ARRAY(tilefileoffs, g_bakTileFileOffs);
|
|
ALLOC_MAPART_ARRAY(tilesiz, g_bakTileSiz);
|
|
ALLOC_MAPART_ARRAY(picanm, g_bakPicAnm);
|
|
|
|
for (i=MAXARTFILES_BASE; i<MAXARTFILES_TOTAL; i++)
|
|
{
|
|
int32_t ret = E_ReadArtFile(i);
|
|
|
|
if (ret != 0)
|
|
{
|
|
// NOTE: i == MAXARTFILES_BASE && ret == -1 can only have happened
|
|
// if the file was deleted between the above file existence check
|
|
// and now. Very cornerly... but I like my code to be prepared to
|
|
// any eventuality.
|
|
if (i == MAXARTFILES_BASE || ret != -1)
|
|
E_MapArt_Clear();
|
|
break;
|
|
}
|
|
}
|
|
|
|
E_RecalcPicSiz();
|
|
#ifdef USE_OPENGL
|
|
gltexinvalidatetype(INVALIDATE_ART);
|
|
# ifdef POLYMER
|
|
if (getrendermode() == REND_POLYMER)
|
|
polymer_texinvalidate();
|
|
# endif
|
|
#endif
|
|
}
|
|
|
|
//////////////////// LOADING AND SAVING ROUTINES ////////////////////
|
|
|
|
static inline int32_t have_maptext(void)
|
|
{
|
|
return (mapversion >= 10);
|
|
}
|
|
|
|
static void prepare_loadboard(int32_t fil, vec3_t *dapos, int16_t *daang, int16_t *dacursectnum)
|
|
{
|
|
initspritelists();
|
|
|
|
Bmemset(show2dsector, 0, sizeof(show2dsector));
|
|
Bmemset(show2dsprite, 0, sizeof(show2dsprite));
|
|
Bmemset(show2dwall, 0, sizeof(show2dwall));
|
|
|
|
if (!have_maptext())
|
|
{
|
|
kread(fil,&dapos->x,4); dapos->x = B_LITTLE32(dapos->x);
|
|
kread(fil,&dapos->y,4); dapos->y = B_LITTLE32(dapos->y);
|
|
kread(fil,&dapos->z,4); dapos->z = B_LITTLE32(dapos->z);
|
|
kread(fil,daang,2); *daang = B_LITTLE16(*daang) & 2047;
|
|
kread(fil,dacursectnum,2); *dacursectnum = B_LITTLE16(*dacursectnum);
|
|
}
|
|
}
|
|
|
|
static int32_t finish_loadboard(const vec3_t *dapos, int16_t *dacursectnum, int16_t numsprites, char myflags)
|
|
{
|
|
int32_t i, realnumsprites=numsprites, numremoved;
|
|
|
|
#if !defined USE_OPENGL || !defined POLYMER
|
|
UNREFERENCED_PARAMETER(myflags);
|
|
#endif
|
|
|
|
for (i=0; i<numsprites; i++)
|
|
{
|
|
int32_t removeit = 0;
|
|
|
|
if ((sprite[i].cstat & 48) == 48)
|
|
sprite[i].cstat &= ~48;
|
|
|
|
if (sprite[i].statnum == MAXSTATUS)
|
|
{
|
|
// Sprite was removed in loadboard() -> check_sprite(). Insert it
|
|
// for now, because we must maintain the sprite numbering.
|
|
sprite[i].statnum = sprite[i].sectnum = 0;
|
|
removeit = 1;
|
|
}
|
|
|
|
insertsprite(sprite[i].sectnum, sprite[i].statnum);
|
|
|
|
if (removeit)
|
|
{
|
|
// Flag .statnum==MAXSTATUS, temporarily creating an inconsistency
|
|
// with sprite list.
|
|
sprite[i].statnum = MAXSTATUS;
|
|
realnumsprites--;
|
|
}
|
|
}
|
|
|
|
if (numsprites != realnumsprites)
|
|
{
|
|
for (i=0; i<numsprites; i++)
|
|
if (sprite[i].statnum == MAXSTATUS)
|
|
{
|
|
// Now remove it for real!
|
|
sprite[i].statnum = 0;
|
|
deletesprite(i);
|
|
}
|
|
}
|
|
|
|
numremoved = (numsprites-realnumsprites);
|
|
numsprites = realnumsprites;
|
|
Bassert(numsprites == Numsprites);
|
|
|
|
//Must be after loading sectors, etc!
|
|
updatesector(dapos->x, dapos->y, dacursectnum);
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (!quickloadboard)
|
|
#endif
|
|
{
|
|
Bmemset(spriteext, 0, sizeof(spriteext_t)*MAXSPRITES);
|
|
|
|
#ifdef USE_OPENGL
|
|
Bmemset(spritesmooth, 0, sizeof(spritesmooth_t)*(MAXSPRITES+MAXUNIQHUDID));
|
|
|
|
# ifdef POLYMER
|
|
if (getrendermode() == REND_POLYMER)
|
|
{
|
|
if ((myflags&4)==0)
|
|
polymer_loadboard();
|
|
}
|
|
# endif
|
|
#endif
|
|
}
|
|
|
|
guniqhudid = 0;
|
|
|
|
return numremoved;
|
|
}
|
|
|
|
|
|
#define MYMAXSECTORS() (MAXSECTORS==MAXSECTORSV7 || mapversion <= 7 ? MAXSECTORSV7 : MAXSECTORSV8)
|
|
#define MYMAXWALLS() (MAXSECTORS==MAXSECTORSV7 || mapversion <= 7 ? MAXWALLSV7 : MAXWALLSV8)
|
|
#define MYMAXSPRITES() (MAXSECTORS==MAXSECTORSV7 || mapversion <= 7 ? MAXSPRITESV7 : MAXSPRITESV8)
|
|
|
|
// Sprite checking
|
|
|
|
static void remove_sprite(int32_t i)
|
|
{
|
|
Bmemset(&sprite[i], 0, sizeof(spritetype));
|
|
sprite[i].statnum = MAXSTATUS;
|
|
sprite[i].sectnum = MAXSECTORS;
|
|
}
|
|
|
|
// This is only to be run after reading the sprite array!
|
|
static void check_sprite(int32_t i)
|
|
{
|
|
if ((unsigned)sprite[i].statnum >= MAXSTATUS)
|
|
{
|
|
initprintf_nowarn(OSD_ERROR "Map error: sprite #%d (%d,%d) with illegal statnum (%d) REMOVED.\n",
|
|
i, TrackerCast(sprite[i].x), TrackerCast(sprite[i].y), TrackerCast(sprite[i].statnum));
|
|
remove_sprite(i);
|
|
}
|
|
else if ((unsigned)sprite[i].picnum >= MAXTILES)
|
|
{
|
|
initprintf_nowarn(OSD_ERROR "Map error: sprite #%d (%d,%d) with illegal picnum (%d) REMOVED.\n",
|
|
i, TrackerCast(sprite[i].x), TrackerCast(sprite[i].y), TrackerCast(sprite[i].sectnum));
|
|
remove_sprite(i);
|
|
}
|
|
else if ((unsigned)sprite[i].sectnum >= (unsigned)numsectors)
|
|
{
|
|
const int32_t osectnum = sprite[i].sectnum;
|
|
|
|
sprite[i].sectnum = -1;
|
|
updatesector(sprite[i].x, sprite[i].y, &sprite[i].sectnum);
|
|
|
|
if (sprite[i].sectnum < 0)
|
|
remove_sprite(i);
|
|
|
|
initprintf_nowarn(OSD_ERROR "Map error: sprite #%d (%d,%d) with illegal sector (%d) ",
|
|
i, TrackerCast(sprite[i].x), TrackerCast(sprite[i].y), osectnum);
|
|
|
|
if (sprite[i].statnum != MAXSTATUS)
|
|
initprintf_nowarn("changed to sector %d.\n", TrackerCast(sprite[i].sectnum));
|
|
else
|
|
initprintf_nowarn("REMOVED.\n");
|
|
}
|
|
}
|
|
|
|
#ifdef NEW_MAP_FORMAT
|
|
// Returns the number of sprites, or <0 on error.
|
|
LUNATIC_CB int32_t (*loadboard_maptext)(int32_t fil, vec3_t *dapos, int16_t *daang, int16_t *dacursectnum);
|
|
#endif
|
|
|
|
// flags: 1, 2: former parameter "fromwhere"
|
|
// 4: don't call polymer_loadboard
|
|
// 8: don't autoexec <mapname>.cfg
|
|
// returns: on success, number of removed sprites
|
|
// -1: file not found
|
|
// -2: invalid version
|
|
// -3: invalid number of sectors, walls or sprites
|
|
// <= -4: map-text error
|
|
int32_t loadboard(const char *filename, char flags, vec3_t *dapos, int16_t *daang, int16_t *dacursectnum)
|
|
{
|
|
int32_t fil, i;
|
|
int16_t numsprites;
|
|
const char myflags = flags&(~3);
|
|
|
|
flags &= 3;
|
|
|
|
if ((fil = kopen4load(filename,flags)) == -1)
|
|
{ mapversion = 7; return -1; }
|
|
|
|
if (kread(fil, &mapversion, 4) != 4)
|
|
return -2;
|
|
|
|
{
|
|
int32_t ok = 0;
|
|
|
|
#ifdef NEW_MAP_FORMAT
|
|
// Check for map-text first.
|
|
if (!Bmemcmp(&mapversion, "--ED", 4))
|
|
{
|
|
mapversion = 10;
|
|
ok = 1;
|
|
}
|
|
else
|
|
#endif
|
|
{
|
|
// Not map-text. We expect a little-endian version int now.
|
|
mapversion = B_LITTLE32(mapversion);
|
|
#ifdef YAX_ENABLE
|
|
ok |= (mapversion==9);
|
|
#endif
|
|
#if MAXSECTORS==MAXSECTORSV8
|
|
// v8 engine
|
|
ok |= (mapversion==8);
|
|
#endif
|
|
ok |= (mapversion==7);
|
|
}
|
|
|
|
if (!ok)
|
|
{
|
|
kclose(fil);
|
|
return -2;
|
|
}
|
|
}
|
|
|
|
prepare_loadboard(fil, dapos, daang, dacursectnum);
|
|
|
|
#ifdef NEW_MAP_FORMAT
|
|
if (have_maptext())
|
|
{
|
|
int32_t ret = klseek(fil, 0, SEEK_SET);
|
|
|
|
if (ret == 0)
|
|
ret = loadboard_maptext(fil, dapos, daang, dacursectnum);
|
|
|
|
if (ret < 0)
|
|
{
|
|
kclose(fil);
|
|
return ret;
|
|
}
|
|
|
|
numsprites = ret;
|
|
goto skip_reading_mapbin;
|
|
}
|
|
#endif
|
|
|
|
////////// Read sectors //////////
|
|
|
|
kread(fil,&numsectors,2); numsectors = B_LITTLE16(numsectors);
|
|
if ((unsigned)numsectors >= MYMAXSECTORS()+1) { kclose(fil); return -3; }
|
|
|
|
kread(fil, sector, sizeof(sectortypev7)*numsectors);
|
|
|
|
for (i=numsectors-1; i>=0; i--)
|
|
{
|
|
#ifdef NEW_MAP_FORMAT
|
|
Bmemmove(§or[i], &(((sectortypev7 *)sector)[i]), sizeof(sectortypevx));
|
|
inplace_vx_from_v7_sector(§or[i]);
|
|
#endif
|
|
sector[i].wallptr = B_LITTLE16(sector[i].wallptr);
|
|
sector[i].wallnum = B_LITTLE16(sector[i].wallnum);
|
|
sector[i].ceilingz = B_LITTLE32(sector[i].ceilingz);
|
|
sector[i].floorz = B_LITTLE32(sector[i].floorz);
|
|
sector[i].ceilingstat = B_LITTLE16(sector[i].ceilingstat);
|
|
sector[i].floorstat = B_LITTLE16(sector[i].floorstat);
|
|
sector[i].ceilingpicnum = B_LITTLE16(sector[i].ceilingpicnum);
|
|
sector[i].ceilingheinum = B_LITTLE16(sector[i].ceilingheinum);
|
|
sector[i].floorpicnum = B_LITTLE16(sector[i].floorpicnum);
|
|
sector[i].floorheinum = B_LITTLE16(sector[i].floorheinum);
|
|
sector[i].lotag = B_LITTLE16(sector[i].lotag);
|
|
sector[i].hitag = B_LITTLE16(sector[i].hitag);
|
|
sector[i].extra = B_LITTLE16(sector[i].extra);
|
|
#ifdef NEW_MAP_FORMAT
|
|
inplace_vx_tweak_sector(§or[i], mapversion==9);
|
|
#endif
|
|
}
|
|
|
|
|
|
////////// Read walls //////////
|
|
|
|
kread(fil,&numwalls,2); numwalls = B_LITTLE16(numwalls);
|
|
if ((unsigned)numwalls >= MYMAXWALLS()+1) { kclose(fil); return -3; }
|
|
|
|
kread(fil, wall, sizeof(walltypev7)*numwalls);
|
|
|
|
for (i=numwalls-1; i>=0; i--)
|
|
{
|
|
#ifdef NEW_MAP_FORMAT
|
|
Bmemmove(&wall[i], &(((walltypev7 *)wall)[i]), sizeof(walltypevx));
|
|
inplace_vx_from_v7_wall(&wall[i]);
|
|
#endif
|
|
wall[i].x = B_LITTLE32(wall[i].x);
|
|
wall[i].y = B_LITTLE32(wall[i].y);
|
|
wall[i].point2 = B_LITTLE16(wall[i].point2);
|
|
wall[i].nextwall = B_LITTLE16(wall[i].nextwall);
|
|
wall[i].nextsector = B_LITTLE16(wall[i].nextsector);
|
|
wall[i].cstat = B_LITTLE16(wall[i].cstat);
|
|
wall[i].picnum = B_LITTLE16(wall[i].picnum);
|
|
wall[i].overpicnum = B_LITTLE16(wall[i].overpicnum);
|
|
wall[i].lotag = B_LITTLE16(wall[i].lotag);
|
|
wall[i].hitag = B_LITTLE16(wall[i].hitag);
|
|
wall[i].extra = B_LITTLE16(wall[i].extra);
|
|
#ifdef NEW_MAP_FORMAT
|
|
inplace_vx_tweak_wall(&wall[i], mapversion==9);
|
|
#endif
|
|
}
|
|
|
|
|
|
////////// Read sprites //////////
|
|
|
|
kread(fil,&numsprites,2); numsprites = B_LITTLE16(numsprites);
|
|
if ((unsigned)numsprites >= MYMAXSPRITES()+1) { kclose(fil); return -3; }
|
|
|
|
kread(fil, sprite, sizeof(spritetype)*numsprites);
|
|
|
|
#ifdef NEW_MAP_FORMAT
|
|
skip_reading_mapbin:
|
|
#endif
|
|
kclose(fil);
|
|
// Done reading file.
|
|
|
|
for (i=numsprites-1; i>=0; i--)
|
|
{
|
|
if (!have_maptext())
|
|
{
|
|
sprite[i].x = B_LITTLE32(sprite[i].x);
|
|
sprite[i].y = B_LITTLE32(sprite[i].y);
|
|
sprite[i].z = B_LITTLE32(sprite[i].z);
|
|
sprite[i].cstat = B_LITTLE16(sprite[i].cstat);
|
|
sprite[i].picnum = B_LITTLE16(sprite[i].picnum);
|
|
sprite[i].sectnum = B_LITTLE16(sprite[i].sectnum);
|
|
sprite[i].statnum = B_LITTLE16(sprite[i].statnum);
|
|
sprite[i].ang = B_LITTLE16(sprite[i].ang);
|
|
sprite[i].owner = B_LITTLE16(sprite[i].owner);
|
|
sprite[i].xvel = B_LITTLE16(sprite[i].xvel);
|
|
sprite[i].yvel = B_LITTLE16(sprite[i].yvel);
|
|
sprite[i].zvel = B_LITTLE16(sprite[i].zvel);
|
|
sprite[i].lotag = B_LITTLE16(sprite[i].lotag);
|
|
sprite[i].hitag = B_LITTLE16(sprite[i].hitag);
|
|
sprite[i].extra = B_LITTLE16(sprite[i].extra);
|
|
}
|
|
|
|
check_sprite(i);
|
|
}
|
|
|
|
// Back up the map version of the *loaded* map. Must be before yax_update().
|
|
g_loadedMapVersion = mapversion;
|
|
#ifdef YAX_ENABLE
|
|
yax_update(mapversion<9);
|
|
if (editstatus)
|
|
yax_updategrays(dapos->z);
|
|
#endif
|
|
|
|
if ((myflags&8)==0)
|
|
{
|
|
char fn[BMAX_PATH];
|
|
|
|
Bstrcpy(fn, filename);
|
|
append_ext_UNSAFE(fn, ".cfg");
|
|
|
|
OSD_Exec(fn);
|
|
|
|
system_getcvars();
|
|
|
|
// Per-map ART
|
|
E_MapArt_Setup(filename);
|
|
}
|
|
|
|
return finish_loadboard(dapos, dacursectnum, numsprites, myflags);
|
|
}
|
|
|
|
|
|
//
|
|
// loadboardv5/6
|
|
//
|
|
#include "engine_oldmap.h"
|
|
|
|
// Powerslave uses v6
|
|
// Witchaven 1 and TekWar and LameDuke use v5
|
|
int32_t loadoldboard(const char *filename, char fromwhere, vec3_t *dapos, int16_t *daang, int16_t *dacursectnum)
|
|
{
|
|
int32_t fil, i;
|
|
int16_t numsprites;
|
|
|
|
struct sectortypev5 v5sect;
|
|
struct walltypev5 v5wall;
|
|
struct spritetypev5 v5spr;
|
|
struct sectortypev6 v6sect;
|
|
struct walltypev6 v6wall;
|
|
struct spritetypev6 v6spr;
|
|
|
|
if ((fil = kopen4load(filename,fromwhere)) == -1)
|
|
{ mapversion = 5L; return(-1); }
|
|
|
|
kread(fil,&mapversion,4); mapversion = B_LITTLE32(mapversion);
|
|
if (mapversion != 5L && mapversion != 6L) { kclose(fil); return(-2); }
|
|
|
|
prepare_loadboard(fil, dapos, daang, dacursectnum);
|
|
|
|
kread(fil,&numsectors,2); numsectors = B_LITTLE16(numsectors);
|
|
if (numsectors > MAXSECTORS) { kclose(fil); return(-1); }
|
|
for (i=0; i<numsectors; i++)
|
|
{
|
|
switch (mapversion)
|
|
{
|
|
case 5:
|
|
kread(fil,&v5sect,sizeof(struct sectortypev5));
|
|
v5sect.wallptr = B_LITTLE16(v5sect.wallptr);
|
|
v5sect.wallnum = B_LITTLE16(v5sect.wallnum);
|
|
v5sect.ceilingpicnum = B_LITTLE16(v5sect.ceilingpicnum);
|
|
v5sect.floorpicnum = B_LITTLE16(v5sect.floorpicnum);
|
|
v5sect.ceilingheinum = B_LITTLE16(v5sect.ceilingheinum);
|
|
v5sect.floorheinum = B_LITTLE16(v5sect.floorheinum);
|
|
v5sect.ceilingz = B_LITTLE32(v5sect.ceilingz);
|
|
v5sect.floorz = B_LITTLE32(v5sect.floorz);
|
|
v5sect.lotag = B_LITTLE16(v5sect.lotag);
|
|
v5sect.hitag = B_LITTLE16(v5sect.hitag);
|
|
v5sect.extra = B_LITTLE16(v5sect.extra);
|
|
break;
|
|
case 6:
|
|
kread(fil,&v6sect,sizeof(struct sectortypev6));
|
|
v6sect.wallptr = B_LITTLE16(v6sect.wallptr);
|
|
v6sect.wallnum = B_LITTLE16(v6sect.wallnum);
|
|
v6sect.ceilingpicnum = B_LITTLE16(v6sect.ceilingpicnum);
|
|
v6sect.floorpicnum = B_LITTLE16(v6sect.floorpicnum);
|
|
v6sect.ceilingheinum = B_LITTLE16(v6sect.ceilingheinum);
|
|
v6sect.floorheinum = B_LITTLE16(v6sect.floorheinum);
|
|
v6sect.ceilingz = B_LITTLE32(v6sect.ceilingz);
|
|
v6sect.floorz = B_LITTLE32(v6sect.floorz);
|
|
v6sect.lotag = B_LITTLE16(v6sect.lotag);
|
|
v6sect.hitag = B_LITTLE16(v6sect.hitag);
|
|
v6sect.extra = B_LITTLE16(v6sect.extra);
|
|
break;
|
|
}
|
|
|
|
switch (mapversion)
|
|
{
|
|
case 5:
|
|
convertv5sectv6(&v5sect,&v6sect);
|
|
case 6:
|
|
convertv6sectv7(&v6sect,§or[i]);
|
|
}
|
|
}
|
|
|
|
kread(fil,&numwalls,2); numwalls = B_LITTLE16(numwalls);
|
|
if (numwalls > MAXWALLS) { kclose(fil); return(-1); }
|
|
for (i=0; i<numwalls; i++)
|
|
{
|
|
switch (mapversion)
|
|
{
|
|
case 5:
|
|
kread(fil,&v5wall,sizeof(struct walltypev5));
|
|
v5wall.x = B_LITTLE32(v5wall.x);
|
|
v5wall.y = B_LITTLE32(v5wall.y);
|
|
v5wall.point2 = B_LITTLE16(v5wall.point2);
|
|
v5wall.picnum = B_LITTLE16(v5wall.picnum);
|
|
v5wall.overpicnum = B_LITTLE16(v5wall.overpicnum);
|
|
v5wall.cstat = B_LITTLE16(v5wall.cstat);
|
|
v5wall.nextsector1 = B_LITTLE16(v5wall.nextsector1);
|
|
v5wall.nextwall1 = B_LITTLE16(v5wall.nextwall1);
|
|
v5wall.nextsector2 = B_LITTLE16(v5wall.nextsector2);
|
|
v5wall.nextwall2 = B_LITTLE16(v5wall.nextwall2);
|
|
v5wall.lotag = B_LITTLE16(v5wall.lotag);
|
|
v5wall.hitag = B_LITTLE16(v5wall.hitag);
|
|
v5wall.extra = B_LITTLE16(v5wall.extra);
|
|
break;
|
|
case 6:
|
|
kread(fil,&v6wall,sizeof(struct walltypev6));
|
|
v6wall.x = B_LITTLE32(v6wall.x);
|
|
v6wall.y = B_LITTLE32(v6wall.y);
|
|
v6wall.point2 = B_LITTLE16(v6wall.point2);
|
|
v6wall.nextsector = B_LITTLE16(v6wall.nextsector);
|
|
v6wall.nextwall = B_LITTLE16(v6wall.nextwall);
|
|
v6wall.picnum = B_LITTLE16(v6wall.picnum);
|
|
v6wall.overpicnum = B_LITTLE16(v6wall.overpicnum);
|
|
v6wall.cstat = B_LITTLE16(v6wall.cstat);
|
|
v6wall.lotag = B_LITTLE16(v6wall.lotag);
|
|
v6wall.hitag = B_LITTLE16(v6wall.hitag);
|
|
v6wall.extra = B_LITTLE16(v6wall.extra);
|
|
break;
|
|
}
|
|
|
|
switch (mapversion)
|
|
{
|
|
case 5:
|
|
convertv5wallv6(&v5wall,&v6wall,i);
|
|
case 6:
|
|
convertv6wallv7(&v6wall,&wall[i]);
|
|
}
|
|
}
|
|
|
|
kread(fil,&numsprites,2); numsprites = B_LITTLE16(numsprites);
|
|
if (numsprites > MAXSPRITES) { kclose(fil); return(-1); }
|
|
for (i=0; i<numsprites; i++)
|
|
{
|
|
switch (mapversion)
|
|
{
|
|
case 5:
|
|
kread(fil,&v5spr,sizeof(struct spritetypev5));
|
|
v5spr.x = B_LITTLE32(v5spr.x);
|
|
v5spr.y = B_LITTLE32(v5spr.y);
|
|
v5spr.z = B_LITTLE32(v5spr.z);
|
|
v5spr.picnum = B_LITTLE16(v5spr.picnum);
|
|
v5spr.ang = B_LITTLE16(v5spr.ang);
|
|
v5spr.xvel = B_LITTLE16(v5spr.xvel);
|
|
v5spr.yvel = B_LITTLE16(v5spr.yvel);
|
|
v5spr.zvel = B_LITTLE16(v5spr.zvel);
|
|
v5spr.owner = B_LITTLE16(v5spr.owner);
|
|
v5spr.sectnum = B_LITTLE16(v5spr.sectnum);
|
|
v5spr.statnum = B_LITTLE16(v5spr.statnum);
|
|
v5spr.lotag = B_LITTLE16(v5spr.lotag);
|
|
v5spr.hitag = B_LITTLE16(v5spr.hitag);
|
|
v5spr.extra = B_LITTLE16(v5spr.extra);
|
|
break;
|
|
case 6:
|
|
kread(fil,&v6spr,sizeof(struct spritetypev6));
|
|
v6spr.x = B_LITTLE32(v6spr.x);
|
|
v6spr.y = B_LITTLE32(v6spr.y);
|
|
v6spr.z = B_LITTLE32(v6spr.z);
|
|
v6spr.cstat = B_LITTLE16(v6spr.cstat);
|
|
v6spr.picnum = B_LITTLE16(v6spr.picnum);
|
|
v6spr.ang = B_LITTLE16(v6spr.ang);
|
|
v6spr.xvel = B_LITTLE16(v6spr.xvel);
|
|
v6spr.yvel = B_LITTLE16(v6spr.yvel);
|
|
v6spr.zvel = B_LITTLE16(v6spr.zvel);
|
|
v6spr.owner = B_LITTLE16(v6spr.owner);
|
|
v6spr.sectnum = B_LITTLE16(v6spr.sectnum);
|
|
v6spr.statnum = B_LITTLE16(v6spr.statnum);
|
|
v6spr.lotag = B_LITTLE16(v6spr.lotag);
|
|
v6spr.hitag = B_LITTLE16(v6spr.hitag);
|
|
v6spr.extra = B_LITTLE16(v6spr.extra);
|
|
break;
|
|
}
|
|
|
|
switch (mapversion)
|
|
{
|
|
case 5:
|
|
convertv5sprv6(&v5spr,&v6spr);
|
|
case 6:
|
|
convertv6sprv7(&v6spr,&sprite[i]);
|
|
}
|
|
|
|
check_sprite(i);
|
|
}
|
|
|
|
kclose(fil);
|
|
// Done reading file.
|
|
|
|
return finish_loadboard(dapos, dacursectnum, numsprites, 0);
|
|
}
|
|
|
|
|
|
#ifdef POLYMER
|
|
void delete_maphack_lights()
|
|
{
|
|
int32_t i;
|
|
for (i=0; i<maphacklightcnt; i++)
|
|
{
|
|
if (maphacklight[i] >= 0)
|
|
polymer_deletelight(maphacklight[i]);
|
|
maphacklight[i] = -1;
|
|
}
|
|
|
|
maphacklightcnt = 0;
|
|
}
|
|
#else
|
|
void delete_maphack_lights() {}
|
|
#endif
|
|
|
|
//
|
|
// loadmaphack
|
|
//
|
|
int32_t loadmaphack(const char *filename)
|
|
{
|
|
#ifdef USE_OPENGL
|
|
enum
|
|
{
|
|
T_SPRITE = 0,
|
|
T_ANGOFF,
|
|
T_NOMODEL,
|
|
T_NOANIM,
|
|
T_PITCH,
|
|
T_ROLL,
|
|
T_MDXOFF,
|
|
T_MDYOFF,
|
|
T_MDZOFF,
|
|
T_AWAY1,
|
|
T_AWAY2,
|
|
T_LIGHT,
|
|
};
|
|
|
|
static struct { const char *text; int32_t tokenid; } legaltokens[] =
|
|
{
|
|
{ "sprite", T_SPRITE },
|
|
{ "angleoff", T_ANGOFF },
|
|
{ "angoff", T_ANGOFF },
|
|
{ "notmd2", T_NOMODEL },
|
|
{ "notmd3", T_NOMODEL },
|
|
{ "notmd", T_NOMODEL },
|
|
{ "nomd2anim", T_NOANIM },
|
|
{ "nomd3anim", T_NOANIM },
|
|
{ "nomdanim", T_NOANIM },
|
|
{ "pitch", T_PITCH },
|
|
{ "roll", T_ROLL },
|
|
{ "mdxoff", T_MDXOFF },
|
|
{ "mdyoff", T_MDYOFF },
|
|
{ "mdzoff", T_MDZOFF },
|
|
{ "away1", T_AWAY1 },
|
|
{ "away2", T_AWAY2 },
|
|
{ "light", T_LIGHT },
|
|
{ NULL, -1 }
|
|
};
|
|
|
|
scriptfile *script = NULL;
|
|
char *tok, *cmdtokptr;
|
|
int32_t i;
|
|
int32_t whichsprite = -1;
|
|
static char fn[BMAX_PATH];
|
|
|
|
#ifdef POLYMER
|
|
int32_t toomanylights = 0;
|
|
|
|
delete_maphack_lights();
|
|
#endif
|
|
|
|
if (filename)
|
|
{
|
|
Bmemset(spriteext, 0, sizeof(spriteext_t) * MAXSPRITES);
|
|
Bmemset(spritesmooth, 0, sizeof(spritesmooth_t) *(MAXSPRITES+MAXUNIQHUDID));
|
|
Bstrcpy(fn, filename);
|
|
script = scriptfile_fromfile(filename);
|
|
}
|
|
else if (fn[0])
|
|
{
|
|
// re-load
|
|
script = scriptfile_fromfile(fn);
|
|
}
|
|
|
|
if (!script)
|
|
{
|
|
fn[0] = 0;
|
|
return -1;
|
|
}
|
|
|
|
while (1)
|
|
{
|
|
tok = scriptfile_gettoken(script);
|
|
if (!tok) break;
|
|
for (i=0; legaltokens[i].text; i++) if (!Bstrcasecmp(tok,legaltokens[i].text)) break;
|
|
cmdtokptr = script->ltextptr;
|
|
|
|
if (!filename && legaltokens[i].tokenid != T_LIGHT) continue;
|
|
|
|
switch (legaltokens[i].tokenid)
|
|
{
|
|
case T_SPRITE: // sprite <xx>
|
|
if (scriptfile_getnumber(script, &whichsprite)) break;
|
|
|
|
if ((unsigned)whichsprite >= (unsigned)MAXSPRITES)
|
|
{
|
|
// sprite number out of range
|
|
initprintf("Sprite number out of range 0-%d on line %s:%d\n",
|
|
MAXSPRITES-1,script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
whichsprite = -1;
|
|
break;
|
|
}
|
|
|
|
break;
|
|
case T_ANGOFF: // angoff <xx>
|
|
{
|
|
int32_t ang;
|
|
if (scriptfile_getnumber(script, &ang)) break;
|
|
|
|
if (whichsprite < 0)
|
|
{
|
|
// no sprite directive preceeding
|
|
initprintf("Ignoring angle offset directive because of absent/invalid sprite number on line %s:%d\n",
|
|
script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
break;
|
|
}
|
|
spriteext[whichsprite].angoff = (int16_t)ang;
|
|
}
|
|
break;
|
|
case T_NOMODEL: // notmd
|
|
if (whichsprite < 0)
|
|
{
|
|
// no sprite directive preceeding
|
|
initprintf("Ignoring not-MD2/MD3 directive because of absent/invalid sprite number on line %s:%d\n",
|
|
script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
break;
|
|
}
|
|
spriteext[whichsprite].flags |= SPREXT_NOTMD;
|
|
break;
|
|
case T_NOANIM: // nomdanim
|
|
if (whichsprite < 0)
|
|
{
|
|
// no sprite directive preceeding
|
|
initprintf("Ignoring no-MD2/MD3-anim directive because of absent/invalid sprite number on line %s:%d\n",
|
|
script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
break;
|
|
}
|
|
spriteext[whichsprite].flags |= SPREXT_NOMDANIM;
|
|
break;
|
|
case T_PITCH: // pitch <xx>
|
|
{
|
|
int32_t pitch;
|
|
if (scriptfile_getnumber(script, &pitch)) break;
|
|
|
|
if (whichsprite < 0)
|
|
{
|
|
// no sprite directive preceeding
|
|
initprintf("Ignoring pitch directive because of absent/invalid sprite number on line %s:%d\n",
|
|
script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
break;
|
|
}
|
|
spriteext[whichsprite].pitch = (int16_t)pitch;
|
|
}
|
|
break;
|
|
case T_ROLL: // roll <xx>
|
|
{
|
|
int32_t roll;
|
|
if (scriptfile_getnumber(script, &roll)) break;
|
|
|
|
if (whichsprite < 0)
|
|
{
|
|
// no sprite directive preceeding
|
|
initprintf("Ignoring roll directive because of absent/invalid sprite number on line %s:%d\n",
|
|
script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
break;
|
|
}
|
|
spriteext[whichsprite].roll = (int16_t)roll;
|
|
}
|
|
break;
|
|
case T_MDXOFF: // mdxoff <xx>
|
|
{
|
|
int32_t i;
|
|
if (scriptfile_getnumber(script, &i)) break;
|
|
|
|
if (whichsprite < 0)
|
|
{
|
|
// no sprite directive preceeding
|
|
initprintf("Ignoring mdxoff directive because of absent/invalid sprite number on line %s:%d\n",
|
|
script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
break;
|
|
}
|
|
spriteext[whichsprite].xoff = i;
|
|
}
|
|
break;
|
|
case T_MDYOFF: // mdyoff <xx>
|
|
{
|
|
int32_t i;
|
|
if (scriptfile_getnumber(script, &i)) break;
|
|
|
|
if (whichsprite < 0)
|
|
{
|
|
// no sprite directive preceeding
|
|
initprintf("Ignoring mdyoff directive because of absent/invalid sprite number on line %s:%d\n",
|
|
script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
break;
|
|
}
|
|
spriteext[whichsprite].yoff = i;
|
|
}
|
|
break;
|
|
case T_MDZOFF: // mdzoff <xx>
|
|
{
|
|
int32_t i;
|
|
if (scriptfile_getnumber(script, &i)) break;
|
|
|
|
if (whichsprite < 0)
|
|
{
|
|
// no sprite directive preceeding
|
|
initprintf("Ignoring mdzoff directive because of absent/invalid sprite number on line %s:%d\n",
|
|
script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
break;
|
|
}
|
|
spriteext[whichsprite].zoff = i;
|
|
}
|
|
break;
|
|
case T_AWAY1: // away1
|
|
if (whichsprite < 0)
|
|
{
|
|
// no sprite directive preceeding
|
|
initprintf("Ignoring moving away directive because of absent/invalid sprite number on line %s:%d\n",
|
|
script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
break;
|
|
}
|
|
spriteext[whichsprite].flags |= SPREXT_AWAY1;
|
|
break;
|
|
case T_AWAY2: // away2
|
|
if (whichsprite < 0)
|
|
{
|
|
// no sprite directive preceeding
|
|
initprintf("Ignoring moving away directive because of absent/invalid sprite number on line %s:%d\n",
|
|
script->filename, scriptfile_getlinum(script,cmdtokptr));
|
|
break;
|
|
}
|
|
spriteext[whichsprite].flags |= SPREXT_AWAY2;
|
|
break;
|
|
#ifdef POLYMER
|
|
case T_LIGHT: // light sector x y z range r g b radius faderadius angle horiz minshade maxshade priority tilenum
|
|
{
|
|
int32_t value;
|
|
int16_t lightid;
|
|
#pragma pack(push,1)
|
|
_prlight light;
|
|
#pragma pack(pop)
|
|
if (toomanylights)
|
|
break; // ignore further light defs
|
|
|
|
scriptfile_getnumber(script, &value);
|
|
light.sector = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.x = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.y = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.z = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.range = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.color[0] = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.color[1] = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.color[2] = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.radius = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.faderadius = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.angle = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.horiz = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.minshade = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.maxshade = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.priority = value;
|
|
scriptfile_getnumber(script, &value);
|
|
light.tilenum = value;
|
|
|
|
light.publicflags.emitshadow = 1;
|
|
light.publicflags.negative = 0;
|
|
|
|
if (getrendermode() == REND_POLYMER)
|
|
{
|
|
if (maphacklightcnt == PR_MAXLIGHTS)
|
|
{
|
|
initprintf("warning: max light count %d exceeded, "
|
|
"ignoring further light defs\n", PR_MAXLIGHTS);
|
|
toomanylights = 1;
|
|
break;
|
|
}
|
|
|
|
lightid = polymer_addlight(&light);
|
|
if (lightid>=0)
|
|
maphacklight[maphacklightcnt++] = lightid;
|
|
}
|
|
|
|
break;
|
|
}
|
|
#endif // POLYMER
|
|
|
|
default:
|
|
// unrecognised token
|
|
break;
|
|
}
|
|
}
|
|
|
|
scriptfile_close(script);
|
|
return 0;
|
|
#else
|
|
UNREFERENCED_PARAMETER(filename);
|
|
return -1;
|
|
#endif
|
|
}
|
|
|
|
|
|
#ifdef NEW_MAP_FORMAT
|
|
LUNATIC_CB int32_t (*saveboard_maptext)(const char *filename, const vec3_t *dapos, int16_t daang, int16_t dacursectnum);
|
|
#endif
|
|
|
|
// Get map version of external map format (<10: old binary format, ==10: new
|
|
// 'VX' map-text format).
|
|
static int32_t get_mapversion(void)
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
if (numyaxbunches > 0)
|
|
# ifdef NEW_MAP_FORMAT
|
|
return 10;
|
|
# else
|
|
return 9;
|
|
# endif
|
|
#endif
|
|
|
|
#ifdef NEW_MAP_FORMAT
|
|
{
|
|
int32_t i;
|
|
for (i=0; i<numwalls; i++)
|
|
if (wall[i].blend != 0)
|
|
return 10;
|
|
}
|
|
#endif
|
|
if (numsectors > MAXSECTORSV7 || numwalls > MAXWALLSV7 || Numsprites > MAXSPRITESV7)
|
|
return 8;
|
|
|
|
return 7;
|
|
}
|
|
|
|
//
|
|
// saveboard
|
|
//
|
|
int32_t saveboard(const char *filename, const vec3_t *dapos, int16_t daang, int16_t dacursectnum)
|
|
{
|
|
int16_t numsprites, ts;
|
|
int32_t i, j, fil, tl;
|
|
|
|
// First, some checking.
|
|
for (j=0; j<MAXSPRITES; j++)
|
|
{
|
|
if ((unsigned)sprite[j].statnum > MAXSTATUS)
|
|
{
|
|
initprintf_nowarn("Map error: sprite #%d(%d,%d) with an illegal statnum(%d)\n",
|
|
j,TrackerCast(sprite[j].x),TrackerCast(sprite[j].y),TrackerCast(sprite[j].statnum));
|
|
changespritestat(j,0);
|
|
}
|
|
|
|
if ((unsigned)sprite[j].sectnum > MAXSECTORS)
|
|
{
|
|
initprintf_nowarn("Map error: sprite #%d(%d,%d) with an illegal sectnum(%d)\n",
|
|
j,TrackerCast(sprite[j].x),TrackerCast(sprite[j].y),TrackerCast(sprite[j].sectnum));
|
|
changespritesect(j,0);
|
|
}
|
|
}
|
|
|
|
// Count the number of sprites.
|
|
numsprites = 0;
|
|
for (j=0; j<MAXSPRITES; j++)
|
|
{
|
|
if (sprite[j].statnum != MAXSTATUS)
|
|
numsprites++;
|
|
}
|
|
|
|
// Check consistency of sprite-in-the-world predicate (.statnum != MAXSTATUS)
|
|
// and the engine-reported number of sprites 'Numsprites'.
|
|
Bassert(numsprites == Numsprites);
|
|
|
|
// Determine the map version.
|
|
mapversion = get_mapversion();
|
|
|
|
#ifdef NEW_MAP_FORMAT
|
|
if (mapversion == 10)
|
|
{
|
|
initprintf("Saving of TROR maps not yet accessible in the Lunatic preview build\n");
|
|
return -1;
|
|
// return saveboard_maptext(filename, dapos, daang, dacursectnum);
|
|
}
|
|
#endif
|
|
|
|
fil = Bopen(filename, BO_BINARY|BO_TRUNC|BO_CREAT|BO_WRONLY, BS_IREAD|BS_IWRITE);
|
|
|
|
if (fil == -1)
|
|
{
|
|
initprintf("Couldn't open \"%s\" for writing: %s\n", filename, strerror(errno));
|
|
return -1;
|
|
}
|
|
|
|
tl = B_LITTLE32(mapversion); Bwrite(fil,&tl,4);
|
|
|
|
tl = B_LITTLE32(dapos->x); Bwrite(fil,&tl,4);
|
|
tl = B_LITTLE32(dapos->y); Bwrite(fil,&tl,4);
|
|
tl = B_LITTLE32(dapos->z); Bwrite(fil,&tl,4);
|
|
ts = B_LITTLE16(daang); Bwrite(fil,&ts,2);
|
|
ts = B_LITTLE16(dacursectnum); Bwrite(fil,&ts,2);
|
|
|
|
ts = B_LITTLE16(numsectors); Bwrite(fil,&ts,2);
|
|
|
|
while (1) // if, really
|
|
{
|
|
sectortypev7 *const tsect = (sectortypev7 *)Xmalloc(sizeof(sectortypev7) * numsectors);
|
|
walltypev7 *twall;
|
|
|
|
#ifdef NEW_MAP_FORMAT
|
|
for (i=0; i<numsectors; i++)
|
|
copy_v7_from_vx_sector(&tsect[i], §or[i]);
|
|
#else
|
|
Bmemcpy(tsect, sector, sizeof(sectortypev7)*numsectors);
|
|
#endif
|
|
|
|
for (i=0; i<numsectors; i++)
|
|
{
|
|
sectortypev7 *const sec = &tsect[i];
|
|
|
|
sec->wallptr = B_LITTLE16(sec->wallptr);
|
|
sec->wallnum = B_LITTLE16(sec->wallnum);
|
|
sec->ceilingz = B_LITTLE32(sec->ceilingz);
|
|
sec->floorz = B_LITTLE32(sec->floorz);
|
|
sec->ceilingstat = B_LITTLE16(sec->ceilingstat);
|
|
sec->floorstat = B_LITTLE16(sec->floorstat);
|
|
sec->ceilingpicnum = B_LITTLE16(sec->ceilingpicnum);
|
|
sec->ceilingheinum = B_LITTLE16(sec->ceilingheinum);
|
|
sec->floorpicnum = B_LITTLE16(sec->floorpicnum);
|
|
sec->floorheinum = B_LITTLE16(sec->floorheinum);
|
|
sec->lotag = B_LITTLE16(sec->lotag);
|
|
sec->hitag = B_LITTLE16(sec->hitag);
|
|
sec->extra = B_LITTLE16(sec->extra);
|
|
#ifdef YAX_ENABLE__COMPAT
|
|
if (editstatus == 0)
|
|
{
|
|
// if in-game, pack game-time bunchnum data back into structs
|
|
int32_t cf, bn;
|
|
|
|
for (cf=0; cf<2; cf++)
|
|
if ((bn=yax_getbunch(i, cf)) >= 0)
|
|
YAX_PTRBUNCHNUM(tsect, i, cf) = bn;
|
|
}
|
|
#endif
|
|
}
|
|
|
|
Bwrite(fil, tsect, sizeof(sectortypev7)*numsectors);
|
|
Bfree(tsect);
|
|
|
|
ts = B_LITTLE16(numwalls);
|
|
Bwrite(fil,&ts,2);
|
|
|
|
twall = (walltypev7 *)Xmalloc(sizeof(walltypev7) * numwalls);
|
|
|
|
#ifdef NEW_MAP_FORMAT
|
|
for (i=0; i<numwalls; i++)
|
|
copy_v7_from_vx_wall(&twall[i], &wall[i]);
|
|
#else
|
|
Bmemcpy(twall, wall, sizeof(walltypev7)*numwalls);
|
|
#endif
|
|
|
|
for (i=0; i<numwalls; i++)
|
|
{
|
|
walltypev7 *const wal = &twall[i];
|
|
|
|
wal->x = B_LITTLE32(wal->x);
|
|
wal->y = B_LITTLE32(wal->y);
|
|
wal->point2 = B_LITTLE16(wal->point2);
|
|
wal->nextwall = B_LITTLE16(wal->nextwall);
|
|
wal->nextsector = B_LITTLE16(wal->nextsector);
|
|
wal->cstat = B_LITTLE16(wal->cstat);
|
|
wal->picnum = B_LITTLE16(wal->picnum);
|
|
wal->overpicnum = B_LITTLE16(wal->overpicnum);
|
|
#ifdef YAX_ENABLE__COMPAT
|
|
if (editstatus == 0)
|
|
{
|
|
// if in-game, pack game-time yax-nextwall data back into structs
|
|
int16_t ynw;
|
|
if ((ynw=yax_getnextwall(i, YAX_CEILING))>=0)
|
|
YAX_PTRNEXTWALL(twall,i,YAX_CEILING) = ynw;
|
|
if ((ynw=yax_getnextwall(i, YAX_FLOOR))>=0)
|
|
YAX_PTRNEXTWALL(twall,i,YAX_FLOOR) = ynw;
|
|
}
|
|
#endif
|
|
wal->lotag = B_LITTLE16(wal->lotag);
|
|
wal->hitag = B_LITTLE16(wal->hitag);
|
|
wal->extra = B_LITTLE16(wal->extra);
|
|
}
|
|
|
|
Bwrite(fil, twall, sizeof(walltypev7)*numwalls);
|
|
Bfree(twall);
|
|
|
|
ts = B_LITTLE16(numsprites); Bwrite(fil,&ts,2);
|
|
|
|
if (numsprites > 0)
|
|
{
|
|
spritetype *const tspri = (spritetype *)Xmalloc(sizeof(spritetype) * numsprites);
|
|
spritetype *spri = tspri;
|
|
|
|
for (j=0; j<MAXSPRITES; j++)
|
|
{
|
|
if (sprite[j].statnum != MAXSTATUS)
|
|
{
|
|
Bmemcpy(spri, &sprite[j], sizeof(spritetype));
|
|
spri->x = B_LITTLE32(spri->x);
|
|
spri->y = B_LITTLE32(spri->y);
|
|
spri->z = B_LITTLE32(spri->z);
|
|
spri->cstat = B_LITTLE16(spri->cstat);
|
|
spri->picnum = B_LITTLE16(spri->picnum);
|
|
spri->sectnum = B_LITTLE16(spri->sectnum);
|
|
spri->statnum = B_LITTLE16(spri->statnum);
|
|
spri->ang = B_LITTLE16(spri->ang);
|
|
spri->owner = B_LITTLE16(spri->owner);
|
|
spri->xvel = B_LITTLE16(spri->xvel);
|
|
spri->yvel = B_LITTLE16(spri->yvel);
|
|
spri->zvel = B_LITTLE16(spri->zvel);
|
|
spri->lotag = B_LITTLE16(spri->lotag);
|
|
spri->hitag = B_LITTLE16(spri->hitag);
|
|
spri->extra = B_LITTLE16(spri->extra);
|
|
spri++;
|
|
}
|
|
}
|
|
|
|
Bwrite(fil, tspri, sizeof(spritetype)*numsprites);
|
|
Bfree(tspri);
|
|
}
|
|
|
|
Bclose(fil);
|
|
return 0;
|
|
}
|
|
|
|
Bclose(fil);
|
|
return -1;
|
|
}
|
|
|
|
|
|
//
|
|
// setgamemode
|
|
//
|
|
// JBF: davidoption now functions as a windowed-mode flag (0 == windowed, 1 == fullscreen)
|
|
extern char videomodereset;
|
|
int32_t setgamemode(char davidoption, int32_t daxdim, int32_t daydim, int32_t dabpp)
|
|
{
|
|
int32_t j;
|
|
|
|
#ifdef USE_OPENGL
|
|
extern char nogl;
|
|
|
|
if (nogl) dabpp = 8;
|
|
#endif
|
|
daxdim = max(320, daxdim);
|
|
daydim = max(200, daydim);
|
|
|
|
if (in3dmode() && videomodereset == 0 &&
|
|
(davidoption == fullscreen) && (xdim == daxdim) && (ydim == daydim) && (bpp == dabpp))
|
|
return(0);
|
|
|
|
Bstrcpy(kensmessage,"!!!! BUILD engine&tools programmed by Ken Silverman of E.G. RI."
|
|
" (c) Copyright 1995 Ken Silverman. Summary: BUILD = Ken. !!!!");
|
|
// if (getkensmessagecrc(FP_OFF(kensmessage)) != 0x56c764d4)
|
|
// { OSD_Printf("Nice try.\n"); Bexit(0); }
|
|
|
|
//if (checkvideomode(&daxdim, &daydim, dabpp, davidoption)<0) return (-1);
|
|
|
|
//bytesperline is set in this function
|
|
|
|
j = bpp;
|
|
|
|
g_lastpalettesum = 0;
|
|
if (setvideomode(daxdim,daydim,dabpp,davidoption) < 0) return(-1);
|
|
|
|
// Workaround possible bugs in the GL driver
|
|
makeasmwriteable();
|
|
|
|
#ifdef USE_OPENGL
|
|
if (dabpp > 8) rendmode = glrendmode; // GL renderer
|
|
else if (dabpp == 8 && j > 8) rendmode = REND_CLASSIC;
|
|
#endif
|
|
|
|
xdim = daxdim; ydim = daydim;
|
|
|
|
#ifdef USE_OPENGL
|
|
fxdim = (float) xdim;
|
|
fydim = (float) ydim;
|
|
#endif
|
|
if (lookups != NULL)
|
|
Bfree(lookups);
|
|
|
|
j = ydim*4; //Leave room for horizlookup&horizlookup2
|
|
lookups = (int32_t *)Xmalloc(2*j*sizeof(lookups[0]));
|
|
|
|
horizlookup = lookups;
|
|
horizlookup2 = lookups + j;
|
|
horizycent = ((ydim*4)>>1);
|
|
|
|
//Force drawrooms to call dosetaspect & recalculate stuff
|
|
oxyaspect = oxdimen = oviewingrange = -1;
|
|
|
|
calc_ylookup(bytesperline, ydim);
|
|
|
|
setview(0L,0L,xdim-1,ydim-1);
|
|
clearallviews(0L);
|
|
setbrightness(curbrightness,0,0);
|
|
|
|
if (searchx < 0) { searchx = halfxdimen; searchy = (ydimen>>1); }
|
|
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST)
|
|
{
|
|
polymost_glreset();
|
|
polymost_glinit();
|
|
}
|
|
# ifdef POLYMER
|
|
if (getrendermode() == REND_POLYMER)
|
|
{
|
|
if (!polymer_init())
|
|
rendmode = REND_POLYMOST;
|
|
}
|
|
#endif
|
|
#endif
|
|
qsetmode = 200;
|
|
return(0);
|
|
}
|
|
|
|
|
|
//
|
|
// nextpage
|
|
//
|
|
void nextpage(void)
|
|
{
|
|
int32_t i;
|
|
permfifotype *per;
|
|
|
|
//char snotbuf[32];
|
|
//j = 0; k = 0;
|
|
//for(i=0;i<4096;i++)
|
|
// if (waloff[i] != 0)
|
|
// {
|
|
// sprintf(snotbuf,"%d-%d",i,tilesizx[i]*tilesizy[i]);
|
|
// printext256((j>>5)*40+32,(j&31)*6,walock[i]>>3,-1,snotbuf,1);
|
|
// k += tilesizx[i]*tilesizy[i];
|
|
// j++;
|
|
// }
|
|
//sprintf(snotbuf,"Total: %d",k);
|
|
//printext256((j>>5)*40+32,(j&31)*6,31,-1,snotbuf,1);
|
|
|
|
switch (qsetmode)
|
|
{
|
|
case 200:
|
|
begindrawing(); //{{{
|
|
for (i=permtail; i!=permhead; i=((i+1)&(MAXPERMS-1)))
|
|
{
|
|
per = &permfifo[i];
|
|
if ((per->pagesleft > 0) && (per->pagesleft <= numpages))
|
|
dorotatesprite(per->sx,per->sy,per->z,per->a,per->picnum,
|
|
per->dashade,per->dapalnum,per->dastat,per->daalpha,per->dablend,
|
|
per->cx1,per->cy1,per->cx2,per->cy2,per->uniqid);
|
|
}
|
|
enddrawing(); //}}}
|
|
|
|
OSD_Draw();
|
|
showframe(0);
|
|
|
|
begindrawing(); //{{{
|
|
for (i=permtail; i!=permhead; i=((i+1)&(MAXPERMS-1)))
|
|
{
|
|
per = &permfifo[i];
|
|
if (per->pagesleft >= 130)
|
|
dorotatesprite(per->sx,per->sy,per->z,per->a,per->picnum,
|
|
per->dashade,per->dapalnum,per->dastat,per->daalpha,per->dablend,
|
|
per->cx1,per->cy1,per->cx2,per->cy2,per->uniqid);
|
|
|
|
if (per->pagesleft&127) per->pagesleft--;
|
|
if (((per->pagesleft&127) == 0) && (i == permtail))
|
|
permtail = ((permtail+1)&(MAXPERMS-1));
|
|
}
|
|
enddrawing(); //}}}
|
|
break;
|
|
|
|
case 350:
|
|
case 480:
|
|
break;
|
|
}
|
|
faketimerhandler();
|
|
|
|
if ((totalclock >= lastageclock+CACHEAGETIME) || (totalclock < lastageclock))
|
|
{ lastageclock = totalclock; agecache(); }
|
|
|
|
#ifdef USE_OPENGL
|
|
omdtims = mdtims; mdtims = getticks();
|
|
|
|
{
|
|
int32_t i;
|
|
for (i=0; i<MAXSPRITES; i++)
|
|
if ((mdpause&&spriteext[i].mdanimtims)||(spriteext[i].flags & SPREXT_NOMDANIM))
|
|
spriteext[i].mdanimtims+=mdtims-omdtims;
|
|
}
|
|
#endif
|
|
|
|
beforedrawrooms = 1;
|
|
numframes++;
|
|
}
|
|
|
|
static void set_picsiz(int32_t picnum)
|
|
{
|
|
int32_t j;
|
|
|
|
j = 15;
|
|
while ((j > 1) && (pow2long[j] > tilesiz[picnum].x))
|
|
j--;
|
|
picsiz[picnum] = j;
|
|
|
|
j = 15;
|
|
while ((j > 1) && (pow2long[j] > tilesiz[picnum].y))
|
|
j--;
|
|
picsiz[picnum] |= j<<4;
|
|
}
|
|
|
|
void set_tilesiz(int32_t picnum, int16_t dasizx, int16_t dasizy)
|
|
{
|
|
tilesiz[picnum].x = dasizx;
|
|
tilesiz[picnum].y = dasizy;
|
|
|
|
set_picsiz(picnum);
|
|
}
|
|
|
|
int32_t tile_exists(int32_t picnum)
|
|
{
|
|
if (waloff[picnum] == 0)
|
|
loadtile(picnum);
|
|
|
|
return (waloff[picnum] != 0 && tilesiz[picnum].x > 0 && tilesiz[picnum].y > 0);
|
|
}
|
|
|
|
static const char *E_GetArtFileName(int32_t tilefilei)
|
|
{
|
|
if (tilefilei >= MAXARTFILES_BASE)
|
|
{
|
|
int32_t o = mapartfnXXofs;
|
|
tilefilei -= MAXARTFILES_BASE;
|
|
|
|
mapartfilename[o+1] = '0' + tilefilei%10;
|
|
mapartfilename[o+0] = '0' + (tilefilei/10)%10;
|
|
|
|
return mapartfilename;
|
|
}
|
|
else
|
|
{
|
|
artfilename[7] = '0' + tilefilei%10;
|
|
artfilename[6] = '0' + (tilefilei/10)%10;
|
|
artfilename[5] = '0' + (tilefilei/100)%10;
|
|
|
|
return artfilename;
|
|
}
|
|
}
|
|
|
|
// Returns:
|
|
// 0: successfully read ART file
|
|
// >0: error with the ART file
|
|
// -1: ART file does not exist
|
|
//<-1: per-map ART issue
|
|
static int32_t E_ReadArtFile(int32_t tilefilei)
|
|
{
|
|
const char *fn = E_GetArtFileName(tilefilei);
|
|
const int32_t permap = (tilefilei >= MAXARTFILES_BASE); // is it a per-map ART file?
|
|
int16_t *tilesizx, *tilesizy;
|
|
int32_t fil;
|
|
|
|
if ((fil = kopen4load(fn,0)) != -1)
|
|
{
|
|
int32_t localtilestart, localtileend, localnumtiles;
|
|
int32_t i, offscount, numtiles_dummy, artversion;
|
|
#ifdef WITHKPLIB
|
|
if (permap && cache1d_file_fromzip(fil))
|
|
{
|
|
initprintf("loadpics: per-map ART file \"%s\": can't be read from a ZIP file\n", fn);
|
|
kclose(fil);
|
|
return -2;
|
|
}
|
|
#endif
|
|
kread(fil,&artversion,4); artversion = B_LITTLE32(artversion);
|
|
if (artversion != 1)
|
|
{
|
|
initprintf("loadpics: Invalid art file version in %s\n", fn);
|
|
kclose(fil);
|
|
return 1;
|
|
}
|
|
|
|
kread(fil,&numtiles_dummy,4);
|
|
kread(fil,&localtilestart,4); localtilestart = B_LITTLE32(localtilestart);
|
|
kread(fil,&localtileend,4); localtileend = B_LITTLE32(localtileend);
|
|
|
|
if ((uint32_t)localtilestart >= MAXUSERTILES || (uint32_t)localtileend >= MAXUSERTILES)
|
|
{
|
|
initprintf("loadpics: Invalid localtilestart or localtileend in %s\n", fn);
|
|
kclose(fil);
|
|
return 1;
|
|
}
|
|
if (localtileend <= localtilestart)
|
|
{
|
|
initprintf("loadpics: localtileend <= localtilestart in %s\n", fn);
|
|
kclose(fil);
|
|
return 1;
|
|
}
|
|
|
|
localnumtiles = (localtileend-localtilestart+1);
|
|
|
|
if (permap)
|
|
{
|
|
// Check whether we can evict existing tiles to make place for
|
|
// per-map ART ones.
|
|
for (i=localtilestart; i<=localtileend; i++)
|
|
{
|
|
// Tiles having dummytile replacements or those that are
|
|
// cache1d-locked can't be replaced.
|
|
if (faketilesiz[i] || walock[i] >= 200)
|
|
{
|
|
initprintf("loadpics: per-map ART file \"%s\": "
|
|
"tile %d has dummytile or is locked\n", fn, i);
|
|
kclose(fil);
|
|
return -3;
|
|
}
|
|
}
|
|
|
|
// Free existing tiles from the cache1d. CACHE1D_FREE
|
|
Bmemset(&waloff[localtilestart], 0, localnumtiles*sizeof(intptr_t));
|
|
Bmemset(&walock[localtilestart], 1, localnumtiles*sizeof(walock[0]));
|
|
}
|
|
|
|
tilesizx = (int16_t *)Xmalloc(localnumtiles * sizeof(int16_t));
|
|
tilesizy = (int16_t *)Xmalloc(localnumtiles * sizeof(int16_t));
|
|
kread(fil, tilesizx, localnumtiles*sizeof(int16_t));
|
|
kread(fil, tilesizy, localnumtiles*sizeof(int16_t));
|
|
kread(fil, &picanm[localtilestart], localnumtiles*sizeof(picanm_t));
|
|
|
|
for (i=localtilestart; i<=localtileend; i++)
|
|
{
|
|
EDUKE32_STATIC_ASSERT(sizeof(picanm_t) == 4);
|
|
EDUKE32_STATIC_ASSERT(PICANM_ANIMTYPE_MASK == 192);
|
|
|
|
tilesiz[i].x = B_LITTLE16(tilesizx[i-localtilestart]);
|
|
tilesiz[i].y = B_LITTLE16(tilesizy[i-localtilestart]);
|
|
|
|
// Old on-disk format: anim type is in the 2 highest bits of the lowest byte.
|
|
picanm[i].sf &= ~192;
|
|
picanm[i].sf |= picanm[i].num&192;
|
|
picanm[i].num &= ~192;
|
|
|
|
// don't allow setting texhitscan/nofullbright from ART (yet?)
|
|
picanm[i].sf &= ~PICANM_MISC_MASK;
|
|
}
|
|
|
|
DO_FREE_AND_NULL(tilesizx);
|
|
DO_FREE_AND_NULL(tilesizy);
|
|
|
|
offscount = 4+4+4+4+(localnumtiles<<3);
|
|
for (i=localtilestart; i<=localtileend; i++)
|
|
{
|
|
int32_t dasiz = tilesiz[i].x * tilesiz[i].y;
|
|
|
|
tilefilenum[i] = tilefilei;
|
|
tilefileoffs[i] = offscount;
|
|
|
|
offscount += dasiz;
|
|
// artsize += ((dasiz+15)&0xfffffff0);
|
|
}
|
|
|
|
#ifdef WITHKPLIB
|
|
if (cache1d_file_fromzip(fil)) // from zip
|
|
{
|
|
i = kfilelength(fil);
|
|
artptrs[tilefilei] = (char *)Xrealloc(artptrs[tilefilei], i);
|
|
klseek(fil, 0, BSEEK_SET);
|
|
kread(fil, artptrs[tilefilei], i);
|
|
}
|
|
#endif
|
|
#ifdef DEBUGGINGAIDS
|
|
if (permap)
|
|
initprintf("Read in per-map ART file \"%s\"\n", fn);
|
|
#endif
|
|
kclose(fil);
|
|
return 0;
|
|
}
|
|
|
|
return -1;
|
|
}
|
|
|
|
//
|
|
// loadpics
|
|
//
|
|
int32_t loadpics(const char *filename, int32_t askedsize)
|
|
{
|
|
int32_t tilefilei;
|
|
|
|
Bstrncpyz(artfilename, filename, sizeof(artfilename));
|
|
|
|
Bmemset(&tilesiz[0], 0, sizeof(vec2_t) * MAXTILES);
|
|
Bmemset(picanm, 0, sizeof(picanm));
|
|
|
|
// artsize = 0;
|
|
|
|
for (tilefilei=0; tilefilei<MAXARTFILES_BASE; tilefilei++)
|
|
E_ReadArtFile(tilefilei);
|
|
|
|
Bmemset(gotpic, 0, sizeof(gotpic));
|
|
|
|
//cachesize = min((int32_t)((Bgetsysmemsize()/100)*60),max(artsize,askedsize));
|
|
if (Bgetsysmemsize() <= (uint32_t)askedsize)
|
|
cachesize = (Bgetsysmemsize()/100)*60;
|
|
else
|
|
cachesize = askedsize;
|
|
|
|
// NOTE: this doesn't make a lot of sense on modern OSs...
|
|
while ((pic = Bmalloc(cachesize)) == NULL)
|
|
{
|
|
cachesize -= 65536;
|
|
if (cachesize < 65536)
|
|
return -1;
|
|
}
|
|
initcache((intptr_t)pic, cachesize);
|
|
|
|
E_RecalcPicSiz();
|
|
|
|
artfil = -1;
|
|
artfilnum = -1;
|
|
artfilplc = 0L;
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
//
|
|
// loadtile
|
|
//
|
|
void loadtile(int16_t tilenume)
|
|
{
|
|
int32_t i, dasiz;
|
|
|
|
if ((unsigned)tilenume >= (unsigned)MAXTILES) return;
|
|
if ((dasiz = tilesiz[tilenume].x*tilesiz[tilenume].y) <= 0) return;
|
|
|
|
i = tilefilenum[tilenume];
|
|
|
|
#ifdef WITHKPLIB
|
|
if (artptrs[i]) // from zip
|
|
{
|
|
waloff[tilenume] = (intptr_t)(artptrs[i]) + tilefileoffs[tilenume];
|
|
faketimerhandler();
|
|
// OSD_Printf("loaded tile %d from zip\n", tilenume);
|
|
return;
|
|
}
|
|
#endif
|
|
|
|
// Allocate storage if necessary.
|
|
if (waloff[tilenume] == 0)
|
|
{
|
|
walock[tilenume] = 199;
|
|
allocache(&waloff[tilenume],dasiz,&walock[tilenume]);
|
|
}
|
|
|
|
// dummy tiles for highres replacements and tilefromtexture definitions
|
|
if (faketilesiz[tilenume])
|
|
{
|
|
if (faketilesiz[tilenume] != -1 && faketiledata[tilenume] != NULL)
|
|
LZ4_decompress_fast(faketiledata[tilenume], (char *) waloff[tilenume], dasiz);
|
|
|
|
faketimerhandler();
|
|
return;
|
|
}
|
|
|
|
// Potentially switch open ART file.
|
|
if (i != artfilnum)
|
|
{
|
|
const char *fn;
|
|
|
|
if (artfil != -1)
|
|
kclose(artfil);
|
|
|
|
fn = E_GetArtFileName(i);
|
|
|
|
artfil = kopen4load(fn, 0);
|
|
if (artfil == -1)
|
|
{
|
|
initprintf("Failed opening ART file \"%s\"!\n", fn);
|
|
uninitengine();
|
|
Bexit(11);
|
|
}
|
|
|
|
artfilnum = i;
|
|
artfilplc = 0L;
|
|
|
|
faketimerhandler();
|
|
}
|
|
|
|
// Seek to the right position.
|
|
if (artfilplc != tilefileoffs[tilenume])
|
|
{
|
|
klseek(artfil, tilefileoffs[tilenume], BSEEK_SET);
|
|
faketimerhandler();
|
|
}
|
|
|
|
kread(artfil, (char *)waloff[tilenume], dasiz);
|
|
faketimerhandler();
|
|
artfilplc = tilefileoffs[tilenume]+dasiz;
|
|
|
|
#ifdef DEBUG_TILESIZY_512
|
|
if (tilesizy[tilenume] >= 512)
|
|
{
|
|
int32_t i;
|
|
char *p = (char *)waloff[tilenume];
|
|
for (i=0; i<tilesizx[tilenume]*tilesizy[tilenume]; i++)
|
|
p[i] = i;
|
|
}
|
|
#endif
|
|
#ifdef DEBUG_TILEOFFSETS
|
|
// Add some dark blue marker lines to STEAM and CEILINGSTEAM.
|
|
// See test_tileoffsets.map.
|
|
if (tilenume==1250 || tilenume==1255)
|
|
{
|
|
char *p = (char *)waloff[tilenume];
|
|
p[0] = p[1] = p[2] = p[3] = 254;
|
|
}
|
|
|
|
// Add some offset to the cocktail glass neon sign. It's more asymmetric
|
|
// than the steam, and thus more suited to debugging the spatial
|
|
// orientation of drawn sprites.
|
|
if (tilenume==1008)
|
|
{
|
|
picanm[tilenume].xofs = 8;
|
|
picanm[tilenume].yofs = 12;
|
|
}
|
|
#endif
|
|
}
|
|
|
|
//
|
|
// allocatepermanenttile
|
|
//
|
|
intptr_t allocatepermanenttile(int16_t tilenume, int32_t xsiz, int32_t ysiz)
|
|
{
|
|
int32_t dasiz;
|
|
|
|
if (xsiz <= 0 || ysiz <= 0 || (unsigned)tilenume >= MAXTILES)
|
|
return 0;
|
|
|
|
dasiz = xsiz*ysiz;
|
|
|
|
walock[tilenume] = 255;
|
|
allocache(&waloff[tilenume], dasiz, &walock[tilenume]);
|
|
|
|
set_tilesiz(tilenume, xsiz, ysiz);
|
|
Bmemset(&picanm[tilenume], 0, sizeof(picanm_t));
|
|
|
|
return waloff[tilenume];
|
|
}
|
|
|
|
//
|
|
// copytilepiece
|
|
//
|
|
void copytilepiece(int32_t tilenume1, int32_t sx1, int32_t sy1, int32_t xsiz, int32_t ysiz,
|
|
int32_t tilenume2, int32_t sx2, int32_t sy2)
|
|
{
|
|
char *ptr1, *ptr2, dat;
|
|
int32_t xsiz1, ysiz1, xsiz2, ysiz2, i, j, x1, y1, x2, y2;
|
|
|
|
xsiz1 = tilesiz[tilenume1].x; ysiz1 = tilesiz[tilenume1].y;
|
|
xsiz2 = tilesiz[tilenume2].x; ysiz2 = tilesiz[tilenume2].y;
|
|
if ((xsiz1 > 0) && (ysiz1 > 0) && (xsiz2 > 0) && (ysiz2 > 0))
|
|
{
|
|
if (waloff[tilenume1] == 0) loadtile(tilenume1);
|
|
if (waloff[tilenume2] == 0) loadtile(tilenume2);
|
|
|
|
x1 = sx1;
|
|
for (i=0; i<xsiz; i++)
|
|
{
|
|
y1 = sy1;
|
|
for (j=0; j<ysiz; j++)
|
|
{
|
|
x2 = sx2+i;
|
|
y2 = sy2+j;
|
|
if ((x2 >= 0) && (y2 >= 0) && (x2 < xsiz2) && (y2 < ysiz2))
|
|
{
|
|
ptr1 = (char *)(waloff[tilenume1] + x1*ysiz1 + y1);
|
|
ptr2 = (char *)(waloff[tilenume2] + x2*ysiz2 + y2);
|
|
dat = *ptr1;
|
|
if (dat != 255)
|
|
*ptr2 = *ptr1;
|
|
}
|
|
|
|
y1++; if (y1 >= ysiz1) y1 = 0;
|
|
}
|
|
x1++; if (x1 >= xsiz1) x1 = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
//
|
|
// qloadkvx
|
|
//
|
|
int32_t qloadkvx(int32_t voxindex, const char *filename)
|
|
{
|
|
int32_t i, fil, dasiz, lengcnt, lengtot;
|
|
char *ptr;
|
|
|
|
if ((fil = kopen4load(filename,0)) == -1) return -1;
|
|
|
|
lengcnt = 0;
|
|
lengtot = kfilelength(fil);
|
|
|
|
for (i=0; i<MAXVOXMIPS; i++)
|
|
{
|
|
kread(fil,&dasiz,4); dasiz = B_LITTLE32(dasiz);
|
|
//Must store filenames to use cacheing system :(
|
|
voxlock[voxindex][i] = 200;
|
|
allocache(&voxoff[voxindex][i],dasiz,&voxlock[voxindex][i]);
|
|
ptr = (char *)voxoff[voxindex][i];
|
|
kread(fil,ptr,dasiz);
|
|
|
|
lengcnt += dasiz+4;
|
|
if (lengcnt >= lengtot-768) break;
|
|
}
|
|
kclose(fil);
|
|
|
|
#ifdef USE_OPENGL
|
|
if (voxmodels[voxindex])
|
|
{
|
|
voxfree(voxmodels[voxindex]);
|
|
voxmodels[voxindex] = NULL;
|
|
}
|
|
voxmodels[voxindex] = voxload(filename);
|
|
#endif
|
|
return 0;
|
|
}
|
|
|
|
|
|
//
|
|
// clipinsidebox
|
|
//
|
|
int32_t clipinsidebox(int32_t x, int32_t y, int16_t wallnum, int32_t walldist)
|
|
{
|
|
walltype *wal;
|
|
int32_t x1, y1, x2, y2;
|
|
|
|
const int32_t r = walldist<<1;
|
|
|
|
wal = &wall[wallnum]; x1 = wal->x+walldist-x; y1 = wal->y+walldist-y;
|
|
wal = &wall[wal->point2]; x2 = wal->x+walldist-x; y2 = wal->y+walldist-y;
|
|
|
|
if ((x1 < 0) && (x2 < 0)) return(0);
|
|
if ((y1 < 0) && (y2 < 0)) return(0);
|
|
if ((x1 >= r) && (x2 >= r)) return(0);
|
|
if ((y1 >= r) && (y2 >= r)) return(0);
|
|
|
|
x2 -= x1; y2 -= y1;
|
|
if (x2*(walldist-y1) >= y2*(walldist-x1)) //Front
|
|
{
|
|
if (x2 > 0) x2 *= (0-y1); else x2 *= (r-y1);
|
|
if (y2 > 0) y2 *= (r-x1); else y2 *= (0-x1);
|
|
return(x2 < y2);
|
|
}
|
|
if (x2 > 0) x2 *= (r-y1); else x2 *= (0-y1);
|
|
if (y2 > 0) y2 *= (0-x1); else y2 *= (r-x1);
|
|
return((x2 >= y2)<<1);
|
|
}
|
|
|
|
|
|
//
|
|
// clipinsideboxline
|
|
//
|
|
int32_t clipinsideboxline(int32_t x, int32_t y, int32_t x1, int32_t y1, int32_t x2, int32_t y2, int32_t walldist)
|
|
{
|
|
const int32_t r = walldist<<1;
|
|
|
|
x1 += walldist-x; x2 += walldist-x;
|
|
if ((x1 < 0) && (x2 < 0)) return(0);
|
|
if ((x1 >= r) && (x2 >= r)) return(0);
|
|
|
|
y1 += walldist-y; y2 += walldist-y;
|
|
if ((y1 < 0) && (y2 < 0)) return(0);
|
|
if ((y1 >= r) && (y2 >= r)) return(0);
|
|
|
|
x2 -= x1; y2 -= y1;
|
|
if (x2*(walldist-y1) >= y2*(walldist-x1)) //Front
|
|
{
|
|
if (x2 > 0) x2 *= (0-y1); else x2 *= (r-y1);
|
|
if (y2 > 0) y2 *= (r-x1); else y2 *= (0-x1);
|
|
return(x2 < y2);
|
|
}
|
|
if (x2 > 0) x2 *= (r-y1); else x2 *= (0-y1);
|
|
if (y2 > 0) y2 *= (0-x1); else y2 *= (r-x1);
|
|
return((x2 >= y2)<<1);
|
|
}
|
|
|
|
|
|
//
|
|
// inside
|
|
//
|
|
// See http://fabiensanglard.net/duke3d/build_engine_internals.php,
|
|
// "Inside details" for the idea behind the algorithm.
|
|
int32_t inside(int32_t x, int32_t y, int16_t sectnum)
|
|
{
|
|
if (sectnum >= 0 && sectnum < numsectors)
|
|
{
|
|
uint32_t cnt1 = 0, cnt2 = 0;
|
|
walltype *wal = &wall[sector[sectnum].wallptr];
|
|
int32_t i = sector[sectnum].wallnum;
|
|
|
|
do
|
|
{
|
|
// Get the x and y components of the [tested point]-->[wall
|
|
// point{1,2}] vectors.
|
|
int32_t x1 = wal->x-x, x2 = wall[wal->point2].x-x;
|
|
int32_t y1 = wal->y-y, y2 = wall[wal->point2].y-y;
|
|
|
|
// First, test if the point is EXACTLY_ON_WALL_POINT.
|
|
if ((x1|y1) == 0 || (x2|y2)==0)
|
|
return 1;
|
|
|
|
// If their signs differ[*], ...
|
|
//
|
|
// [*] where '-' corresponds to <0 and '+' corresponds to >=0.
|
|
// Equivalently, the branch is taken iff
|
|
// y1 != y2 AND y_m <= y < y_M,
|
|
// where y_m := min(y1, y2) and y_M := max(y1, y2).
|
|
if ((y1^y2) < 0)
|
|
{
|
|
if ((x1^x2) >= 0)
|
|
cnt1 ^= x1;
|
|
else
|
|
cnt1 ^= (x1*y2-x2*y1)^y2;
|
|
}
|
|
|
|
y1--;
|
|
y2--;
|
|
|
|
// Now, do the same comparisons, but with the interval half-open on
|
|
// the other side! That is, take the branch iff
|
|
// y1 != y2 AND y_m < y <= y_M,
|
|
// For a rectangular sector, without EXACTLY_ON_WALL_POINT, this
|
|
// would still leave the lower left and upper right points
|
|
// "outside" the sector.
|
|
if ((y1^y2) < 0)
|
|
{
|
|
x1--;
|
|
x2--;
|
|
|
|
if ((x1^x2) >= 0)
|
|
cnt2 ^= x1;
|
|
else
|
|
cnt2 ^= (x1*y2-x2*y1)^y2;
|
|
}
|
|
|
|
wal++; i--;
|
|
}
|
|
while (i);
|
|
|
|
return (cnt1|cnt2)>>31;
|
|
}
|
|
|
|
return -1;
|
|
}
|
|
|
|
int32_t __fastcall getangle(int32_t xvect, int32_t yvect)
|
|
{
|
|
if ((xvect|yvect) == 0) return(0);
|
|
if (xvect == 0) return 512+((yvect<0)<<10);
|
|
if (yvect == 0) return ((xvect<0)<<10);
|
|
if (xvect == yvect) return 256+((xvect<0)<<10);
|
|
if (xvect == -yvect) return 768+((xvect>0)<<10);
|
|
if (klabs(xvect) > klabs(yvect))
|
|
return ((radarang[640+scale(160,yvect,xvect)]>>6)+((xvect<0)<<10))&2047;
|
|
return ((radarang[640-scale(160,xvect,yvect)]>>6)+512+((yvect<0)<<10))&2047;
|
|
}
|
|
|
|
//
|
|
// ksqrt
|
|
//
|
|
int32_t ksqrt(uint32_t num)
|
|
{
|
|
return nsqrtasm(num);
|
|
}
|
|
|
|
#ifdef LUNATIC
|
|
int32_t Mulscale(int32_t a, int32_t b, int32_t sh)
|
|
{
|
|
return mulscale(a, b, sh);
|
|
}
|
|
#endif
|
|
|
|
// Gets the BUILD unit height and z offset of a sprite.
|
|
// Returns the z offset, 'height' may be NULL.
|
|
int32_t spriteheightofsptr(const spritetype *spr, int32_t *height, int32_t alsotileyofs)
|
|
{
|
|
int32_t hei, zofs=0;
|
|
const int32_t picnum=spr->picnum, yrepeat=spr->yrepeat;
|
|
|
|
hei = (tilesiz[picnum].y*yrepeat)<<2;
|
|
*height = hei;
|
|
|
|
if (spr->cstat&128)
|
|
zofs = hei>>1;
|
|
|
|
// NOTE: a positive per-tile yoffset translates the sprite into the
|
|
// negative world z direction (i.e. upward).
|
|
if (alsotileyofs)
|
|
zofs -= picanm[picnum].yofs*yrepeat<<2;
|
|
|
|
return zofs;
|
|
}
|
|
|
|
//
|
|
// setsprite
|
|
//
|
|
int32_t setsprite(int16_t spritenum, const vec3_t *newpos)
|
|
{
|
|
int16_t tempsectnum = sprite[spritenum].sectnum;
|
|
|
|
if ((void *)newpos != (void *)&sprite[spritenum])
|
|
Bmemcpy(&sprite[spritenum], newpos, sizeof(vec3_t));
|
|
|
|
updatesector(newpos->x,newpos->y,&tempsectnum);
|
|
|
|
if (tempsectnum < 0)
|
|
return(-1);
|
|
if (tempsectnum != sprite[spritenum].sectnum)
|
|
changespritesect(spritenum,tempsectnum);
|
|
|
|
return(0);
|
|
}
|
|
|
|
int32_t setspritez(int16_t spritenum, const vec3_t *newpos)
|
|
{
|
|
int16_t tempsectnum = sprite[spritenum].sectnum;
|
|
|
|
if ((void *)newpos != (void *)&sprite[spritenum])
|
|
Bmemcpy(&sprite[spritenum], newpos, sizeof(vec3_t));
|
|
|
|
updatesectorz(newpos->x,newpos->y,newpos->z,&tempsectnum);
|
|
|
|
if (tempsectnum < 0)
|
|
return(-1);
|
|
if (tempsectnum != sprite[spritenum].sectnum)
|
|
changespritesect(spritenum,tempsectnum);
|
|
|
|
return(0);
|
|
}
|
|
|
|
|
|
//
|
|
// nextsectorneighborz
|
|
//
|
|
// -1: ceiling or up
|
|
// 1: floor or down
|
|
int32_t nextsectorneighborz(int16_t sectnum, int32_t refz, int16_t topbottom, int16_t direction)
|
|
{
|
|
int32_t nextz = (direction==1) ? INT32_MAX : INT32_MIN;
|
|
int32_t sectortouse = -1;
|
|
|
|
const walltype *wal = &wall[sector[sectnum].wallptr];
|
|
int32_t i = sector[sectnum].wallnum;
|
|
|
|
do
|
|
{
|
|
const int32_t ns = wal->nextsector;
|
|
|
|
if (ns >= 0)
|
|
{
|
|
const int32_t testz = (topbottom == 1) ?
|
|
sector[ns].floorz : sector[ns].ceilingz;
|
|
|
|
const int32_t update = (direction == 1) ?
|
|
(nextz > testz && testz > refz) :
|
|
(nextz < testz && testz < refz);
|
|
|
|
if (update)
|
|
{
|
|
nextz = testz;
|
|
sectortouse = ns;
|
|
}
|
|
}
|
|
|
|
wal++;
|
|
i--;
|
|
}
|
|
while (i != 0);
|
|
|
|
return sectortouse;
|
|
}
|
|
|
|
|
|
//
|
|
// cansee
|
|
//
|
|
int32_t cansee(int32_t x1, int32_t y1, int32_t z1, int16_t sect1, int32_t x2, int32_t y2, int32_t z2, int16_t sect2)
|
|
{
|
|
int32_t dacnt, danum;
|
|
const int32_t x21 = x2-x1, y21 = y2-y1, z21 = z2-z1;
|
|
|
|
static uint8_t sectbitmap[MAXSECTORS>>3];
|
|
#ifdef YAX_ENABLE
|
|
int16_t pendingsectnum;
|
|
vec3_t pendingvec;
|
|
|
|
// Negative sectnums can happen, for example if the player is using noclip.
|
|
// MAXSECTORS can happen from C-CON, e.g. canseespr with a sprite not in
|
|
// the game world.
|
|
if ((unsigned)sect1 >= MAXSECTORS || (unsigned)sect2 >= MAXSECTORS)
|
|
return 0;
|
|
|
|
Bmemset(&pendingvec, 0, sizeof(vec3_t)); // compiler-happy
|
|
#endif
|
|
Bmemset(sectbitmap, 0, (numsectors+7)>>3);
|
|
#ifdef YAX_ENABLE
|
|
restart_grand:
|
|
#endif
|
|
if (x1 == x2 && y1 == y2)
|
|
return (sect1 == sect2);
|
|
|
|
#ifdef YAX_ENABLE
|
|
pendingsectnum = -1;
|
|
#endif
|
|
sectbitmap[sect1>>3] |= (1<<(sect1&7));
|
|
clipsectorlist[0] = sect1; danum = 1;
|
|
|
|
for (dacnt=0; dacnt<danum; dacnt++)
|
|
{
|
|
const int32_t dasectnum = clipsectorlist[dacnt];
|
|
const sectortype *const sec = §or[dasectnum];
|
|
const walltype *wal;
|
|
int32_t cnt;
|
|
#ifdef YAX_ENABLE
|
|
int32_t cfz1[2], cfz2[2]; // both wrt dasectnum
|
|
int16_t bn[2];
|
|
|
|
yax_getbunches(dasectnum, &bn[0], &bn[1]);
|
|
getzsofslope(dasectnum, x1,y1, &cfz1[0], &cfz1[1]);
|
|
getzsofslope(dasectnum, x2,y2, &cfz2[0], &cfz2[1]);
|
|
#endif
|
|
for (cnt=sec->wallnum,wal=&wall[sec->wallptr]; cnt>0; cnt--,wal++)
|
|
{
|
|
const walltype *const wal2 = &wall[wal->point2];
|
|
const int32_t x31 = wal->x-x1, x34 = wal->x-wal2->x;
|
|
const int32_t y31 = wal->y-y1, y34 = wal->y-wal2->y;
|
|
|
|
int32_t x, y, z, nexts, t, bot;
|
|
int32_t cfz[2];
|
|
|
|
bot = y21*x34-x21*y34; if (bot <= 0) continue;
|
|
// XXX: OVERFLOW
|
|
t = y21*x31-x21*y31; if ((unsigned)t >= (unsigned)bot) continue;
|
|
t = y31*x34-x31*y34;
|
|
if ((unsigned)t >= (unsigned)bot)
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
if (t >= bot)
|
|
{
|
|
int32_t cf, frac, ns;
|
|
for (cf=0; cf<2; cf++)
|
|
{
|
|
if ((cf==0 && bn[0]>=0 && z1 > cfz1[0] && cfz2[0] > z2) ||
|
|
(cf==1 && bn[1]>=0 && z1 < cfz1[1] && cfz2[1] < z2))
|
|
{
|
|
if ((cfz1[cf]-cfz2[cf])-(z1-z2)==0)
|
|
continue;
|
|
frac = divscale24(z1-cfz1[cf], (z1-z2)-(cfz1[cf]-cfz2[cf]));
|
|
|
|
if ((unsigned)frac >= (1<<24))
|
|
continue;
|
|
|
|
x = x1 + mulscale24(x21,frac);
|
|
y = y1 + mulscale24(y21,frac);
|
|
|
|
ns = yax_getneighborsect(x, y, dasectnum, cf);
|
|
if (ns < 0)
|
|
continue;
|
|
|
|
if (!(sectbitmap[ns>>3] & (1<<(ns&7))) && pendingsectnum==-1)
|
|
{
|
|
sectbitmap[ns>>3] |= (1<<(ns&7));
|
|
pendingsectnum = ns;
|
|
pendingvec.x = x;
|
|
pendingvec.y = y;
|
|
pendingvec.z = z1 + mulscale24(z21,frac);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
continue;
|
|
}
|
|
|
|
nexts = wal->nextsector;
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (bn[0]<0 && bn[1]<0)
|
|
#endif
|
|
if (nexts < 0 || wal->cstat&32)
|
|
return 0;
|
|
|
|
t = divscale24(t,bot);
|
|
x = x1 + mulscale24(x21,t);
|
|
y = y1 + mulscale24(y21,t);
|
|
z = z1 + mulscale24(z21,t);
|
|
|
|
getzsofslope(dasectnum, x,y, &cfz[0],&cfz[1]);
|
|
|
|
if (z <= cfz[0] || z >= cfz[1])
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
int32_t cf, frac;
|
|
|
|
// XXX: Is this any good?
|
|
for (cf=0; cf<2; cf++)
|
|
if ((cf==0 && bn[0]>=0 && z <= cfz[0] && z1 >= cfz1[0]) ||
|
|
(cf==1 && bn[1]>=0 && z >= cfz[1] && z1 <= cfz1[1]))
|
|
{
|
|
if ((cfz1[cf]-cfz[cf])-(z1-z)==0)
|
|
continue;
|
|
|
|
frac = divscale24(z1-cfz1[cf], (z1-z)-(cfz1[cf]-cfz[cf]));
|
|
t = mulscale24(t, frac);
|
|
|
|
if ((unsigned)t < (1<<24))
|
|
{
|
|
x = x1 + mulscale24(x21,t);
|
|
y = y1 + mulscale24(y21,t);
|
|
|
|
nexts = yax_getneighborsect(x, y, dasectnum, cf);
|
|
if (nexts >= 0)
|
|
goto add_nextsector;
|
|
}
|
|
}
|
|
|
|
#endif
|
|
return 0;
|
|
}
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (nexts < 0 || (wal->cstat&32))
|
|
return 0;
|
|
#endif
|
|
getzsofslope(nexts, x,y, &cfz[0],&cfz[1]);
|
|
if (z <= cfz[0] || z >= cfz[1])
|
|
return 0;
|
|
|
|
add_nextsector:
|
|
if (!(sectbitmap[nexts>>3] & (1<<(nexts&7))))
|
|
{
|
|
sectbitmap[nexts>>3] |= (1<<(nexts&7));
|
|
clipsectorlist[danum++] = nexts;
|
|
}
|
|
}
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (pendingsectnum>=0)
|
|
{
|
|
sect1 = pendingsectnum;
|
|
x1 = pendingvec.x;
|
|
y1 = pendingvec.y;
|
|
z1 = pendingvec.z;
|
|
goto restart_grand;
|
|
}
|
|
#endif
|
|
}
|
|
|
|
if (sectbitmap[sect2>>3] & (1<<(sect2&7)))
|
|
return 1;
|
|
|
|
return 0;
|
|
}
|
|
|
|
static inline void hit_set(hitdata_t *hit, int32_t sectnum, int32_t wallnum, int32_t spritenum,
|
|
int32_t x, int32_t y, int32_t z)
|
|
{
|
|
hit->sect = sectnum;
|
|
hit->wall = wallnum;
|
|
hit->sprite = spritenum;
|
|
hit->pos.x = x;
|
|
hit->pos.y = y;
|
|
hit->pos.z = z;
|
|
}
|
|
|
|
static int32_t hitscan_hitsectcf=-1;
|
|
|
|
// stat, heinum, z: either ceiling- or floor-
|
|
// how: -1: behave like ceiling, 1: behave like floor
|
|
static int32_t hitscan_trysector(const vec3_t *sv, const sectortype *sec, hitdata_t *hit,
|
|
int32_t vx, int32_t vy, int32_t vz,
|
|
uint16_t stat, int16_t heinum, int32_t z, int32_t how, const intptr_t *tmp)
|
|
{
|
|
int32_t x1 = INT32_MAX, y1, z1;
|
|
int32_t i;
|
|
|
|
if (stat&2)
|
|
{
|
|
const walltype *const wal = &wall[sec->wallptr];
|
|
const walltype *const wal2 = &wall[wal->point2];
|
|
int32_t j, dax=wal2->x-wal->x, day=wal2->y-wal->y;
|
|
|
|
i = nsqrtasm(uhypsq(dax,day)); if (i == 0) return 1; //continue;
|
|
i = divscale15(heinum,i);
|
|
dax *= i; day *= i;
|
|
|
|
j = (vz<<8)-dmulscale15(dax,vy,-day,vx);
|
|
if (j != 0)
|
|
{
|
|
i = ((z - sv->z)<<8)+dmulscale15(dax,sv->y-wal->y,-day,sv->x-wal->x);
|
|
if (((i^j) >= 0) && ((klabs(i)>>1) < klabs(j)))
|
|
{
|
|
i = divscale30(i,j);
|
|
x1 = sv->x + mulscale30(vx,i);
|
|
y1 = sv->y + mulscale30(vy,i);
|
|
z1 = sv->z + mulscale30(vz,i);
|
|
}
|
|
}
|
|
}
|
|
else if ((how*vz > 0) && (how*sv->z <= how*z))
|
|
{
|
|
z1 = z; i = z1-sv->z;
|
|
if ((klabs(i)>>1) < vz*how)
|
|
{
|
|
i = divscale30(i,vz);
|
|
x1 = sv->x + mulscale30(vx,i);
|
|
y1 = sv->y + mulscale30(vy,i);
|
|
}
|
|
}
|
|
|
|
if ((x1 != INT32_MAX) && (klabs(x1-sv->x)+klabs(y1-sv->y) < klabs((hit->pos.x)-sv->x)+klabs((hit->pos.y)-sv->y)))
|
|
{
|
|
if (tmp==NULL)
|
|
{
|
|
if (inside(x1,y1,sec-sector) == 1)
|
|
{
|
|
hit_set(hit, sec-sector, -1, -1, x1, y1, z1);
|
|
hitscan_hitsectcf = (how+1)>>1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
const int32_t curidx=(int32_t)tmp[0];
|
|
const spritetype *const curspr=(spritetype *)tmp[1];
|
|
const int32_t thislastsec = tmp[2];
|
|
|
|
if (!thislastsec)
|
|
{
|
|
if (inside(x1,y1,sec-sector) == 1)
|
|
hit_set(hit, curspr->sectnum, -1, curspr-sprite, x1, y1, z1);
|
|
}
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
else
|
|
{
|
|
for (i=clipinfo[curidx].qbeg; i<clipinfo[curidx].qend; i++)
|
|
{
|
|
if (inside(x1,y1,sectq[i]) == 1)
|
|
{
|
|
hit_set(hit, curspr->sectnum, -1, curspr-sprite, x1, y1, z1);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
// x1, y1: in/out
|
|
// rest x/y: out
|
|
static void get_wallspr_points(const spritetype *spr, int32_t *x1, int32_t *x2,
|
|
int32_t *y1, int32_t *y2)
|
|
{
|
|
//These lines get the 2 points of the rotated sprite
|
|
//Given: (x1, y1) starts out as the center point
|
|
|
|
const int32_t tilenum=spr->picnum, ang=spr->ang;
|
|
const int32_t xrepeat = spr->xrepeat;
|
|
int32_t xoff = picanm[tilenum].xofs + spr->xoffset;
|
|
int32_t k, l, dax, day;
|
|
|
|
if (spr->cstat&4)
|
|
xoff = -xoff;
|
|
|
|
dax = sintable[ang&2047]*xrepeat;
|
|
day = sintable[(ang+1536)&2047]*xrepeat;
|
|
|
|
l = tilesiz[tilenum].x;
|
|
k = (l>>1)+xoff;
|
|
|
|
*x1 -= mulscale16(dax,k);
|
|
*x2 = *x1 + mulscale16(dax,l);
|
|
|
|
*y1 -= mulscale16(day,k);
|
|
*y2 = *y1 + mulscale16(day,l);
|
|
}
|
|
|
|
// x1, y1: in/out
|
|
// rest x/y: out
|
|
static void get_floorspr_points(const spritetype *spr, int32_t px, int32_t py,
|
|
int32_t *x1, int32_t *x2, int32_t *x3, int32_t *x4,
|
|
int32_t *y1, int32_t *y2, int32_t *y3, int32_t *y4)
|
|
{
|
|
const int32_t tilenum = spr->picnum;
|
|
// &2047 in sinang:
|
|
// DNE 1.3D lights camera action (1st level), spr->ang==2306
|
|
// (probably from CON)
|
|
const int32_t cosang = sintable[(spr->ang+512)&2047];
|
|
const int32_t sinang = sintable[spr->ang&2047];
|
|
|
|
const int32_t xspan=tilesiz[tilenum].x, xrepeat=spr->xrepeat;
|
|
const int32_t yspan=tilesiz[tilenum].y, yrepeat=spr->yrepeat;
|
|
|
|
int32_t xoff = picanm[tilenum].xofs + spr->xoffset;
|
|
int32_t yoff = picanm[tilenum].yofs + spr->yoffset;
|
|
int32_t k, l, dax, day;
|
|
|
|
if (spr->cstat&4)
|
|
xoff = -xoff;
|
|
if (spr->cstat&8)
|
|
yoff = -yoff;
|
|
|
|
dax = ((xspan>>1)+xoff)*xrepeat;
|
|
day = ((yspan>>1)+yoff)*yrepeat;
|
|
|
|
*x1 += dmulscale16(sinang,dax, cosang,day) - px;
|
|
*y1 += dmulscale16(sinang,day, -cosang,dax) - py;
|
|
|
|
l = xspan*xrepeat;
|
|
*x2 = *x1 - mulscale16(sinang,l);
|
|
*y2 = *y1 + mulscale16(cosang,l);
|
|
|
|
l = yspan*yrepeat;
|
|
k = -mulscale16(cosang,l); *x3 = *x2+k; *x4 = *x1+k;
|
|
k = -mulscale16(sinang,l); *y3 = *y2+k; *y4 = *y1+k;
|
|
}
|
|
|
|
static int32_t get_floorspr_clipyou(int32_t x1, int32_t x2, int32_t x3, int32_t x4,
|
|
int32_t y1, int32_t y2, int32_t y3, int32_t y4)
|
|
{
|
|
int32_t clipyou = 0;
|
|
|
|
if ((y1^y2) < 0)
|
|
{
|
|
if ((x1^x2) < 0) clipyou ^= (x1*y2 < x2*y1)^(y1<y2);
|
|
else if (x1 >= 0) clipyou ^= 1;
|
|
}
|
|
if ((y2^y3) < 0)
|
|
{
|
|
if ((x2^x3) < 0) clipyou ^= (x2*y3 < x3*y2)^(y2<y3);
|
|
else if (x2 >= 0) clipyou ^= 1;
|
|
}
|
|
if ((y3^y4) < 0)
|
|
{
|
|
if ((x3^x4) < 0) clipyou ^= (x3*y4 < x4*y3)^(y3<y4);
|
|
else if (x3 >= 0) clipyou ^= 1;
|
|
}
|
|
if ((y4^y1) < 0)
|
|
{
|
|
if ((x4^x1) < 0) clipyou ^= (x4*y1 < x1*y4)^(y4<y1);
|
|
else if (x4 >= 0) clipyou ^= 1;
|
|
}
|
|
|
|
return clipyou;
|
|
}
|
|
|
|
// intp: point of currently best (closest) intersection
|
|
static int32_t try_facespr_intersect(const spritetype *spr, const vec3_t *refpos,
|
|
int32_t vx, int32_t vy, int32_t vz,
|
|
vec3_t *intp, int32_t strictly_smaller_than_p)
|
|
{
|
|
const int32_t x1=spr->x, y1=spr->y;
|
|
const int32_t xs=refpos->x, ys=refpos->y;
|
|
|
|
const int32_t topt = vx*(x1-xs) + vy*(y1-ys);
|
|
if (topt > 0)
|
|
{
|
|
const int32_t bot = vx*vx + vy*vy;
|
|
if (bot != 0)
|
|
{
|
|
int32_t i;
|
|
const int32_t intz = refpos->z + scale(vz,topt,bot);
|
|
const int32_t z1 = spr->z + spriteheightofsptr(spr, &i, 1);
|
|
|
|
if (intz >= z1-i && intz <= z1)
|
|
{
|
|
const int32_t topu = vx*(y1-ys) - vy*(x1-xs);
|
|
|
|
const int32_t offx = scale(vx,topu,bot);
|
|
const int32_t offy = scale(vy,topu,bot);
|
|
const int32_t dist = offx*offx + offy*offy;
|
|
|
|
i = tilesiz[spr->picnum].x*spr->xrepeat;
|
|
if (dist <= mulscale7(i,i))
|
|
{
|
|
const int32_t intx = xs + scale(vx,topt,bot);
|
|
const int32_t inty = ys + scale(vy,topt,bot);
|
|
|
|
if (klabs(intx-xs)+klabs(inty-ys) + strictly_smaller_than_p
|
|
<= klabs(intp->x-xs)+klabs(intp->y-ys))
|
|
{
|
|
intp->x = intx;
|
|
intp->y = inty;
|
|
intp->z = intz;
|
|
return 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
//
|
|
// hitscan
|
|
//
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
static int32_t clipsprite_initindex(int32_t curidx, spritetype *curspr, int32_t *clipsectcnt, const vec3_t *vect);
|
|
#endif
|
|
|
|
int32_t hitscan(const vec3_t *sv, int16_t sectnum, int32_t vx, int32_t vy, int32_t vz,
|
|
hitdata_t *hit, uint32_t cliptype)
|
|
{
|
|
int32_t x1, y1=0, z1=0, x2, y2, intx, inty, intz;
|
|
int32_t i, k, daz;
|
|
int16_t tempshortcnt, tempshortnum;
|
|
|
|
spritetype *curspr = NULL;
|
|
int32_t clipspritecnt, curidx=-1;
|
|
// tmp: { (int32_t)curidx, (spritetype *)curspr, (!=0 if outer sector) }
|
|
intptr_t tmp[3], *tmpptr=NULL;
|
|
#ifdef YAX_ENABLE
|
|
vec3_t newsv;
|
|
int32_t oldhitsect = -1, oldhitsect2 = -2;
|
|
#endif
|
|
const int32_t dawalclipmask = (cliptype&65535);
|
|
const int32_t dasprclipmask = (cliptype>>16);
|
|
|
|
hit->sect = -1; hit->wall = -1; hit->sprite = -1;
|
|
if (sectnum < 0)
|
|
return -1;
|
|
|
|
#ifdef YAX_ENABLE
|
|
restart_grand:
|
|
#endif
|
|
hit->pos.x = hitscangoalx; hit->pos.y = hitscangoaly;
|
|
|
|
clipsectorlist[0] = sectnum;
|
|
tempshortcnt = 0; tempshortnum = 1;
|
|
clipspritecnt = clipspritenum = 0;
|
|
do
|
|
{
|
|
const sectortype *sec;
|
|
const walltype *wal;
|
|
int32_t dasector, z, startwall, endwall;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (tempshortcnt >= tempshortnum)
|
|
{
|
|
// one bunch of sectors completed, prepare the next
|
|
if (!curspr)
|
|
mapinfo_set(&origmapinfo, &clipmapinfo); // replace sector and wall with clip map
|
|
|
|
curspr = &sprite[clipspritelist[clipspritecnt]];
|
|
curidx = clipshape_idx_for_sprite(curspr, curidx);
|
|
|
|
if (curidx < 0)
|
|
{
|
|
clipspritecnt++;
|
|
continue;
|
|
}
|
|
|
|
tmp[0] = (intptr_t)curidx;
|
|
tmp[1] = (intptr_t)curspr;
|
|
tmpptr = tmp;
|
|
|
|
clipsprite_initindex(curidx, curspr, &i, sv); // &i is dummy
|
|
tempshortnum = (int16_t)clipsectnum;
|
|
tempshortcnt = 0;
|
|
}
|
|
#endif
|
|
dasector = clipsectorlist[tempshortcnt]; sec = §or[dasector];
|
|
|
|
i = 1;
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (curspr)
|
|
{
|
|
if (dasector == sectq[clipinfo[curidx].qend])
|
|
{
|
|
i = -1;
|
|
tmp[2] = 1;
|
|
}
|
|
else tmp[2] = 0;
|
|
}
|
|
#endif
|
|
if (hitscan_trysector(sv, sec, hit, vx,vy,vz, sec->ceilingstat, sec->ceilingheinum, sec->ceilingz, -i, tmpptr))
|
|
continue;
|
|
if (hitscan_trysector(sv, sec, hit, vx,vy,vz, sec->floorstat, sec->floorheinum, sec->floorz, i, tmpptr))
|
|
continue;
|
|
|
|
////////// Walls //////////
|
|
|
|
startwall = sec->wallptr; endwall = startwall + sec->wallnum;
|
|
for (z=startwall,wal=&wall[startwall]; z<endwall; z++,wal++)
|
|
{
|
|
const int32_t nextsector = wal->nextsector;
|
|
const walltype *const wal2 = &wall[wal->point2];
|
|
int32_t daz2, zz;
|
|
|
|
if (curspr && nextsector<0) continue;
|
|
|
|
x1 = wal->x; y1 = wal->y; x2 = wal2->x; y2 = wal2->y;
|
|
|
|
if ((coord_t)(x1-sv->x)*(y2-sv->y) < (coord_t)(x2-sv->x)*(y1-sv->y)) continue;
|
|
if (rintersect(sv->x,sv->y,sv->z, vx,vy,vz, x1,y1, x2,y2, &intx,&inty,&intz) == -1) continue;
|
|
|
|
if (klabs(intx-sv->x)+klabs(inty-sv->y) >= klabs((hit->pos.x)-sv->x)+klabs((hit->pos.y)-sv->y))
|
|
continue;
|
|
|
|
if (!curspr)
|
|
{
|
|
if ((nextsector < 0) || (wal->cstat&dawalclipmask))
|
|
{
|
|
hit_set(hit, dasector, z, -1, intx, inty, intz);
|
|
continue;
|
|
}
|
|
|
|
getzsofslope(nextsector,intx,inty,&daz,&daz2);
|
|
if (intz <= daz || intz >= daz2)
|
|
{
|
|
hit_set(hit, dasector, z, -1, intx, inty, intz);
|
|
continue;
|
|
}
|
|
}
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
else
|
|
{
|
|
int32_t cz,fz;
|
|
|
|
if (wal->cstat&dawalclipmask)
|
|
{
|
|
hit_set(hit, curspr->sectnum, -1, curspr-sprite, intx, inty, intz);
|
|
continue;
|
|
}
|
|
|
|
getzsofslope(nextsector,intx,inty,&daz,&daz2);
|
|
getzsofslope(sectq[clipinfo[curidx].qend],intx,inty,&cz,&fz);
|
|
// ceil cz daz daz2 fz floor
|
|
if ((cz <= intz && intz <= daz) || (daz2 <= intz && intz <= fz))
|
|
{
|
|
hit_set(hit, curspr->sectnum, -1, curspr-sprite, intx, inty, intz);
|
|
continue;
|
|
}
|
|
}
|
|
#endif
|
|
for (zz=tempshortnum-1; zz>=0; zz--)
|
|
if (clipsectorlist[zz] == nextsector) break;
|
|
if (zz < 0) clipsectorlist[tempshortnum++] = nextsector;
|
|
}
|
|
|
|
////////// Sprites //////////
|
|
|
|
if (dasprclipmask==0)
|
|
continue;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (curspr)
|
|
continue;
|
|
#endif
|
|
for (z=headspritesect[dasector]; z>=0; z=nextspritesect[z])
|
|
{
|
|
const spritetype *const spr = &sprite[z];
|
|
const int32_t cstat = spr->cstat;
|
|
#ifdef USE_OPENGL
|
|
if (!hitallsprites)
|
|
#endif
|
|
if ((cstat&dasprclipmask) == 0)
|
|
continue;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
// try and see whether this sprite's picnum has sector-like clipping data
|
|
i = pictoidx[spr->picnum];
|
|
// handle sector-like floor sprites separately
|
|
while (i>=0 && (spr->cstat&32) != (clipmapinfo.sector[sectq[clipinfo[i].qbeg]].CM_CSTAT&32))
|
|
i = clipinfo[i].next;
|
|
if (i>=0 && clipspritenum<MAXCLIPNUM)
|
|
{
|
|
clipspritelist[clipspritenum++] = z;
|
|
continue;
|
|
}
|
|
#endif
|
|
x1 = spr->x; y1 = spr->y; z1 = spr->z;
|
|
switch (cstat&48)
|
|
{
|
|
case 0:
|
|
{
|
|
if (try_facespr_intersect(spr, sv, vx, vy, vz, &hit->pos, 0))
|
|
{
|
|
hit->sect = dasector;
|
|
hit->wall = -1;
|
|
hit->sprite = z;
|
|
}
|
|
|
|
break;
|
|
}
|
|
|
|
case 16:
|
|
{
|
|
int32_t ucoefup16;
|
|
int32_t tilenum = spr->picnum;
|
|
|
|
get_wallspr_points(spr, &x1, &x2, &y1, &y2);
|
|
|
|
if ((cstat&64) != 0) //back side of 1-way sprite
|
|
if ((coord_t)(x1-sv->x)*(y2-sv->y) < (coord_t)(x2-sv->x)*(y1-sv->y)) continue;
|
|
|
|
ucoefup16 = rintersect(sv->x,sv->y,sv->z,vx,vy,vz,x1,y1,x2,y2,&intx,&inty,&intz);
|
|
if (ucoefup16 == -1) continue;
|
|
|
|
if (klabs(intx-sv->x)+klabs(inty-sv->y) > klabs((hit->pos.x)-sv->x)+klabs((hit->pos.y)-sv->y))
|
|
continue;
|
|
|
|
daz = spr->z + spriteheightofs(z, &k, 1);
|
|
if (intz > daz-k && intz < daz)
|
|
{
|
|
if (picanm[tilenum].sf&PICANM_TEXHITSCAN_BIT)
|
|
{
|
|
DO_TILE_ANIM(tilenum, 0);
|
|
|
|
if (!waloff[tilenum])
|
|
loadtile(tilenum);
|
|
|
|
if (waloff[tilenum])
|
|
{
|
|
// daz-intz > 0 && daz-intz < k
|
|
int32_t xtex = mulscale16(ucoefup16, tilesiz[tilenum].x);
|
|
int32_t vcoefup16 = 65536-divscale16(daz-intz, k);
|
|
int32_t ytex = mulscale16(vcoefup16, tilesiz[tilenum].y);
|
|
|
|
const char *texel = (char *)(waloff[tilenum] + tilesiz[tilenum].y*xtex + ytex);
|
|
if (*texel == 255)
|
|
continue;
|
|
}
|
|
}
|
|
|
|
hit_set(hit, dasector, -1, z, intx, inty, intz);
|
|
}
|
|
break;
|
|
}
|
|
|
|
case 32:
|
|
{
|
|
int32_t x3, y3, x4, y4, zz;
|
|
|
|
if (vz == 0) continue;
|
|
intz = z1;
|
|
if (((intz-sv->z)^vz) < 0) continue;
|
|
if ((cstat&64) != 0)
|
|
if ((sv->z > intz) == ((cstat&8)==0)) continue;
|
|
#if 1
|
|
// Abyss crash prevention code ((intz-sv->z)*zx overflowing a 8-bit word)
|
|
// PK: the reason for the crash is not the overflowing (even if it IS a problem;
|
|
// signed overflow is undefined behavior in C), but rather the idiv trap when
|
|
// the resulting quotient doesn't fit into a *signed* 32-bit integer.
|
|
zz = (uint32_t)(intz-sv->z) * vx;
|
|
intx = sv->x+scale(zz,1,vz);
|
|
zz = (uint32_t)(intz-sv->z) * vy;
|
|
inty = sv->y+scale(zz,1,vz);
|
|
#else
|
|
intx = sv->x+scale(intz-sv->z,vx,vz);
|
|
inty = sv->y+scale(intz-sv->z,vy,vz);
|
|
#endif
|
|
if (klabs(intx-sv->x)+klabs(inty-sv->y) > klabs((hit->pos.x)-sv->x)+klabs((hit->pos.y)-sv->y))
|
|
continue;
|
|
|
|
get_floorspr_points(spr, intx, inty, &x1, &x2, &x3, &x4,
|
|
&y1, &y2, &y3, &y4);
|
|
|
|
if (get_floorspr_clipyou(x1, x2, x3, x4, y1, y2, y3, y4))
|
|
{
|
|
hit_set(hit, dasector, -1, z, intx, inty, intz);
|
|
}
|
|
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
while (++tempshortcnt < tempshortnum || clipspritecnt < clipspritenum);
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (curspr)
|
|
mapinfo_set(NULL, &origmapinfo);
|
|
#endif
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (numyaxbunches == 0 || editstatus)
|
|
return 0;
|
|
|
|
if (hit->sprite==-1 && hit->wall==-1 && hit->sect!=oldhitsect
|
|
&& hit->sect != oldhitsect2) // 'ping-pong' infloop protection
|
|
{
|
|
if (hit->sect == -1 && oldhitsect >= 0)
|
|
{
|
|
// this is bad: we didn't hit anything after going through a ceiling/floor
|
|
Bmemcpy(&hit->pos, &newsv, sizeof(vec3_t));
|
|
hit->sect = oldhitsect;
|
|
|
|
return 0;
|
|
}
|
|
|
|
// 1st, 2nd, ... ceil/floor hit
|
|
// hit->sect is >=0 because if oldhitsect's init and check above
|
|
if (SECTORFLD(hit->sect,stat, hitscan_hitsectcf)&yax_waltosecmask(dawalclipmask))
|
|
return 0;
|
|
|
|
i = yax_getneighborsect(hit->pos.x, hit->pos.y, hit->sect, hitscan_hitsectcf);
|
|
if (i >= 0)
|
|
{
|
|
Bmemcpy(&newsv, &hit->pos, sizeof(vec3_t));
|
|
sectnum = i;
|
|
sv = &newsv;
|
|
|
|
oldhitsect2 = oldhitsect;
|
|
oldhitsect = hit->sect;
|
|
hit->sect = -1;
|
|
|
|
// sector-like sprite re-init:
|
|
curspr = 0;
|
|
curidx = -1;
|
|
tmpptr = NULL;
|
|
|
|
goto restart_grand;
|
|
}
|
|
}
|
|
#endif
|
|
|
|
return(0);
|
|
}
|
|
|
|
|
|
//
|
|
// neartag
|
|
//
|
|
void neartag(int32_t xs, int32_t ys, int32_t zs, int16_t sectnum, int16_t ange,
|
|
int16_t *neartagsector, int16_t *neartagwall, int16_t *neartagsprite, int32_t *neartaghitdist, /* out */
|
|
int32_t neartagrange, uint8_t tagsearch,
|
|
int32_t (*blacklist_sprite_func)(int32_t))
|
|
{
|
|
int16_t tempshortcnt, tempshortnum;
|
|
|
|
const int32_t vx = mulscale14(sintable[(ange+2560)&2047],neartagrange);
|
|
const int32_t vy = mulscale14(sintable[(ange+2048)&2047],neartagrange);
|
|
vec3_t hitv = { xs+vx, ys+vy, 0 };
|
|
const vec3_t sv = { xs, ys, zs };
|
|
|
|
*neartagsector = -1; *neartagwall = -1; *neartagsprite = -1;
|
|
*neartaghitdist = 0;
|
|
|
|
if (sectnum < 0 || (tagsearch & 3) == 0)
|
|
return;
|
|
|
|
clipsectorlist[0] = sectnum;
|
|
tempshortcnt = 0; tempshortnum = 1;
|
|
|
|
do
|
|
{
|
|
const int32_t dasector = clipsectorlist[tempshortcnt];
|
|
|
|
const int32_t startwall = sector[dasector].wallptr;
|
|
const int32_t endwall = startwall + sector[dasector].wallnum - 1;
|
|
const walltype *wal;
|
|
int32_t z;
|
|
|
|
for (z=startwall,wal=&wall[startwall]; z<=endwall; z++,wal++)
|
|
{
|
|
const walltype *const wal2 = &wall[wal->point2];
|
|
const int32_t nextsector = wal->nextsector;
|
|
|
|
const int32_t x1=wal->x, y1=wal->y, x2=wal2->x, y2=wal2->y;
|
|
int32_t intx, inty, intz, good = 0;
|
|
|
|
if (nextsector >= 0)
|
|
{
|
|
if ((tagsearch&1) && sector[nextsector].lotag) good |= 1;
|
|
if ((tagsearch&2) && sector[nextsector].hitag) good |= 1;
|
|
}
|
|
|
|
if ((tagsearch&1) && wal->lotag) good |= 2;
|
|
if ((tagsearch&2) && wal->hitag) good |= 2;
|
|
|
|
if ((good == 0) && (nextsector < 0)) continue;
|
|
if ((coord_t)(x1-xs)*(y2-ys) < (coord_t)(x2-xs)*(y1-ys)) continue;
|
|
|
|
if (lintersect(xs,ys,zs,hitv.x,hitv.y,hitv.z,x1,y1,x2,y2,&intx,&inty,&intz) == 1)
|
|
{
|
|
if (good != 0)
|
|
{
|
|
if (good&1) *neartagsector = nextsector;
|
|
if (good&2) *neartagwall = z;
|
|
*neartaghitdist = dmulscale14(intx-xs,sintable[(ange+2560)&2047],inty-ys,sintable[(ange+2048)&2047]);
|
|
hitv.x = intx; hitv.y = inty; hitv.z = intz;
|
|
}
|
|
|
|
if (nextsector >= 0)
|
|
{
|
|
int32_t zz;
|
|
for (zz=tempshortnum-1; zz>=0; zz--)
|
|
if (clipsectorlist[zz] == nextsector) break;
|
|
if (zz < 0) clipsectorlist[tempshortnum++] = nextsector;
|
|
}
|
|
}
|
|
}
|
|
|
|
tempshortcnt++;
|
|
|
|
if (tagsearch & 4)
|
|
continue; // skip sprite search
|
|
|
|
for (z=headspritesect[dasector]; z>=0; z=nextspritesect[z])
|
|
{
|
|
const spritetype *const spr = &sprite[z];
|
|
|
|
if (blacklist_sprite_func && blacklist_sprite_func(z))
|
|
continue;
|
|
|
|
if (((tagsearch&1) && spr->lotag) || ((tagsearch&2) && spr->hitag))
|
|
{
|
|
if (try_facespr_intersect(spr, &sv, vx, vy, 0, &hitv, 1))
|
|
{
|
|
*neartagsprite = z;
|
|
*neartaghitdist = dmulscale14(hitv.x-xs, sintable[(ange+2560)&2047],
|
|
hitv.y-ys, sintable[(ange+2048)&2047]);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
while (tempshortcnt < tempshortnum);
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
//
|
|
// dragpoint
|
|
//
|
|
// flags:
|
|
// 1: don't reset walbitmap[] (the bitmap of already dragged vertices)
|
|
// 2: In the editor, do wall[].cstat |= (1<<14) also for the lastwall().
|
|
void dragpoint(int16_t pointhighlight, int32_t dax, int32_t day, uint8_t flags)
|
|
#ifdef YAX_ENABLE
|
|
{
|
|
int32_t i, numyaxwalls=0;
|
|
static int16_t yaxwalls[MAXWALLS];
|
|
|
|
uint8_t *const walbitmap = (uint8_t *)tempbuf;
|
|
|
|
if ((flags&1)==0)
|
|
Bmemset(walbitmap, 0, (numwalls+7)>>3);
|
|
yaxwalls[numyaxwalls++] = pointhighlight;
|
|
|
|
for (i=0; i<numyaxwalls; i++)
|
|
{
|
|
int32_t clockwise = 0;
|
|
int32_t w = yaxwalls[i];
|
|
const int32_t tmpstartwall = w;
|
|
|
|
int32_t cnt = MAXWALLS;
|
|
|
|
while (1)
|
|
{
|
|
int32_t j, tmpcf;
|
|
|
|
wall[w].x = dax;
|
|
wall[w].y = day;
|
|
walbitmap[w>>3] |= (1<<(w&7));
|
|
|
|
for (YAX_ITER_WALLS(w, j, tmpcf))
|
|
{
|
|
if ((walbitmap[j>>3]&(1<<(j&7)))==0)
|
|
{
|
|
walbitmap[j>>3] |= (1<<(j&7));
|
|
yaxwalls[numyaxwalls++] = j;
|
|
}
|
|
}
|
|
|
|
if (!clockwise) //search points CCW
|
|
{
|
|
if (wall[w].nextwall >= 0)
|
|
w = wall[wall[w].nextwall].point2;
|
|
else
|
|
{
|
|
w = tmpstartwall;
|
|
clockwise = 1;
|
|
}
|
|
}
|
|
|
|
cnt--;
|
|
if (cnt==0)
|
|
{
|
|
initprintf("dragpoint %d: infloop!\n", pointhighlight);
|
|
i = numyaxwalls;
|
|
break;
|
|
}
|
|
|
|
if (clockwise)
|
|
{
|
|
int32_t thelastwall = lastwall(w);
|
|
if (wall[thelastwall].nextwall >= 0)
|
|
w = wall[thelastwall].nextwall;
|
|
else
|
|
break;
|
|
}
|
|
|
|
if ((walbitmap[w>>3] & (1<<(w&7))))
|
|
{
|
|
if (clockwise)
|
|
break;
|
|
|
|
w = tmpstartwall;
|
|
clockwise = 1;
|
|
continue;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (editstatus)
|
|
{
|
|
int32_t w;
|
|
// TODO: extern a separate bitmap instead?
|
|
for (w=0; w<numwalls; w++)
|
|
if (walbitmap[w>>3] & (1<<(w&7)))
|
|
{
|
|
wall[w].cstat |= (1<<14);
|
|
if (flags&2)
|
|
wall[lastwall(w)].cstat |= (1<<14);
|
|
}
|
|
}
|
|
}
|
|
#else
|
|
{
|
|
int16_t cnt, tempshort;
|
|
int32_t thelastwall;
|
|
|
|
tempshort = pointhighlight; //search points CCW
|
|
cnt = MAXWALLS;
|
|
|
|
wall[tempshort].x = dax;
|
|
wall[tempshort].y = day;
|
|
|
|
if (editstatus)
|
|
{
|
|
wall[pointhighlight].cstat |= (1<<14);
|
|
if (linehighlight >= 0 && linehighlight < MAXWALLS)
|
|
wall[linehighlight].cstat |= (1<<14);
|
|
wall[lastwall(pointhighlight)].cstat |= (1<<14);
|
|
}
|
|
|
|
do
|
|
{
|
|
if (wall[tempshort].nextwall >= 0)
|
|
{
|
|
tempshort = wall[wall[tempshort].nextwall].point2;
|
|
|
|
wall[tempshort].x = dax;
|
|
wall[tempshort].y = day;
|
|
wall[tempshort].cstat |= (1<<14);
|
|
}
|
|
else
|
|
{
|
|
tempshort = pointhighlight; //search points CW if not searched all the way around
|
|
do
|
|
{
|
|
thelastwall = lastwall(tempshort);
|
|
if (wall[thelastwall].nextwall >= 0)
|
|
{
|
|
tempshort = wall[thelastwall].nextwall;
|
|
wall[tempshort].x = dax;
|
|
wall[tempshort].y = day;
|
|
wall[tempshort].cstat |= (1<<14);
|
|
}
|
|
else
|
|
{
|
|
break;
|
|
}
|
|
cnt--;
|
|
}
|
|
while ((tempshort != pointhighlight) && (cnt > 0));
|
|
break;
|
|
}
|
|
cnt--;
|
|
}
|
|
while ((tempshort != pointhighlight) && (cnt > 0));
|
|
}
|
|
#endif
|
|
|
|
//
|
|
// lastwall
|
|
//
|
|
int32_t lastwall(int16_t point)
|
|
{
|
|
int32_t i, cnt;
|
|
|
|
if (point > 0 && wall[point-1].point2 == point)
|
|
return point-1;
|
|
|
|
i = point;
|
|
cnt = MAXWALLS;
|
|
do
|
|
{
|
|
int32_t j = wall[i].point2;
|
|
if (j == point) return(i);
|
|
i = j;
|
|
cnt--;
|
|
}
|
|
while (cnt > 0);
|
|
|
|
return(point);
|
|
}
|
|
|
|
|
|
////////// CLIPMOVE //////////
|
|
|
|
static int32_t clipmoveboxtracenum = 3;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
static int32_t clipsprite_try(const spritetype *spr, int32_t xmin, int32_t ymin, int32_t xmax, int32_t ymax)
|
|
{
|
|
// try and see whether this sprite's picnum has sector-like clipping data
|
|
int32_t i = pictoidx[spr->picnum];
|
|
// handle sector-like floor sprites separately
|
|
while (i>=0 && (spr->cstat&32) != (clipmapinfo.sector[sectq[clipinfo[i].qbeg]].CM_CSTAT&32))
|
|
i = clipinfo[i].next;
|
|
|
|
if (i>=0)
|
|
{
|
|
int32_t maxcorrection = clipinfo[i].maxdist;
|
|
const int32_t k = sectq[clipinfo[i].qbeg];
|
|
|
|
if ((spr->cstat&48)!=32) // face/wall sprite
|
|
{
|
|
int32_t tempint1 = clipmapinfo.sector[k].CM_XREPEAT;
|
|
maxcorrection = divideu32_noinline(maxcorrection * (int32_t)spr->xrepeat, tempint1);
|
|
}
|
|
else // floor sprite
|
|
{
|
|
int32_t tempint1 = clipmapinfo.sector[k].CM_XREPEAT;
|
|
int32_t tempint2 = clipmapinfo.sector[k].CM_YREPEAT;
|
|
maxcorrection = max(divideu32_noinline(maxcorrection * (int32_t)spr->xrepeat, tempint1),
|
|
divideu32_noinline(maxcorrection * (int32_t)spr->yrepeat, tempint2));
|
|
}
|
|
|
|
maxcorrection -= MAXCLIPDIST;
|
|
|
|
if (spr->x < xmin - maxcorrection) return 1;
|
|
if (spr->y < ymin - maxcorrection) return 1;
|
|
if (spr->x > xmax + maxcorrection) return 1;
|
|
if (spr->y > ymax + maxcorrection) return 1;
|
|
|
|
if (clipspritenum < MAXCLIPNUM)
|
|
clipspritelist[clipspritenum++] = spr-sprite;
|
|
//initprintf("%d: clip sprite[%d]\n",clipspritenum,j);
|
|
return 1;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
// return: -1 if curspr has x-flip xor y-flip (in the horizontal map plane!), 1 else
|
|
static int32_t clipsprite_initindex(int32_t curidx, spritetype *curspr, int32_t *clipsectcnt, const vec3_t *vect)
|
|
{
|
|
int32_t k, daz = curspr->z;
|
|
int32_t scalex, scaley, scalez, flipx, flipy;
|
|
int32_t flipmul=1;
|
|
|
|
const int32_t j = sectq[clipinfo[curidx].qbeg];
|
|
const int32_t tempint1 = sector[j].CM_XREPEAT;
|
|
const int32_t tempint2 = sector[j].CM_YREPEAT;
|
|
|
|
const int32_t rotang = (curspr->ang - sector[j].CM_ANG)&2047;
|
|
const int32_t dorot = !CM_NOROTS(j);
|
|
|
|
if ((curspr->cstat&48)!=32) // face/wall sprite
|
|
{
|
|
scalex = scaley = divscale22(curspr->xrepeat, tempint1);
|
|
scalez = divscale22(curspr->yrepeat, tempint2);
|
|
|
|
flipx = 1-((curspr->cstat&4)>>1);
|
|
flipy = 1;
|
|
}
|
|
else
|
|
{
|
|
scalex = divscale22(curspr->xrepeat, tempint1);
|
|
scaley = divscale22(curspr->yrepeat, tempint2);
|
|
scalez = scalex;
|
|
|
|
flipx = 1-((curspr->cstat&4)>>1);
|
|
flipy = 1-((curspr->cstat&8)>>2);
|
|
}
|
|
|
|
if (dorot)
|
|
{
|
|
flipmul = flipx*flipy;
|
|
if (flipmul==-1)
|
|
wall = loadwallinv;
|
|
}
|
|
|
|
if ((curspr->cstat&128) != (sector[j].CM_CSTAT&128))
|
|
daz += (((curspr->cstat&128)>>6)-1)*((tilesiz[curspr->picnum].y*curspr->yrepeat)<<1);
|
|
|
|
*clipsectcnt = clipsectnum = 0;
|
|
// init sectors for this index
|
|
for (k=clipinfo[curidx].qbeg; k<=clipinfo[curidx].qend; k++)
|
|
{
|
|
const int32_t j = sectq[k];
|
|
sectortype *const sec = §or[j];
|
|
const int32_t startwall = sec->wallptr, endwall = startwall+sec->wallnum;
|
|
|
|
int32_t w;
|
|
walltype *wal;
|
|
|
|
sec->floorz = daz + mulscale22(scalez, CM_FLOORZ(j));
|
|
sec->ceilingz = daz + mulscale22(scalez, CM_CEILINGZ(j));
|
|
//initprintf("sec %d: f=%d, c=%d\n", j, sec->floorz, sec->ceilingz);
|
|
|
|
for (w=startwall,wal=&wall[startwall]; w<endwall; w++,wal++)
|
|
{
|
|
wal->x = mulscale22(scalex, CM_WALL_X(w));
|
|
wal->y = mulscale22(scaley, CM_WALL_Y(w));
|
|
|
|
if (dorot)
|
|
{
|
|
wal->x *= flipx;
|
|
wal->y *= flipy;
|
|
rotatepoint(0,0, wal->x,wal->y, rotang, &wal->x,&wal->y);
|
|
}
|
|
|
|
wal->x += curspr->x;
|
|
wal->y += curspr->y;
|
|
}
|
|
|
|
if (inside(vect->x, vect->y, j)==1)
|
|
clipsectorlist[clipsectnum++] = j;
|
|
}
|
|
|
|
// add outer sector if not inside inner ones
|
|
if (clipsectnum==0)
|
|
clipsectorlist[clipsectnum++] = sectq[k-1];
|
|
|
|
return flipmul;
|
|
}
|
|
#endif
|
|
|
|
static int32_t clipmove_warned=0;
|
|
|
|
static void addclipline(int32_t dax1, int32_t day1, int32_t dax2, int32_t day2, int32_t daoval)
|
|
{
|
|
if (clipnum < MAXCLIPNUM)
|
|
{
|
|
clipit[clipnum].x1 = dax1; clipit[clipnum].y1 = day1;
|
|
clipit[clipnum].x2 = dax2; clipit[clipnum].y2 = day2;
|
|
clipobjectval[clipnum] = daoval;
|
|
clipnum++;
|
|
}
|
|
else if (!clipmove_warned)
|
|
{
|
|
initprintf("!!clipnum\n");
|
|
clipmove_warned = 1;
|
|
}
|
|
}
|
|
|
|
static inline void clipmove_tweak_pos(const vec3_t *pos, int32_t gx, int32_t gy,
|
|
int32_t x1, int32_t y1, int32_t x2, int32_t y2,
|
|
int32_t *daxptr, int32_t *dayptr)
|
|
{
|
|
int32_t daz;
|
|
|
|
if (rintersect(pos->x,pos->y,0, gx,gy,0, x1,y1, x2,y2, daxptr,dayptr,&daz) == -1)
|
|
{
|
|
*daxptr = pos->x;
|
|
*dayptr = pos->y;
|
|
}
|
|
}
|
|
|
|
// Returns: should clip?
|
|
static int32_t check_floor_curb(int32_t dasect, int32_t nextsect, int32_t flordist,
|
|
int32_t posz, int32_t dax, int32_t day)
|
|
{
|
|
const sectortype *sec2 = §or[nextsect];
|
|
int32_t daz2 = getflorzofslope(nextsect, dax,day);
|
|
|
|
return ((sec2->floorstat&1) == 0 && // parallaxed floor curbs don't clip
|
|
posz >= daz2-(flordist-1) && // also account for desired z distance tolerance
|
|
daz2 < getflorzofslope(dasect, dax,day)-(1<<8)); // curbs less tall than 256 z units don't clip
|
|
}
|
|
|
|
int32_t clipmovex(vec3_t *pos, int16_t *sectnum,
|
|
int32_t xvect, int32_t yvect,
|
|
int32_t walldist, int32_t ceildist, int32_t flordist, uint32_t cliptype,
|
|
uint8_t noslidep)
|
|
{
|
|
int32_t ret;
|
|
const int32_t oboxtracenum = clipmoveboxtracenum;
|
|
|
|
if (noslidep)
|
|
clipmoveboxtracenum = 1;
|
|
ret = clipmove(pos, sectnum, xvect, yvect,
|
|
walldist, ceildist, flordist, cliptype);
|
|
clipmoveboxtracenum = oboxtracenum;
|
|
|
|
return ret;
|
|
}
|
|
|
|
//
|
|
// clipmove
|
|
//
|
|
int32_t clipmove(vec3_t *pos, int16_t *sectnum,
|
|
int32_t xvect, int32_t yvect,
|
|
int32_t walldist, int32_t ceildist, int32_t flordist, uint32_t cliptype)
|
|
{
|
|
int32_t i, j, k, tempint1, tempint2;
|
|
int32_t x1, y1, x2, y2;
|
|
int32_t dax, day;
|
|
int32_t hitwall, cnt, retval=0;
|
|
|
|
spritetype *curspr=NULL; // non-NULL when handling sprite with sector-like clipping
|
|
int32_t curidx=-1, clipsectcnt, clipspritecnt;
|
|
|
|
const int32_t dawalclipmask = (cliptype&65535); //CLIPMASK0 = 0x00010001
|
|
const int32_t dasprclipmask = (cliptype>>16); //CLIPMASK1 = 0x01000040
|
|
|
|
const int32_t oxvect=xvect, oyvect=yvect;
|
|
|
|
int32_t goalx = pos->x + (xvect>>14);
|
|
int32_t goaly = pos->y + (yvect>>14);
|
|
const int32_t cx = (pos->x+goalx)>>1;
|
|
const int32_t cy = (pos->y+goaly)>>1;
|
|
|
|
//Extra walldist for sprites on sector lines
|
|
const int32_t gx=goalx-(pos->x), gy=goaly-(pos->y);
|
|
const int32_t rad = nsqrtasm(uhypsq(gx,gy)) + MAXCLIPDIST+walldist + 8;
|
|
const int32_t xmin = cx-rad, ymin = cy-rad;
|
|
const int32_t xmax = cx+rad, ymax = cy+rad;
|
|
|
|
if ((xvect|yvect) == 0 || *sectnum < 0)
|
|
return 0;
|
|
|
|
clipmove_warned = 0;
|
|
clipnum = 0;
|
|
|
|
clipsectorlist[0] = (*sectnum);
|
|
clipsectcnt = 0; clipsectnum = 1;
|
|
clipspritecnt = 0; clipspritenum = 0;
|
|
do
|
|
{
|
|
const walltype *wal;
|
|
const sectortype *sec;
|
|
int32_t dasect, startwall, endwall;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (clipsectcnt>=clipsectnum)
|
|
{
|
|
// one bunch of sectors completed (either the very first
|
|
// one or a sector-like sprite one), prepare the next
|
|
|
|
//initprintf("init sprite %d\n", clipspritecnt);
|
|
if (!curspr)
|
|
{
|
|
// init sector-like sprites for clipping
|
|
origclipsectnum = clipsectnum;
|
|
Bmemcpy(origclipsectorlist, clipsectorlist, clipsectnum*sizeof(clipsectorlist[0]));
|
|
|
|
// replace sector and wall with clip map
|
|
mapinfo_set(&origmapinfo, &clipmapinfo);
|
|
}
|
|
|
|
curspr = &sprite[clipspritelist[clipspritecnt]];
|
|
curidx = clipshape_idx_for_sprite(curspr, curidx);
|
|
|
|
if (curidx < 0)
|
|
{
|
|
clipspritecnt++;
|
|
continue;
|
|
}
|
|
|
|
clipsprite_initindex(curidx, curspr, &clipsectcnt, pos);
|
|
}
|
|
#endif
|
|
|
|
dasect = clipsectorlist[clipsectcnt++];
|
|
//if (curspr)
|
|
// initprintf("sprite %d/%d: sect %d/%d (%d)\n", clipspritecnt,clipspritenum, clipsectcnt,clipsectnum,dasect);
|
|
|
|
////////// Walls //////////
|
|
|
|
sec = §or[dasect];
|
|
startwall = sec->wallptr; endwall = startwall + sec->wallnum;
|
|
for (j=startwall,wal=&wall[startwall]; j<endwall; j++,wal++)
|
|
{
|
|
int32_t clipyou = 0, dx, dy;
|
|
const walltype *const wal2 = &wall[wal->point2];
|
|
|
|
if (wal->x < xmin && wal2->x < xmin) continue;
|
|
if (wal->x > xmax && wal2->x > xmax) continue;
|
|
if (wal->y < ymin && wal2->y < ymin) continue;
|
|
if (wal->y > ymax && wal2->y > ymax) continue;
|
|
|
|
x1 = wal->x; y1 = wal->y; x2 = wal2->x; y2 = wal2->y;
|
|
|
|
dx = x2-x1; dy = y2-y1;
|
|
if (dx*((pos->y)-y1) < ((pos->x)-x1)*dy) continue; //If wall's not facing you
|
|
|
|
if (dx > 0) dax = dx*(ymin-y1); else dax = dx*(ymax-y1);
|
|
if (dy > 0) day = dy*(xmax-x1); else day = dy*(xmin-x1);
|
|
if (dax >= day) continue;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (curspr)
|
|
{
|
|
if (wal->nextsector>=0)
|
|
{
|
|
const sectortype *sec2 = §or[wal->nextsector];
|
|
|
|
clipmove_tweak_pos(pos, gx,gy, x1,y1, x2,y2, &dax,&day);
|
|
|
|
#define CLIPMV_SPR_F_DAZ2 getflorzofslope(wal->nextsector, dax,day)
|
|
#define CLIPMV_SPR_F_BASEZ getflorzofslope(sectq[clipinfo[curidx].qend], dax,day)
|
|
|
|
if ((sec2->floorstat&1) == 0)
|
|
if (CLIPMV_SPR_F_DAZ2-(flordist-1) <= pos->z)
|
|
if (pos->z <= CLIPMV_SPR_F_BASEZ+(flordist-1))
|
|
clipyou = 1;
|
|
|
|
if (clipyou == 0)
|
|
{
|
|
#define CLIPMV_SPR_C_DAZ2 getceilzofslope(wal->nextsector, dax,day)
|
|
#define CLIPMV_SPR_C_BASEZ getceilzofslope(sectq[clipinfo[curidx].qend], dax,day)
|
|
|
|
if ((sec2->ceilingstat&1) == 0)
|
|
if (CLIPMV_SPR_C_BASEZ-(ceildist-1) <= pos->z)
|
|
if (pos->z <= CLIPMV_SPR_C_DAZ2+(ceildist-1))
|
|
clipyou = 1;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
#endif
|
|
if (wal->nextsector < 0 || (wal->cstat&dawalclipmask))
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
int16_t cb = yax_getbunch(dasect, YAX_CEILING);
|
|
|
|
clipyou = 1;
|
|
|
|
if (cb >= 0 && (sec->ceilingstat & yax_waltosecmask(dawalclipmask)) == 0)
|
|
{
|
|
int32_t ynw = yax_getnextwall(j, YAX_CEILING);
|
|
|
|
if (ynw >= 0 && wall[ynw].nextsector >= 0 && (wall[ynw].cstat & dawalclipmask) == 0)
|
|
{
|
|
clipmove_tweak_pos(pos, gx,gy, x1,y1, x2,y2, &dax,&day);
|
|
clipyou = check_floor_curb(dasect, wall[ynw].nextsector, flordist, pos->z, dax, day);
|
|
}
|
|
}
|
|
#else
|
|
clipyou = 1;
|
|
#endif
|
|
}
|
|
else if (editstatus == 0)
|
|
{
|
|
clipmove_tweak_pos(pos, gx,gy, x1,y1, x2,y2, &dax,&day);
|
|
clipyou = check_floor_curb(dasect, wal->nextsector, flordist, pos->z, dax, day);
|
|
|
|
if (clipyou == 0)
|
|
{
|
|
const sectortype *sec2 = §or[wal->nextsector];
|
|
int32_t daz2 = getceilzofslope(wal->nextsector, dax,day);
|
|
|
|
clipyou = ((sec2->ceilingstat&1) == 0 &&
|
|
pos->z <= daz2+(ceildist-1) &&
|
|
daz2 > getceilzofslope(dasect, dax,day)+(1<<8));
|
|
}
|
|
}
|
|
|
|
if (clipyou)
|
|
{
|
|
int16_t objtype;
|
|
int32_t bsz;
|
|
|
|
if (!curspr)
|
|
objtype = (int16_t)j+32768;
|
|
else
|
|
objtype = (int16_t)(curspr-sprite)+49152;
|
|
|
|
//Add 2 boxes at endpoints
|
|
bsz = walldist; if (gx < 0) bsz = -bsz;
|
|
addclipline(x1-bsz,y1-bsz, x1-bsz,y1+bsz, objtype);
|
|
addclipline(x2-bsz,y2-bsz, x2-bsz,y2+bsz, objtype);
|
|
bsz = walldist; if (gy < 0) bsz = -bsz;
|
|
addclipline(x1+bsz,y1-bsz, x1-bsz,y1-bsz, objtype);
|
|
addclipline(x2+bsz,y2-bsz, x2-bsz,y2-bsz, objtype);
|
|
|
|
dax = walldist; if (dy > 0) dax = -dax;
|
|
day = walldist; if (dx < 0) day = -day;
|
|
addclipline(x1+dax,y1+day, x2+dax,y2+day, objtype);
|
|
}
|
|
else if (wal->nextsector>=0)
|
|
{
|
|
for (i=clipsectnum-1; i>=0; i--)
|
|
if (wal->nextsector == clipsectorlist[i]) break;
|
|
if (i < 0) clipsectorlist[clipsectnum++] = wal->nextsector;
|
|
}
|
|
}
|
|
|
|
////////// Sprites //////////
|
|
|
|
if (dasprclipmask==0)
|
|
continue;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (curspr)
|
|
continue; // next sector of this index
|
|
#endif
|
|
for (j=headspritesect[dasect]; j>=0; j=nextspritesect[j])
|
|
{
|
|
const spritetype *const spr = &sprite[j];
|
|
const int32_t cstat = spr->cstat;
|
|
|
|
if ((cstat&dasprclipmask) == 0)
|
|
continue;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (clipsprite_try(spr, xmin,ymin, xmax,ymax))
|
|
continue;
|
|
#endif
|
|
x1 = spr->x; y1 = spr->y;
|
|
|
|
switch (cstat&48)
|
|
{
|
|
case 0:
|
|
if (x1 >= xmin && x1 <= xmax && y1 >= ymin && y1 <= ymax)
|
|
{
|
|
const int32_t daz = spr->z + spriteheightofs(j, &k, 1);
|
|
|
|
if ((pos->z < daz+ceildist) && (pos->z > daz-k-flordist))
|
|
{
|
|
int32_t bsz;
|
|
bsz = (spr->clipdist<<2)+walldist; if (gx < 0) bsz = -bsz;
|
|
addclipline(x1-bsz,y1-bsz,x1-bsz,y1+bsz,(int16_t)j+49152);
|
|
bsz = (spr->clipdist<<2)+walldist; if (gy < 0) bsz = -bsz;
|
|
addclipline(x1+bsz,y1-bsz,x1-bsz,y1-bsz,(int16_t)j+49152);
|
|
}
|
|
}
|
|
break;
|
|
|
|
case 16:
|
|
{
|
|
const int32_t daz = spr->z + spriteheightofs(j, &k, 1) + ceildist;
|
|
const int32_t daz2 = daz-k - flordist;
|
|
|
|
if (pos->z < daz && pos->z > daz2)
|
|
{
|
|
get_wallspr_points(spr, &x1, &x2, &y1, &y2);
|
|
|
|
if (clipinsideboxline(cx,cy,x1,y1,x2,y2,rad) != 0)
|
|
{
|
|
dax = mulscale14(sintable[(spr->ang+256+512)&2047],walldist);
|
|
day = mulscale14(sintable[(spr->ang+256)&2047],walldist);
|
|
|
|
if ((x1-(pos->x))*(y2-(pos->y)) >= (x2-(pos->x))*(y1-(pos->y))) //Front
|
|
{
|
|
addclipline(x1+dax,y1+day,x2+day,y2-dax,(int16_t)j+49152);
|
|
}
|
|
else
|
|
{
|
|
if ((cstat&64) != 0) continue;
|
|
addclipline(x2-dax,y2-day,x1-day,y1+dax,(int16_t)j+49152);
|
|
}
|
|
|
|
//Side blocker
|
|
if ((x2-x1)*((pos->x)-x1) + (y2-y1)*((pos->y)-y1) < 0)
|
|
addclipline(x1-day,y1+dax,x1+dax,y1+day,(int16_t)j+49152);
|
|
else if ((x1-x2)*((pos->x)-x2) + (y1-y2)*((pos->y)-y2) < 0)
|
|
addclipline(x2+day,y2-dax,x2-dax,y2-day,(int16_t)j+49152);
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
|
|
case 32:
|
|
{
|
|
const int32_t daz = spr->z + ceildist;
|
|
const int32_t daz2 = spr->z - flordist;
|
|
|
|
if (pos->z < daz && pos->z > daz2)
|
|
{
|
|
if ((cstat&64) != 0)
|
|
if ((pos->z > spr->z) == ((cstat&8)==0))
|
|
continue;
|
|
|
|
rxi[0] = x1;
|
|
rxi[1] = y1;
|
|
get_floorspr_points(spr, 0, 0, &rxi[0], &rxi[1], &rxi[2], &rxi[3],
|
|
&ryi[0], &ryi[1], &ryi[2], &ryi[3]);
|
|
|
|
dax = mulscale14(sintable[(spr->ang-256+512)&2047],walldist);
|
|
day = mulscale14(sintable[(spr->ang-256)&2047],walldist);
|
|
|
|
if ((rxi[0]-(pos->x))*(ryi[1]-(pos->y)) < (rxi[1]-(pos->x))*(ryi[0]-(pos->y)))
|
|
{
|
|
if (clipinsideboxline(cx,cy,rxi[1],ryi[1],rxi[0],ryi[0],rad) != 0)
|
|
addclipline(rxi[1]-day,ryi[1]+dax,rxi[0]+dax,ryi[0]+day,(int16_t)j+49152);
|
|
}
|
|
else if ((rxi[2]-(pos->x))*(ryi[3]-(pos->y)) < (rxi[3]-(pos->x))*(ryi[2]-(pos->y)))
|
|
{
|
|
if (clipinsideboxline(cx,cy,rxi[3],ryi[3],rxi[2],ryi[2],rad) != 0)
|
|
addclipline(rxi[3]+day,ryi[3]-dax,rxi[2]-dax,ryi[2]-day,(int16_t)j+49152);
|
|
}
|
|
|
|
if ((rxi[1]-(pos->x))*(ryi[2]-(pos->y)) < (rxi[2]-(pos->x))*(ryi[1]-(pos->y)))
|
|
{
|
|
if (clipinsideboxline(cx,cy,rxi[2],ryi[2],rxi[1],ryi[1],rad) != 0)
|
|
addclipline(rxi[2]-dax,ryi[2]-day,rxi[1]-day,ryi[1]+dax,(int16_t)j+49152);
|
|
}
|
|
else if ((rxi[3]-(pos->x))*(ryi[0]-(pos->y)) < (rxi[0]-(pos->x))*(ryi[3]-(pos->y)))
|
|
{
|
|
if (clipinsideboxline(cx,cy,rxi[0],ryi[0],rxi[3],ryi[3],rad) != 0)
|
|
addclipline(rxi[0]+dax,ryi[0]+day,rxi[3]+day,ryi[3]-dax,(int16_t)j+49152);
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
while (clipsectcnt < clipsectnum || clipspritecnt < clipspritenum);
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (curspr)
|
|
{
|
|
// restore original map
|
|
mapinfo_set(NULL, &origmapinfo);
|
|
|
|
clipsectnum = origclipsectnum;
|
|
Bmemcpy(clipsectorlist, origclipsectorlist, clipsectnum*sizeof(clipsectorlist[0]));
|
|
}
|
|
#endif
|
|
|
|
hitwall = 0;
|
|
cnt = clipmoveboxtracenum;
|
|
do
|
|
{
|
|
int32_t intx=goalx, inty=goaly;
|
|
|
|
hitwall = raytrace(pos->x, pos->y, &intx, &inty);
|
|
if (hitwall >= 0)
|
|
{
|
|
const int32_t lx = clipit[hitwall].x2-clipit[hitwall].x1;
|
|
const int32_t ly = clipit[hitwall].y2-clipit[hitwall].y1;
|
|
const uint64_t tempull = (int64_t)lx*(int64_t)lx + (int64_t)ly*(int64_t)ly;
|
|
|
|
if (tempull > 0 && tempull < INT32_MAX)
|
|
{
|
|
tempint2 = (int32_t)tempull;
|
|
|
|
tempint1 = (goalx-intx)*lx + (goaly-inty)*ly;
|
|
|
|
if ((klabs(tempint1)>>11) < tempint2)
|
|
i = divscale20(tempint1,tempint2);
|
|
else
|
|
i = 0;
|
|
goalx = mulscale20(lx,i)+intx;
|
|
goaly = mulscale20(ly,i)+inty;
|
|
}
|
|
|
|
tempint1 = dmulscale6(lx,oxvect,ly,oyvect);
|
|
for (i=cnt+1; i<=clipmoveboxtracenum; i++)
|
|
{
|
|
j = hitwalls[i];
|
|
tempint2 = dmulscale6(clipit[j].x2-clipit[j].x1, oxvect,
|
|
clipit[j].y2-clipit[j].y1, oyvect);
|
|
if ((tempint1^tempint2) < 0)
|
|
{
|
|
updatesector(pos->x,pos->y,sectnum);
|
|
return retval;
|
|
}
|
|
}
|
|
|
|
keepaway(&goalx, &goaly, hitwall);
|
|
xvect = (goalx-intx)<<14;
|
|
yvect = (goaly-inty)<<14;
|
|
|
|
if (cnt == clipmoveboxtracenum) retval = clipobjectval[hitwall];
|
|
hitwalls[cnt] = hitwall;
|
|
}
|
|
cnt--;
|
|
|
|
pos->x = intx;
|
|
pos->y = inty;
|
|
}
|
|
while ((xvect|yvect) != 0 && hitwall >= 0 && cnt > 0);
|
|
|
|
for (j=0; j<clipsectnum; j++)
|
|
if (inside(pos->x,pos->y,clipsectorlist[j]) == 1)
|
|
{
|
|
*sectnum = clipsectorlist[j];
|
|
return retval;
|
|
}
|
|
|
|
*sectnum = -1; tempint1 = INT32_MAX;
|
|
for (j=numsectors-1; j>=0; j--)
|
|
if (inside(pos->x,pos->y,j) == 1)
|
|
{
|
|
if (sector[j].ceilingstat&2)
|
|
tempint2 = getceilzofslope(j, pos->x, pos->y) - pos->z;
|
|
else
|
|
tempint2 = sector[j].ceilingz - pos->z;
|
|
|
|
if (tempint2 > 0)
|
|
{
|
|
if (tempint2 < tempint1)
|
|
{ *sectnum = j; tempint1 = tempint2; }
|
|
}
|
|
else
|
|
{
|
|
if (sector[j].floorstat&2)
|
|
tempint2 = pos->z - getflorzofslope(j, pos->x, pos->y);
|
|
else
|
|
tempint2 = pos->z - sector[j].floorz;
|
|
|
|
if (tempint2 <= 0)
|
|
{
|
|
*sectnum = j;
|
|
return retval;
|
|
}
|
|
if (tempint2 < tempint1)
|
|
{ *sectnum = j; tempint1 = tempint2; }
|
|
}
|
|
}
|
|
|
|
return retval;
|
|
}
|
|
|
|
|
|
//
|
|
// pushmove
|
|
//
|
|
int32_t pushmove(vec3_t *vect, int16_t *sectnum,
|
|
int32_t walldist, int32_t ceildist, int32_t flordist, uint32_t cliptype)
|
|
{
|
|
int32_t i, j, k, t, dx, dy, dax, day, daz;
|
|
int32_t dir, bad, bad2;
|
|
|
|
const int32_t dawalclipmask = (cliptype&65535);
|
|
// const int32_t dasprclipmask = (cliptype>>16);
|
|
|
|
if (*sectnum < 0)
|
|
return -1;
|
|
|
|
k = 32;
|
|
dir = 1;
|
|
do
|
|
{
|
|
int32_t clipsectcnt;
|
|
|
|
bad = 0;
|
|
|
|
clipsectorlist[0] = *sectnum;
|
|
clipsectcnt = 0; clipsectnum = 1;
|
|
do
|
|
{
|
|
const walltype *wal;
|
|
const sectortype *sec;
|
|
int32_t startwall, endwall;
|
|
#if 0
|
|
// Push FACE sprites
|
|
for(i=headspritesect[clipsectorlist[clipsectcnt]];i>=0;i=nextspritesect[i])
|
|
{
|
|
spr = &sprite[i];
|
|
if (((spr->cstat&48) != 0) && ((spr->cstat&48) != 48)) continue;
|
|
if ((spr->cstat&dasprclipmask) == 0) continue;
|
|
|
|
dax = (vect->x)-spr->x; day = (vect->y)-spr->y;
|
|
t = (spr->clipdist<<2)+walldist;
|
|
if ((klabs(dax) < t) && (klabs(day) < t))
|
|
{
|
|
daz = spr->z + spriteheightofs(i, &t, 1);
|
|
if (((vect->z) < daz+ceildist) && ((vect->z) > daz-t-flordist))
|
|
{
|
|
t = (spr->clipdist<<2)+walldist;
|
|
|
|
j = getangle(dax,day);
|
|
dx = (sintable[(j+512)&2047]>>11);
|
|
dy = (sintable[(j)&2047]>>11);
|
|
bad2 = 16;
|
|
do
|
|
{
|
|
vect->x = (vect->x) + dx; vect->y = (vect->y) + dy;
|
|
bad2--; if (bad2 == 0) break;
|
|
} while ((klabs((vect->x)-spr->x) < t) && (klabs((vect->y)-spr->y) < t));
|
|
bad = -1;
|
|
k--; if (k <= 0) return(bad);
|
|
updatesector(vect->x,vect->y,sectnum);
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
sec = §or[clipsectorlist[clipsectcnt]];
|
|
if (dir > 0)
|
|
startwall = sec->wallptr, endwall = startwall + sec->wallnum;
|
|
else
|
|
endwall = sec->wallptr, startwall = endwall + sec->wallnum;
|
|
|
|
for (i=startwall,wal=&wall[startwall]; i!=endwall; i+=dir,wal+=dir)
|
|
if (clipinsidebox(vect->x,vect->y,i,walldist-4) == 1)
|
|
{
|
|
j = 0;
|
|
if (wal->nextsector < 0) j = 1;
|
|
if (wal->cstat&dawalclipmask) j = 1;
|
|
if (j == 0)
|
|
{
|
|
const sectortype *const sec2 = §or[wal->nextsector];
|
|
int32_t daz2;
|
|
|
|
//Find closest point on wall (dax, day) to (vect->x, vect->y)
|
|
dax = wall[wal->point2].x-wal->x;
|
|
day = wall[wal->point2].y-wal->y;
|
|
daz = dax*((vect->x)-wal->x) + day*((vect->y)-wal->y);
|
|
if (daz <= 0)
|
|
t = 0;
|
|
else
|
|
{
|
|
daz2 = dax*dax+day*day;
|
|
if (daz >= daz2) t = (1<<30); else t = divscale30(daz,daz2);
|
|
}
|
|
dax = wal->x + mulscale30(dax,t);
|
|
day = wal->y + mulscale30(day,t);
|
|
|
|
|
|
daz = getflorzofslope(clipsectorlist[clipsectcnt],dax,day);
|
|
daz2 = getflorzofslope(wal->nextsector,dax,day);
|
|
if ((daz2 < daz-(1<<8)) && ((sec2->floorstat&1) == 0))
|
|
if (vect->z >= daz2-(flordist-1)) j = 1;
|
|
|
|
daz = getceilzofslope(clipsectorlist[clipsectcnt],dax,day);
|
|
daz2 = getceilzofslope(wal->nextsector,dax,day);
|
|
if ((daz2 > daz+(1<<8)) && ((sec2->ceilingstat&1) == 0))
|
|
if (vect->z <= daz2+(ceildist-1)) j = 1;
|
|
}
|
|
|
|
if (j != 0)
|
|
{
|
|
j = getangle(wall[wal->point2].x-wal->x,wall[wal->point2].y-wal->y);
|
|
dx = (sintable[(j+1024)&2047]>>11);
|
|
dy = (sintable[(j+512)&2047]>>11);
|
|
bad2 = 16;
|
|
do
|
|
{
|
|
vect->x = (vect->x) + dx; vect->y = (vect->y) + dy;
|
|
bad2--; if (bad2 == 0) break;
|
|
}
|
|
while (clipinsidebox(vect->x,vect->y,i,walldist-4) != 0);
|
|
bad = -1;
|
|
k--; if (k <= 0) return(bad);
|
|
updatesector(vect->x,vect->y,sectnum);
|
|
if (*sectnum < 0) return -1;
|
|
}
|
|
else
|
|
{
|
|
for (j=clipsectnum-1; j>=0; j--)
|
|
if (wal->nextsector == clipsectorlist[j]) break;
|
|
if (j < 0) clipsectorlist[clipsectnum++] = wal->nextsector;
|
|
}
|
|
}
|
|
|
|
clipsectcnt++;
|
|
}
|
|
while (clipsectcnt < clipsectnum);
|
|
dir = -dir;
|
|
}
|
|
while (bad != 0);
|
|
|
|
return(bad);
|
|
}
|
|
|
|
|
|
// breadth-first search helpers
|
|
void bfirst_search_init(int16_t *list, uint8_t *bitmap, int32_t *eltnumptr, int32_t maxnum, int16_t firstelt)
|
|
{
|
|
Bmemset(bitmap, 0, (maxnum+7)>>3);
|
|
|
|
list[0] = firstelt;
|
|
bitmap[firstelt>>3] |= (1<<(firstelt&7));
|
|
*eltnumptr = 1;
|
|
}
|
|
|
|
void bfirst_search_try(int16_t *list, uint8_t *bitmap, int32_t *eltnumptr, int16_t elt)
|
|
{
|
|
if (elt < 0)
|
|
return;
|
|
|
|
if ((bitmap[elt>>3]&(1<<(elt&7)))==0)
|
|
{
|
|
bitmap[elt>>3] |= (1<<(elt&7));
|
|
list[*eltnumptr] = elt;
|
|
(*eltnumptr)++;
|
|
}
|
|
}
|
|
|
|
////////// UPDATESECTOR* FAMILY OF FUNCTIONS //////////
|
|
|
|
/* Different "is inside" predicates.
|
|
* NOTE: The redundant bound checks are expected to be optimized away in the
|
|
* inlined code. */
|
|
static inline int32_t inside_p(int32_t x, int32_t y, int16_t sectnum)
|
|
{
|
|
return (sectnum>=0 && inside(x, y, sectnum) == 1);
|
|
}
|
|
|
|
static inline int32_t inside_exclude_p(int32_t x, int32_t y, int16_t i, const uint8_t *excludesectbitmap)
|
|
{
|
|
return (i>=0 && !(excludesectbitmap[i>>3]&(1<<(i&7))) && inside_p(x, y, i));
|
|
}
|
|
|
|
/* NOTE: no bound check */
|
|
static inline int32_t inside_z_p(int32_t x, int32_t y, int32_t z, int16_t i)
|
|
{
|
|
int32_t cz, fz;
|
|
getzsofslope(i, x, y, &cz, &fz);
|
|
return (z >= cz && z <= fz && inside_p(x, y, i));
|
|
}
|
|
|
|
#define SET_AND_RETURN(Lval, Rval) do \
|
|
{ \
|
|
(Lval) = (Rval); \
|
|
return; \
|
|
} while (0)
|
|
|
|
|
|
//
|
|
// updatesector[z]
|
|
//
|
|
void updatesector(int32_t x, int32_t y, int16_t *sectnum)
|
|
{
|
|
int32_t i;
|
|
|
|
if (inside_p(x,y,*sectnum))
|
|
return;
|
|
|
|
if (*sectnum >= 0 && *sectnum < numsectors)
|
|
{
|
|
const walltype *wal = &wall[sector[*sectnum].wallptr];
|
|
int32_t j = sector[*sectnum].wallnum;
|
|
|
|
do
|
|
{
|
|
i = wal->nextsector;
|
|
if (inside_p(x, y, i))
|
|
SET_AND_RETURN(*sectnum, i);
|
|
|
|
wal++; j--;
|
|
}
|
|
while (j != 0);
|
|
}
|
|
|
|
for (i=numsectors-1; i>=0; i--)
|
|
if (inside_p(x, y, i))
|
|
SET_AND_RETURN(*sectnum, i);
|
|
|
|
*sectnum = -1;
|
|
}
|
|
|
|
void updatesectorbreadth(int32_t x, int32_t y, int16_t *sectnum)
|
|
{
|
|
static int16_t sectlist[MAXSECTORS];
|
|
static uint8_t sectbitmap[MAXSECTORS>>3];
|
|
int32_t nsecs, sectcnt, j;
|
|
|
|
if ((unsigned)(*sectnum) >= (unsigned)numsectors)
|
|
return;
|
|
|
|
bfirst_search_init(sectlist, sectbitmap, &nsecs, numsectors, *sectnum);
|
|
|
|
for (sectcnt=0; sectcnt<nsecs; sectcnt++)
|
|
{
|
|
if (inside_p(x,y, sectlist[sectcnt]))
|
|
SET_AND_RETURN(*sectnum, sectlist[sectcnt]);
|
|
|
|
{
|
|
const sectortype *sec = §or[sectlist[sectcnt]];
|
|
int32_t startwall = sec->wallptr;
|
|
int32_t endwall = sec->wallptr + sec->wallnum;
|
|
|
|
for (j=startwall; j<endwall; j++)
|
|
if (wall[j].nextsector >= 0)
|
|
bfirst_search_try(sectlist, sectbitmap, &nsecs, wall[j].nextsector);
|
|
}
|
|
}
|
|
|
|
*sectnum = -1;
|
|
}
|
|
|
|
void updatesectorexclude(int32_t x, int32_t y, int16_t *sectnum, const uint8_t *excludesectbitmap)
|
|
{
|
|
int32_t i;
|
|
|
|
if (inside_exclude_p(x, y, *sectnum, excludesectbitmap))
|
|
return;
|
|
|
|
if (*sectnum >= 0 && *sectnum < numsectors)
|
|
{
|
|
const walltype *wal = &wall[sector[*sectnum].wallptr];
|
|
int32_t j = sector[*sectnum].wallnum;
|
|
|
|
do
|
|
{
|
|
i = wal->nextsector;
|
|
if (inside_exclude_p(x, y, i, excludesectbitmap))
|
|
SET_AND_RETURN(*sectnum, i);
|
|
|
|
wal++; j--;
|
|
}
|
|
while (j != 0);
|
|
}
|
|
|
|
for (i=numsectors-1; i>=0; i--)
|
|
if (inside_exclude_p(x, y, i, excludesectbitmap))
|
|
SET_AND_RETURN(*sectnum, i);
|
|
|
|
*sectnum = -1;
|
|
}
|
|
|
|
// new: if *sectnum >= MAXSECTORS, *sectnum-=MAXSECTORS is considered instead
|
|
// as starting sector and the 'initial' z check is skipped
|
|
// (not initial anymore because it follows the sector updating due to TROR)
|
|
void updatesectorz(int32_t x, int32_t y, int32_t z, int16_t *sectnum)
|
|
{
|
|
int32_t i;
|
|
|
|
if ((uint32_t)(*sectnum) < 2*MAXSECTORS)
|
|
{
|
|
const walltype *wal;
|
|
int32_t j, cz, fz;
|
|
|
|
int32_t nofirstzcheck = 0;
|
|
|
|
if (*sectnum >= MAXSECTORS)
|
|
{
|
|
*sectnum -= MAXSECTORS;
|
|
nofirstzcheck = 1;
|
|
}
|
|
|
|
// this block used to be outside the "if" and caused crashes in Polymost Mapster32
|
|
getzsofslope(*sectnum, x, y, &cz, &fz);
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (z < cz)
|
|
{
|
|
i = yax_getneighborsect(x, y, *sectnum, YAX_CEILING);
|
|
if (i >= 0 && z >= getceilzofslope(i, x, y))
|
|
SET_AND_RETURN(*sectnum, i);
|
|
}
|
|
|
|
if (z > fz)
|
|
{
|
|
i = yax_getneighborsect(x, y, *sectnum, YAX_FLOOR);
|
|
if (i >= 0 && z <= getflorzofslope(i, x, y))
|
|
SET_AND_RETURN(*sectnum, i);
|
|
}
|
|
#endif
|
|
if (nofirstzcheck || (z >= cz && z <= fz))
|
|
if (inside_p(x, y, *sectnum))
|
|
return;
|
|
|
|
wal = &wall[sector[*sectnum].wallptr];
|
|
j = sector[*sectnum].wallnum;
|
|
do
|
|
{
|
|
// YAX: TODO: check neighboring sectors here too?
|
|
i = wal->nextsector;
|
|
if (i>=0 && inside_z_p(x,y,z, i))
|
|
SET_AND_RETURN(*sectnum, i);
|
|
|
|
wal++; j--;
|
|
}
|
|
while (j != 0);
|
|
}
|
|
|
|
for (i=numsectors-1; i>=0; i--)
|
|
if (inside_z_p(x,y,z, i))
|
|
SET_AND_RETURN(*sectnum, i);
|
|
|
|
*sectnum = -1;
|
|
}
|
|
|
|
|
|
//
|
|
// rotatepoint
|
|
//
|
|
void rotatepoint(int32_t xpivot, int32_t ypivot, int32_t x, int32_t y, int16_t daang, int32_t *x2, int32_t *y2)
|
|
{
|
|
int32_t dacos, dasin;
|
|
|
|
dacos = sintable[(daang+2560)&2047];
|
|
dasin = sintable[(daang+2048)&2047];
|
|
x -= xpivot;
|
|
y -= ypivot;
|
|
*x2 = dmulscale14(x,dacos,-y,dasin) + xpivot;
|
|
*y2 = dmulscale14(y,dacos,x,dasin) + ypivot;
|
|
}
|
|
|
|
|
|
//
|
|
// getmousevalues
|
|
//
|
|
|
|
void getmousevalues(int32_t *mousx, int32_t *mousy, int32_t *bstatus)
|
|
{
|
|
readmousexy(mousx,mousy);
|
|
readmousebstatus(bstatus);
|
|
}
|
|
|
|
|
|
#if KRANDDEBUG
|
|
# include <execinfo.h>
|
|
# define KRD_MAXCALLS 262144
|
|
# define KRD_DEPTH 8
|
|
static int32_t krd_numcalls=0;
|
|
static void *krd_fromwhere[KRD_MAXCALLS][KRD_DEPTH];
|
|
static int32_t krd_enabled=0;
|
|
|
|
void krd_enable(int which) // 0: disable, 1: rec, 2: play
|
|
{
|
|
krd_enabled = which;
|
|
|
|
if (which)
|
|
Bmemset(krd_fromwhere, 0, sizeof(krd_fromwhere));
|
|
}
|
|
|
|
int32_t krd_print(const char *filename)
|
|
{
|
|
FILE *fp;
|
|
int32_t i, j;
|
|
|
|
if (!krd_enabled) return 1;
|
|
krd_enabled = 0;
|
|
|
|
fp = fopen(filename, "wb");
|
|
if (!fp) { OSD_Printf("krd_print (2): fopen"); return 1; }
|
|
|
|
for (i=0; i<krd_numcalls; i++)
|
|
{
|
|
for (j=1;; j++) // skip self entry
|
|
{
|
|
if (j>=KRD_DEPTH || krd_fromwhere[i][j]==NULL)
|
|
{
|
|
fprintf(fp, "\n");
|
|
break;
|
|
}
|
|
fprintf(fp, " [%p]", krd_fromwhere[i][j]);
|
|
}
|
|
}
|
|
|
|
krd_numcalls = 0;
|
|
|
|
fclose(fp);
|
|
return 0;
|
|
}
|
|
#endif // KRANDDEBUG
|
|
|
|
|
|
//
|
|
// krand
|
|
//
|
|
int32_t krand(void)
|
|
{
|
|
// randomseed = (randomseed*27584621)+1;
|
|
randomseed = (randomseed * 1664525ul) + 221297ul;
|
|
|
|
#if KRANDDEBUG
|
|
if (krd_enabled)
|
|
if (krd_numcalls < KRD_MAXCALLS)
|
|
{
|
|
backtrace(krd_fromwhere[krd_numcalls], KRD_DEPTH);
|
|
krd_numcalls++;
|
|
}
|
|
#endif
|
|
|
|
return ((uint32_t)randomseed)>>16;
|
|
}
|
|
|
|
|
|
//
|
|
// getzrange
|
|
//
|
|
void getzrange(const vec3_t *pos, int16_t sectnum,
|
|
int32_t *ceilz, int32_t *ceilhit, int32_t *florz, int32_t *florhit,
|
|
int32_t walldist, uint32_t cliptype)
|
|
{
|
|
int32_t clipsectcnt;
|
|
int32_t dax, day, daz, daz2;
|
|
int32_t i, j, k, dx, dy;
|
|
int32_t x1, y1, x2, y2;
|
|
|
|
#ifdef YAX_ENABLE
|
|
// YAX round, -1:center, 0:ceiling, 1:floor
|
|
int32_t mcf=-1;
|
|
#endif
|
|
|
|
spritetype *curspr=NULL; // non-NULL when handling sprite with sector-like clipping
|
|
int32_t curidx=-1, clipspritecnt;
|
|
|
|
//Extra walldist for sprites on sector lines
|
|
const int32_t extradist = walldist+MAXCLIPDIST+1;
|
|
const int32_t xmin = pos->x-extradist, ymin = pos->y-extradist;
|
|
const int32_t xmax = pos->x+extradist, ymax = pos->y+extradist;
|
|
|
|
const int32_t dawalclipmask = (cliptype&65535);
|
|
const int32_t dasprclipmask = (cliptype>>16);
|
|
|
|
if (sectnum < 0)
|
|
{
|
|
*ceilz = INT32_MIN; *ceilhit = -1;
|
|
*florz = INT32_MAX; *florhit = -1;
|
|
return;
|
|
}
|
|
|
|
getzsofslope(sectnum,pos->x,pos->y,ceilz,florz);
|
|
*ceilhit = sectnum+16384; *florhit = sectnum+16384;
|
|
|
|
#ifdef YAX_ENABLE
|
|
origclipsectorlist[0] = sectnum;
|
|
origclipsectnum = 1;
|
|
#endif
|
|
clipsectorlist[0] = sectnum;
|
|
clipsectcnt = 0; clipsectnum = 1;
|
|
clipspritecnt = clipspritenum = 0;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (0)
|
|
{
|
|
beginagain:
|
|
// replace sector and wall with clip map
|
|
mapinfo_set(&origmapinfo, &clipmapinfo);
|
|
clipsectcnt = clipsectnum; // should be a nop, "safety"...
|
|
}
|
|
#endif
|
|
|
|
#ifdef YAX_ENABLE
|
|
restart_grand:
|
|
#endif
|
|
do //Collect sectors inside your square first
|
|
{
|
|
const walltype *wal;
|
|
const sectortype *sec;
|
|
int32_t startwall, endwall;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (clipsectcnt>=clipsectnum)
|
|
{
|
|
// one set of clip-sprite sectors completed, prepare the next
|
|
|
|
curspr = &sprite[clipspritelist[clipspritecnt]];
|
|
curidx = clipshape_idx_for_sprite(curspr, curidx);
|
|
|
|
if (curidx < 0)
|
|
{
|
|
// didn't find matching clipping sectors for sprite
|
|
clipspritecnt++;
|
|
continue;
|
|
}
|
|
|
|
clipsprite_initindex(curidx, curspr, &clipsectcnt, pos);
|
|
|
|
for (i=0; i<clipsectnum; i++)
|
|
{
|
|
int32_t fz,cz, hitwhat;
|
|
k = clipsectorlist[i];
|
|
|
|
if (k==sectq[clipinfo[curidx].qend])
|
|
continue;
|
|
|
|
getzsofslope((int16_t)k,pos->x,pos->y,&daz,&daz2);
|
|
getzsofslope(sectq[clipinfo[curidx].qend],pos->x,pos->y,&cz,&fz);
|
|
hitwhat = (curspr-sprite)+49152;
|
|
|
|
if ((sector[k].ceilingstat&1)==0)
|
|
{
|
|
if (pos->z < cz && cz < *florz) { *florz = cz; *florhit = hitwhat; }
|
|
if (pos->z > daz && daz > *ceilz) { *ceilz = daz; *ceilhit = hitwhat; }
|
|
}
|
|
if ((sector[k].floorstat&1)==0)
|
|
{
|
|
if (pos->z < daz2 && daz2 < *florz) { *florz = daz2; *florhit = hitwhat; }
|
|
if (pos->z > fz && fz > *ceilz) { *ceilz = fz; *ceilhit = hitwhat; }
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
////////// Walls //////////
|
|
|
|
sec = §or[clipsectorlist[clipsectcnt]];
|
|
startwall = sec->wallptr; endwall = startwall + sec->wallnum;
|
|
for (j=startwall,wal=&wall[startwall]; j<endwall; j++,wal++)
|
|
{
|
|
k = wal->nextsector;
|
|
if (k >= 0)
|
|
{
|
|
const walltype *const wal2 = &wall[wal->point2];
|
|
|
|
x1 = wal->x; x2 = wal2->x;
|
|
if ((x1 < xmin) && (x2 < xmin)) continue;
|
|
if ((x1 > xmax) && (x2 > xmax)) continue;
|
|
y1 = wal->y; y2 = wal2->y;
|
|
if ((y1 < ymin) && (y2 < ymin)) continue;
|
|
if ((y1 > ymax) && (y2 > ymax)) continue;
|
|
|
|
dx = x2-x1; dy = y2-y1;
|
|
if (dx*(pos->y-y1) < (pos->x-x1)*dy) continue; //back
|
|
if (dx > 0) dax = dx*(ymin-y1); else dax = dx*(ymax-y1);
|
|
if (dy > 0) day = dy*(xmax-x1); else day = dy*(xmin-x1);
|
|
if (dax >= day) continue;
|
|
|
|
if (wal->cstat&dawalclipmask) continue; // XXX?
|
|
sec = §or[k];
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (curspr)
|
|
{
|
|
if (k==sectq[clipinfo[curidx].qend])
|
|
continue;
|
|
if ((sec->ceilingstat&1) && (sec->floorstat&1))
|
|
continue;
|
|
}
|
|
else
|
|
#endif
|
|
if (editstatus == 0)
|
|
{
|
|
if (((sec->ceilingstat&1) == 0) && (pos->z <= sec->ceilingz+(3<<8))) continue;
|
|
if (((sec->floorstat&1) == 0) && (pos->z >= sec->floorz-(3<<8))) continue;
|
|
}
|
|
|
|
for (i=clipsectnum-1; i>=0; i--)
|
|
if (clipsectorlist[i] == k) break;
|
|
if (i < 0) clipsectorlist[clipsectnum++] = k;
|
|
|
|
if ((x1 < xmin+MAXCLIPDIST) && (x2 < xmin+MAXCLIPDIST)) continue;
|
|
if ((x1 > xmax-MAXCLIPDIST) && (x2 > xmax-MAXCLIPDIST)) continue;
|
|
if ((y1 < ymin+MAXCLIPDIST) && (y2 < ymin+MAXCLIPDIST)) continue;
|
|
if ((y1 > ymax-MAXCLIPDIST) && (y2 > ymax-MAXCLIPDIST)) continue;
|
|
if (dx > 0) dax += dx*MAXCLIPDIST; else dax -= dx*MAXCLIPDIST;
|
|
if (dy > 0) day -= dy*MAXCLIPDIST; else day += dy*MAXCLIPDIST;
|
|
if (dax >= day) continue;
|
|
#ifdef YAX_ENABLE
|
|
if (mcf==-1 && curspr==NULL)
|
|
origclipsectorlist[origclipsectnum++] = k;
|
|
#endif
|
|
//It actually got here, through all the continue's!!!
|
|
getzsofslope(k, pos->x,pos->y, &daz,&daz2);
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (curspr)
|
|
{
|
|
int32_t fz,cz, hitwhat=(curspr-sprite)+49152;
|
|
getzsofslope(sectq[clipinfo[curidx].qend],pos->x,pos->y,&cz,&fz);
|
|
|
|
if ((sec->ceilingstat&1)==0)
|
|
{
|
|
if (pos->z < cz && cz < *florz) { *florz = cz; *florhit = hitwhat; }
|
|
if (pos->z > daz && daz > *ceilz) { *ceilz = daz; *ceilhit = hitwhat; }
|
|
}
|
|
if ((sec->floorstat&1)==0)
|
|
{
|
|
if (pos->z < daz2 && daz2 < *florz) { *florz = daz2; *florhit = hitwhat; }
|
|
if (pos->z > fz && fz > *ceilz) { *ceilz = fz; *ceilhit = hitwhat; }
|
|
}
|
|
}
|
|
else
|
|
#endif
|
|
{
|
|
#ifdef YAX_ENABLE
|
|
int16_t cb, fb;
|
|
yax_getbunches(k, &cb, &fb);
|
|
#endif
|
|
if (daz > *ceilz)
|
|
#ifdef YAX_ENABLE
|
|
if (mcf!=YAX_FLOOR && cb < 0)
|
|
#endif
|
|
*ceilz = daz, *ceilhit = k+16384;
|
|
|
|
if (daz2 < *florz)
|
|
#ifdef YAX_ENABLE
|
|
if (mcf!=YAX_CEILING && fb < 0)
|
|
#endif
|
|
*florz = daz2, *florhit = k+16384;
|
|
}
|
|
}
|
|
}
|
|
clipsectcnt++;
|
|
}
|
|
while (clipsectcnt < clipsectnum || clipspritecnt < clipspritenum);
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (curspr)
|
|
{
|
|
mapinfo_set(NULL, &origmapinfo); // restore original map
|
|
clipsectnum = clipspritenum = 0; // skip the next for loop and check afterwards
|
|
}
|
|
#endif
|
|
|
|
////////// Sprites //////////
|
|
|
|
for (i=0; i<clipsectnum; i++)
|
|
{
|
|
if (dasprclipmask==0)
|
|
break;
|
|
|
|
for (j=headspritesect[clipsectorlist[i]]; j>=0; j=nextspritesect[j])
|
|
{
|
|
const spritetype *const spr = &sprite[j];
|
|
const int32_t cstat = spr->cstat;
|
|
|
|
if (cstat&dasprclipmask)
|
|
{
|
|
int32_t clipyou = 0;
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (clipsprite_try(spr, xmin,ymin, xmax,ymax))
|
|
continue;
|
|
#endif
|
|
x1 = spr->x; y1 = spr->y;
|
|
|
|
switch (cstat&48)
|
|
{
|
|
case 0:
|
|
k = walldist+(spr->clipdist<<2)+1;
|
|
if ((klabs(x1-pos->x) <= k) && (klabs(y1-pos->y) <= k))
|
|
{
|
|
daz = spr->z + spriteheightofs(j, &k, 1);
|
|
daz2 = daz - k;
|
|
clipyou = 1;
|
|
}
|
|
break;
|
|
|
|
case 16:
|
|
{
|
|
get_wallspr_points(spr, &x1, &x2, &y1, &y2);
|
|
|
|
if (clipinsideboxline(pos->x,pos->y,x1,y1,x2,y2,walldist+1) != 0)
|
|
{
|
|
daz = spr->z + spriteheightofs(j, &k, 1);
|
|
daz2 = daz-k;
|
|
clipyou = 1;
|
|
}
|
|
break;
|
|
}
|
|
|
|
case 32:
|
|
{
|
|
int32_t x3, y3, x4, y4;
|
|
|
|
daz = spr->z; daz2 = daz;
|
|
|
|
if ((cstat&64) != 0)
|
|
if ((pos->z > daz) == ((cstat&8)==0)) continue;
|
|
|
|
get_floorspr_points(spr, pos->x, pos->y, &x1, &x2, &x3, &x4,
|
|
&y1, &y2, &y3, &y4);
|
|
|
|
dax = mulscale14(sintable[(spr->ang-256+512)&2047],walldist+4);
|
|
day = mulscale14(sintable[(spr->ang-256)&2047],walldist+4);
|
|
x1 += dax; x2 -= day; x3 -= dax; x4 += day;
|
|
y1 += day; y2 += dax; y3 -= day; y4 -= dax;
|
|
|
|
clipyou = get_floorspr_clipyou(x1, x2, x3, x4, y1, y2, y3, y4);
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (clipyou != 0)
|
|
{
|
|
if ((pos->z > daz) && (daz > *ceilz
|
|
#ifdef YAX_ENABLE
|
|
|| (daz == *ceilz && yax_getbunch(clipsectorlist[i], YAX_CEILING)>=0)
|
|
#endif
|
|
))
|
|
{
|
|
*ceilz = daz;
|
|
*ceilhit = j+49152;
|
|
}
|
|
|
|
if ((pos->z < daz2) && (daz2 < *florz
|
|
#ifdef YAX_ENABLE
|
|
// can have a floor-sprite lying directly on the floor!
|
|
|| (daz2 == *florz && yax_getbunch(clipsectorlist[i], YAX_FLOOR)>=0)
|
|
#endif
|
|
))
|
|
{
|
|
*florz = daz2;
|
|
*florhit = j+49152;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
#ifdef HAVE_CLIPSHAPE_FEATURE
|
|
if (clipspritenum>0)
|
|
goto beginagain;
|
|
#endif
|
|
|
|
#ifdef YAX_ENABLE
|
|
if (numyaxbunches > 0)
|
|
{
|
|
const int32_t dasecclipmask = yax_waltosecmask(dawalclipmask);
|
|
int16_t cb, fb, didchange;
|
|
|
|
yax_getbunches(sectnum, &cb, &fb);
|
|
|
|
mcf++;
|
|
clipsectcnt = 0; clipsectnum = 0;
|
|
|
|
didchange = 0;
|
|
if (cb>=0 && mcf==0 && *ceilhit==sectnum+16384)
|
|
{
|
|
for (i=0; i<origclipsectnum; i++)
|
|
{
|
|
j = origclipsectorlist[i];
|
|
if (yax_getbunch(j, YAX_CEILING) >= 0)
|
|
if (sector[j].ceilingstat&dasecclipmask)
|
|
break;
|
|
}
|
|
|
|
if (i==origclipsectnum)
|
|
for (i=0; i<origclipsectnum; i++)
|
|
{
|
|
cb = yax_getbunch(origclipsectorlist[i], YAX_CEILING);
|
|
if (cb < 0)
|
|
continue;
|
|
|
|
for (SECTORS_OF_BUNCH(cb,YAX_FLOOR, j))
|
|
if (inside(pos->x,pos->y, j)==1)
|
|
{
|
|
clipsectorlist[clipsectnum++] = j;
|
|
daz = getceilzofslope(j, pos->x,pos->y);
|
|
if (!didchange || daz > *ceilz)
|
|
didchange=1, *ceilhit = j+16384, *ceilz = daz;
|
|
}
|
|
}
|
|
|
|
if (clipsectnum==0)
|
|
mcf++;
|
|
}
|
|
else if (mcf==0)
|
|
mcf++;
|
|
|
|
didchange = 0;
|
|
if (fb>=0 && mcf==1 && *florhit==sectnum+16384)
|
|
{
|
|
for (i=0; i<origclipsectnum; i++)
|
|
{
|
|
j = origclipsectorlist[i];
|
|
if (yax_getbunch(j, YAX_FLOOR) >= 0)
|
|
if (sector[j].floorstat&dasecclipmask)
|
|
break;
|
|
}
|
|
|
|
// (almost) same as above, but with floors...
|
|
if (i==origclipsectnum)
|
|
for (i=0; i<origclipsectnum; i++)
|
|
{
|
|
fb = yax_getbunch(origclipsectorlist[i], YAX_FLOOR);
|
|
if (fb < 0)
|
|
continue;
|
|
|
|
for (SECTORS_OF_BUNCH(fb, YAX_CEILING, j))
|
|
if (inside(pos->x,pos->y, j)==1)
|
|
{
|
|
clipsectorlist[clipsectnum++] = j;
|
|
daz = getflorzofslope(j, pos->x,pos->y);
|
|
if (!didchange || daz < *florz)
|
|
didchange=1, *florhit = j+16384, *florz = daz;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (clipsectnum > 0)
|
|
{
|
|
// sector-like sprite re-init:
|
|
curidx = -1;
|
|
curspr = NULL;
|
|
clipspritecnt = 0; clipspritenum = 0;
|
|
|
|
goto restart_grand;
|
|
}
|
|
}
|
|
#endif
|
|
}
|
|
|
|
int32_t setaspect_new_use_dimen = 0;
|
|
|
|
void setaspect_new()
|
|
{
|
|
if (r_usenewaspect && newaspect_enable && getrendermode() != REND_POLYMER)
|
|
{
|
|
// The correction factor 100/107 has been found
|
|
// out experimentally. Squares FTW!
|
|
int32_t vr, yx=(65536*4*100)/(3*107);
|
|
int32_t y, x;
|
|
|
|
const int32_t xd = setaspect_new_use_dimen ? xdimen : xdim;
|
|
const int32_t yd = setaspect_new_use_dimen ? ydimen : ydim;
|
|
|
|
if (fullscreen && !setaspect_new_use_dimen)
|
|
{
|
|
const int32_t screenw = r_screenxy/100;
|
|
const int32_t screenh = r_screenxy%100;
|
|
|
|
if (screenw==0 || screenh==0)
|
|
{
|
|
// Assume square pixel aspect.
|
|
x = xd;
|
|
y = yd;
|
|
}
|
|
else
|
|
{
|
|
int32_t pixratio;
|
|
|
|
x = screenw;
|
|
y = screenh;
|
|
|
|
pixratio = divscale16(xdim*screenh, ydim*screenw);
|
|
yx = divscale16(yx, pixratio);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
x = xd;
|
|
y = yd;
|
|
}
|
|
|
|
vr = divscale16(x*3, y*4);
|
|
|
|
setaspect(vr, yx);
|
|
}
|
|
else
|
|
setaspect(65536, divscale16(ydim*320, xdim*200));
|
|
}
|
|
|
|
//
|
|
// setview
|
|
//
|
|
void setview(int32_t x1, int32_t y1, int32_t x2, int32_t y2)
|
|
{
|
|
int32_t i;
|
|
|
|
windowx1 = x1; wx1 = (x1<<12);
|
|
windowy1 = y1; wy1 = (y1<<12);
|
|
windowx2 = x2; wx2 = ((x2+1)<<12);
|
|
windowy2 = y2; wy2 = ((y2+1)<<12);
|
|
|
|
xdimen = (x2-x1)+1; halfxdimen = (xdimen>>1);
|
|
xdimenrecip = divscale32(1L,xdimen);
|
|
ydimen = (y2-y1)+1;
|
|
|
|
#ifdef USE_OPENGL
|
|
fxdimen = (float) xdimen;
|
|
fydimen = (float) ydimen;
|
|
#endif
|
|
setaspect_new();
|
|
|
|
for (i=0; i<windowx1; i++) { startumost[i] = 1, startdmost[i] = 0; }
|
|
for (i=windowx1; i<=windowx2; i++)
|
|
{ startumost[i] = windowy1, startdmost[i] = windowy2+1; }
|
|
for (i=windowx2+1; i<xdim; i++) { startumost[i] = 1, startdmost[i] = 0; }
|
|
}
|
|
|
|
|
|
//
|
|
// setaspect
|
|
//
|
|
void setaspect(int32_t daxrange, int32_t daaspect)
|
|
{
|
|
viewingrange = daxrange;
|
|
viewingrangerecip = divscale32(1,daxrange);
|
|
|
|
yxaspect = daaspect;
|
|
xyaspect = divscale32(1,yxaspect);
|
|
xdimenscale = scale(xdimen,yxaspect,320);
|
|
xdimscale = scale(320,xyaspect,xdimen);
|
|
}
|
|
|
|
|
|
//
|
|
// flushperms
|
|
//
|
|
void flushperms(void)
|
|
{
|
|
permhead = permtail = 0;
|
|
}
|
|
|
|
|
|
//
|
|
// rotatesprite
|
|
//
|
|
void rotatesprite_(int32_t sx, int32_t sy, int32_t z, int16_t a, int16_t picnum,
|
|
int8_t dashade, char dapalnum, int32_t dastat, uint8_t daalpha, uint8_t dablend,
|
|
int32_t cx1, int32_t cy1, int32_t cx2, int32_t cy2)
|
|
{
|
|
int32_t i;
|
|
|
|
if ((unsigned)picnum >= MAXTILES)
|
|
return;
|
|
|
|
if ((cx1 > cx2) || (cy1 > cy2)) return;
|
|
if (z <= 16) return;
|
|
DO_TILE_ANIM(picnum, 0xc000);
|
|
if ((tilesiz[picnum].x <= 0) || (tilesiz[picnum].y <= 0)) return;
|
|
|
|
// Experimental / development bits. ONLY FOR INTERNAL USE!
|
|
// bit RS_CENTERORIGIN: see dorotspr_handle_bit2
|
|
////////////////////
|
|
|
|
if (((dastat & RS_PERM) == 0) || (numpages < 2) || (beforedrawrooms != 0))
|
|
{
|
|
begindrawing(); //{{{
|
|
dorotatesprite(sx,sy,z,a,picnum,dashade,dapalnum,dastat,daalpha,dablend,cx1,cy1,cx2,cy2,guniqhudid);
|
|
enddrawing(); //}}}
|
|
}
|
|
|
|
if ((dastat & RS_NOMASK) && (cx1 <= 0) && (cy1 <= 0) && (cx2 >= xdim-1) && (cy2 >= ydim-1) &&
|
|
(sx == (160<<16)) && (sy == (100<<16)) && (z == 65536L) && (a == 0) && ((dastat&RS_TRANS1) == 0))
|
|
permhead = permtail = 0;
|
|
|
|
if ((dastat & RS_PERM) == 0)
|
|
return;
|
|
|
|
if (numpages >= 2)
|
|
{
|
|
permfifotype *per = &permfifo[permhead];
|
|
|
|
per->sx = sx; per->sy = sy; per->z = z; per->a = a;
|
|
per->picnum = picnum;
|
|
per->dashade = dashade; per->dapalnum = dapalnum;
|
|
per->dastat = dastat;
|
|
per->daalpha = daalpha;
|
|
per->dablend = dablend;
|
|
per->pagesleft = numpages+((beforedrawrooms&1)<<7);
|
|
per->cx1 = cx1; per->cy1 = cy1; per->cx2 = cx2; per->cy2 = cy2;
|
|
per->uniqid = guniqhudid; //JF extension
|
|
|
|
//Would be better to optimize out true bounding boxes
|
|
if (dastat & RS_NOMASK) //If non-masking write, checking for overlapping cases
|
|
{
|
|
for (i=permtail; i!=permhead; i=((i+1)&(MAXPERMS-1)))
|
|
{
|
|
permfifotype *per2 = &permfifo[i];
|
|
|
|
if ((per2->pagesleft&127) == 0) continue;
|
|
if (per2->sx != per->sx) continue;
|
|
if (per2->sy != per->sy) continue;
|
|
if (per2->z != per->z) continue;
|
|
if (per2->a != per->a) continue;
|
|
if (tilesiz[per2->picnum].x > tilesiz[per->picnum].x) continue;
|
|
if (tilesiz[per2->picnum].y > tilesiz[per->picnum].y) continue;
|
|
if (per2->cx1 < per->cx1) continue;
|
|
if (per2->cy1 < per->cy1) continue;
|
|
if (per2->cx2 > per->cx2) continue;
|
|
if (per2->cy2 > per->cy2) continue;
|
|
|
|
per2->pagesleft = 0;
|
|
}
|
|
|
|
if ((per->z == 65536) && (per->a == 0))
|
|
for (i=permtail; i!=permhead; i=((i+1)&(MAXPERMS-1)))
|
|
{
|
|
permfifotype *per2 = &permfifo[i];
|
|
|
|
if ((per2->pagesleft&127) == 0) continue;
|
|
if (per2->z != 65536) continue;
|
|
if (per2->a != 0) continue;
|
|
if (per2->cx1 < per->cx1) continue;
|
|
if (per2->cy1 < per->cy1) continue;
|
|
if (per2->cx2 > per->cx2) continue;
|
|
if (per2->cy2 > per->cy2) continue;
|
|
if ((per2->sx>>16) < (per->sx>>16)) continue;
|
|
if ((per2->sy>>16) < (per->sy>>16)) continue;
|
|
if ((per2->sx>>16)+tilesiz[per2->picnum].x > (per->sx>>16)+tilesiz[per->picnum].x) continue;
|
|
if ((per2->sy>>16)+tilesiz[per2->picnum].y > (per->sy>>16)+tilesiz[per->picnum].y) continue;
|
|
|
|
per2->pagesleft = 0;
|
|
}
|
|
}
|
|
|
|
permhead = ((permhead+1)&(MAXPERMS-1));
|
|
}
|
|
}
|
|
|
|
static int32_t palookup_isdefault(int32_t palnum) // KEEPINSYNC engine.lua
|
|
{
|
|
return (palookup[palnum] == NULL || (palnum!=0 && palookup[palnum] == palookup[0]));
|
|
}
|
|
|
|
static void maybe_alloc_palookup(int32_t palnum)
|
|
{
|
|
if (palookup_isdefault(palnum))
|
|
{
|
|
alloc_palookup(palnum);
|
|
if (palookup[palnum] == NULL)
|
|
Bexit(1);
|
|
}
|
|
}
|
|
|
|
void setblendtab(int32_t blend, const char *tab)
|
|
{
|
|
if (blendtable[blend] == NULL)
|
|
blendtable[blend] = (char *)Xmalloc(256*256);
|
|
|
|
Bmemcpy(blendtable[blend], tab, 256*256);
|
|
}
|
|
|
|
#ifdef LUNATIC
|
|
const char *(getblendtab)(int32_t blend)
|
|
{
|
|
return blendtable[blend];
|
|
}
|
|
|
|
int32_t setpalookup(int32_t palnum, const uint8_t *shtab)
|
|
{
|
|
if (numshades != 32)
|
|
return -1;
|
|
|
|
if (shtab != NULL)
|
|
{
|
|
maybe_alloc_palookup(palnum);
|
|
Bmemcpy(palookup[palnum], shtab, 256*numshades);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
//
|
|
// makepalookup
|
|
//
|
|
void makepalookup(int32_t palnum, const char *remapbuf, int8_t r, int8_t g, int8_t b, char dastat)
|
|
{
|
|
int32_t i, j;
|
|
|
|
static char idmap[256] = {1};
|
|
|
|
if (paletteloaded == 0)
|
|
return;
|
|
|
|
// NOTE: palnum==0 is allowed
|
|
if ((unsigned)palnum >= MAXPALOOKUPS)
|
|
return;
|
|
|
|
if (remapbuf==NULL)
|
|
{
|
|
if ((r|g|b) == 0)
|
|
{
|
|
palookup[palnum] = palookup[0]; // Alias to base shade table!
|
|
return;
|
|
}
|
|
|
|
if (idmap[0]==1) // init identity map
|
|
for (i=0; i<256; i++)
|
|
idmap[i] = i;
|
|
|
|
remapbuf = idmap;
|
|
}
|
|
|
|
maybe_alloc_palookup(palnum);
|
|
|
|
if (dastat == 0) return;
|
|
if ((r|g|b|63) != 63) return;
|
|
|
|
if ((r|g|b) == 0)
|
|
{
|
|
// "black fog"/visibility case -- only remap color indices
|
|
|
|
for (j=0; j<numshades; j++)
|
|
for (i=0; i<256; i++)
|
|
{
|
|
const char *src = palookup[0];
|
|
palookup[palnum][256*j + i] = src[256*j + remapbuf[i]];
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// colored fog case
|
|
|
|
char *ptr2 = palookup[palnum];
|
|
|
|
for (i=0; i<numshades; i++)
|
|
{
|
|
int32_t palscale = divscale16(i,numshades-1);
|
|
|
|
for (j=0; j<256; j++)
|
|
{
|
|
const char *ptr = (const char *)&palette[remapbuf[j]*3];
|
|
*ptr2++ = getclosestcol(ptr[0] + mulscale16(r-ptr[0],palscale),
|
|
ptr[1] + mulscale16(g-ptr[1],palscale),
|
|
ptr[2] + mulscale16(b-ptr[2],palscale));
|
|
}
|
|
}
|
|
}
|
|
|
|
#if defined(USE_OPENGL)
|
|
palookupfog[palnum].r = r;
|
|
palookupfog[palnum].g = g;
|
|
palookupfog[palnum].b = b;
|
|
#endif
|
|
}
|
|
|
|
//
|
|
// setbasepaltable
|
|
//
|
|
void setbasepaltable(uint8_t **thebasepaltable, uint8_t thebasepalcount)
|
|
{
|
|
if (thebasepalcount >= MAXBASEPALS)
|
|
thebasepalcount = MAXBASEPALS - 1;
|
|
|
|
basepaltableptr = thebasepaltable;
|
|
basepalcount = thebasepalcount;
|
|
}
|
|
|
|
//
|
|
// setbrightness
|
|
//
|
|
// flags:
|
|
// 1: don't setpalette(), DON'T USE THIS FLAG!
|
|
// 2: don't gltexinvalidateall()
|
|
// 4: don't calc curbrightness from dabrightness, DON'T USE THIS FLAG!
|
|
// 8: don't gltexinvalidate8()
|
|
// 16: don't reset palfade*
|
|
void setbrightness(char dabrightness, uint8_t dapalid, uint8_t flags)
|
|
{
|
|
int32_t i, j, nohwgamma;
|
|
const uint8_t *dapal;
|
|
|
|
#ifdef USE_OPENGL
|
|
int32_t paldidchange;
|
|
#endif
|
|
int32_t palsumdidchange;
|
|
// uint32_t lastbright = curbrightness;
|
|
|
|
Bassert((flags&4)==0);
|
|
|
|
if (dapalid >= basepalcount)
|
|
dapalid = 0;
|
|
#ifdef USE_OPENGL
|
|
paldidchange = (curbasepal != dapalid || basepalreset);
|
|
#endif
|
|
curbasepal = dapalid;
|
|
basepalreset = 0;
|
|
|
|
dapal = basepaltableptr[curbasepal];
|
|
|
|
if (!(flags&4))
|
|
{
|
|
curbrightness = clamp(dabrightness, 0, 15);
|
|
// if (lastbright != (unsigned)curbrightness)
|
|
// vid_gamma = 1.0 + ((float)curbrightness / 10.0);
|
|
}
|
|
|
|
nohwgamma = setgamma();
|
|
j = nohwgamma ? curbrightness : 0;
|
|
|
|
for (i=0; i<256; i++)
|
|
{
|
|
// save palette without any brightness adjustment
|
|
curpalette[i].r = dapal[i*3+0] << 2;
|
|
curpalette[i].g = dapal[i*3+1] << 2;
|
|
curpalette[i].b = dapal[i*3+2] << 2;
|
|
curpalette[i].f = 0;
|
|
|
|
// brightness adjust the palette
|
|
curpalettefaded[i].b = britable[j][ curpalette[i].b ];
|
|
curpalettefaded[i].g = britable[j][ curpalette[i].g ];
|
|
curpalettefaded[i].r = britable[j][ curpalette[i].r ];
|
|
curpalettefaded[i].f = 0;
|
|
}
|
|
|
|
if ((flags&16) && palfadedelta) // keep the fade
|
|
setpalettefade_calc(palfadedelta>>2);
|
|
|
|
{
|
|
static uint32_t lastpalettesum=0;
|
|
uint32_t newpalettesum = XXH32((uint8_t *)curpalettefaded, sizeof(curpalettefaded), sizeof(curpalettefaded));
|
|
|
|
palsumdidchange = (newpalettesum != lastpalettesum);
|
|
|
|
if (palsumdidchange || newpalettesum != g_lastpalettesum)
|
|
{
|
|
// if ((flags&1) == 0)
|
|
setpalette(0,256);
|
|
}
|
|
|
|
g_lastpalettesum = lastpalettesum = newpalettesum;
|
|
}
|
|
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST)
|
|
{
|
|
// Only reset the textures if the corresponding preserve flags are clear and
|
|
// either (a) the new palette is different to the last, or (b) the brightness
|
|
// changed and we couldn't set it using hardware gamma.
|
|
|
|
// XXX: no-HW-gamma OpenGL platforms will exhibit bad performance with
|
|
// simultaneous basepal and tint changes?
|
|
const int32_t doinvalidate = (paldidchange || (palsumdidchange && nohwgamma));
|
|
|
|
if (!(flags&2) && doinvalidate)
|
|
gltexinvalidatetype(INVALIDATE_ALL);
|
|
if (!(flags&8) && doinvalidate)
|
|
gltexinvalidatetype(INVALIDATE_ART);
|
|
#ifdef POLYMER
|
|
if ((getrendermode() == REND_POLYMER) && doinvalidate)
|
|
polymer_texinvalidate();
|
|
#endif
|
|
}
|
|
#endif
|
|
|
|
if ((flags&16)==0)
|
|
{
|
|
palfadergb.r = palfadergb.g = palfadergb.b = 0;
|
|
palfadedelta = 0;
|
|
}
|
|
}
|
|
|
|
static inline palette_t getpal(int32_t col)
|
|
{
|
|
if (gammabrightness) return curpalette[col];
|
|
else
|
|
{
|
|
palette_t p;
|
|
p.b = britable[curbrightness][ curpalette[col].b ];
|
|
p.g = britable[curbrightness][ curpalette[col].g ];
|
|
p.r = britable[curbrightness][ curpalette[col].r ];
|
|
//#ifdef __APPLE__
|
|
p.f = 0; // make gcc on osx happy
|
|
//#endif
|
|
return p;
|
|
}
|
|
}
|
|
|
|
static void setpalettefade_calc(uint8_t offset)
|
|
{
|
|
int32_t i;
|
|
palette_t p;
|
|
|
|
for (i=0; i<256; i++)
|
|
{
|
|
p = getpal(i);
|
|
|
|
curpalettefaded[i].b =
|
|
p.b + (((palfadergb.b - p.b) * offset) >> 6);
|
|
curpalettefaded[i].g =
|
|
p.g + (((palfadergb.g - p.g) * offset) >> 6);
|
|
curpalettefaded[i].r =
|
|
p.r + (((palfadergb.r - p.r) * offset) >> 6);
|
|
curpalettefaded[i].f = 0;
|
|
}
|
|
}
|
|
|
|
//#define DEBUG_PALETTEFADE
|
|
|
|
//
|
|
// setpalettefade
|
|
//
|
|
void setpalettefade(char r, char g, char b, char offset)
|
|
{
|
|
palfadergb.r = min(63,r) << 2;
|
|
palfadergb.g = min(63,g) << 2;
|
|
palfadergb.b = min(63,b) << 2;
|
|
#ifdef DEBUG_PALETTEFADE
|
|
if (offset)
|
|
offset = max(offset, 32);
|
|
#endif
|
|
palfadedelta = min(63,offset) << 2;
|
|
|
|
setpalettefade_calc(offset);
|
|
|
|
{
|
|
static uint32_t lastpalettesum=0;
|
|
uint32_t newpalettesum = XXH32((uint8_t *)curpalettefaded, sizeof(curpalettefaded), sizeof(curpalettefaded));
|
|
|
|
if (newpalettesum != lastpalettesum || newpalettesum != g_lastpalettesum)
|
|
setpalette(0,256);
|
|
|
|
g_lastpalettesum = lastpalettesum = newpalettesum;
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// clearview
|
|
//
|
|
void clearview(int32_t dacol)
|
|
{
|
|
intptr_t p;
|
|
int32_t y, dx;
|
|
|
|
if (!in3dmode()) return;
|
|
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST)
|
|
{
|
|
palette_t p = getpal(dacol);
|
|
|
|
bglClearColor((float)p.r * (1.f/255.f),
|
|
(float)p.g * (1.f/255.f),
|
|
(float)p.b * (1.f/255.f),
|
|
0);
|
|
bglClear(GL_COLOR_BUFFER_BIT);
|
|
return;
|
|
}
|
|
#endif
|
|
|
|
begindrawing(); //{{{
|
|
dx = windowx2-windowx1+1;
|
|
//dacol += (dacol<<8); dacol += (dacol<<16);
|
|
p = frameplace+ylookup[windowy1]+windowx1;
|
|
for (y=windowy1; y<=windowy2; y++)
|
|
{
|
|
//clearbufbyte((void*)p,dx,dacol);
|
|
Bmemset((void *)p,dacol,dx);
|
|
p += ylookup[1];
|
|
}
|
|
enddrawing(); //}}}
|
|
|
|
faketimerhandler();
|
|
}
|
|
|
|
|
|
//
|
|
// clearallviews
|
|
//
|
|
void clearallviews(int32_t dacol)
|
|
{
|
|
if (!in3dmode()) return;
|
|
//dacol += (dacol<<8); dacol += (dacol<<16);
|
|
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST)
|
|
{
|
|
palette_t p = getpal(dacol);
|
|
|
|
bglViewport(0,0,xdim,ydim); glox1 = -1;
|
|
bglClearColor((float)p.r * (1.f/255.f),
|
|
(float)p.g * (1.f/255.f),
|
|
(float)p.b * (1.f/255.f),
|
|
0);
|
|
bglClear(GL_COLOR_BUFFER_BIT);
|
|
return;
|
|
}
|
|
#endif
|
|
|
|
begindrawing(); //{{{
|
|
Bmemset((void *)frameplace,dacol,bytesperline*yres);
|
|
enddrawing(); //}}}
|
|
//nextpage();
|
|
|
|
faketimerhandler();
|
|
}
|
|
|
|
|
|
//
|
|
// plotpixel
|
|
//
|
|
void plotpixel(int32_t x, int32_t y, char col)
|
|
{
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST && in3dmode())
|
|
{
|
|
palette_t p = getpal(col);
|
|
|
|
bglRasterPos4i(x, y, 0, 1);
|
|
bglDrawPixels(1, 1, GL_RGB, GL_UNSIGNED_BYTE, &p);
|
|
bglRasterPos4i(0, 0, 0, 1);
|
|
return;
|
|
}
|
|
#endif
|
|
|
|
begindrawing(); //{{{
|
|
drawpixel_safe((void *)(ylookup[y]+x+frameplace), col);
|
|
enddrawing(); //}}}
|
|
}
|
|
|
|
void plotlines2d(const int32_t *xx, const int32_t *yy, int32_t numpoints, char col)
|
|
{
|
|
int32_t i;
|
|
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST && in3dmode())
|
|
{
|
|
palette_t p = getpal(col);
|
|
|
|
bglBegin(GL_LINE_STRIP);
|
|
|
|
bglColor4ub(p.r, p.g, p.b, 1);
|
|
|
|
for (i=0; i<numpoints; i++)
|
|
bglVertex2i(xx[i], yy[i]);
|
|
|
|
bglEnd();
|
|
return;
|
|
}
|
|
#endif
|
|
{
|
|
int32_t odrawlinepat = drawlinepat;
|
|
drawlinepat = 0xffffffff;
|
|
|
|
begindrawing();
|
|
for (i=0; i<numpoints-1; i++)
|
|
drawline16(xx[i], yy[i], xx[i+1], yy[i+1], col);
|
|
enddrawing();
|
|
|
|
drawlinepat = odrawlinepat;
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// getpixel
|
|
//
|
|
char getpixel(int32_t x, int32_t y)
|
|
{
|
|
char r;
|
|
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST && in3dmode()) return 0;
|
|
#endif
|
|
|
|
begindrawing(); //{{{
|
|
r = readpixel((void *)(ylookup[y]+x+frameplace));
|
|
enddrawing(); //}}}
|
|
return(r);
|
|
}
|
|
|
|
|
|
//MUST USE RESTOREFORDRAWROOMS AFTER DRAWING
|
|
|
|
//
|
|
// setviewtotile
|
|
//
|
|
void setviewtotile(int16_t tilenume, int32_t xsiz, int32_t ysiz)
|
|
{
|
|
//DRAWROOMS TO TILE BACKUP&SET CODE
|
|
tilesiz[tilenume].x = xsiz; tilesiz[tilenume].y = ysiz;
|
|
bakxsiz[setviewcnt] = xsiz; bakysiz[setviewcnt] = ysiz;
|
|
bakframeplace[setviewcnt] = frameplace; frameplace = waloff[tilenume];
|
|
bakwindowx1[setviewcnt] = windowx1; bakwindowy1[setviewcnt] = windowy1;
|
|
bakwindowx2[setviewcnt] = windowx2; bakwindowy2[setviewcnt] = windowy2;
|
|
|
|
if (setviewcnt == 0)
|
|
{
|
|
#ifdef USE_OPENGL
|
|
bakrendmode = rendmode;
|
|
#endif
|
|
baktile = tilenume;
|
|
}
|
|
|
|
#ifdef USE_OPENGL
|
|
rendmode = REND_CLASSIC;
|
|
#endif
|
|
|
|
copybufbyte(&startumost[windowx1],&bakumost[windowx1],(windowx2-windowx1+1)*sizeof(bakumost[0]));
|
|
copybufbyte(&startdmost[windowx1],&bakdmost[windowx1],(windowx2-windowx1+1)*sizeof(bakdmost[0]));
|
|
setviewcnt++;
|
|
|
|
offscreenrendering = 1;
|
|
setview(0,0,ysiz-1,xsiz-1);
|
|
setaspect(65536,65536);
|
|
|
|
calc_ylookup(ysiz, xsiz);
|
|
}
|
|
|
|
|
|
//
|
|
// setviewback
|
|
//
|
|
extern char modechange;
|
|
void setviewback(void)
|
|
{
|
|
int32_t k;
|
|
|
|
if (setviewcnt <= 0) return;
|
|
setviewcnt--;
|
|
|
|
offscreenrendering = (setviewcnt>0);
|
|
#ifdef USE_OPENGL
|
|
if (setviewcnt == 0)
|
|
{
|
|
rendmode = bakrendmode;
|
|
invalidatetile(baktile,-1,-1);
|
|
}
|
|
#endif
|
|
|
|
setview(bakwindowx1[setviewcnt],bakwindowy1[setviewcnt],
|
|
bakwindowx2[setviewcnt],bakwindowy2[setviewcnt]);
|
|
copybufbyte(&bakumost[windowx1],&startumost[windowx1],(windowx2-windowx1+1)*sizeof(startumost[0]));
|
|
copybufbyte(&bakdmost[windowx1],&startdmost[windowx1],(windowx2-windowx1+1)*sizeof(startdmost[0]));
|
|
frameplace = bakframeplace[setviewcnt];
|
|
|
|
if (setviewcnt == 0)
|
|
k = bakxsiz[0];
|
|
else
|
|
k = max(bakxsiz[setviewcnt-1],bakxsiz[setviewcnt]);
|
|
calc_ylookup(bytesperline, k);
|
|
|
|
modechange=1;
|
|
}
|
|
|
|
|
|
//
|
|
// squarerotatetile
|
|
//
|
|
void squarerotatetile(int16_t tilenume)
|
|
{
|
|
int32_t siz = tilesiz[tilenume].x;
|
|
int32_t i, j;
|
|
char *ptr1, *ptr2;
|
|
|
|
if (siz != tilesiz[tilenume].y)
|
|
return;
|
|
|
|
for (i=siz-1; i>=3; i-=4)
|
|
{
|
|
ptr2 = ptr1 = (char *) (waloff[tilenume]+i*(siz+1));
|
|
swapchar(--ptr1, (ptr2 -= siz));
|
|
j=(i>>1)-1;
|
|
for (; j>=0; j--) swapchar2((ptr1 -= 2), (ptr2 -= (siz<<1)), siz);
|
|
|
|
ptr2 = ptr1 = (char *) (waloff[tilenume]+(i-1)*(siz+1));
|
|
j=((i-1)>>1)-1;
|
|
for (; j>=0; j--) swapchar2((ptr1 -= 2), (ptr2 -= (siz<<1)), siz);
|
|
|
|
ptr2 = ptr1 = (char *) (waloff[tilenume]+(i-2)*(siz+1));
|
|
swapchar(--ptr1, (ptr2 -= siz));
|
|
j=((i-2)>>1)-1;
|
|
for (; j>=0; j--) swapchar2((ptr1 -= 2), (ptr2 -= (siz<<1)), siz);
|
|
|
|
ptr2 = ptr1 = (char *) (waloff[tilenume]+(i-3)*(siz+1));
|
|
j=((i-3)>>1)-1;
|
|
for (; j>=0; j--) swapchar2((ptr1 -= 2), (ptr2 -= (siz<<1)), siz);
|
|
}
|
|
}
|
|
|
|
//
|
|
// preparemirror
|
|
//
|
|
void preparemirror(int32_t dax, int32_t day, int16_t daang, int16_t dawall,
|
|
int32_t *tposx, int32_t *tposy, int16_t *tang)
|
|
{
|
|
int32_t i;
|
|
|
|
const int32_t x = wall[dawall].x, dx = wall[wall[dawall].point2].x-x;
|
|
const int32_t y = wall[dawall].y, dy = wall[wall[dawall].point2].y-y;
|
|
|
|
const int32_t j = dx*dx + dy*dy;
|
|
if (j == 0)
|
|
return;
|
|
|
|
i = ((dax-x)*dx + (day-y)*dy)<<1;
|
|
|
|
*tposx = (x<<1) + scale(dx,i,j) - dax;
|
|
*tposy = (y<<1) + scale(dy,i,j) - day;
|
|
*tang = ((getangle(dx,dy)<<1)-daang)&2047;
|
|
|
|
inpreparemirror = 1;
|
|
}
|
|
|
|
|
|
//
|
|
// completemirror
|
|
//
|
|
void completemirror(void)
|
|
{
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() != REND_CLASSIC)
|
|
return;
|
|
#endif
|
|
|
|
// Can't reverse when the world has not yet been drawn from the other side.
|
|
if (inpreparemirror) { inpreparemirror = 0; return; }
|
|
|
|
// The mirroring code maps the rightmost pixel to the right neighbor of the
|
|
// leftmost one (see copybufreverse() call below). Thus, the leftmost would
|
|
// be mapped to the right neighbor of the rightmost one, which would be out
|
|
// of bounds.
|
|
if (mirrorsx1 == 0)
|
|
mirrorsx1 = 1;
|
|
|
|
// Require that the mirror is at least one pixel wide before padding.
|
|
if (mirrorsx1 > mirrorsx2)
|
|
return;
|
|
|
|
// Variables mirrorsx{1,2} refer to the source scene here, the one drawn
|
|
// from the inside of the mirror.
|
|
|
|
begindrawing();
|
|
{
|
|
// Width in pixels (screen x's are inclusive on both sides):
|
|
const int32_t width = mirrorsx2-mirrorsx1+1;
|
|
// Height in pixels (screen y's are half-open because they come from umost/dmost):
|
|
const int32_t height = mirrorsy2-mirrorsy1;
|
|
|
|
// Address of the mirror wall's top left corner in the source scene:
|
|
intptr_t p = frameplace + ylookup[windowy1+mirrorsy1] + windowx1+mirrorsx1;
|
|
|
|
// Offset (wrt p) of a mirror line's left corner in the destination:
|
|
// p+destof == frameplace + ylookup[...] + windowx2-mirrorsx2
|
|
const int32_t destofs = windowx2-mirrorsx2-windowx1-mirrorsx1;
|
|
|
|
int32_t y;
|
|
|
|
for (y=0; y<height; y++)
|
|
{
|
|
#if 0
|
|
if ((p-frameplace) + width-1 >= bytesperline*ydim)
|
|
printf("oob read: mirrorsx1=%d, mirrorsx2=%d\n", mirrorsx1, mirrorsx2);
|
|
#endif
|
|
copybufbyte((void *)p, tempbuf, width);
|
|
copybufreverse(&tempbuf[width-1], (void *)(p+destofs+1), width);
|
|
|
|
p += ylookup[1];
|
|
faketimerhandler();
|
|
}
|
|
}
|
|
enddrawing();
|
|
}
|
|
|
|
|
|
//
|
|
// sectorofwall
|
|
//
|
|
static int32_t sectorofwall_internal(int16_t theline)
|
|
{
|
|
int32_t gap = numsectors>>1, i = gap;
|
|
|
|
while (gap > 1)
|
|
{
|
|
gap >>= 1;
|
|
if (sector[i].wallptr < theline) i += gap; else i -= gap;
|
|
}
|
|
while (sector[i].wallptr > theline) i--;
|
|
while (sector[i].wallptr+sector[i].wallnum <= theline) i++;
|
|
|
|
return i;
|
|
}
|
|
|
|
int32_t sectorofwall(int16_t theline)
|
|
{
|
|
int32_t i;
|
|
|
|
if (theline < 0 || theline >= numwalls)
|
|
return -1;
|
|
|
|
i = wall[theline].nextwall;
|
|
if (i >= 0 && i < MAXWALLS)
|
|
return wall[i].nextsector;
|
|
|
|
return sectorofwall_internal(theline);
|
|
}
|
|
|
|
int32_t sectorofwall_noquick(int16_t theline)
|
|
{
|
|
if (theline < 0 || theline >= numwalls)
|
|
return -1;
|
|
|
|
return sectorofwall_internal(theline);
|
|
}
|
|
|
|
|
|
int32_t getceilzofslopeptr(const sectortype *sec, int32_t dax, int32_t day)
|
|
{
|
|
if (!(sec->ceilingstat&2))
|
|
return sec->ceilingz;
|
|
|
|
{
|
|
const walltype *wal = &wall[sec->wallptr];
|
|
|
|
// floor(sqrt(2**31-1)) == 46340
|
|
int32_t i, j, wx=wal->x, wy=wal->y;
|
|
int32_t dx = wall[wal->point2].x-wx, dy = wall[wal->point2].y-wy;
|
|
|
|
i = nsqrtasm(uhypsq(dx,dy))<<5;
|
|
if (i == 0)
|
|
return sec->ceilingz;
|
|
|
|
j = dmulscale3(dx, day-wy, -dy, dax-wx);
|
|
return sec->ceilingz + (scale(sec->ceilingheinum,j>>1,i)<<1);
|
|
}
|
|
}
|
|
|
|
int32_t getflorzofslopeptr(const sectortype *sec, int32_t dax, int32_t day)
|
|
{
|
|
if (!(sec->floorstat&2))
|
|
return sec->floorz;
|
|
|
|
{
|
|
const walltype *wal = &wall[sec->wallptr];
|
|
|
|
int32_t i, j, wx=wal->x, wy=wal->y;
|
|
int32_t dx = wall[wal->point2].x-wx, dy = wall[wal->point2].y-wy;
|
|
|
|
i = nsqrtasm(uhypsq(dx,dy))<<5;
|
|
if (i == 0)
|
|
return sec->floorz;
|
|
|
|
j = dmulscale3(dx, day-wy, -dy, dax-wx);
|
|
return sec->floorz + (scale(sec->floorheinum,j>>1,i)<<1);
|
|
}
|
|
}
|
|
|
|
void getzsofslopeptr(const sectortype *sec, int32_t dax, int32_t day, int32_t *ceilz, int32_t *florz)
|
|
{
|
|
*ceilz = sec->ceilingz; *florz = sec->floorz;
|
|
|
|
if ((sec->ceilingstat|sec->floorstat)&2)
|
|
{
|
|
int32_t i, j;
|
|
const walltype *wal = &wall[sec->wallptr], *wal2 = &wall[wal->point2];
|
|
const int32_t dx = wal2->x-wal->x, dy = wal2->y-wal->y;
|
|
|
|
i = nsqrtasm(uhypsq(dx,dy))<<5;
|
|
if (i == 0)
|
|
return;
|
|
|
|
j = dmulscale3(dx,day-wal->y, -dy,dax-wal->x);
|
|
if (sec->ceilingstat&2)
|
|
*ceilz += scale(sec->ceilingheinum,j>>1,i)<<1;
|
|
if (sec->floorstat&2)
|
|
*florz += scale(sec->floorheinum,j>>1,i)<<1;
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
// alignceilslope
|
|
//
|
|
void alignceilslope(int16_t dasect, int32_t x, int32_t y, int32_t z)
|
|
{
|
|
const walltype *const wal = &wall[sector[dasect].wallptr];
|
|
const int32_t dax = wall[wal->point2].x-wal->x;
|
|
const int32_t day = wall[wal->point2].y-wal->y;
|
|
|
|
const int32_t i = (y-wal->y)*dax - (x-wal->x)*day;
|
|
if (i == 0)
|
|
return;
|
|
|
|
sector[dasect].ceilingheinum = scale((z-sector[dasect].ceilingz)<<8,
|
|
nsqrtasm(uhypsq(dax,day)), i);
|
|
if (sector[dasect].ceilingheinum == 0)
|
|
sector[dasect].ceilingstat &= ~2;
|
|
else sector[dasect].ceilingstat |= 2;
|
|
}
|
|
|
|
|
|
//
|
|
// alignflorslope
|
|
//
|
|
void alignflorslope(int16_t dasect, int32_t x, int32_t y, int32_t z)
|
|
{
|
|
const walltype *const wal = &wall[sector[dasect].wallptr];
|
|
const int32_t dax = wall[wal->point2].x-wal->x;
|
|
const int32_t day = wall[wal->point2].y-wal->y;
|
|
|
|
const int32_t i = (y-wal->y)*dax - (x-wal->x)*day;
|
|
if (i == 0)
|
|
return;
|
|
|
|
sector[dasect].floorheinum = scale((z-sector[dasect].floorz)<<8,
|
|
nsqrtasm(uhypsq(dax,day)), i);
|
|
if (sector[dasect].floorheinum == 0)
|
|
sector[dasect].floorstat &= ~2;
|
|
else sector[dasect].floorstat |= 2;
|
|
}
|
|
|
|
|
|
//
|
|
// loopnumofsector
|
|
//
|
|
int32_t loopnumofsector(int16_t sectnum, int16_t wallnum)
|
|
{
|
|
int32_t i;
|
|
|
|
int32_t numloops = 0;
|
|
const int32_t startwall = sector[sectnum].wallptr;
|
|
const int32_t endwall = startwall + sector[sectnum].wallnum;
|
|
|
|
for (i=startwall; i<endwall; i++)
|
|
{
|
|
if (i == wallnum)
|
|
return numloops;
|
|
|
|
if (wall[i].point2 < i)
|
|
numloops++;
|
|
}
|
|
|
|
return -1;
|
|
}
|
|
|
|
|
|
//
|
|
// setfirstwall
|
|
//
|
|
void setfirstwall(int16_t sectnum, int16_t newfirstwall)
|
|
{
|
|
int32_t i, j, numwallsofloop;
|
|
int32_t dagoalloop;
|
|
walltype *tmpwall;
|
|
|
|
const int32_t startwall = sector[sectnum].wallptr;
|
|
const int32_t danumwalls = sector[sectnum].wallnum;
|
|
const int32_t endwall = startwall+danumwalls;
|
|
|
|
if (newfirstwall < startwall || newfirstwall >= startwall+danumwalls)
|
|
return;
|
|
|
|
tmpwall = (walltype *)Xmalloc(danumwalls * sizeof(walltype));
|
|
|
|
Bmemcpy(tmpwall, &wall[startwall], danumwalls*sizeof(walltype));
|
|
|
|
numwallsofloop = 0;
|
|
i = newfirstwall;
|
|
do
|
|
{
|
|
numwallsofloop++;
|
|
i = wall[i].point2;
|
|
}
|
|
while (i != newfirstwall);
|
|
|
|
//Put correct loop at beginning
|
|
dagoalloop = loopnumofsector(sectnum,newfirstwall);
|
|
if (dagoalloop > 0)
|
|
{
|
|
j = 0;
|
|
while (loopnumofsector(sectnum,j+startwall) != dagoalloop)
|
|
j++;
|
|
|
|
for (i=0; i<danumwalls; i++)
|
|
{
|
|
int32_t k = i+j;
|
|
if (k >= danumwalls) k -= danumwalls;
|
|
Bmemcpy(&wall[startwall+i], &tmpwall[k], sizeof(walltype));
|
|
|
|
wall[startwall+i].point2 += danumwalls-startwall-j;
|
|
if (wall[startwall+i].point2 >= danumwalls)
|
|
wall[startwall+i].point2 -= danumwalls;
|
|
wall[startwall+i].point2 += startwall;
|
|
}
|
|
|
|
newfirstwall += danumwalls-j;
|
|
if (newfirstwall >= startwall+danumwalls)
|
|
newfirstwall -= danumwalls;
|
|
}
|
|
|
|
for (i=0; i<numwallsofloop; i++)
|
|
Bmemcpy(&tmpwall[i], &wall[i+startwall], sizeof(walltype));
|
|
for (i=0; i<numwallsofloop; i++)
|
|
{
|
|
int32_t k = i+newfirstwall-startwall;
|
|
if (k >= numwallsofloop) k -= numwallsofloop;
|
|
Bmemcpy(&wall[startwall+i], &tmpwall[k], sizeof(walltype));
|
|
|
|
wall[startwall+i].point2 += numwallsofloop-newfirstwall;
|
|
if (wall[startwall+i].point2 >= numwallsofloop)
|
|
wall[startwall+i].point2 -= numwallsofloop;
|
|
wall[startwall+i].point2 += startwall;
|
|
}
|
|
|
|
for (i=startwall; i<endwall; i++)
|
|
if (wall[i].nextwall >= 0)
|
|
wall[wall[i].nextwall].nextwall = i;
|
|
|
|
#ifdef YAX_ENABLE
|
|
{
|
|
int16_t cb, fb;
|
|
yax_getbunches(sectnum, &cb, &fb);
|
|
|
|
if (cb>=0 || fb>=0)
|
|
{
|
|
for (i=startwall; i<endwall; i++)
|
|
{
|
|
j = yax_getnextwall(i, YAX_CEILING);
|
|
if (j >= 0)
|
|
yax_setnextwall(j, YAX_FLOOR, i);
|
|
|
|
j = yax_getnextwall(i, YAX_FLOOR);
|
|
if (j >= 0)
|
|
yax_setnextwall(j, YAX_CEILING, i);
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
|
|
Bfree(tmpwall);
|
|
}
|
|
|
|
|
|
//
|
|
// drawline256
|
|
//
|
|
void drawline256(int32_t x1, int32_t y1, int32_t x2, int32_t y2, char col)
|
|
{
|
|
int32_t dx, dy, i, j, inc, plc, daend;
|
|
intptr_t p;
|
|
|
|
col = palookup[0][col];
|
|
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST)
|
|
{
|
|
palette_t p = getpal(col);
|
|
|
|
setpolymost2dview(); // JBF 20040205: more efficient setup
|
|
|
|
//bglEnable(GL_BLEND); // When using line antialiasing, this is needed
|
|
bglBegin(GL_LINES);
|
|
bglColor4ub(p.r,p.g,p.b,255);
|
|
bglVertex2f((float)x1 * (1.f/4096.f), (float)y1 * (1.f/4096.f));
|
|
bglVertex2f((float)x2 * (1.f/4096.f), (float)y2 * (1.f/4096.f));
|
|
bglEnd();
|
|
//bglDisable(GL_BLEND);
|
|
|
|
return;
|
|
}
|
|
#endif
|
|
|
|
dx = x2-x1; dy = y2-y1;
|
|
if (dx >= 0)
|
|
{
|
|
if ((x1 >= wx2) || (x2 < wx1)) return;
|
|
if (x1 < wx1) y1 += scale(wx1-x1,dy,dx), x1 = wx1;
|
|
if (x2 > wx2) y2 += scale(wx2-x2,dy,dx), x2 = wx2;
|
|
}
|
|
else
|
|
{
|
|
if ((x2 >= wx2) || (x1 < wx1)) return;
|
|
if (x2 < wx1) y2 += scale(wx1-x2,dy,dx), x2 = wx1;
|
|
if (x1 > wx2) y1 += scale(wx2-x1,dy,dx), x1 = wx2;
|
|
}
|
|
if (dy >= 0)
|
|
{
|
|
if ((y1 >= wy2) || (y2 < wy1)) return;
|
|
if (y1 < wy1) x1 += scale(wy1-y1,dx,dy), y1 = wy1;
|
|
if (y2 > wy2) x2 += scale(wy2-y2,dx,dy), y2 = wy2;
|
|
}
|
|
else
|
|
{
|
|
if ((y2 >= wy2) || (y1 < wy1)) return;
|
|
if (y2 < wy1) x2 += scale(wy1-y2,dx,dy), y2 = wy1;
|
|
if (y1 > wy2) x1 += scale(wy2-y1,dx,dy), y1 = wy2;
|
|
}
|
|
|
|
if (klabs(dx) >= klabs(dy))
|
|
{
|
|
if (dx == 0) return;
|
|
if (dx < 0)
|
|
{
|
|
i = x1; x1 = x2; x2 = i;
|
|
i = y1; y1 = y2; y2 = i;
|
|
}
|
|
|
|
inc = divscale12(dy,dx);
|
|
plc = y1+mulscale12((2047-x1)&4095,inc);
|
|
i = ((x1+2048)>>12); daend = ((x2+2048)>>12);
|
|
|
|
begindrawing(); //{{{
|
|
for (; i<daend; i++)
|
|
{
|
|
j = (plc>>12);
|
|
if ((j >= startumost[i]) && (j < startdmost[i]))
|
|
drawpixel_safe((void *)(frameplace+ylookup[j]+i),col);
|
|
plc += inc;
|
|
}
|
|
enddrawing(); //}}}
|
|
}
|
|
else
|
|
{
|
|
if (dy < 0)
|
|
{
|
|
i = x1; x1 = x2; x2 = i;
|
|
i = y1; y1 = y2; y2 = i;
|
|
}
|
|
|
|
inc = divscale12(dx,dy);
|
|
plc = x1+mulscale12((2047-y1)&4095,inc);
|
|
i = ((y1+2048)>>12); daend = ((y2+2048)>>12);
|
|
|
|
begindrawing(); //{{{
|
|
p = ylookup[i]+frameplace;
|
|
for (; i<daend; i++)
|
|
{
|
|
j = (plc>>12);
|
|
if ((i >= startumost[j]) && (i < startdmost[j]))
|
|
drawpixel_safe((void *)(j+p),col);
|
|
plc += inc; p += ylookup[1];
|
|
}
|
|
enddrawing(); //}}}
|
|
}
|
|
}
|
|
|
|
//static void attach_here() {}
|
|
|
|
//
|
|
// drawline16
|
|
//
|
|
// JBF: Had to add extra tests to make sure x-coordinates weren't winding up -'ve
|
|
// after clipping or crashes would ensue
|
|
uint32_t drawlinepat = 0xffffffff;
|
|
|
|
int32_t drawline16(int32_t x1, int32_t y1, int32_t x2, int32_t y2, char col)
|
|
{
|
|
int32_t i, dx, dy, pinc, d;
|
|
uint32_t patc=0;
|
|
intptr_t p;
|
|
|
|
//int32_t odx,ody;
|
|
//int32_t ox1=x1,oy1=y1, ox2=x2,oy2=y2;
|
|
|
|
dx = x2-x1;
|
|
dy = y2-y1;
|
|
|
|
//odx=dx;
|
|
//ody=dy;
|
|
|
|
if (dx >= 0)
|
|
{
|
|
if (x1 >= xres || x2 < 0)
|
|
return 0;
|
|
if (x1 < 0)
|
|
{
|
|
if (dy) y1 += scale(0-x1,dy,dx);
|
|
x1 = 0;
|
|
}
|
|
if (x2 >= xres)
|
|
{
|
|
if (dy) y2 += scale(xres-1-x2,dy,dx);
|
|
x2 = xres-1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (x2 >= xres || x1 < 0)
|
|
return 0;
|
|
if (x2 < 0)
|
|
{
|
|
if (dy) y2 += scale(0-x2,dy,dx);
|
|
x2 = 0;
|
|
}
|
|
if (x1 >= xres)
|
|
{
|
|
if (dy) y1 += scale(xres-1-x1,dy,dx);
|
|
x1 = xres-1;
|
|
}
|
|
}
|
|
|
|
if (dy >= 0)
|
|
{
|
|
if (y1 >= ydim16 || y2 < 0)
|
|
return 0;
|
|
if (y1 < 0)
|
|
{
|
|
if (dx) x1 += scale(0-y1,dx,dy);
|
|
y1 = 0;
|
|
x1 = clamp(x1, 0, xres-1);
|
|
}
|
|
if (y2 >= ydim16)
|
|
{
|
|
if (dx) x2 += scale(ydim16-1-y2,dx,dy);
|
|
y2 = ydim16-1;
|
|
x2 = clamp(x2, 0, xres-1);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (y2 >= ydim16 || y1 < 0)
|
|
return 0;
|
|
if (y2 < 0)
|
|
{
|
|
if (dx) x2 += scale(0-y2,dx,dy);
|
|
y2 = 0;
|
|
x2 = clamp(x2, 0, xres-1);
|
|
}
|
|
if (y1 >= ydim16)
|
|
{
|
|
if (dx) x1 += scale(ydim16-1-y1,dx,dy);
|
|
y1 = ydim16-1;
|
|
x1 = clamp(x1, 0, xres-1);
|
|
}
|
|
}
|
|
|
|
//if (ox1||ox2||oy1||oy2)
|
|
// if (x1<0||x1>=xres || y2<0||y2>=yres)
|
|
// attach_here();
|
|
|
|
dx = klabs(x2-x1)+1; dy = klabs(y2-y1)+1;
|
|
if (dx >= dy)
|
|
{
|
|
if (x2 < x1)
|
|
{
|
|
i = x1; x1 = x2; x2 = i;
|
|
i = y1; y1 = y2; y2 = i;
|
|
}
|
|
d = 0;
|
|
if (y2 > y1) pinc = bytesperline; else pinc = -bytesperline;
|
|
|
|
begindrawing(); //{{{
|
|
p = (y1*bytesperline)+x1+frameplace;
|
|
if (dy == 0 && drawlinepat == 0xffffffff)
|
|
{
|
|
i = ((int32_t)col<<24)|((int32_t)col<<16)|((int32_t)col<<8)|col;
|
|
clearbufbyte((void *)p, dx, i);
|
|
}
|
|
else
|
|
for (i=dx; i>0; i--)
|
|
{
|
|
if (drawlinepat & pow2long[(patc++)&31])
|
|
drawpixel((char *)p, col);
|
|
d += dy;
|
|
if (d >= dx) { d -= dx; p += pinc; }
|
|
p++;
|
|
}
|
|
enddrawing(); //}}}
|
|
|
|
return 1;
|
|
}
|
|
|
|
if (y2 < y1)
|
|
{
|
|
i = x1; x1 = x2; x2 = i;
|
|
i = y1; y1 = y2; y2 = i;
|
|
}
|
|
d = 0;
|
|
if (x2 > x1) pinc = 1; else pinc = -1;
|
|
|
|
begindrawing(); //{{{
|
|
p = (y1*bytesperline)+x1+frameplace;
|
|
for (i=dy; i>0; i--)
|
|
{
|
|
if (drawlinepat & pow2long[(patc++)&31])
|
|
drawpixel((char *)p, col);
|
|
d += dx;
|
|
if (d >= dy) { d -= dy; p += pinc; }
|
|
p += bytesperline;
|
|
}
|
|
enddrawing(); //}}}
|
|
|
|
return 1;
|
|
}
|
|
|
|
static void drawline16mid(int32_t x1, int32_t y1, int32_t x2, int32_t y2, char col)
|
|
{
|
|
drawline16(halfxdim16+x1,midydim16+y1, halfxdim16+x2,midydim16+y2, col);
|
|
}
|
|
|
|
// eccen: eccentricity of the ellipse,
|
|
// 16384: circle
|
|
// <16384: shrink in y
|
|
// >16384: grow in y
|
|
void drawcircle16(int32_t x1, int32_t y1, int32_t r, int32_t eccen, char col)
|
|
{
|
|
if (eccen==16384)
|
|
{
|
|
intptr_t p;
|
|
int32_t xp, yp, xpbpl, ypbpl, d, de, dse, patc=0;
|
|
|
|
uint32_t uxres = xres, uydim16 = ydim16;
|
|
|
|
if (r < 0) r = -r;
|
|
if (x1+r < 0 || x1-r >= xres) return;
|
|
if (y1+r < 0 || y1-r >= ydim16) return;
|
|
|
|
/*
|
|
* d
|
|
* 6 | 7
|
|
* \ | /
|
|
* 5 \|/ 8
|
|
* c----+----a
|
|
* 4 /|\ 1
|
|
* / | \
|
|
* 3 | 2
|
|
* b
|
|
*/
|
|
|
|
xp = 0;
|
|
yp = r;
|
|
d = 1 - r;
|
|
de = 2;
|
|
dse = 5 - (r << 1);
|
|
|
|
begindrawing();
|
|
p = (y1*bytesperline)+x1+frameplace;
|
|
|
|
if (drawlinepat & pow2long[(patc++)&31])
|
|
{
|
|
if ((uint32_t)y1 < uydim16 && (uint32_t)(x1+r) < uxres)
|
|
drawpixel((char *)(p+r), col); // a
|
|
if ((uint32_t)x1 < uxres && (uint32_t)(y1+r) < uydim16)
|
|
drawpixel((char *)(p+(r*bytesperline)), col); // b
|
|
if ((uint32_t)y1 < uydim16 && (uint32_t)(x1-r) < uxres)
|
|
drawpixel((char *)(p-r), col); // c
|
|
if ((uint32_t)x1 < uxres && (uint32_t)(y1-r) < uydim16)
|
|
drawpixel((char *)(p-(r*bytesperline)), col); // d
|
|
}
|
|
|
|
do
|
|
{
|
|
if (d < 0)
|
|
{
|
|
d += de;
|
|
de += 2;
|
|
dse += 2;
|
|
xp++;
|
|
}
|
|
else
|
|
{
|
|
d += dse;
|
|
de += 2;
|
|
dse += 4;
|
|
xp++;
|
|
yp--;
|
|
}
|
|
|
|
ypbpl = yp*bytesperline;
|
|
xpbpl = xp*bytesperline;
|
|
if (drawlinepat & pow2long[(patc++)&31])
|
|
{
|
|
if ((uint32_t)(x1+yp) < uxres && (uint32_t)(y1+xp) < uydim16)
|
|
drawpixel_safe((char *)(p+yp+xpbpl), col); // 1
|
|
if ((uint32_t)(x1+xp) < uxres && (uint32_t)(y1+yp) < uydim16)
|
|
drawpixel_safe((char *)(p+xp+ypbpl), col); // 2
|
|
if ((uint32_t)(x1-xp) < uxres && (uint32_t)(y1+yp) < uydim16)
|
|
drawpixel_safe((char *)(p-xp+ypbpl), col); // 3
|
|
if ((uint32_t)(x1-yp) < uxres && (uint32_t)(y1+xp) < uydim16)
|
|
drawpixel_safe((char *)(p-yp+xpbpl), col); // 4
|
|
if ((uint32_t)(x1-yp) < uxres && (uint32_t)(y1-xp) < uydim16)
|
|
drawpixel_safe((char *)(p-yp-xpbpl), col); // 5
|
|
if ((uint32_t)(x1-xp) < uxres && (uint32_t)(y1-yp) < uydim16)
|
|
drawpixel_safe((char *)(p-xp-ypbpl), col); // 6
|
|
if ((uint32_t)(x1+xp) < uxres && (uint32_t)(y1-yp) < uydim16)
|
|
drawpixel_safe((char *)(p+xp-ypbpl), col); // 7
|
|
if ((uint32_t)(x1+yp) < uxres && (uint32_t)(y1-xp) < uydim16)
|
|
drawpixel_safe((char *)(p+yp-xpbpl), col); // 8
|
|
}
|
|
}
|
|
while (yp > xp);
|
|
enddrawing();
|
|
}
|
|
else
|
|
{
|
|
// JonoF's rough approximation of a circle
|
|
int32_t l,spx,spy,lpx,lpy,px,py;
|
|
|
|
spx = lpx = x1 + mulscale14(r,sintable[0]);
|
|
spy = lpy = y1 + mulscale14(eccen, mulscale14(r,sintable[512]));
|
|
|
|
for (l=64; l<2048; l+=64)
|
|
{
|
|
px = x1 + mulscale14(r,sintable[l]);
|
|
py = y1 + mulscale14(eccen, mulscale14(r,sintable[(l+512)&2047]));
|
|
|
|
drawline16(lpx,lpy,px,py,col);
|
|
|
|
lpx = px;
|
|
lpy = py;
|
|
}
|
|
|
|
drawline16(lpx,lpy,spx,spy,col);
|
|
}
|
|
}
|
|
|
|
//
|
|
// qsetmodeany
|
|
//
|
|
void qsetmodeany(int32_t daxdim, int32_t daydim)
|
|
{
|
|
if (daxdim < 640) daxdim = 640;
|
|
if (daydim < 480) daydim = 480;
|
|
|
|
if (qsetmode != ((daxdim<<16)|(daydim&0xffff)))
|
|
{
|
|
g_lastpalettesum = 0;
|
|
if (setvideomode(daxdim, daydim, 8, fullscreen) < 0)
|
|
return;
|
|
|
|
xdim = xres;
|
|
ydim = yres;
|
|
|
|
ydim16 = yres - STATUS2DSIZ2;
|
|
halfxdim16 = xres >> 1;
|
|
midydim16 = ydim16 >> 1; // scale(200,yres,480);
|
|
|
|
begindrawing(); //{{{
|
|
Bmemset((char *)frameplace, 0, yres*bytesperline);
|
|
enddrawing(); //}}}
|
|
}
|
|
|
|
qsetmode = ((daxdim<<16)|(daydim&0xffff));
|
|
}
|
|
|
|
|
|
//
|
|
// clear2dscreen
|
|
//
|
|
void clear2dscreen(void)
|
|
{
|
|
int32_t clearsz;
|
|
|
|
begindrawing(); //{{{
|
|
if (ydim16 <= yres-STATUS2DSIZ2)
|
|
clearsz = yres - STATUS2DSIZ2;
|
|
else
|
|
clearsz = yres;
|
|
Bmemset((char *)frameplace, 0, bytesperline*clearsz);
|
|
enddrawing(); //}}}
|
|
}
|
|
|
|
|
|
////////// editor side view //////////
|
|
|
|
int32_t scalescreeny(int32_t sy)
|
|
{
|
|
if (m32_sideview)
|
|
return mulscale14(sy, m32_sidesin);
|
|
else
|
|
return sy;
|
|
}
|
|
|
|
// return screen coordinates for BUILD coords x and y (relative to current position)
|
|
void screencoords(int32_t *xres, int32_t *yres, int32_t x, int32_t y, int32_t zoome)
|
|
{
|
|
if (m32_sideview)
|
|
rotatepoint(0,0, x,y, m32_sideang, &x,&y);
|
|
|
|
*xres = mulscale14(x,zoome);
|
|
*yres = scalescreeny(mulscale14(y,zoome));
|
|
}
|
|
|
|
#if 0
|
|
void invscreencoords(int32_t *dx, int32_t *dy, int32_t sx, int32_t sy, int32_t zoome)
|
|
{
|
|
if (m32_sidesin==0 || zoome==0) { *dx=0; *dy=0; return; }
|
|
|
|
sy = divscale14(divscale14(sy, m32_sidesin), zoome);
|
|
sx = divscale14(sx, zoome);
|
|
|
|
rotatepoint(0,0, sx,sy, -m32_sideang, dx,dy);
|
|
}
|
|
#endif
|
|
|
|
// invscreencoords with sx==0 and sy==getscreenvdisp(dz, zoom)
|
|
int32_t getinvdisplacement(int32_t *dx, int32_t *dy, int32_t dz)
|
|
{
|
|
if (m32_sidesin==0)
|
|
return 1;
|
|
|
|
dz = (((int64_t)dz * (int64_t)m32_sidecos)/(int64_t)m32_sidesin)>>4;
|
|
rotatepoint(0,0, 0,dz, -m32_sideang, dx,dy);
|
|
|
|
return 0;
|
|
}
|
|
|
|
// return vertical screen coordinate displacement for BUILD z coord
|
|
int32_t getscreenvdisp(int32_t bz, int32_t zoome)
|
|
{
|
|
return mulscale32(bz,zoome*m32_sidecos);
|
|
}
|
|
|
|
void setup_sideview_sincos()
|
|
{
|
|
if (m32_sideview)
|
|
{
|
|
m32_viewplane.x = 0;
|
|
m32_viewplane.y = -512;
|
|
|
|
m32_sidesin = sintable[m32_sideelev&2047];
|
|
m32_sidecos = sintable[(m32_sideelev+512)&2047];
|
|
|
|
rotatepoint(0,0, m32_viewplane.x,m32_viewplane.y, -m32_sideang, &m32_viewplane.x,&m32_viewplane.y);
|
|
m32_viewplane.x = mulscale14(m32_viewplane.x, m32_sidecos);
|
|
m32_viewplane.y = mulscale14(m32_viewplane.y, m32_sidecos);
|
|
m32_viewplane.z = m32_sidesin>>5;
|
|
}
|
|
}
|
|
|
|
static void sideview_getdist(int16_t sw, int16_t sect)
|
|
{
|
|
vec3_t *p;
|
|
vec3_t v;
|
|
|
|
if (sw<MAXWALLS)
|
|
{
|
|
v.x = (wall[sw].x + wall[wall[sw].point2].x)>>1;
|
|
v.y = (wall[sw].y + wall[wall[sw].point2].y)>>1;
|
|
v.z = getflorzofslope(sect, v.x, v.y);
|
|
p = &v;
|
|
}
|
|
else
|
|
p = (vec3_t *)&sprite[sw-MAXWALLS];
|
|
|
|
m32_sidedist[sw] = p->x*m32_viewplane.x + p->y*m32_viewplane.y + (p->z>>4)*m32_viewplane.z;
|
|
}
|
|
|
|
static int sideview_cmppoints(const void *sw1, const void *sw2)
|
|
{
|
|
int32_t dist1 = m32_sidedist[*(int16_t *)sw1];
|
|
int32_t dist2 = m32_sidedist[*(int16_t *)sw2];
|
|
|
|
if (dist2>dist1)
|
|
return 1;
|
|
else if (dist1>dist2)
|
|
return -1;
|
|
|
|
// if (*sw1<MAXWALLS && *sw2<MAXWALLS)
|
|
// return (wall[*sw2].nextwall>=0) - (wall[*sw1].nextwall>=0);
|
|
|
|
return 0;
|
|
}
|
|
|
|
//
|
|
// draw2dgrid
|
|
//
|
|
void draw2dgrid(int32_t posxe, int32_t posye, int32_t posze, int16_t cursectnum, int16_t ange, int32_t zoome, int16_t gride)
|
|
{
|
|
int64_t i, xp1, yp1, xp2=0, yp2, tempy;
|
|
|
|
UNREFERENCED_PARAMETER(ange);
|
|
|
|
if (gride <= 0)
|
|
return;
|
|
|
|
begindrawing(); //{{{
|
|
|
|
if (m32_sideview)
|
|
{
|
|
int32_t sx1,sy1, sx2,sy2, dx=0,dy=0;
|
|
int32_t xinc=0, yinc=2048>>gride, yofs;
|
|
|
|
// yofs = getscreenvdisp((yinc-posze)&((yinc<<4)-1), zoome);
|
|
if (cursectnum<0 || cursectnum>=numsectors)
|
|
yofs = getscreenvdisp(-posze, zoome);
|
|
else
|
|
yofs = getscreenvdisp(getflorzofslope(cursectnum, posxe,posye)-posze, zoome);
|
|
|
|
while (scalescreeny(mulscale14(yinc, zoome))==0 && gride>2)
|
|
{
|
|
gride--;
|
|
yinc = 2048>>gride;
|
|
}
|
|
|
|
xp2 = xp1 = ((posxe+(1024>>gride))&(((int64_t)(-1))<<(11-gride)));
|
|
yp2 = yp1 = ((posye+(1024>>gride))&(((int64_t)(-1))<<(11-gride)));
|
|
|
|
do
|
|
{
|
|
if (xinc==0)
|
|
{
|
|
screencoords(&sx1,&sy1, -editorgridextent-posxe,yp2-posye, zoome);
|
|
if (yp2 == yp1)
|
|
{
|
|
screencoords(&sx2,&sy2, editorgridextent-posxe,yp2-posye, zoome);
|
|
dx = sx2-sx1;
|
|
dy = sy2-sy1;
|
|
}
|
|
yp2 += yinc;
|
|
}
|
|
else // if (yinc==0)
|
|
{
|
|
screencoords(&sx1,&sy1, xp2-posxe, -editorgridextent-posye, zoome);
|
|
if (xp2 == xp1)
|
|
{
|
|
screencoords(&sx2,&sy2, xp2-posxe, editorgridextent-posye, zoome);
|
|
dx = sx2-sx1;
|
|
dy = sy2-sy1;
|
|
}
|
|
xp2 += xinc;
|
|
}
|
|
|
|
i = drawline16(halfxdim16+sx1,midydim16+sy1+yofs, halfxdim16+sx1+dx,midydim16+sy1+dy+yofs, whitecol-25);
|
|
if (i==0 || (xp2<-editorgridextent || xp2>editorgridextent ||
|
|
yp2<-editorgridextent || yp2>editorgridextent))
|
|
{
|
|
xp2 = xp1;
|
|
yp2 = yp1;
|
|
|
|
i = 1;
|
|
|
|
if (yinc>0)
|
|
yinc *= -1;
|
|
else if (yinc<0)
|
|
{
|
|
xinc = -yinc;
|
|
yinc = 0;
|
|
}
|
|
else if (xinc>0)
|
|
xinc *= -1;
|
|
else // if (xinc<0)
|
|
i = 0;
|
|
}
|
|
}
|
|
while (i);
|
|
}
|
|
else
|
|
{
|
|
// vertical lines
|
|
yp1 = midydim16-mulscale14(posye+editorgridextent,zoome);
|
|
if (yp1 < 0) yp1 = 0;
|
|
|
|
yp2 = midydim16-mulscale14(posye-editorgridextent,zoome);
|
|
if (yp2 >= ydim16) yp2 = ydim16-1;
|
|
|
|
if ((yp1 < ydim16) && (yp2 >= 0) && (yp2 >= yp1))
|
|
{
|
|
xp1 = halfxdim16-mulscale14(posxe+editorgridextent,zoome);
|
|
|
|
for (i=-editorgridextent; i<=editorgridextent; i+=(2048>>gride))
|
|
{
|
|
xp2 = xp1;
|
|
xp1 = halfxdim16-mulscale14(posxe-i,zoome);
|
|
|
|
if (xp1 >= xdim)
|
|
break;
|
|
|
|
if (xp1 >= 0)
|
|
{
|
|
if (xp1 != xp2)
|
|
drawline16(xp1,yp1,xp1,yp2,whitecol-25);
|
|
}
|
|
}
|
|
if (i >= editorgridextent && xp1 < xdim)
|
|
xp2 = xp1;
|
|
if (xp2 >= 0 && xp2 < xdim)
|
|
drawline16(xp2,yp1, xp2,yp2, whitecol-25);
|
|
}
|
|
|
|
// horizontal lines
|
|
xp1 = mulscale14(posxe+editorgridextent,zoome);
|
|
xp2 = mulscale14(posxe-editorgridextent,zoome);
|
|
tempy = 0x80000000l;
|
|
|
|
for (i=-editorgridextent; i<=editorgridextent; i+=(2048>>gride))
|
|
{
|
|
yp1 = ((posye-i)*zoome)>>14;
|
|
if (yp1 != tempy)
|
|
{
|
|
if ((yp1 > midydim16-ydim16) && (yp1 <= midydim16))
|
|
{
|
|
drawline16mid(-xp1,-yp1, -xp2,-yp1, whitecol-25);
|
|
tempy = yp1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
enddrawing(); //}}}
|
|
}
|
|
|
|
|
|
static void drawscreen_drawwall(int32_t i, int32_t posxe, int32_t posye, int32_t posze, int32_t zoome, int32_t grayp)
|
|
{
|
|
const walltype *wal = &wall[i];
|
|
int32_t j, x1, y1, x2, y2, dz = 0, dz2 = 0;
|
|
int32_t fz=0,fzn=0;
|
|
// intptr_t tempint;
|
|
char col;
|
|
|
|
int64_t dist,dx,dy;
|
|
|
|
j = wal->nextwall;
|
|
#if 0
|
|
if (editstatus == 0)
|
|
{
|
|
if ((show2dwall[i>>3]&pow2char[i&7]) == 0) return;
|
|
if ((j >= 0) && (i > j))
|
|
if ((show2dwall[j>>3]&pow2char[j&7]) > 0) return;
|
|
}
|
|
else
|
|
#endif
|
|
{
|
|
if (!m32_sideview && !(grayp&2) && (j >= 0) && (i > j)) return;
|
|
}
|
|
|
|
if (grayp&1)
|
|
{
|
|
col = 8;
|
|
}
|
|
else if (j < 0)
|
|
{
|
|
col = 15;
|
|
if (i == linehighlight)
|
|
col = (totalclock & 16) ? 15 : 7;
|
|
}
|
|
else
|
|
{
|
|
col = 33;
|
|
if ((wal->cstat&1) != 0)
|
|
col = 5;
|
|
if ((unsigned)wal->nextwall < MAXWALLS && ((wal->cstat^wall[j].cstat)&1))
|
|
col = 2;
|
|
if ((i == linehighlight) || ((linehighlight >= 0) && (i == wall[linehighlight].nextwall)))
|
|
if (totalclock & 16)
|
|
col += (2<<2);
|
|
}
|
|
|
|
screencoords(&x1,&y1, wal->x-posxe,wal->y-posye, zoome);
|
|
screencoords(&x2,&y2, wall[wal->point2].x-posxe,wall[wal->point2].y-posye, zoome);
|
|
|
|
dx = wal->x-wall[wal->point2].x;
|
|
dy = wal->y-wall[wal->point2].y;
|
|
dist = dx*dx+dy*dy;
|
|
|
|
if (dist > INT32_MAX)
|
|
{
|
|
col=9;
|
|
if (i == linehighlight || ((linehighlight >= 0) && (i == wall[linehighlight].nextwall)))
|
|
if (totalclock & 16) col -= (2<<2);
|
|
}
|
|
else if (showfirstwall && searchsector>=0 && (sector[searchsector].wallptr == i ||
|
|
sector[searchsector].wallptr == wall[i].nextwall))
|
|
{
|
|
col = 14;
|
|
if (i == linehighlight) if (totalclock & 16) col -= (2<<2);
|
|
}
|
|
else if (circlewall >= 0 && (i == circlewall || wal->nextwall == circlewall))
|
|
col = 14;
|
|
|
|
if (m32_sideview)
|
|
{
|
|
// draw vertical line to neighboring wall
|
|
int32_t fz2;
|
|
int32_t sect = sectorofwall(i);
|
|
|
|
fz = getflorzofslope(sect, wal->x,wal->y);
|
|
fz2 = getflorzofslope(sect, wall[wal->point2].x,wall[wal->point2].y);
|
|
|
|
dz = getscreenvdisp(fz-posze,zoome);
|
|
dz2 = getscreenvdisp(fz2-posze,zoome);
|
|
|
|
y1 += dz;
|
|
y2 += dz2;
|
|
|
|
if (wal->nextwall>=0)
|
|
{
|
|
fzn = getflorzofslope(wal->nextsector, wal->x,wal->y);
|
|
// if (i < wall[j].point2)
|
|
drawline16mid(x1,y1, x1,y1+getscreenvdisp(fzn-fz,zoome), editorcolors[col]);
|
|
}
|
|
#ifdef YAX_ENABLE
|
|
{
|
|
int16_t nw = yax_getnextwall(i, YAX_CEILING);
|
|
if (nw >= 0)
|
|
{
|
|
int32_t odrawlinepat = drawlinepat;
|
|
fz2 = getflorzofslope(sectorofwall(nw), wall[nw].x,wall[nw].y);
|
|
drawlinepat = 0x11111111;
|
|
drawline16mid(x1,y1, x1,y1+getscreenvdisp(fz2-fz,zoome), editorcolors[col]);
|
|
drawlinepat = odrawlinepat;
|
|
}
|
|
}
|
|
#endif
|
|
|
|
m32_wallscreenxy[i][0] = halfxdim16+x1;
|
|
m32_wallscreenxy[i][1] = midydim16+y1;
|
|
}
|
|
|
|
if (wal->cstat&64) // if hitscan bit set
|
|
{
|
|
int32_t one=(klabs(x2-x1) >= klabs(y2-y1)), no=!one;
|
|
|
|
drawline16mid(x1+no,y1+one, x2+no,y2+one, editorcolors[col]);
|
|
drawline16mid(x1-no,y1-one, x2-no,y2-one, editorcolors[col]);
|
|
|
|
col += 8;
|
|
}
|
|
|
|
drawline16mid(x1,y1, x2,y2, editorcolors[col]);
|
|
|
|
// Draw height indicators at center of walls if requested and if not in
|
|
// side-view mode.
|
|
// XXX: This does not take sloping into account.
|
|
if (showheightindicators && !m32_sideview)
|
|
{
|
|
int32_t dax,day, k=getangle(x1-x2, y1-y2);
|
|
|
|
screencoords(&dax,&day,
|
|
((wal->x+wall[wal->point2].x)>>1)-posxe,
|
|
((wal->y+wall[wal->point2].y)>>1)-posye, zoome);
|
|
|
|
if (wal->nextsector >= 0)
|
|
{
|
|
int32_t z1 = sector[sectorofwall(i)].floorz;
|
|
int32_t z2 = sector[wal->nextsector].floorz;
|
|
|
|
if (z1 != z2 || showheightindicators == 2)
|
|
{
|
|
// Red walls. Show them on equal-height walls ONLY with setting 2.
|
|
int32_t bb = (z2 < z1);
|
|
int32_t dx = mulscale11(sintable[(k+1024 + 1024*bb)&2047],zoome) / 2560;
|
|
int32_t dy = mulscale11(sintable[(k+512 + 1024*bb)&2047],zoome) / 2560;
|
|
|
|
dy = scalescreeny(dy);
|
|
drawline16mid(dax,day, dax+dx,day+dy, editorcolors[col]);
|
|
}
|
|
}
|
|
else if (showheightindicators == 2)
|
|
{
|
|
// Show them on white walls ONLY with setting 2.
|
|
int32_t dx = mulscale11(sintable[(k+2048)&2047],zoome) / 2560;
|
|
int32_t dy = mulscale11(sintable[(k+1536)&2047],zoome) / 2560;
|
|
|
|
dy = scalescreeny(dy);
|
|
drawline16mid(dax,day, dax+dx,day+dy, editorcolors[col]);
|
|
}
|
|
}
|
|
|
|
if (zoome >= 256 && editstatus == 1)
|
|
if ((halfxdim16+x1 >= 2) && (halfxdim16+x1 <= xdim-3) &&
|
|
(midydim16+y1 >= 2) && (midydim16+y1 <= ydim16-3))
|
|
{
|
|
int32_t pointsize = 2;
|
|
|
|
if (i == pointhighlight || ((pointhighlight < MAXWALLS) && (pointhighlight >= 0) &&
|
|
(wall[i].x == wall[pointhighlight].x) && (wall[i].y == wall[pointhighlight].y)))
|
|
{
|
|
if (totalclock & 16)
|
|
pointsize++;
|
|
}
|
|
else //if (highlightcnt > 0)
|
|
{
|
|
if (show2dwall[i>>3]&pow2char[i&7])
|
|
{
|
|
if (totalclock & 16)
|
|
pointsize++;
|
|
}
|
|
}
|
|
|
|
col = 15;
|
|
if (m32_sideview)
|
|
{
|
|
if (wal->nextwall >= 0)
|
|
{
|
|
if (fz < fzn)
|
|
col = 7;
|
|
else if (fz == fzn)
|
|
col = 4;
|
|
}
|
|
}
|
|
|
|
// tempint = ((midydim16+y1)*bytesperline)+(halfxdim16+x1)+frameplace;
|
|
do
|
|
drawcircle16(halfxdim16+x1, midydim16+y1, pointsize--, 16384, editorcolors[col]);
|
|
while (pointsize);
|
|
}
|
|
}
|
|
|
|
static void drawscreen_drawsprite(int32_t j, int32_t posxe, int32_t posye, int32_t posze, int32_t zoome)
|
|
{
|
|
int32_t x1, y1, x2, y2;
|
|
char col;
|
|
int16_t hitblocking=(sprite[j].cstat&256), flooraligned=(sprite[j].cstat&32), wallaligned=(sprite[j].cstat&16);
|
|
|
|
int16_t angofs = m32_sideview ? m32_sideang : 0;
|
|
|
|
if (sprite[j].sectnum<0)
|
|
col = 4; // red
|
|
else
|
|
{
|
|
col = 3;
|
|
if (spritecol2d[sprite[j].picnum][0])
|
|
col = spritecol2d[sprite[j].picnum][0];
|
|
else if ((sprite[j].cstat&1) > 0)
|
|
{
|
|
col = 5;
|
|
if (spritecol2d[sprite[j].picnum][1])
|
|
col = spritecol2d[sprite[j].picnum][1];
|
|
}
|
|
}
|
|
|
|
if (editstatus == 1)
|
|
{
|
|
if ((pointhighlight) >= 16384 && (j+16384 == pointhighlight ||
|
|
(!m32_sideview && ((sprite[j].x == sprite[pointhighlight-16384].x) &&
|
|
(sprite[j].y == sprite[pointhighlight-16384].y)))))
|
|
{
|
|
if (totalclock & 32) col += 8;
|
|
}
|
|
else // if (highlightcnt > 0)
|
|
{
|
|
if (show2dsprite[j>>3]&pow2char[j&7])
|
|
if (totalclock & 32) col += 8;
|
|
}
|
|
}
|
|
|
|
screencoords(&x1,&y1, sprite[j].x-posxe,sprite[j].y-posye, zoome);
|
|
// tempint = ((midydim16+y1)*bytesperline)+(halfxdim16+x1)+frameplace;
|
|
|
|
if (m32_sideview)
|
|
y1 += getscreenvdisp(sprite[j].z-posze,zoome);
|
|
|
|
if ((halfxdim16+x1 >= 0) && (halfxdim16+x1 < xdim) &&
|
|
(midydim16+y1 >= 0) && (midydim16+y1 < ydim16))
|
|
{
|
|
drawcircle16(halfxdim16+x1, midydim16+y1, 4, 16384, editorcolors[col]);
|
|
|
|
x2 = mulscale11(sintable[(sprite[j].ang+angofs+2560)&2047],zoome) / 768;
|
|
y2 = mulscale11(sintable[(sprite[j].ang+angofs+2048)&2047],zoome) / 768;
|
|
y2 = scalescreeny(y2);
|
|
|
|
drawline16mid(x1,y1, x1+x2,y1+y2, editorcolors[col]);
|
|
|
|
if (hitblocking)
|
|
{
|
|
drawline16mid(x1,y1+1, x1+x2,y1+y2+1, editorcolors[col]);
|
|
drawline16mid(x1,y1-1, x1+x2,y1+y2-1, editorcolors[col]);
|
|
drawline16mid(x1-1,y1, x1+x2-1,y1+y2, editorcolors[col]);
|
|
drawline16mid(x1+1,y1, x1+x2+1,y1+y2, editorcolors[col]);
|
|
}
|
|
|
|
if (flooraligned)
|
|
{
|
|
int32_t fx = mulscale10(mulscale6(tilesiz[sprite[j].picnum].x, sprite[j].xrepeat),zoome) >> 1;
|
|
int32_t fy = mulscale10(mulscale6(tilesiz[sprite[j].picnum].y, sprite[j].yrepeat),zoome) >> 1;
|
|
int32_t co[4][2], ii, in;
|
|
int32_t sinang = sintable[(sprite[j].ang+angofs+1536)&2047];
|
|
int32_t cosang = sintable[(sprite[j].ang+angofs+1024)&2047];
|
|
int32_t r,s;
|
|
|
|
co[0][0] = co[3][0] = -fx;
|
|
co[0][1] = co[1][1] = -fy;
|
|
co[1][0] = co[2][0] = fx;
|
|
co[2][1] = co[3][1] = fy;
|
|
|
|
for (ii=3; ii>=0; ii--)
|
|
{
|
|
r = mulscale14(cosang,co[ii][0]) - mulscale14(sinang,co[ii][1]);
|
|
s = mulscale14(sinang,co[ii][0]) + mulscale14(cosang,co[ii][1]);
|
|
s = scalescreeny(s);
|
|
co[ii][0] = r;
|
|
co[ii][1] = s;
|
|
}
|
|
drawlinepat = 0xcfcfcfcf;
|
|
for (ii=3; ii>=0; ii--)
|
|
{
|
|
in = (ii+1)&3;
|
|
drawline16mid(x1+co[ii][0], y1-co[ii][1], x1+co[in][0], y1-co[in][1], editorcolors[col]);
|
|
if (hitblocking)
|
|
{
|
|
drawline16mid(x1+co[ii][0], y1-co[ii][1]+1, x1+co[in][0], y1-co[in][1]+1, editorcolors[col]);
|
|
drawline16mid(x1+co[ii][0], y1-co[ii][1]-1, x1+co[in][0], y1-co[in][1]-1, editorcolors[col]);
|
|
drawline16mid(x1+co[ii][0]+1, y1-co[ii][1], x1+co[in][0]+1, y1-co[in][1], editorcolors[col]);
|
|
drawline16mid(x1+co[ii][0]-1, y1-co[ii][1], x1+co[in][0]-1, y1-co[in][1], editorcolors[col]);
|
|
}
|
|
drawline16mid(x1, y1, x1 + co[in][0], y1 - co[in][1], editorcolors[col]);
|
|
}
|
|
drawlinepat = 0xffffffff;
|
|
}
|
|
else if (wallaligned)
|
|
{
|
|
int32_t fx = mulscale6(tilesiz[sprite[j].picnum].x, sprite[j].xrepeat);
|
|
int32_t one=(((sprite[j].ang+angofs+256)&512) == 0), no=!one;
|
|
|
|
x2 = mulscale11(sintable[(sprite[j].ang+angofs+2560)&2047],zoome) / 6144;
|
|
y2 = mulscale11(sintable[(sprite[j].ang+angofs+2048)&2047],zoome) / 6144;
|
|
y2 = scalescreeny(y2);
|
|
|
|
drawline16mid(x1,y1, x1+x2,y1+y2, editorcolors[col]);
|
|
if (!(sprite[j].cstat&64)) // not 1-sided
|
|
{
|
|
drawline16mid(x1,y1, x1-x2,y1-y2, editorcolors[col]);
|
|
if (hitblocking)
|
|
{
|
|
drawline16mid(x1-no,y1-one, x1-x2-no,y1-y2-one, editorcolors[col]);
|
|
drawline16mid(x1+no,y1+one, x1-x2+no,y1-y2+one, editorcolors[col]);
|
|
}
|
|
}
|
|
|
|
if (hitblocking)
|
|
{
|
|
drawline16mid(x1-no,y1-one, x1+x2-no,y1+y2-one, editorcolors[col]);
|
|
drawline16mid(x1+no,y1+one, x1+x2+no,y1+y2+one, editorcolors[col]);
|
|
}
|
|
|
|
|
|
x2 = mulscale13(sintable[(sprite[j].ang+angofs+1024)&2047],zoome) * fx / 4096;
|
|
y2 = mulscale13(sintable[(sprite[j].ang+angofs+512)&2047],zoome) * fx / 4096;
|
|
y2 = scalescreeny(y2);
|
|
|
|
drawline16mid(x1,y1, x1-x2,y1-y2, editorcolors[col]);
|
|
drawline16mid(x1,y1, x1+x2,y1+y2, editorcolors[col]);
|
|
|
|
if (hitblocking)
|
|
{
|
|
drawline16mid(x1+1,y1, x1+x2+1,y1+y2, editorcolors[col]);
|
|
drawline16mid(x1-1,y1, x1-x2-1,y1-y2, editorcolors[col]);
|
|
drawline16mid(x1-1,y1, x1+x2-1,y1+y2, editorcolors[col]);
|
|
drawline16mid(x1+1,y1, x1-x2+1,y1-y2, editorcolors[col]);
|
|
|
|
drawline16mid(x1,y1-1, x1+x2,y1+y2-1, editorcolors[col]);
|
|
drawline16mid(x1,y1+1, x1-x2,y1-y2+1, editorcolors[col]);
|
|
drawline16mid(x1,y1+1, x1+x2,y1+y2+1, editorcolors[col]);
|
|
drawline16mid(x1,y1-1, x1-x2,y1-y2-1, editorcolors[col]);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
//
|
|
// draw2dscreen
|
|
//
|
|
void draw2dscreen(const vec3_t *pos, int16_t cursectnum, int16_t ange, int32_t zoome, int16_t gride)
|
|
{
|
|
int32_t i, j, x1, y1;
|
|
int16_t angofs = m32_sideview ? m32_sideang : 0;
|
|
|
|
int32_t posxe=pos->x, posye=pos->y, posze=pos->z;
|
|
uint8_t *graybitmap = (uint8_t *)tempbuf;
|
|
int32_t alwaysshowgray = get_alwaysshowgray();
|
|
|
|
if (in3dmode()) return;
|
|
|
|
setup_sideview_sincos();
|
|
|
|
begindrawing(); //{{{
|
|
|
|
|
|
if (editstatus == 0)
|
|
{
|
|
// faketimerhandler();
|
|
clear2dscreen();
|
|
|
|
// faketimerhandler();
|
|
draw2dgrid(posxe,posye,posze,cursectnum,ange,zoome,gride);
|
|
}
|
|
|
|
faketimerhandler();
|
|
|
|
m32_swcnt = 0;
|
|
|
|
if (numgraysects==0)
|
|
Bmemset(graybitmap, 0, (numwalls+7)>>3);
|
|
else
|
|
{
|
|
for (i=0; i<numwalls; i++)
|
|
{
|
|
j = wall[i].nextwall;
|
|
if ((graywallbitmap[i>>3]&(1<<(i&7))) && (j < 0 || (graywallbitmap[j>>3]&(1<<(j&7)))))
|
|
graybitmap[i>>3] |= (1<<(i&7));
|
|
else
|
|
graybitmap[i>>3] &= ~(1<<(i&7));
|
|
}
|
|
}
|
|
|
|
if (!m32_sideview)
|
|
{
|
|
#ifndef YAX_ENABLE
|
|
for (i=numwalls-1; i>=0; i--)
|
|
drawscreen_drawwall(i,posxe,posye,posze,zoome, 0);
|
|
#else
|
|
if (alwaysshowgray)
|
|
for (i=numwalls-1; i>=0; i--)
|
|
if (graybitmap[i>>3]&(1<<(i&7)))
|
|
drawscreen_drawwall(i,posxe,posye,posze,zoome, 1+2);
|
|
|
|
for (i=numwalls-1; i>=0; i--)
|
|
if ((graybitmap[i>>3]&(1<<(i&7)))==0)
|
|
drawscreen_drawwall(i,posxe,posye,posze,zoome, 2);
|
|
#endif
|
|
}
|
|
else
|
|
{
|
|
for (i=0; i<numsectors; i++)
|
|
for (j=sector[i].wallptr; j<sector[i].wallptr+sector[i].wallnum; j++)
|
|
{
|
|
m32_wallsprite[m32_swcnt++] = j;
|
|
sideview_getdist(j, i);
|
|
}
|
|
/*
|
|
// j = sector[numsectors-1].wallptr + sector[numsectors-1].wallnum
|
|
for (; j<numwalls; j++) // new walls ...
|
|
{
|
|
m32_wallsprite[m32_swcnt++] = j;
|
|
m32_sidedist[j] = sideview_getdist(j, 0);
|
|
}
|
|
*/
|
|
}
|
|
|
|
faketimerhandler();
|
|
|
|
if (zoome >= 256 || highlightcnt>0)
|
|
for (j=0; j<MAXSPRITES; j++)
|
|
if (sprite[j].statnum<MAXSTATUS)
|
|
{
|
|
// if sprite is highlighted, always draw it
|
|
if ((show2dsprite[j>>3]&pow2char[j&7])==0)
|
|
{
|
|
if (!m32_sideview && sprite[j].sectnum >= 0)
|
|
YAX_SKIPSECTOR(sprite[j].sectnum);
|
|
|
|
if (zoome<256)
|
|
continue;
|
|
}
|
|
|
|
if (!m32_sideview)
|
|
drawscreen_drawsprite(j,posxe,posye,posze,zoome);
|
|
else
|
|
{
|
|
m32_wallsprite[m32_swcnt++] = MAXWALLS+j;
|
|
sideview_getdist(MAXWALLS+j, -1);
|
|
}
|
|
}
|
|
|
|
faketimerhandler();
|
|
|
|
if (m32_sideview)
|
|
{
|
|
qsort(m32_wallsprite, m32_swcnt, sizeof(int16_t), &sideview_cmppoints);
|
|
|
|
for (i=0; i<m32_swcnt; i++) // shouldn't it go the other way around?
|
|
{
|
|
j = m32_wallsprite[i];
|
|
if (j<MAXWALLS)
|
|
{
|
|
if (alwaysshowgray || !(graybitmap[j>>3]&(1<<(j&7))))
|
|
drawscreen_drawwall(j,posxe,posye,posze,zoome,!!(graybitmap[j>>3]&(1<<(j&7))));
|
|
}
|
|
else
|
|
{
|
|
if (!alwaysshowgray && sprite[j-MAXWALLS].sectnum>=0)
|
|
YAX_SKIPSECTOR(sprite[j-MAXWALLS].sectnum);
|
|
|
|
drawscreen_drawsprite(j-MAXWALLS,posxe,posye,posze,zoome);
|
|
}
|
|
}
|
|
|
|
faketimerhandler();
|
|
}
|
|
|
|
#if 0
|
|
{
|
|
int32_t xx,yy,xx2,yy2;
|
|
screencoords(&xx,&yy, -posxe,-posye, zoome);
|
|
screencoords(&xx2,&yy2, (m32_viewplane.x)-posxe,(m32_viewplane.y)-posye, zoome);
|
|
if (m32_sideview)
|
|
yy2 += getscreenvdisp((m32_viewplane.z<<4)-posze, zoome);
|
|
|
|
drawcircle16(halfxdim16+xx, midydim16+yy, 2, 16384, editorcolors[4]); //red
|
|
drawcircle16(halfxdim16+xx2, midydim16+yy2, 2, 16384, editorcolors[14]); //yellow
|
|
drawline16mid(xx,yy, xx2,yy2, editorcolors[15]);
|
|
}
|
|
#endif
|
|
|
|
x1 = mulscale11(sintable[(ange+angofs+2560)&2047],zoome) / 768; //Draw white arrow
|
|
y1 = mulscale11(sintable[(ange+angofs+2048)&2047],zoome) / 768;
|
|
|
|
i = scalescreeny(x1);
|
|
j = scalescreeny(y1);
|
|
|
|
drawline16mid(x1,j, -x1,-j, editorcolors[15]);
|
|
drawline16mid(x1,j, +y1,-i, editorcolors[15]);
|
|
drawline16mid(x1,j, -y1,+i, editorcolors[15]);
|
|
|
|
|
|
enddrawing(); //}}}
|
|
}
|
|
|
|
|
|
static int32_t printext_checkypos(int32_t ypos, int32_t *yminptr, int32_t *ymaxptr)
|
|
{
|
|
int32_t ymin=0, ymax=7;
|
|
|
|
if (ypos < 0)
|
|
{
|
|
ymin = 0-ypos;
|
|
if (ymin > 7)
|
|
return 1;
|
|
}
|
|
else if (ypos+7 >= ydim)
|
|
{
|
|
ymax = ydim-ypos-1;
|
|
if (ymax < 0)
|
|
return 1;
|
|
}
|
|
|
|
*yminptr = ymin;
|
|
*ymaxptr = ymax;
|
|
|
|
return 0;
|
|
}
|
|
|
|
//
|
|
// printext16
|
|
//
|
|
int32_t printext16(int32_t xpos, int32_t ypos, int16_t col, int16_t backcol, const char *name, char fontsize)
|
|
{
|
|
int32_t stx, i, x, y, charxsiz, ocol = col, obackcol = backcol;
|
|
int32_t ymin, ymax;
|
|
char *fontptr, *letptr, *ptr;
|
|
char smallbuf[4];
|
|
|
|
const int32_t xpos0 = xpos;
|
|
|
|
stx = xpos;
|
|
|
|
if (printext_checkypos(ypos, &ymin, &ymax))
|
|
return 0;
|
|
|
|
if (fontsize & 2) printext16(xpos+1, ypos+1, 0, -1, name, (fontsize & ~2) | 4);
|
|
if (fontsize & 1) { fontptr = smalltextfont; charxsiz = 4; }
|
|
else { fontptr = textfont; charxsiz = 8; }
|
|
|
|
begindrawing(); //{{{
|
|
for (i=0; name[i]; i++)
|
|
{
|
|
if (name[i] == '^')
|
|
{
|
|
i++;
|
|
if (name[i] == 'O') // ^O resets formatting
|
|
{
|
|
if (fontsize & 4) continue;
|
|
|
|
col = ocol;
|
|
backcol = obackcol;
|
|
continue;
|
|
}
|
|
if (isdigit(name[i]))
|
|
{
|
|
if (isdigit(name[i+1]))
|
|
{
|
|
if (isdigit(name[i+2]))
|
|
{
|
|
Bmemcpy(&smallbuf[0],&name[i],3);
|
|
i += 2;
|
|
smallbuf[3] = '\0';
|
|
}
|
|
else
|
|
{
|
|
Bmemcpy(&smallbuf[0],&name[i],2);
|
|
i++;
|
|
smallbuf[2] = '\0';
|
|
}
|
|
}
|
|
else
|
|
{
|
|
smallbuf[0] = name[i];
|
|
smallbuf[1] = '\0';
|
|
}
|
|
if (!(fontsize & 4))
|
|
col = editorcolors[Batol(smallbuf)];
|
|
|
|
if (name[i+1] == ',' && isdigit(name[i+2]))
|
|
{
|
|
i+=2;
|
|
if (isdigit(name[i+1]))
|
|
{
|
|
if (isdigit(name[i+2]))
|
|
{
|
|
Bmemcpy(&smallbuf[0],&name[i],3);
|
|
i += 2;
|
|
smallbuf[3] = '\0';
|
|
}
|
|
else
|
|
{
|
|
Bmemcpy(&smallbuf[0],&name[i],2);
|
|
i++;
|
|
smallbuf[2] = '\0';
|
|
}
|
|
}
|
|
else
|
|
{
|
|
smallbuf[0] = name[i];
|
|
smallbuf[1] = '\0';
|
|
}
|
|
|
|
if (!(fontsize & 4))
|
|
backcol = editorcolors[Batol(smallbuf)];
|
|
}
|
|
continue;
|
|
}
|
|
}
|
|
|
|
if (name[i] == '\n')
|
|
{
|
|
xpos = stx = xpos0;
|
|
ypos += 8;
|
|
if (printext_checkypos(ypos, &ymin, &ymax))
|
|
return 0;
|
|
continue;
|
|
}
|
|
|
|
if (stx<0)
|
|
{
|
|
stx += charxsiz;
|
|
continue;
|
|
}
|
|
|
|
letptr = &fontptr[name[i]<<3];
|
|
ptr = (char *)(bytesperline*ypos + (stx-(fontsize&1)) + frameplace);
|
|
for (y=ymin; y<=ymax; y++)
|
|
{
|
|
for (x=0; x<charxsiz; x++)
|
|
{
|
|
if (stx+x >= xdim)
|
|
break;
|
|
if (letptr[y]&pow2char[7-(fontsize&1)-x])
|
|
ptr[x] = (uint8_t)col;
|
|
else if (backcol >= 0)
|
|
ptr[x] = (uint8_t)backcol;
|
|
}
|
|
ptr += bytesperline;
|
|
}
|
|
stx += charxsiz;
|
|
if (stx >= xdim)
|
|
break;
|
|
}
|
|
enddrawing(); //}}}
|
|
|
|
return stx;
|
|
}
|
|
|
|
|
|
//
|
|
// printext256
|
|
//
|
|
void printext256(int32_t xpos, int32_t ypos, int16_t col, int16_t backcol, const char *name, char fontsize)
|
|
{
|
|
int32_t stx, i, x, y, charxsiz;
|
|
char *fontptr, *letptr, *ptr;
|
|
|
|
stx = xpos;
|
|
|
|
if (fontsize) { fontptr = smalltextfont; charxsiz = 4; }
|
|
else { fontptr = textfont; charxsiz = 8; }
|
|
|
|
#ifdef USE_OPENGL
|
|
if (!polymost_printext256(xpos,ypos,col,backcol,name,fontsize)) return;
|
|
# if 0
|
|
if (getrendermode() >= REND_POLYMOST && in3dmode())
|
|
{
|
|
int32_t xx, yy;
|
|
int32_t lc=-1;
|
|
palette_t p=getpal(col), b=getpal(backcol);
|
|
|
|
setpolymost2dview();
|
|
bglDisable(GL_ALPHA_TEST);
|
|
bglDepthMask(GL_FALSE); // disable writing to the z-buffer
|
|
|
|
bglBegin(GL_POINTS);
|
|
|
|
for (i=0; name[i]; i++)
|
|
{
|
|
// TODO: factor out!
|
|
if (name[i] == '^' && isdigit(name[i+1]))
|
|
{
|
|
char smallbuf[8];
|
|
int32_t bi=0;
|
|
|
|
while (isdigit(name[i+1]) && bi<3)
|
|
{
|
|
smallbuf[bi++]=name[i+1];
|
|
i++;
|
|
}
|
|
smallbuf[bi++]=0;
|
|
if (col)
|
|
col = Batol(smallbuf);
|
|
|
|
p = getpal(col);
|
|
|
|
continue;
|
|
}
|
|
letptr = &fontptr[name[i]<<3];
|
|
xx = stx-fontsize;
|
|
yy = ypos+7 + 2; //+1 is hack!
|
|
for (y=7; y>=0; y--)
|
|
{
|
|
for (x=charxsiz-1; x>=0; x--)
|
|
{
|
|
if (letptr[y]&pow2char[7-fontsize-x])
|
|
{
|
|
if (lc!=col)
|
|
bglColor4ub(p.r,p.g,p.b,255);
|
|
lc = col;
|
|
bglVertex2i(xx+x,yy);
|
|
}
|
|
else if (backcol >= 0)
|
|
{
|
|
if (lc!=backcol)
|
|
bglColor4ub(b.r,b.g,b.b,255);
|
|
lc = backcol;
|
|
bglVertex2i(xx+x,yy);
|
|
}
|
|
}
|
|
yy--;
|
|
}
|
|
stx += charxsiz;
|
|
}
|
|
|
|
bglEnd();
|
|
bglDepthMask(GL_TRUE); // re-enable writing to the z-buffer
|
|
|
|
return;
|
|
}
|
|
# endif
|
|
#endif
|
|
|
|
begindrawing(); //{{{
|
|
for (i=0; name[i]; i++)
|
|
{
|
|
if (name[i] == '^' && isdigit(name[i+1]))
|
|
{
|
|
char smallbuf[8];
|
|
int32_t bi=0;
|
|
while (isdigit(name[i+1]) && bi<3)
|
|
{
|
|
smallbuf[bi++]=name[i+1];
|
|
i++;
|
|
}
|
|
smallbuf[bi++]=0;
|
|
if (col)col = Batol(smallbuf);
|
|
continue;
|
|
}
|
|
|
|
if (stx-fontsize+charxsiz > xdim)
|
|
break;
|
|
|
|
letptr = &fontptr[name[i]<<3];
|
|
ptr = (char *)(ylookup[ypos+7]+(stx-fontsize)+frameplace);
|
|
for (y=7; y>=0; y--)
|
|
{
|
|
for (x=charxsiz-1; x>=0; x--)
|
|
{
|
|
if (letptr[y]&pow2char[7-fontsize-x])
|
|
ptr[x] = (uint8_t)col;
|
|
else if (backcol >= 0)
|
|
ptr[x] = (uint8_t)backcol;
|
|
}
|
|
ptr -= ylookup[1];
|
|
}
|
|
stx += charxsiz;
|
|
}
|
|
enddrawing(); //}}}
|
|
}
|
|
|
|
|
|
//
|
|
// screencapture
|
|
//
|
|
|
|
static int32_t screencapture_common1(char *fn, const char *ext, BFILE** filptr)
|
|
{
|
|
int32_t i;
|
|
|
|
do // JBF 2004022: So we don't overwrite existing screenshots
|
|
{
|
|
if (capturecount > 9999) return -1;
|
|
|
|
i = Bstrrchr(fn,'.')-fn-4;
|
|
fn[i++] = ((capturecount/1000)%10)+48;
|
|
fn[i++] = ((capturecount/100)%10)+48;
|
|
fn[i++] = ((capturecount/10)%10)+48;
|
|
fn[i++] = (capturecount%10)+48;
|
|
i++;
|
|
Bstrcpy(&fn[i], ext);
|
|
|
|
if ((*filptr = Bfopen(fn,"rb")) == NULL) break;
|
|
Bfclose(*filptr);
|
|
capturecount++;
|
|
}
|
|
while (1);
|
|
|
|
*filptr = Bfopen(fn,"wb");
|
|
if (*filptr == NULL)
|
|
return -1;
|
|
|
|
return 0;
|
|
}
|
|
|
|
#ifdef USE_LIBPNG
|
|
// PNG screenshots -- adapted from libpng example.c
|
|
static int32_t screencapture_png(const char *filename, char inverseit, const char *versionstr)
|
|
{
|
|
int32_t i;
|
|
BFILE *fp;
|
|
# ifdef USE_OPENGL
|
|
# define HICOLOR (getrendermode() >= REND_POLYMOST && in3dmode())
|
|
# else
|
|
# define HICOLOR 0
|
|
# endif
|
|
png_structp png_ptr;
|
|
png_infop info_ptr;
|
|
png_colorp palette = NULL;
|
|
png_textp text = NULL;
|
|
|
|
png_bytep buf = NULL;
|
|
png_bytepp rowptrs = NULL;
|
|
|
|
char fn[32]; // careful...
|
|
|
|
Bstrcpy(fn, filename);
|
|
i = screencapture_common1(fn, "png", &fp);
|
|
if (i)
|
|
return i;
|
|
|
|
/* Create and initialize the png_struct with default error handling. */
|
|
png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
|
|
if (png_ptr == NULL)
|
|
{
|
|
Bfclose(fp);
|
|
return -1;
|
|
}
|
|
|
|
/* Allocate/initialize the image information data. */
|
|
info_ptr = png_create_info_struct(png_ptr);
|
|
if (info_ptr == NULL)
|
|
{
|
|
Bfclose(fp);
|
|
png_destroy_write_struct(&png_ptr, NULL);
|
|
return -1;
|
|
}
|
|
|
|
/* Set error handling. */
|
|
if (setjmp(png_jmpbuf(png_ptr)))
|
|
{
|
|
/* If we get here, we had a problem writing the file */
|
|
Bfclose(fp);
|
|
if (palette) png_free(png_ptr, palette);
|
|
if (text) png_free(png_ptr, text);
|
|
if (buf) png_free(png_ptr, buf);
|
|
if (rowptrs) png_free(png_ptr, rowptrs);
|
|
png_destroy_write_struct(&png_ptr, &info_ptr);
|
|
|
|
return -1;
|
|
}
|
|
|
|
png_init_io(png_ptr, fp);
|
|
|
|
// initialize various info fields from here on
|
|
png_set_IHDR(png_ptr, info_ptr, xdim, ydim, 8,
|
|
HICOLOR ? PNG_COLOR_TYPE_RGB : PNG_COLOR_TYPE_PALETTE,
|
|
PNG_INTERLACE_NONE, PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT);
|
|
|
|
if (HICOLOR && editstatus==0)
|
|
png_set_filter(png_ptr, PNG_FILTER_TYPE_BASE, PNG_FILTER_VALUE_NONE);
|
|
|
|
if (!HICOLOR)
|
|
#if (PNG_LIBPNG_VER > 10599)
|
|
palette = (png_colorp)png_malloc(png_ptr, 256*sizeof(png_color));
|
|
#else
|
|
palette = (png_colorp)png_malloc(png_ptr, 256*png_sizeof(png_color));
|
|
#endif
|
|
|
|
if (palette)
|
|
{
|
|
for (i=0; i<256; i++)
|
|
{
|
|
palette[i].red = inverseit ? 255-curpalettefaded[i].r : curpalettefaded[i].r;
|
|
palette[i].green = inverseit ? 255-curpalettefaded[i].g : curpalettefaded[i].g;
|
|
palette[i].blue = inverseit ? 255-curpalettefaded[i].b : curpalettefaded[i].b;
|
|
}
|
|
|
|
png_set_PLTE(png_ptr, info_ptr, palette, 256);
|
|
}
|
|
|
|
// png_set_gAMA(png_ptr, info_ptr, vid_gamma); // 1.0/vid_gamma ?
|
|
// png_set_sRGB(png_ptr, info_ptr, PNG_sRGB_INTENT_SATURATION); // hm...
|
|
|
|
#if (PNG_LIBPNG_VER > 10599)
|
|
text = (png_textp)png_malloc(png_ptr, 2*sizeof(png_text));
|
|
#else
|
|
text = (png_textp)png_malloc(png_ptr, 2*png_sizeof(png_text));
|
|
#endif
|
|
text[0].compression = PNG_TEXT_COMPRESSION_NONE;
|
|
text[0].key = "Title";
|
|
text[0].text = (png_charp)(editstatus ? "Mapster32 screenshot" : "EDuke32 screenshot");
|
|
|
|
text[1].compression = PNG_TEXT_COMPRESSION_NONE;
|
|
text[1].key = "Software";
|
|
text[1].text = (char *)versionstr;
|
|
png_set_text(png_ptr, info_ptr, text, 2);
|
|
|
|
// get/set the pixel data
|
|
begindrawing(); //{{{
|
|
if (palette)
|
|
{
|
|
buf = (png_bytep)png_malloc(png_ptr, bytesperline*ydim);
|
|
Bmemcpy(buf, (char *)frameplace, bytesperline*ydim);
|
|
}
|
|
# ifdef USE_OPENGL
|
|
else
|
|
{
|
|
buf = (png_bytep)png_malloc(png_ptr, xdim*ydim*3);
|
|
bglReadPixels(0,0,xdim,ydim,GL_RGB,GL_UNSIGNED_BYTE,buf);
|
|
}
|
|
# endif
|
|
enddrawing(); //}}}
|
|
|
|
rowptrs = (png_bytepp)png_malloc(png_ptr, ydim*sizeof(png_bytep));
|
|
|
|
if (!palette)
|
|
{
|
|
for (i=0; i<ydim; i++)
|
|
rowptrs[i] = &buf[3*xdim*(ydim-i-1)];
|
|
}
|
|
else
|
|
{
|
|
for (i=0; i<ydim; i++)
|
|
rowptrs[i] = &buf[ylookup[i]];
|
|
}
|
|
png_set_rows(png_ptr, info_ptr, rowptrs);
|
|
|
|
// write the png file!
|
|
png_write_png(png_ptr, info_ptr, PNG_TRANSFORM_IDENTITY, NULL);
|
|
|
|
Bfclose(fp);
|
|
if (palette) png_free(png_ptr, palette);
|
|
if (text) png_free(png_ptr, text);
|
|
if (buf) png_free(png_ptr, buf);
|
|
if (rowptrs) png_free(png_ptr, rowptrs);
|
|
png_destroy_write_struct(&png_ptr, &info_ptr);
|
|
|
|
OSD_Printf("Saved screenshot to %s\n", fn);
|
|
capturecount++;
|
|
return 0;
|
|
}
|
|
# undef HICOLOR
|
|
|
|
#else // if !defined USE_LIBPNG
|
|
|
|
static int32_t screencapture_tga(const char *filename, char inverseit)
|
|
{
|
|
int32_t i;
|
|
char *ptr, head[18] = { 0,1,1,0,0,0,1,24,0,0,0,0,0/*wlo*/,0/*whi*/,0/*hlo*/,0/*hhi*/,8,0 };
|
|
//char palette[4*256];
|
|
char *fn = Xstrdup(filename);
|
|
# ifdef USE_OPENGL
|
|
int32_t j;
|
|
char *inversebuf;
|
|
# endif
|
|
BFILE *fil;
|
|
|
|
i = screencapture_common1(fn, "tga", &fil);
|
|
if (i)
|
|
{
|
|
Bfree(fn);
|
|
return i;
|
|
}
|
|
|
|
# ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST && in3dmode())
|
|
{
|
|
head[1] = 0; // no colourmap
|
|
head[2] = 2; // uncompressed truecolour
|
|
head[3] = 0; // (low) first colourmap index
|
|
head[4] = 0; // (high) first colourmap index
|
|
head[5] = 0; // (low) number colourmap entries
|
|
head[6] = 0; // (high) number colourmap entries
|
|
head[7] = 0; // colourmap entry size
|
|
head[16] = 24; // 24 bits per pixel
|
|
}
|
|
# endif
|
|
|
|
head[12] = xdim & 0xff;
|
|
head[13] = (xdim >> 8) & 0xff;
|
|
head[14] = ydim & 0xff;
|
|
head[15] = (ydim >> 8) & 0xff;
|
|
|
|
Bfwrite(head, 18, 1, fil);
|
|
|
|
begindrawing(); //{{{
|
|
ptr = (char *)frameplace;
|
|
|
|
// palette first
|
|
# ifdef USE_OPENGL
|
|
if (getrendermode() < REND_POLYMOST || (getrendermode() >= REND_POLYMOST && !in3dmode()))
|
|
# endif
|
|
{
|
|
//getpalette(0,256,palette);
|
|
for (i=0; i<256; i++)
|
|
{
|
|
Bfputc(inverseit ? 255-curpalettefaded[i].b : curpalettefaded[i].b, fil); // b
|
|
Bfputc(inverseit ? 255-curpalettefaded[i].g : curpalettefaded[i].g, fil); // g
|
|
Bfputc(inverseit ? 255-curpalettefaded[i].r : curpalettefaded[i].r, fil); // r
|
|
}
|
|
}
|
|
|
|
# ifdef USE_OPENGL
|
|
if (getrendermode() >= REND_POLYMOST && in3dmode())
|
|
{
|
|
char c;
|
|
// 24bit
|
|
inversebuf = (char *)Xmalloc(xdim*ydim*3);
|
|
|
|
bglReadPixels(0,0,xdim,ydim,GL_RGB,GL_UNSIGNED_BYTE,inversebuf);
|
|
j = xdim*ydim*3;
|
|
for (i=0; i<j; i+=3)
|
|
{
|
|
c = inversebuf[i];
|
|
inversebuf[i] = inversebuf[i+2];
|
|
inversebuf[i+2] = c;
|
|
}
|
|
Bfwrite(inversebuf, xdim*ydim, 3, fil);
|
|
|
|
Bfree(inversebuf);
|
|
}
|
|
else
|
|
# endif
|
|
{
|
|
for (i=ydim-1; i>=0; i--)
|
|
Bfwrite(ptr+i*bytesperline, xdim, 1, fil);
|
|
}
|
|
|
|
enddrawing(); //}}}
|
|
|
|
Bfclose(fil);
|
|
OSD_Printf("Saved screenshot to %s\n", fn);
|
|
Bfree(fn);
|
|
capturecount++;
|
|
return(0);
|
|
}
|
|
# endif
|
|
|
|
|
|
int32_t screencapture(const char *filename, char inverseit, const char *versionstr)
|
|
{
|
|
#ifndef USE_LIBPNG
|
|
UNREFERENCED_PARAMETER(versionstr);
|
|
return screencapture_tga(filename,inverseit);
|
|
#else
|
|
return screencapture_png(filename,inverseit,versionstr);
|
|
#endif
|
|
}
|
|
|
|
|
|
|
|
//
|
|
// setrendermode
|
|
//
|
|
int32_t setrendermode(int32_t renderer)
|
|
{
|
|
UNREFERENCED_PARAMETER(renderer);
|
|
#ifdef USE_OPENGL
|
|
if (bpp == 8) renderer = 0;
|
|
# ifdef POLYMER
|
|
else renderer = min(4,max(3,renderer));
|
|
|
|
if (renderer == 4)
|
|
{
|
|
int32_t i;
|
|
|
|
// potentially deferred MD3 postprocessing
|
|
for (i=0; i<nextmodelid; i++)
|
|
{
|
|
if (models[i]->mdnum==3 && ((md3model_t *)models[i])->head.surfs[0].geometry == NULL)
|
|
{
|
|
static int32_t warned=0;
|
|
|
|
if (!warned)
|
|
{
|
|
OSD_Printf("Post-processing MD3 models for Polymer. This can take a while...\n");
|
|
nextpage();
|
|
warned = 1;
|
|
}
|
|
|
|
if (!md3postload_polymer((md3model_t *)models[i]))
|
|
OSD_Printf("INTERNAL ERROR: mdmodel %s failed postprocessing!\n",
|
|
((md3model_t *)models[i])->head.nam);
|
|
|
|
if (((md3model_t *)models[i])->head.surfs[0].geometry == NULL)
|
|
OSD_Printf("INTERNAL ERROR: wtf?\n");
|
|
}
|
|
// else
|
|
// OSD_Printf("mdmodel %d already postprocessed.\n", i);
|
|
}
|
|
|
|
if (!polymer_init())
|
|
renderer = 3;
|
|
}
|
|
else if (getrendermode() == REND_POLYMER) // going from Polymer to another renderer
|
|
{
|
|
delete_maphack_lights();
|
|
G_Polymer_UnInit();
|
|
polymer_uninit();
|
|
}
|
|
# else
|
|
else renderer = 3;
|
|
# endif
|
|
|
|
basepalreset = 1;
|
|
|
|
rendmode = renderer;
|
|
if (getrendermode() >= REND_POLYMOST)
|
|
glrendmode = rendmode;
|
|
#endif
|
|
|
|
return 0;
|
|
}
|
|
|
|
//
|
|
// setrollangle
|
|
//
|
|
#ifdef USE_OPENGL
|
|
void setrollangle(int32_t rolla)
|
|
{
|
|
gtang = (float) rolla * PI * (1.f/1024.f);
|
|
}
|
|
#endif
|
|
|
|
|
|
//
|
|
// invalidatetile
|
|
// pal: pass -1 to invalidate all palettes for the tile, or >=0 for a particular palette
|
|
// how: pass -1 to invalidate all instances of the tile in texture memory, or a bitfield
|
|
// bit 0: opaque or masked (non-translucent) texture, using repeating
|
|
// bit 1: ignored
|
|
// bit 2: ignored (33% translucence, using repeating)
|
|
// bit 3: ignored (67% translucence, using repeating)
|
|
// bit 4: opaque or masked (non-translucent) texture, using clamping
|
|
// bit 5: ignored
|
|
// bit 6: ignored (33% translucence, using clamping)
|
|
// bit 7: ignored (67% translucence, using clamping)
|
|
// clamping is for sprites, repeating is for walls
|
|
//
|
|
void invalidatetile(int16_t tilenume, int32_t pal, int32_t how)
|
|
{
|
|
#if !defined USE_OPENGL
|
|
UNREFERENCED_PARAMETER(tilenume);
|
|
UNREFERENCED_PARAMETER(pal);
|
|
UNREFERENCED_PARAMETER(how);
|
|
#else
|
|
if (getrendermode() >= REND_POLYMOST)
|
|
{
|
|
int32_t hp, np;
|
|
|
|
const int32_t firstpal = (pal < 0) ? 0 : pal;
|
|
const int32_t numpals = (pal < 0) ? MAXPALOOKUPS : 1;
|
|
|
|
for (hp = 0; hp <= 4; hp+=4)
|
|
{
|
|
if (how & pow2long[hp])
|
|
for (np = firstpal; np < firstpal+numpals; np++)
|
|
gltexinvalidate(tilenume, np, hp);
|
|
}
|
|
|
|
#ifdef POLYMER
|
|
if (getrendermode() == REND_POLYMER)
|
|
polymer_invalidateartmap(tilenume);
|
|
#endif
|
|
|
|
}
|
|
#endif
|
|
}
|
|
|
|
|
|
//
|
|
// setpolymost2dview
|
|
// Sets OpenGL for 2D drawing
|
|
//
|
|
void setpolymost2dview(void)
|
|
{
|
|
#ifdef USE_OPENGL
|
|
if (getrendermode() < REND_POLYMOST) return;
|
|
|
|
bglViewport(0,0,xres,yres);
|
|
bglMatrixMode(GL_PROJECTION);
|
|
bglLoadIdentity();
|
|
bglOrtho(0,xres,yres,0,-1,1);
|
|
bglMatrixMode(GL_MODELVIEW);
|
|
bglLoadIdentity();
|
|
|
|
gloy1 = -1;
|
|
|
|
bglDisable(GL_DEPTH_TEST);
|
|
bglDisable(GL_TEXTURE_2D);
|
|
bglDisable(GL_BLEND);
|
|
#endif
|
|
}
|
|
|
|
void hash_init(hashtable_t *t)
|
|
{
|
|
hash_free(t);
|
|
t->items=(hashitem_t **)Xcalloc(1, t->size * sizeof(hashitem_t));
|
|
}
|
|
|
|
void hash_free(hashtable_t *t)
|
|
{
|
|
hashitem_t *cur, *tmp;
|
|
int32_t i;
|
|
int32_t num;
|
|
|
|
if (t->items == NULL)
|
|
return;
|
|
// initprintf("*free, num:%d\n",t->size);
|
|
i= t->size-1;
|
|
do
|
|
{
|
|
cur = t->items[i];
|
|
num = 0;
|
|
while (cur)
|
|
{
|
|
tmp = cur;
|
|
cur = cur->next;
|
|
// initprintf("Free %4d \"%s\"\n",tmp->key,(tmp->string)?tmp->string:".");
|
|
if (tmp->string)
|
|
{
|
|
Bfree(tmp->string);
|
|
tmp->string = NULL;
|
|
}
|
|
Bfree(tmp);
|
|
num++;
|
|
}
|
|
// initprintf("#%4d: %3d\t",i,num);
|
|
}
|
|
while (--i > -1);
|
|
Bfree(t->items);
|
|
t->items = 0;
|
|
}
|
|
|
|
// djb3 algorithm
|
|
static inline uint32_t hash_getcode(const char *s)
|
|
{
|
|
uint32_t h = 5381;
|
|
int32_t ch;
|
|
|
|
while ((ch = *s++) != '\0')
|
|
h = ((h << 5) + h) ^ ch;
|
|
|
|
return h;
|
|
}
|
|
|
|
void hash_add(hashtable_t *t, const char *s, intptr_t key, int32_t replace)
|
|
{
|
|
hashitem_t *cur, *prev=NULL;
|
|
int32_t code;
|
|
|
|
if (t->items == NULL)
|
|
{
|
|
initprintf("hash_add(): table not initialized!\n");
|
|
return;
|
|
}
|
|
|
|
code = hash_getcode(s) % t->size;
|
|
cur = t->items[code];
|
|
|
|
if (!cur)
|
|
{
|
|
cur = (hashitem_t *)Xcalloc(1,sizeof(hashitem_t));
|
|
cur->string = Xstrdup(s);
|
|
cur->key = key;
|
|
cur->next = NULL;
|
|
t->items[code] = cur;
|
|
return;
|
|
}
|
|
|
|
do
|
|
{
|
|
if (Bstrcmp(s,cur->string) == 0)
|
|
{
|
|
if (replace) cur->key = key;
|
|
return;
|
|
}
|
|
prev = cur;
|
|
}
|
|
while ((cur = cur->next));
|
|
|
|
cur = (hashitem_t *)Xcalloc(1,sizeof(hashitem_t));
|
|
cur->string = Xstrdup(s);
|
|
cur->key = key;
|
|
cur->next = NULL;
|
|
prev->next = cur;
|
|
}
|
|
|
|
// delete at most once
|
|
void hash_delete(hashtable_t *t, const char *s)
|
|
{
|
|
hashitem_t *cur, *prev=NULL;
|
|
int32_t code;
|
|
|
|
if (t->items == NULL)
|
|
{
|
|
initprintf("hash_delete(): table not initialized!\n");
|
|
return;
|
|
}
|
|
|
|
code = hash_getcode(s) % t->size;
|
|
cur = t->items[code];
|
|
|
|
if (!cur)
|
|
return;
|
|
|
|
do
|
|
{
|
|
if (Bstrcmp(s,cur->string) == 0)
|
|
{
|
|
Bfree(cur->string);
|
|
|
|
if (!prev)
|
|
t->items[code] = cur->next;
|
|
else
|
|
prev->next = cur->next;
|
|
|
|
Bfree(cur);
|
|
|
|
return;
|
|
}
|
|
prev = cur;
|
|
}
|
|
while ((cur = cur->next));
|
|
}
|
|
|
|
intptr_t hash_find(const hashtable_t *t, const char *s)
|
|
{
|
|
hashitem_t *cur;
|
|
|
|
if (t->items == NULL)
|
|
{
|
|
initprintf("hash_find(): table not initialized!\n");
|
|
return -1;
|
|
}
|
|
|
|
if ((cur = t->items[hash_getcode(s) % t->size]) == NULL) return -1;
|
|
|
|
do
|
|
if (Bstrcmp(s,cur->string) == 0)
|
|
return cur->key;
|
|
while ((cur = cur->next));
|
|
|
|
return -1;
|
|
}
|
|
|
|
intptr_t hash_findcase(const hashtable_t *t, const char *s)
|
|
{
|
|
hashitem_t *cur;
|
|
|
|
if (t->items == NULL)
|
|
{
|
|
initprintf("hash_findcase(): table not initialized!\n");
|
|
return -1;
|
|
}
|
|
|
|
if ((cur=t->items[hash_getcode(s)%t->size]) == NULL) return -1;
|
|
|
|
do
|
|
if (Bstrcasecmp(s,cur->string) == 0)
|
|
return cur->key;
|
|
while ((cur=cur->next));
|
|
|
|
return -1;
|
|
}
|
|
|
|
/*
|
|
* vim:ts=8:
|
|
*/
|
|
|