Cleanup

2021-11-23 21:48:01 +00:00
parent b7d6eeaa84
commit 86f363c2f9
19 changed files with 93 additions and 122 deletions
@@ -16,8 +16,7 @@ import Control.Lens
 door :: Room
 door = defaultRoom
    { _rmPolys = [rectNSWE 40 0 0 40]
-    , _rmOutLinks = init lnks
-    , _rmInLinks = [last lnks]
+    , _rmLinks = init lnks ++ [last lnks]
    , _rmPath  = [(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)]
@@ -31,8 +30,7 @@ door = defaultRoom
 switchDoorRoom :: Room
 switchDoorRoom = defaultRoom
    { _rmPolys = [rectNSWE 40 0 0 40]
-    , _rmOutLinks = init lnks
-    , _rmInLinks = [last lnks]
+    , _rmLinks = init lnks++ [last lnks]
    , _rmPath  = [(V2 20 35,V2 20 5)]
    , _rmPartPmnt = Just f
 -- door extends into side walls (for shadows as rendered 12/03)