Improve normal maps on ground and walls

src/Dodge/Default/Door.hs

@@ -14,15 +14,17 @@ switchWallCol col = defaultSwitchWall & wlColor .~ col
 
 defaultAutoWall :: Wall
 defaultAutoWall =
-    defaultDoorWall'
+    defaultDoorWall
         & wlColor .~ dim yellow
         & wlPathable .~ True
+        & wlOpacity .~ Opaque 9
 
 defaultSwitchWall :: Wall
 defaultSwitchWall =
-    defaultDoorWall'
+    defaultDoorWall
         & wlColor .~ red
         & wlPathable .~ False
+        & wlOpacity .~ Opaque 0
 
 defaultDoor :: Door
 defaultDoor =

src/Dodge/Default/Wall.hs

@@ -13,7 +13,8 @@ defaultWall =
         { _wlLine = (V2 0 0, V2 50 0)
         , _wlID = 0
         , _wlColor = greyN 0.6
-        , _wlOpacity = Opaque
+        --, _wlOpacity = Opaque 11
+        , _wlOpacity = Opaque 11
         , _wlPathable = False
         , _wlPenetrable = False
         , _wlFireThrough = False
@@ -28,8 +29,8 @@ defaultWall =
         , _wlBouncy = True
         }
 
-defaultDoorWall' :: Wall
-defaultDoorWall' =
+defaultDoorWall :: Wall
+defaultDoorWall =
     defaultWall
         { _wlPathable = True
         , _wlMaterial = Metal
@@ -63,7 +64,7 @@ defaultDirtWall =
         { _wlLine = (V2 0 0, V2 50 0)
         , _wlID = 0
         , _wlColor = dirtColor
-        , _wlOpacity = Opaque
+        , _wlOpacity = Opaque 6
         , _wlRotateTo = False
         , _wlFireThrough = True
         , _wlPenetrable = True