Improve forcefield visuals

src/Dodge/Wall/ForceField.hs

@@ -2,11 +2,13 @@ module Dodge.Wall.ForceField where
 import Dodge.Data
 import Dodge.Default.Wall
 import Color
+import Picture
+import ShapePicture
 
 forceField :: Wall
 forceField = defaultWall
     {_wlColor = orange
-    ,_wlOpacity = SeeAbove
+    ,_wlOpacity = DrawnWall drawForceField
     ,_wlPathable = True
     ,_wlWalkable = True
     ,_wlFireThrough = True
@@ -15,3 +17,13 @@ forceField = defaultWall
     ,_wlRotateTo = False
     ,_wlStructure = StandaloneWall
     }
+
+drawForceField :: Wall -> SPic
+drawForceField wl = (mempty
+    , setLayer BloomLayer
+        . setDepth 20
+        . color (_wlColor wl)
+        $ thickLine 5 [a,b]
+    )
+  where
+    (a,b) = _wlLine wl