Improve wall crushing

2026-03-28 21:43:06 +00:00
parent 2db4e9bc6e
commit 08fcc4baab
12 changed files with 176 additions and 106 deletions
@@ -14,6 +14,7 @@ module Dodge.Placement.Instance.LightSource (
    spanColLightBlackI,
    spanLightI,
    spanLightY,
+    spanLightL,
    mntLightLnkCond',
    spanLS,
    mntLightLnkShape,
@@ -178,6 +179,15 @@ spanLightY l x y z =
    f p = putShape $ thinHighBar h p (l + normalize (l-p))
    h = 95

+spanLightL :: Point2 -> Point2 -> Point2 -> Placement
+spanLightL l x y = 
+    ps0j (PutLS $ lsColPos 0.75 (addZ (h -5) l)) $
+        ps0j (f x) $
+        sps0 (f y)
+  where
+    f p = putShape $ thinHighBar h p (l + normalize (l-p))
+    h = 95
+
 --extendAway :: Point2 -> Point2 -> Point2
 --extendAway p x = p +.+ squashNormalizeV (p -.- x)

@@ -30,7 +30,7 @@ plDoor dr wl gw =
    lerposa = doDoorLerp dr (dr ^. drLerp)
    addWalls =
        insertStructureWalls
-            (`DoorPart` isauto)
+            (\x -> DoorPart x isauto)
            wl
            (map fst pps & each %~ shiftPointBy lerposa)
            drid