Implement terminals

2022-03-14 20:39:23 +00:00
parent 1b6f11709c
commit f16f32d9d3
30 changed files with 313 additions and 119 deletions
@@ -185,9 +185,9 @@ roomOctogon = defaultRoom
 roomNgon :: Int -> Float -> Room
 roomNgon n x = defaultRoom
    { _rmPolys = [poly]
-    , _rmLinks = muout (init lnks) ++ muin[last lnks]
+    , _rmLinks = map toBothLnk lnks -- muout (init lnks) ++ muin[last lnks]
    , _rmPath  = [] -- TODO
-    , _rmPmnts = [mntLightLnkCond $ resetPLUse $ rpBool isInLnk]
+    , _rmPmnts = [mntLightLnkCond $ resetPLUse $ rprBool $ const . isInLnk]
    , _rmBound = [poly]
    , _rmFloor = Tiled [makeTileFromPoly poly 9]
    , _rmName = show n ++ "gon"