Cleanup

src/Dodge/Default/Wall.hs

@@ -1,7 +1,14 @@
-module Dodge.Default.Wall where
+module Dodge.Default.Wall (
+    defaultWall,
+    defaultSensorWall,
+    defaultMachineWall,
+    defaultWindow,
+    defaultCrystalWall,
+    defaultDoorWall,
+    defaultDirtWall,
+) where
 
 import Control.Lens
-import Dodge.Block.Debris
 import Dodge.Data.Wall
 import Geometry.Data
 import Picture
@@ -13,8 +20,8 @@ defaultWall =
         { _wlLine = (V2 0 0, V2 50 0)
         , _wlID = 0
         , _wlColor = greyN 0.6
-        --, _wlOpacity = Opaque 11
-        , _wlOpacity = Opaque 11
+        , --, _wlOpacity = Opaque 11
+          _wlOpacity = Opaque 11
         , _wlPathable = False
         , _wlPenetrable = False
         , _wlFireThrough = False
@@ -71,6 +78,9 @@ defaultDirtWall =
         , _wlMaterial = Dirt
         }
 
+dirtColor :: Color
+dirtColor = V4 (150 / 256) (75 / 256) 0 (250 / 256)
+
 defaultWindow :: Wall
 defaultWindow =
     defaultWall