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
@@ -38,7 +38,6 @@ sensorRoom senseType n = do
    let doorroom = triggerDoorRoom n
    return $ treeFromPost [PassDown door,PassDown cenroom,PassDown doorroom] (UseAll door)

-
 sensAboveDoor :: DamageType -> Float -> PlacementSpot -> Placement
 sensAboveDoor sensetype wth ps = extTrigLitPos 
    (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))