Stop door z fighting

2022-06-14 16:17:09 +01:00
parent d0e3500cad
commit 0434968b73
2 changed files with 6 additions and 5 deletions
@@ -115,7 +115,7 @@ rezBoxes = do
    centralRoom <- shuffleLinks $ (roomRectAutoLinks w h) {_rmPmnts = []}
            & rmLinks %~ setInLinks bottomEdgeTest
    let n = length $ filter bottomEdgeTest $_rmLinks centralRoom
-    return $ tToBTree "rezBoxes" $ treeFromTrunk [rezBox thecol,  door] 
+    return $ tToBTree "rezBoxes" $treeFromTrunk [rezBox thecol,  door] 
        $ Node centralRoom (replicate (n-1) dbox ++ [Node (cleatOnward door) []])

 rezColor :: RandomGen g => State g LightSource