Work towards allowing for children to attach to arbitrary link types

2021-11-23 22:54:43 +00:00
parent 0ca4f8a425
commit c4614866e6
4 changed files with 44 additions and 36 deletions
@@ -106,7 +106,7 @@ addButtonSlowDoor x h rm = do
       ,( V2 (x/2+50) 5,0::Float)
       ]
    thePlacement <- takeOne [butDoor butPos butRot ]
-    changeLinkFrom aboveH =<< changeLinkTo belowH (rm 
+    shuffleLinks $ setOutLinks aboveH $ setInLinks belowH (rm 
        & rmPmnts %~ (thePlacement :)
        & rmBound %~ (openDoorBound :)
        )