Random tree structure generation of rooms

src/Dodge/Base.hs

@@ -189,11 +189,11 @@ wallsNearPoint p w =  IM.unions [f b $ f a $ _wallsZone w | a<-[x-1,x,x+1] , b<-
                                         _        -> IM.empty
 
 -- possible BUG, was associated with thingsHitLongLine
+-- assumes _wallsZone is correct level generation
+-- there is certainly a problem somewhere here: it may be in the zoning, or
+-- within this function
 wallsAlongLine :: Point2 -> Point2 -> World -> IM.IntMap Wall
 {-# INLINE wallsAlongLine #-}
---wallsAlongLine a b w = IM.unions [f y $ f x $ _wallsZone w | (x,y) <- zoneOfLine a b]
---    where f i m = case IM.lookup i m of Just val -> val
---                                        _        -> IM.empty
 wallsAlongLine a b w = IM.foldrWithKey' g IM.empty kps
     where g x s = IM.union (IM.unions (IM.restrictKeys (f x $ _wallsZone w) s))
           kps = zoneOfLine' a b