Improve window drawing

2025-10-28 09:58:44 +00:00
parent d6c4d3d609
commit 10503da955
9 changed files with 58 additions and 42 deletions
@@ -48,7 +48,7 @@ tutAnoTree = do
    foldMTRS
        [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
        , corDoor
-        , tToBTree "cor" . return . cleatOnward <$> southPillarsRoom 300 300 100
+        , return . tToBTree "asdf" . return . cleatOnward $ airlockCrystal
 --        , tToBTree "x" . return . cleatOnward <$> airlockSimple
 --        , tToBTree "lastun" . return . cleatOnward <$> tanksRoom [] []
        , return $ tToBTree "cor" $ return $ cleatOnward corridor
@@ -65,7 +65,6 @@ tutAnoTree = do
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , tToBTree "asdf" . return . cleatOnward <$> airlockZ
-        --, return . tToBTree "asdf" . return . cleatOnward $ airlockCrystal
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
        , tToBTree "t" . return . cleatOnward <$> slowDoorRoom