Remove separate wall color, should be handled by material type

src/Dodge/Placement/Instance/Block.hs

@@ -18,7 +18,7 @@ decoratedBlock decf mat col h ps = PutBlock bl wl $ reverse ps
             & blMaterial .~ mat
     wl =
         defaultWall
-            & wlColor .~ col
+--            & wlColor .~ col
             & wlRotateTo .~ False
             & wlOpacity .~ SeeAbove
             & wlMaterial .~ mat

src/Dodge/Placement/Instance/Door.hs

@@ -111,7 +111,8 @@ switchDoor btpos btrot dra drb col = pContID
         jsps0J (doorbetween btid dra drc) $
             sps0 (doorbetween btid drb drc)
   where
-    doorbetween btid a b = PutSlideDr thedoor (switchWallCol col) 
+    --doorbetween btid a b = PutSlideDr thedoor (switchWallCol col) 
+    doorbetween btid a b = PutSlideDr thedoor defaultSwitchWall 
         (S.fromList (WallObstacle <$> [WallNotAutoOpen,WallBlockVisibility])) 1 a b
       where
         thedoor =

src/Dodge/Placement/Instance/Wall.hs

@@ -1,6 +1,6 @@
 module Dodge.Placement.Instance.Wall where
 
-import Color
+import Dodge.Material.Color
 import Control.Lens
 import Data.List
 import Dodge.Data.GenWorld
@@ -11,7 +11,7 @@ import Dodge.Placement.Instance.Block
 import Geometry
 
 heightWallPS :: PlacementSpot -> Float -> [Point2] -> Placement
-heightWallPS spot h ps = psPtPl spot $ lowBlock Stone (_wlColor defaultWall) h ps
+heightWallPS spot h ps = psPtPl spot $ lowBlock Stone (materialColor Stone) h ps
 
 invisibleWall :: [Point2] -> Placement
 invisibleWall ps =
@@ -89,12 +89,10 @@ baseBlockPane =
         { _wlLine = (V2 0 0, V2 50 0)
         , _wlID = 0
         --, _wlColor = greyN 0.5
-        , _wlColor = dark $ dark orange
+--        , _wlColor = dark $ dark orange
         --, _wlOpacity = Opaque 10
         , _wlOpacity = Opaque 17
         , _wlUnshadowed = True
-        , _wlFireThrough = False
-        , _wlPenetrable = True
         }
 
 -- TODO find home for this