Unify block wall types

2021-10-28 00:05:57 +01:00
parent 74e19008b4
commit 686a9fc3ee
9 changed files with 38 additions and 187 deletions
@@ -14,22 +14,8 @@ defaultWall = Wall
    , _wlPathable = False
    , _wlDraw = True
    , _wlRotateTo = True
+    , _wlBlockID = Nothing
    }
-defaultBlock :: Wall
-defaultBlock = Block
-    { _wlLine = (V2 0 0,V2 50 0)
-    , _wlID = 0
-    , _wlColor = greyN 0.5
-    , _wlSeen = False
-    , _blIDs = []
-    , _wlIsSeeThrough = False
-    , _blVisible = True
-    , _blShadows = []
-    , _wlDraw = True
-    , _wlRotateTo = True
-    , _wlBlockID = 0
-    }
-
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall
 defaultCrystalWall = defaultWall