Stop intersectSegSegTest returning True for collinear line pairs

src/Dodge/Room/Room.hs

@@ -8,6 +8,7 @@ module Dodge.Room.Room (
     pistolerRoom,
     spawnerRoom,
     corDoor,
+    doorCor,
     weaponBehindPillar,
     critsRoom,
     distributerRoom,
@@ -395,10 +396,15 @@ spawnerRoom = do
     aRoom <- airlock
     return $ treeFromTrunk [aRoom, corridor] $ pure $ cleatOnward roomWithSpawner
 
+doorCor :: RandomGen g => State g (MetaTree Room String)
+doorCor = do
+    cor <- shuffleLinks (cleatOnward corridor) <&> rmPmnts .~ []
+    return $ tToBTree "doorCor" $ treePost [door, cor]
+
 corDoor :: RandomGen g => State g (MetaTree Room String)
 corDoor = do
-    cor <- shuffleLinks (cleatOnward corridor) <&> rmPmnts .~ []
-    return $ tToBTree "corDoor" $ treePost [door, cor]
+    cor <- shuffleLinks corridor <&> rmPmnts .~ []
+    return $ tToBTree "corDoor" $ treePost [cor,cor, cleatOnward door]
 
 critsPillarRoom :: Int -> State LayoutVars Room
 critsPillarRoom i = do
@@ -452,6 +458,8 @@ distributerRoom atype aamount = do
                 )
     return $ r & rmPmnts .:~ store
         & rmInPmnt <>~ [(0,dst),(1,thepipe)]
+        & rmLinks %~ setInLinksByType (OnEdge South)
+        & rmLinks %~ setOutLinks (not . S.member (OnEdge South) . _rlType)
 
 tmDistributeLines :: [TerminalLine]
 tmDistributeLines = [TLine 1 [TerminalLineConst "ATTEMPTING TO DISTRIBUTE MATERIAL..." white] TmDistributeAmmo]