Add objects based on walls, called machines

src/Dodge/Debug/Picture.hs

@@ -43,7 +43,7 @@ lineOnScreenCone w p1 p2 = pointInPolygon p1 sp
 
 drawWallFace :: World -> Wall -> Picture
 drawWallFace w wall
-    | isRHS sightFrom x y || _wlIsSeeThrough wall = blank
+    | isRHS sightFrom x y || _wlOpacity wall /= Opaque = blank
     | otherwise = setDepth (-1) . color (withAlpha 0 black) . polygon $ points
   where 
     (x,y) = _wlLine wall 
@@ -56,13 +56,13 @@ extendConeToScreenEdge w c (x,y) = orderPolygon $ wallScreenIntersect ++ [x,y] +
     borderPs = mapMaybe (intersectLinefromScreen w c) [x,y]
     cornerPs = filter (pointIsInCone c (x,y)) $ screenPolygon w
     wallScreenIntersect = mapMaybe (uncurry $ intersectSegSeg y ((2*.*y) -.- x)) 
-                              . makeLoopPairs $ screenPolygon w
+                              . loopPairs $ screenPolygon w
 
 -- the following assumes that the point a is inside the screen
 -- it still works otherwise, but it might intersect two points:
 -- it is not obvious which will be returned
 intersectLinefromScreen :: World -> Point2 -> Point2 -> Maybe Point2
 intersectLinefromScreen w a b = listToMaybe 
-    . mapMaybe (\(x,y) -> intersectSegLineFrom' x y b (b +.+ b -.- a))
-    . makeLoopPairs 
+    . mapMaybe (\(x,y) -> intersectSegLineFrom x y b (b +.+ b -.- a))
+    . loopPairs 
     $ screenPolygon w