Various improvements, metal debris

2022-06-23 18:53:26 +01:00
parent e3d5c4eb4b
commit 8d266a6770
18 changed files with 147 additions and 82 deletions
@@ -32,7 +32,7 @@ unshadowBlock wlid w = case w ^? walls . ix wlid of
        & walls . ix wlid . wlDraw .~ True
        & wallsZone . znObjects . ix x . ix y . ix wlid . wlDraw .~ True
      where
-        (x,y) = zoneOfPoint $ uncurry pHalf (_wlLine wl)
+        (x,y) = zoneOfPoint $ uncurry midPoint (_wlLine wl)
    Nothing -> w

 checkBlockHP :: Block -> World -> World