Partially working mounts on lerp doors

src/Dodge/Block/Debris.hs

@@ -7,6 +7,7 @@ module Dodge.Block.Debris (
     makeDebrisDirected,
 ) where
 
+import Dodge.ShiftPoint
 import Color
 import Data.Foldable
 import qualified Data.IntSet as IS
@@ -24,7 +25,8 @@ import Shape
 makeDoorDebris :: Door -> World -> World
 makeDoorDebris dr w = w & makeDebris mt col p
   where
-    p = uncurry midPoint (_drPos dr)
+    p2a = lerpP2A (dr ^. drZeroPos) (dr ^. drOnePos) (dr ^. drLerp)
+    p = centroid . fmap fst $ (dr ^. drFootPrint) & each . each %~ shiftPointBy p2a
     (mt, col) = fromMaybe (Stone, greyN 0.5) $ do
         wlids <- w ^? cWorld . lWorld . doors . ix (_drID dr) . drWallIDs
         (wlid, _) <- IS.minView wlids