1 files changed, 472 insertions, 0 deletions
diff --git a/src/heretic/r_plane.c b/src/heretic/r_plane.c
new file mode 100644
index 00000000..61a32f1c
--- /dev/null
+++ b/src/heretic/r_plane.c
@@ -0,0 +1,472 @@
+// R_planes.c
+
+#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);
+	}
+}