R_PLANE.C

// R_planes.c

#include <stdlib.h>

#include "DoomDef.h"
#include "R_local.h"

planefunction_t		floorfunc, ceilingfunc;

//
// sky mapping
//
int			skyflatnum;
int			skytexture;
int			skytexturemid;
fixed_t		skyiscale;

//
// opening
//

visplane_t		visplanes[MAXVISPLANES], *lastvisplane;
visplane_t *floorplane, *ceilingplane;

short			openings[MAXOPENINGS], *lastopening;

//
// clip values are the solid pixel bounding the range
// floorclip starts out SCREENHEIGHT
// ceilingclip starts out -1
//
short		floorclip[SCREENWIDTH];
short		ceilingclip[SCREENWIDTH];

//
// spanstart holds the start of a plane span
// initialized to 0 at start
//
int			spanstart[SCREENHEIGHT];
int			spanstop[SCREENHEIGHT];

//
// texture mapping
//
lighttable_t **planezlight;
fixed_t		planeheight;

fixed_t		yslope[SCREENHEIGHT];
fixed_t		distscale[SCREENWIDTH];
fixed_t		basexscale, baseyscale;

fixed_t		cachedheight[SCREENHEIGHT];
fixed_t		cacheddistance[SCREENHEIGHT];
fixed_t		cachedxstep[SCREENHEIGHT];
fixed_t		cachedystep[SCREENHEIGHT];


/*
================
=
= R_InitSkyMap
=
= Called whenever the view size changes
=
================
*/

void R_InitSkyMap (void)
{
	skyflatnum = R_FlatNumForName ("F_SKY1");
	skytexturemid = 200 * FRACUNIT;
	skyiscale = FRACUNIT;
}


/*
====================
=
= R_InitPlanes
=
= Only at game startup
====================
*/

void R_InitPlanes (void)
{
}


/*
================
=
= R_MapPlane
=
global vars:

planeheight
ds_source
basexscale
baseyscale
viewx
viewy

BASIC PRIMITIVE
================
*/

void R_MapPlane (int y, int x1, int x2)
{
	angle_t		angle;
	fixed_t		distance, length;
	unsigned	index;

#ifdef RANGECHECK
	if (x2 < x1 || x1<0 || x2 >= viewwidth || (unsigned)y>viewheight)
		I_Error ("R_MapPlane: %i, %i at %i", x1, x2, y);
#endif

	if (planeheight != cachedheight[y])
	{
		cachedheight[y] = planeheight;
		distance = cacheddistance[y] = FixedMul (planeheight, yslope[y]);

		ds_xstep = cachedxstep[y] = FixedMul (distance, basexscale);
		ds_ystep = cachedystep[y] = FixedMul (distance, baseyscale);
	}
	else
	{
		distance = cacheddistance[y];
		ds_xstep = cachedxstep[y];
		ds_ystep = cachedystep[y];
	}

	length = FixedMul (distance, distscale[x1]);
	angle = (viewangle + xtoviewangle[x1]) >> ANGLETOFINESHIFT;
	ds_xfrac = viewx + FixedMul(finecosine[angle], length);
	ds_yfrac = -viewy - FixedMul(finesine[angle], length);

	if (fixedcolormap)
		ds_colormap = fixedcolormap;
	else
	{
		index = distance >> LIGHTZSHIFT;
		if (index >= MAXLIGHTZ)
			index = MAXLIGHTZ - 1;
		ds_colormap = planezlight[index];
	}

	ds_y = y;
	ds_x1 = x1;
	ds_x2 = x2;

	spanfunc ();		// high or low detail
}

//=============================================================================

/*
====================
=
= R_ClearPlanes
=
= At begining of frame
====================
*/

void R_ClearPlanes (void)
{
	int		i;
	angle_t	angle;

	//
	// opening / clipping determination
	//	
	for (i = 0; i < viewwidth; i++)
	{
		floorclip[i] = viewheight;
		ceilingclip[i] = -1;
	}

	lastvisplane = visplanes;
	lastopening = openings;

	//
	// texture calculation
	//
	memset (cachedheight, 0, sizeof(cachedheight));
	angle = (viewangle - ANG90) >> ANGLETOFINESHIFT;	// left to right mapping

	// scale will be unit scale at SCREENWIDTH/2 distance
	basexscale = FixedDiv (finecosine[angle], centerxfrac);
	baseyscale = -FixedDiv (finesine[angle], centerxfrac);
}



/*
===============
=
= R_FindPlane
=
===============
*/

visplane_t *R_FindPlane(fixed_t height, int picnum,
	int lightlevel, int special)
{
	visplane_t *check;

	if (picnum == skyflatnum)
	{
		// all skies map together
		height = 0;
		lightlevel = 0;
	}

	for (check = visplanes; check < lastvisplane; check++)
	{
		if (height == check->height
			&& picnum == check->picnum
			&& lightlevel == check->lightlevel
			&& special == check->special)
			break;
	}

	if (check < lastvisplane)
	{
		return(check);
	}

	if (lastvisplane - visplanes == MAXVISPLANES)
	{
		I_Error("R_FindPlane: no more visplanes");
	}

	lastvisplane++;
	check->height = height;
	check->picnum = picnum;
	check->lightlevel = lightlevel;
	check->special = special;
	check->minx = SCREENWIDTH;
	check->maxx = -1;
	memset(check->top, 0xff, sizeof(check->top));
	return(check);
}

/*
===============
=
= R_CheckPlane
=
===============
*/

visplane_t *R_CheckPlane (visplane_t *pl, int start, int stop)
{
	int			intrl, intrh;
	int			unionl, unionh;
	int			x;

	if (start < pl->minx)
	{
		intrl = pl->minx;
		unionl = start;
	}
	else
	{
		unionl = pl->minx;
		intrl = start;
	}

	if (stop > pl->maxx)
	{
		intrh = pl->maxx;
		unionh = stop;
	}
	else
	{
		unionh = pl->maxx;
		intrh = stop;
	}

	for (x = intrl; x <= intrh; x++)
		if (pl->top[x] != 0xff)
			break;

	if (x > intrh)
	{
		pl->minx = unionl;
		pl->maxx = unionh;
		return pl;			// use the same one
	}

	// make a new visplane

	lastvisplane->height = pl->height;
	lastvisplane->picnum = pl->picnum;
	lastvisplane->lightlevel = pl->lightlevel;
	lastvisplane->special = pl->special;
	pl = lastvisplane++;
	pl->minx = start;
	pl->maxx = stop;
	memset (pl->top, 0xff, sizeof(pl->top));

	return pl;
}



//=============================================================================

/*
================
=
= R_MakeSpans
=
================
*/

void R_MakeSpans (int x, int t1, int b1, int t2, int b2)
{
	while (t1 < t2 && t1 <= b1)
	{
		R_MapPlane (t1, spanstart[t1], x - 1);
		t1++;
	}
	while (b1 > b2 && b1 >= t1)
	{
		R_MapPlane (b1, spanstart[b1], x - 1);
		b1--;
	}

	while (t2 < t1 && t2 <= b2)
	{
		spanstart[t2] = x;
		t2++;
	}
	while (b2 > b1 && b2 >= t2)
	{
		spanstart[b2] = x;
		b2--;
	}
}



/*
================
=
= R_DrawPlanes
=
= At the end of each frame
================
*/

void R_DrawPlanes (void)
{
	visplane_t *pl;
	int			light;
	int			x, stop;
	int			angle;
	byte *tempSource;

	byte *dest;
	int count;
	fixed_t frac, fracstep;

	extern byte *ylookup[MAXHEIGHT];
	extern int columnofs[MAXWIDTH];

#ifdef RANGECHECK
	if (ds_p - drawsegs > MAXDRAWSEGS)
		I_Error ("R_DrawPlanes: drawsegs overflow (%i)", ds_p - drawsegs);
	if (lastvisplane - visplanes > MAXVISPLANES)
		I_Error ("R_DrawPlanes: visplane overflow (%i)", lastvisplane - visplanes);
	if (lastopening - openings > MAXOPENINGS)
		I_Error ("R_DrawPlanes: opening overflow (%i)", lastopening - openings);
#endif

	for (pl = visplanes; pl < lastvisplane; pl++)
	{
		if (pl->minx > pl->maxx)
			continue;
		//
		// sky flat
		//
		if (pl->picnum == skyflatnum)
		{
			dc_iscale = skyiscale;
			dc_colormap = colormaps;// sky is allways drawn full bright
			dc_texturemid = skytexturemid;
			for (x = pl->minx; x <= pl->maxx; x++)
			{
				dc_yl = pl->top[x];
				dc_yh = pl->bottom[x];
				if (dc_yl <= dc_yh)
				{
					angle = (viewangle + xtoviewangle[x]) >> ANGLETOSKYSHIFT;
					dc_x = x;
					dc_source = R_GetColumn(skytexture, angle);

					count = dc_yh - dc_yl;
					if (count < 0)
						return;

#ifdef RANGECHECK
					if ((unsigned)dc_x >= SCREENWIDTH || dc_yl < 0 || dc_yh >= SCREENHEIGHT)
						I_Error ("R_DrawColumn: %i to %i at %i", dc_yl, dc_yh, dc_x);
#endif

					dest = ylookup[dc_yl] + columnofs[dc_x];

					fracstep = 1;
					frac = (dc_texturemid >> FRACBITS) + (dc_yl - centery);
					do
					{
						*dest = dc_source[frac];
						dest += SCREENWIDTH;
						frac += fracstep;
					} while (count--);

					//					colfunc ();
				}
			}
			continue;
		}

		//
		// regular flat
		//
		tempSource = W_CacheLumpNum(firstflat +
			flattranslation[pl->picnum], PU_STATIC);

		switch (pl->special)
		{
			case 25: case 26: case 27: case 28: case 29: // Scroll_North
				ds_source = tempSource;
				break;
			case 20: case 21: case 22: case 23: case 24: // Scroll_East
				ds_source = tempSource + ((63 - ((leveltime >> 1) & 63)) <<
					(pl->special - 20) & 63);
				//ds_source = tempSource+((leveltime>>1)&63);
				break;
			case 30: case 31: case 32: case 33: case 34: // Scroll_South
				ds_source = tempSource;
				break;
			case 35: case 36: case 37: case 38: case 39: // Scroll_West
				ds_source = tempSource;
				break;
			case 4: // Scroll_EastLavaDamage
				ds_source = tempSource + (((63 - ((leveltime >> 1) & 63)) << 3) & 63);
				break;
			default:
				ds_source = tempSource;
		}
		planeheight = abs(pl->height - viewz);
		light = (pl->lightlevel >> LIGHTSEGSHIFT) + extralight;
		if (light >= LIGHTLEVELS)
			light = LIGHTLEVELS - 1;
		if (light < 0)
			light = 0;
		planezlight = zlight[light];

		pl->top[pl->maxx + 1] = 0xff;
		pl->top[pl->minx - 1] = 0xff;

		stop = pl->maxx + 1;
		for (x = pl->minx; x <= stop; x++)
			R_MakeSpans (x, pl->top[x - 1], pl->bottom[x - 1]
				, pl->top[x], pl->bottom[x]);

		Z_ChangeTag (tempSource, PU_CACHE);
	}
}