Start work on clouds, damage, sensors

src/Dodge/Room/SensorDoor.hs

@@ -24,7 +24,7 @@ import RandomHelp
 
 -- TODO fix case where the sensor created by sensInsideDoor blocks another door
 -- for roomRectAutoLinks-- make the locked door a center door?
-sensorRoom :: RandomGen g => DamageType -> Int -> State g (Tree Room)
+sensorRoom :: RandomGen g => SensorType -> Int -> State g (Tree Room)
 sensorRoom senseType n = do
     rm <- takeOne [roomNgon 8 200, roomRectAutoLinks 200 200]
     cenroom <- shuffleLinks $ sensInsideDoor senseType n rm
@@ -45,7 +45,7 @@ sensorRoom senseType n = do
         p' = p +.+ rotateV d (V2 0 (negate 100))
         isclose = dist (_rlPos rl) p' < 30
 
-sensorRoomRunPast :: RandomGen g => DamageType -> Int -> State g MTRS
+sensorRoomRunPast :: RandomGen g => SensorType -> Int -> State g MTRS
 sensorRoomRunPast dt n = do
     t <- sensorRoom dt n
     rToOnward "sensorRoomRunPast" $
@@ -60,13 +60,13 @@ sensorRoomRunPast dt n = do
                     ]
                 )
 
-sensAboveDoor :: DamageType -> Float -> PlacementSpot -> Placement
+sensAboveDoor :: SensorType -> Float -> PlacementSpot -> Placement
 sensAboveDoor sensetype wth ps =
     extTrigLitPos
         (atFstLnkOutShiftBy (\(p, a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
         (\tp -> Just $ damageSensor sensetype wth (_plMID tp) ps)
 
-sensInsideDoor :: DamageType -> Int -> Room -> Room
+sensInsideDoor :: SensorType -> Int -> Room -> Room
 sensInsideDoor senseType outplid rm =
     rm
         & rmName .++~ take 4 (show senseType)