Work on more complicated terminals

2022-05-31 13:30:27 +01:00
parent 79b3a86520
commit b54864bbda
13 changed files with 159 additions and 64 deletions
@@ -47,7 +47,6 @@ sensorRoomRunPast dt n = do
    t <- sensorRoom dt n
    return (applyToSubforest [0] (++
        [treeFromPost [PassDown $ door & rmConnectsTo .~ S.member InLink
-            & rmName .~ "test"
        ] (UseLabel 0 corridor)]
        ) t 
        ,TreeSubLabelling "sensorRoomRunPast" Nothing)