Allow for complex room bounds for clip checks

src/Dodge/Layout.hs

@@ -116,17 +116,6 @@ insertInZone :: Int -> Int -> a -> IM.IntMap (IM.IntMap a) -> IM.IntMap (IM.IntM
 insertInZone x y obj = IM.insertWith f x $ IM.singleton y obj
     where f _ = IM.insert y obj
 
--- the old version of this used a version of polysIntersect with intersectSegSeg'
-boundClip :: Tree Room -> Bool
-boundClip t = or $ map (uncurry polysIntersect) [(x,y) | x<- xs, y<-xs, x>y]
-                    ++ map f [(ps,qs) | ps <- xs, qs <-xs, ps/=qs]
-    where xs = map _rmBound $ flatten t
-          f ([],qs) = False
-          f ((p:_),qs) = pointInPolygon p qs
-
-noBoundClip :: Tree Room -> Bool
-noBoundClip = not . boundClip
-
 shiftRoomTree :: Tree Room -> Tree Room
 shiftRoomTree (Node t []) = Node t []
 shiftRoomTree (Node t ts) = Node t