Correct non-pushing of partially destroyed doors

2022-06-23 15:20:50 +01:00
parent 56b9b2dd9e
commit 85406d06c1
6 changed files with 23 additions and 4 deletions
@@ -8,8 +8,8 @@ import Control.Lens
 data ForegroundShape = ForegroundShape
    { _fsID :: Int
    , _fsPos :: Point2
-    , _fsRot :: Float
-    , _fsPic :: SPic
+    , _fsDir :: Float
+    , _fsSPic :: SPic
    }
  deriving (Eq,Show,Ord)
 makeLenses ''ForegroundShape