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