Improve wall crushing

2026-03-28 21:43:06 +00:00
parent 2db4e9bc6e
commit 08fcc4baab
12 changed files with 176 additions and 106 deletions
@@ -33,6 +33,7 @@ data Door = Door
    , _drZeroPos :: (Point2,Float)
    , _drOnePos :: (Point2,Float)
    , _drLerp :: Float
+    , _drOldLerp :: Float
    , _drFootPrint :: IM.IntMap (Point2,Point2)
    , _drHP :: Int
    , _drPushedBy :: PushSource