Identify broken wall collisions

src/Dodge/Placement/Instance/Wall.hs

@@ -9,14 +9,27 @@ import Color
 
 import Data.List
 import Control.Lens
-lowWall :: [Point2] -> Placement
-lowWall ps = ps0j (PutForeground . colorSH col $ upperPrismPoly 30 ps)
+
+heightWall :: Float -> [Point2] -> Placement
+heightWall h ps = ps0j (PutForeground . colorSH col $ upperPrismPoly h ps)
     $ sps0 $ PutWall ps theWall
   where
     col = _wlColor defaultWall
     theWall = defaultWall
         { _wlOpacity = SeeAbove
         , _wlDraw = False
+        , _wlHeight = h
+        }
+
+midWall :: [Point2] -> Placement
+midWall ps = ps0j (PutForeground . colorSH col $ upperPrismPoly 50 ps)
+    $ sps0 $ PutWall ps theWall
+  where
+    col = _wlColor defaultWall
+    theWall = defaultWall
+        { _wlOpacity = SeeAbove
+        , _wlDraw = False
+        , _wlHeight = 50
         }