Implement randomised markings on sensors

2022-03-13 19:59:46 +00:00
parent 06a501ff88
commit 1b6f11709c
16 changed files with 169 additions and 95 deletions
@@ -20,3 +20,4 @@ shiftPlacement shift plmnt = case plmnt of
        (fmap (shiftPlacement shift) f)
    RandomPlacement rpl -> RandomPlacement $ fmap (shiftPlacement shift) rpl
    PickOnePlacement i pl -> PickOnePlacement i (shiftPlacement shift pl)
+    PlacementGenUpdate f pl -> PlacementGenUpdate f (shiftPlacement shift pl)