Move toward indexed external placements

2021-11-15 19:36:31 +00:00
parent 59dc24aff6
commit a7f2b5f3ea
9 changed files with 63 additions and 32 deletions
@@ -33,8 +33,8 @@ initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
    [[StartRoom]
    ,[ChainAnos 
-        [[SetLabel 0 $ return $ roomRectAutoLinks 100 100 
-                    & rmExtPmnt ?~ externalButton red 
+        [[SetLabel 0 $ return $ roomRectAutoLinks 200 200 
+                    & rmExtPmnt ?~ triggerSwitch red 
                        (anyLnkInPS 5 & psLnkRoomEff .~ (putWireStart 0 . extractRoomPos) )
                    & rmLinkEff .~ [putWireEnd 0]
         ]