Cleanup

2025-10-24 23:22:16 +01:00
parent b4012af312
commit 3f5f5d2c6b
12 changed files with 77 additions and 117 deletions
@@ -39,12 +39,10 @@ makeBlockDebris bl w = foldl' (flip $ makeDebris mt) w ps
  where
    dsize = debrisSize mt
    ps = gridInPolygon dsize $ shrinkPolyOnEdges dsize $ reverse (_blFootprint bl)
-    --(mt, col) = fromMaybe (Stone, greyN 0.5) $ do
    mt = fromMaybe Stone $ do
        wlids <- w ^? cWorld . lWorld . blocks . ix (_blID bl) . blWallIDs
        (wlid, _) <- IS.minView wlids
        wl <- w ^? cWorld . lWorld . walls . ix wlid
-        --return (_wlMaterial wl, _wlColor wl)
        return $ _wlMaterial wl

 --makeDebris :: Material -> Color -> Point2 -> World -> World