Work on chasm rooms

src/Dodge/Room/Ngon.hs

@@ -2,7 +2,7 @@ module Dodge.Room.Ngon where
 
 import RandomHelp
 import Data.List
-import Data.Maybe
+--import Data.Maybe
 import Data.Tile
 import Dodge.Data.GenWorld
 import Dodge.Default.Room
@@ -27,10 +27,10 @@ roomNgon n x = do
   where
     rot = 2 * pi / fromIntegral n
     rots = map ((rot *) . fromIntegral) [0 .. n -1]
-    poly =
-        mapMaybe
-            (\(ra, rb) -> intersectLineLine' (rotateV ra bl) (rotateV ra br) (rotateV rb bl) (rotateV rb br))
-            $ loopPairs rots
-    bl = V2 x x
-    br = V2 (- x) x
+    poly = polyOrthDist n x
+--        mapMaybe
+--            (\(ra, rb) -> intersectLineLine (rotateV ra bl) (rotateV ra br) (rotateV rb bl) (rotateV rb br))
+--            $ loopPairs rots
+--    bl = V2 x x
+--    br = V2 (- x) x
     lnks = sortOn ((\(V2 a b) -> (negate b, a)) . fst) $ map (\r -> (rotateV r (V2 0 x), r)) rots