Fix wall zoning

2022-06-27 09:56:54 +01:00
parent 7778fb0403
commit 90af97ee22
15 changed files with 128 additions and 34 deletions
@@ -9,7 +9,7 @@ data ForegroundShape = ForegroundShape
    { _fsID :: Int
    , _fsPos :: Point2
    , _fsDir :: Float
-    , _fsRad :: Float
+    , _fsRad :: Float  -- This should probably be a bounding box
    , _fsSPic :: SPic
    }
  deriving (Eq,Show,Ord)