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
@@ -18,7 +18,7 @@ door :: Room
 door = defaultRoom
    { _rmPolys = [rectNSWE 40 0 0 40]
    , _rmLinks = init lnks ++ [last lnks]
-    , _rmPath  = [(V2 20 35,V2 20 5)]
+    , _rmPath  = doublePairSet (V2 20 35,V2 20 5)
 -- door extends into side walls (for shadows as rendered 12/03)
    , _rmPmnts = [putAutoDoor (V2 0 20) (V2 40 20)]
    , _rmName = "autoDoor"
@@ -33,7 +33,7 @@ triggerDoorRoom :: Int -> Room
 triggerDoorRoom inplid = defaultRoom
    { _rmPolys  = [rectNSWE 40 0 0 40]
    , _rmLinks  = [uncurry outLink (V2 20 35,0) ,uncurry inLink(V2 20  5,pi) ]
-    , _rmPath   = [(V2 20 35,V2 20 5)]
+    , _rmPath   = doublePairSet (V2 20 35,V2 20 5)
    , _rmInPmnt = [InPlacement f inplid]
    , _rmName   = "triggerDoorRoom"
 -- door extends into side walls (for shadows as rendered 12/03/21)