Transition to new room datatypes, first separate out/inlinks

2021-11-23 17:27:33 +00:00
parent 67b0d694af
commit 0f4040807a
19 changed files with 119 additions and 87 deletions
@@ -31,9 +31,8 @@ litCorridor90 = do
        poly2 = rectNSWE (h-60) (h-100) (-60) 5
    pure $ defaultRoom
        { _rmPolys = [poly,poly2]
-        , _rmLinks = [ (V2 40 (h - 80), -pi/2)
-                     , (V2 20       0 , pi   )
-                     ]
+        , _rmOutLinks = [ (V2 40 (h - 80), -pi/2)]
+        , _rmInLinks = [ (V2 20       0 , pi   ) ]
        , _rmPath  = concatMap doublePair 
            [( V2  20   0     , V2 20 (h-40) )
            ,( V2   0  (h-40) , V2 20 (h-40) )
@@ -95,7 +94,8 @@ lasTunnel :: Room
 lasTunnel = defaultRoom
    { _rmPolys  = polys
    , _rmBound  = polys
-    , _rmLinks  = [(V2 20 190,1.5* pi),(V2 0 20,0.5* pi)]
+    , _rmOutLinks  = [(V2 20 190,1.5* pi)]
+    , _rmInLinks = [(V2 0 20,0.5* pi)]
    , _rmPmnts     = [putLasTurret 0.005 & plSpot .~ PS (V2 10 240) (1.5*pi)
        , midWall (rectNSEW 65 40 0 25)
        , mntLS vShape (V2 50 10) (V3 40 20 50)