Improve forcefield visuals

src/Dodge/Base/Collide.hs

@@ -12,6 +12,8 @@ module Dodge.Base.Collide
     , isWalkable
     , canSee
     , hasLOSIndirect
+    , wlIsOpaque
+    , wlIsSeeThrough
     ) where
 import Dodge.Data
 import Dodge.Zone
@@ -126,7 +128,14 @@ collidePointWalkable p1 p2 ws
 --    p3 = p1 +.+ d *.* safeNormalizeV (p2 -.- p1)
 
 wlIsOpaque :: Wall -> Bool
-wlIsOpaque wl = _wlOpacity wl == Opaque
+wlIsOpaque wl = case _wlOpacity wl of
+    Opaque -> True
+    _ -> False
+
+wlIsSeeThrough :: Wall -> Bool
+wlIsSeeThrough wl = case _wlOpacity wl of
+    SeeThrough -> True
+    _ -> False
 
 --collidePointUpToIndirect
 --    :: Point2   -- ^start point