Reorganise block module

2021-03-05 20:24:12 +01:00
parent fdca8a8760
commit bd16ad2a2a
5 changed files with 23 additions and 149 deletions
@@ -577,6 +577,7 @@ data Wall
        , _blVisible :: Bool
        , _blShadows :: [Int]
        , _blDegrades :: [Int]
+        , _wlCastShadow :: Bool
        }
    | MultiBlock
        { _wlLine :: [Point2]
@@ -587,17 +588,6 @@ data Wall
        , _subWalls :: [Wall]
        }

-data Block' = Block'
-    { _blPoly  :: [Point2]
-    , _blLines :: [[Point2]]
-    , _blColor :: Color
-    , _blSeen  :: Bool
-    , _blHP'   :: [Int]
-    , _blVisible' :: Bool
-    , _blShadows' :: [Int]
-    , _blID :: Int
-    }
-
 data ForceField = FF { _ffLine :: [Point2] , _ffID :: Int 
                     , _ffColor :: Color
                     , _ffDeflect :: Maybe (StdGen -> Point2 -> ForceField -> (Point2,StdGen))