Commit before making out and in placements have ids

2022-03-11 12:34:19 +00:00
parent 73a35bb3f1
commit 219e4e15ee
13 changed files with 166 additions and 179 deletions
@@ -59,11 +59,12 @@ lightSensByDoor rm = rm
    & rmPmnts .++~ 
        [ psPt atFstLnkOut $ PutShape $ colorSH yellow 
            $ barPP 1.5 (V3 20 (-1) 0) (V3 20 (-1) 80)
-        , heightWallPS (atNthLnkOutShiftInward 1 100) 30 (rectNSEW 10 (-10) 20 (-20))
-        , heightWallPS (atFstLnkOutShiftInward 100)   30 (rectNSEW 10 (-10) 20 (-20))
+        , heightWallPS (atNthLnkOutShiftInward 1 100) 30 covershape
+        , heightWallPS (atFstLnkOutShiftInward 100)   30 covershape
        ]
    & rmExtPmnt ?~ lasSensLightAboveDoor 20 (atFstLnkOutShiftBy sensorshift)
  where
+    covershape = rectNSEW 10 (-10) 20 (-20)
    sensorshift (p,a) = (p +.+ rotateV a (V2 60 (-20)), a)

 lasSensorTurretTest :: RandomGen g => Int -> State g (SubCompTree Room)