Move wall destruction

2025-11-09 14:37:45 +00:00
parent 09f7cc309b
commit 5a40eac4e2
5 changed files with 65 additions and 80 deletions
@@ -323,10 +323,9 @@ drawDDATest w =
    g [_,b,_,d] = color blue $ thickLine 2 [b,d]
    g _ = undefined
    ps = zoneOfSeg 50 x y
-    qs = map (zoneOfPoint 50) $ xIntercepts' 50 x y
-    rs = map (zoneOfPoint 50) $ yIntercepts' 50 x y
-    xs = xIntercepts' 50 x y
--    xs' = xIntercepts' 50 x y
+    qs = map (zoneOfPoint 50) $ xIntercepts 50 x y
+    rs = map (zoneOfPoint 50) $ yIntercepts 50 x y
+    xs = xIntercepts 50 x y

 drawWallSearchRays :: World -> Picture
 drawWallSearchRays w = foldMap (f . fst) $ allVisibleWalls w