Fix bug determining max radius of convex polys, fixes bugs in room positioning

src/Dodge/Initialisation.hs

@@ -10,6 +10,7 @@ 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
@@ -42,4 +43,7 @@ initialWorld = defaultWorld
 
 testStringInit :: World -> [String]
 --testStringInit = map (concatMap $ \(_,ct,_,_) -> show ct) . invertListInvMult . yourInv
-testStringInit = const []
+testStringInit w = [show $ f $ _roomClipping w]
+  where
+    f (x:xs) = any (convexPolysOverlap x) xs || f xs
+    f [] = False