Allow for random choice between placements in different rooms

2021-11-26 12:20:20 +00:00
parent aad79bdf25
commit 123bcd2c94
27 changed files with 260 additions and 191 deletions
@@ -17,3 +17,4 @@ shiftPlacement shift plmnt = case plmnt of
    PlacementUsingPos p f -> PlacementUsingPos (shiftPoint3By shift p)
        (fmap (shiftPlacement shift) f)
    RandomPlacement rpl -> RandomPlacement $ fmap (shiftPlacement shift) rpl
+    PickOnePlacement i pl -> PickOnePlacement i (shiftPlacement shift pl)