Continue to refactor zoning to be more stream-based

2022-06-28 03:21:55 +01:00
parent f6d96ec92c
commit e06527091e
34 changed files with 214 additions and 252 deletions
@@ -27,7 +27,7 @@ triLootRoom w h = pure $ defaultRoom
                  , base
                  ]
    , _rmLinks  = [uncurry inLink(V2 0 (-80) , pi)]
-    , _rmPath   = doublePair (V2 0 (-80) , V2 0 (h/2))
+    , _rmPath   = doublePairSet (V2 0 (-80) , V2 0 (h/2))
    , _rmPmnts     =
        [sPS (V2 (15-w)    15 )  0 $ PutID 0
        ,sPS (V2 (w-15)    15 ) pi $ PutID 0