Merge branch 'master' of https://github.com/coelckers/gzdoom

src/gl/dynlights/a_dynlight.cpp

@@ -582,13 +582,25 @@ double ADynamicLight::DistToSeg(const DVector3 &pos, seg_t *seg)
 // to sidedefs and sector parts.
 //
 //==========================================================================
+struct LightLinkEntry
+{
+	subsector_t *sub;
+	DVector3 pos;
+};
+static TArray<LightLinkEntry> collected_ss;
 
-void ADynamicLight::CollectWithinRadius(const DVector3 &pos, subsector_t *subSec, float radius)
+void ADynamicLight::CollectWithinRadius(const DVector3 &opos, subsector_t *subSec, float radius)
 {
 	if (!subSec) return;
-
+	collected_ss.Clear();
+	collected_ss.Push({ subSec, opos });
 	subSec->validcount = ::validcount;
 
+	for (unsigned i = 0; i < collected_ss.Size(); i++)
+	{
+		subSec = collected_ss[i].sub;
+		auto &pos = collected_ss[i].pos;
+
 		touching_subsectors = AddLightNode(&subSec->lighthead, subSec, this, touching_subsectors);
 		if (subSec->sector->validcount != ::validcount)
 		{
@@ -622,7 +634,11 @@ void ADynamicLight::CollectWithinRadius(const DVector3 &pos, subsector_t *subSec
 						if (other->validcount != ::validcount)
 						{
 							subsector_t *othersub = R_PointInSubsector(other->v1->fPos() + other->Delta() / 2);
-						if (othersub->validcount != ::validcount) CollectWithinRadius(PosRelative(other), othersub, radius);
+							if (othersub->validcount != ::validcount)
+							{
+								othersub->validcount = ::validcount;
+								collected_ss.Push({ othersub, PosRelative(other) });
+							}
 						}
 					}
 				}
@@ -633,7 +649,8 @@ void ADynamicLight::CollectWithinRadius(const DVector3 &pos, subsector_t *subSec
 					subsector_t *sub = partner->Subsector;
 					if (sub != NULL && sub->validcount != ::validcount)
 					{
-					CollectWithinRadius(pos, sub, radius);
+						sub->validcount = ::validcount;
+						collected_ss.Push({ sub, pos });
 					}
 				}
 			}
@@ -646,7 +663,11 @@ void ADynamicLight::CollectWithinRadius(const DVector3 &pos, subsector_t *subSec
 			{
 				DVector2 refpos = other->v1->fPos() + other->Delta() / 2 + sec->GetPortalDisplacement(sector_t::ceiling);
 				subsector_t *othersub = R_PointInSubsector(refpos);
-			if (othersub->validcount != ::validcount) CollectWithinRadius(PosRelative(othersub->sector), othersub, radius);
+				if (othersub->validcount != ::validcount)
+				{
+					othersub->validcount = ::validcount;
+					collected_ss.Push({ othersub, PosRelative(othersub->sector) });
+				}
 			}
 		}
 		if (!sec->PortalBlocksSight(sector_t::floor))
@@ -656,7 +677,12 @@ void ADynamicLight::CollectWithinRadius(const DVector3 &pos, subsector_t *subSec
 			{
 				DVector2 refpos = other->v1->fPos() + other->Delta() / 2 + sec->GetPortalDisplacement(sector_t::floor);
 				subsector_t *othersub = R_PointInSubsector(refpos);
-			if (othersub->validcount != ::validcount) CollectWithinRadius(PosRelative(othersub->sector), othersub, radius);
+				if (othersub->validcount != ::validcount)
+				{
+					othersub->validcount = ::validcount;
+					collected_ss.Push({ othersub, PosRelative(othersub->sector) });
+				}
+			}
 		}
 	}
 }

src/gl/scene/gl_walls_draw.cpp

@@ -102,9 +102,10 @@ void GLWall::SetupLights()
 
 			Vector fn, pos;
 
-			float x = node->lightsource->X();
-			float y = node->lightsource->Y();
-			float z = node->lightsource->Z();
+			DVector3 posrel = node->lightsource->PosRelative(seg->frontsector);
+			float x = posrel.X;
+			float y = posrel.Y;
+			float z = posrel.Z;
 			float dist = fabsf(p.DistToPoint(x, z, y));
 			float radius = node->lightsource->GetRadius();
 			float scale = 1.0f / ((2.f * radius) - dist);

src/p_map.cpp

@@ -869,12 +869,6 @@ bool PIT_CheckLine(FMultiBlockLinesIterator &mit, FMultiBlockLinesIterator::Chec
 			if (tm.thing->Z() < portz && tm.thing->Z() + tm.thing->MaxStepHeight >= portz && tm.floorz < portz)
 			{
 				// Actor is stepping through a portal.
-				/*
-				tm.floorz = portz;
-				tm.floorsector = oppsec;
-				tm.floorpic = cres.line->sidedef[0]->GetTexture(side_t::mid);
-				tm.floorterrain = 0;
-				*/
 				tm.portalstep = true;
 				return true;
 			}
@@ -2150,7 +2144,7 @@ bool P_TryMove(AActor *thing, const DVector2 &pos,
 				goto pushline;
 			}
 			else if (BlockingMobj->Top() - thing->Z() > thing->MaxStepHeight
-				|| (BlockingMobj->Sector->ceilingplane.ZatPoint(pos) - (BlockingMobj->Top()) < thing->Height)
+				|| ((BlockingMobj->Sector->ceilingplane.ZatPoint(pos) - (BlockingMobj->Top()) < thing->Height) && BlockingMobj->Sector->PortalBlocksMovement(sector_t::ceiling))
 				|| (tm.ceilingz - (BlockingMobj->Top()) < thing->Height))
 			{
 				goto pushline;

src/p_sight.cpp

@@ -716,6 +716,7 @@ bool SightCheck::P_SightPathTraverse ()
 // step through map blocks
 // Count is present to prevent a round off error from skipping the break
 
+	int itres;
 	for (count = 0 ; count < 1000 ; count++)
 	{
 		// end traversing when reaching the end of the blockmap
@@ -724,15 +725,15 @@ bool SightCheck::P_SightPathTraverse ()
 		{
 			break;
 		}
-		int res = P_SightBlockLinesIterator(mapx, mapy);
-		if (res == 0)
+		itres = P_SightBlockLinesIterator(mapx, mapy);
+		if (itres == 0)
 		{
 			sightcounts[1]++;
 			return false;	// early out
 		}
 
 		// either reached the end or had an early-out condition with portals left to check,
-		if (res == -1 || (mapxstep | mapystep) == 0)
+		if (itres == -1 || (mapxstep | mapystep) == 0)
 			break;
 
 		switch (((xs_FloorToInt(yintercept) == mapy) << 1) | (xs_FloorToInt(xintercept) == mapx))
@@ -787,7 +788,9 @@ sightcounts[1]++;
 //
 sightcounts[2]++;
 
-	return P_SightTraverseIntercepts ( );
+	bool traverseres = P_SightTraverseIntercepts ( );
+	if (itres == -1) return false;	// if the iterator had an early out there was no line of sight. The traverser was only called to collect more portals.
+	return traverseres;
 }
 
 /*

wadsrc/static/filter/hexen/sprofs.txt

@@ -57,7 +57,7 @@ CLERW0, 37, 53, iwad
 CLERX0, 37, 43, iwad
 CLERY0, 38, 30, iwad
 CLERZ0, 38, 18, iwad
-CLER[0, 38, 12, iwad
+"CLER[0", 38, 12, iwad
 CPB1A0, 8, 7, iwad
 CPB2A0, 7, 6, iwad
 CPB3A0, 12, 4, iwad

wadsrc/static/filter/strife/sprofs.txt

@@ -200,8 +200,8 @@ PGRDW0, 35, 28, iwad
 PGRDX0, 35, 28, iwad
 PGRDY0, 35, 28, iwad
 PGRDZ0, 35, 28, iwad
-PGRD[0, 35, 28, iwad
-PGRD\0, 35, 28, iwad
+"PGRD[0", 35, 28, iwad
+"PGRD\0", 35, 28, iwad
 PDEDE0, 22, 20, iwad
 PDEDF0, 23, 16, iwad
 PDEDG0, 23, 15, iwad