Tweak item dropping, add item radius

2021-11-19 14:04:44 +00:00
parent da83bd06a6
commit 4ef1811dd6
6 changed files with 56 additions and 32 deletions
@@ -27,8 +27,7 @@ colCrWall w c
    | otherwise = c & crPos .~ _crOldPos c
  where 
    c'' = c & crPos %~ pushOutFromWalls rad ls
-    c' = c & crPos %~ 
-        pushOutFromWalls rad (reverse ls)
+    c'  = c & crPos %~ pushOutFromWalls rad (reverse ls)
        . pushOutFromWalls rad ls 
        . flip (collidePointWalls p1) wls  -- check push throughs
    rad = _crRad c + wallBuffer