Add extra debug options for viewing room clipping

src/Dodge/Initialisation.hs

@@ -10,7 +10,6 @@ import Dodge.Creature
 import Dodge.WorldEvent.Cloud
 import Dodge.SoundLogic
 import Geometry.Data
-import Geometry.ConvexPoly
 
 import System.Random
 import qualified Data.Set as S
@@ -43,7 +42,8 @@ initialWorld = defaultWorld
 
 testStringInit :: World -> [String]
 --testStringInit = map (concatMap $ \(_,ct,_,_) -> show ct) . invertListInvMult . yourInv
-testStringInit w = [show $ f $ _roomClipping w]
-  where
-    f (x:xs) = any (convexPolysOverlap x) xs || f xs
-    f [] = False
+testStringInit = const []
+--    w = [show $ f $ _roomClipping w]
+--  where
+--    f (x:xs) = any (convexPolysOverlap x) xs || f xs
+--    f [] = False