Work on airlocks

2025-08-23 17:42:36 +01:00
parent f641805845
commit 32d7120177
19 changed files with 380 additions and 334 deletions
@@ -61,7 +61,7 @@ longBlockedCorridor maxn = do
    n <- state $ randomR (0, maxn)
    let plmnts =
            [ sPS (V2 20 40) r $ dirtPoly $ square 10
-            , sPS (V2 20 15) 0 putLamp
+--            , sPS (V2 20 15) 0 putLamp
            ]
    sequence $
        treeFromPost (replicate n $ shuffleLinks corridor) $