Move toward indexed external placements

2021-11-15 19:36:31 +00:00
parent 59dc24aff6
commit a7f2b5f3ea
9 changed files with 63 additions and 32 deletions
@@ -16,7 +16,7 @@ import Data.Tree
 import Control.Monad.State
 import Control.Lens
 import System.Random
-import qualified Data.IntMap.Strict as IM
+--import qualified Data.IntMap.Strict as IM

 rezBox :: Room
 rezBox = shiftRoomBy (V2 (-20) (-10),0) $ roomRect 40 20 1 1 
@@ -38,8 +38,6 @@ startRoom = do
            ]
    treeFromPost [Left rezBox, Left door] . Right 
        <$> randomiseOutLinks 
-            ((shiftRoomBy (V2 (-20) (-20),0) 
-            $ roomRectAutoLinks w h & rmPmnts %~ (plmnts ++) 
-                & rmStartWires .~ IM.fromList [(0,RoomWire (V2   0   0) 0)]
-                & rmEndWires   .~ IM.fromList [(0,RoomWire (V2 500 500) 0)]
+            (shiftRoomBy (V2 (-20) (-20),0) 
+            ( roomRectAutoLinks w h & rmPmnts %~ (plmnts ++) 
            ) & rmShift .~ (0,0) )