Remove separate wall color, should be handled by material type

src/Dodge/Wall/Draw.hs

@@ -1,8 +1,10 @@
 module Dodge.Wall.Draw (drawWall) where
 
+import Dodge.Material.Color
 import Dodge.Data.Wall
 import Picture.Base
 import ShapePicture
+import Control.Lens
 
 drawWall :: WallDraw -> Wall -> SPic
 drawWall wd = case wd of
@@ -11,7 +13,8 @@ drawWall wd = case wd of
 drawForceField :: Wall -> SPic
 drawForceField wl = noShape . setLayer BloomLayer
         . setDepth 20
-        . color (_wlColor wl)
+        . color (materialColor (wl ^. wlMaterial))
+--        . color (_wlColor wl)
         $ thickLine 5 [a, b]
   where
     (a, b) = _wlLine wl

src/Dodge/Wall/ForceField.hs

@@ -1,17 +1,14 @@
 module Dodge.Wall.ForceField where
 
-import Color
 import Dodge.Data.Wall
 import Dodge.Default.Wall
 
 forceField :: Wall
 forceField =
     defaultWall
-        { _wlColor = orange
-        , _wlOpacity = DrawnWall DrawForceField
-        , _wlWalkable = True
-        , _wlFireThrough = False
+        { _wlOpacity = DrawnWall DrawForceField
         , _wlUnshadowed = True
         , _wlRotateTo = False
         , _wlStructure = StandaloneWall
+        , _wlMaterial = ForceField
         }