Start work on clouds, damage, sensors

src/Dodge/Placement/Instance/Sensor.hs

@@ -13,7 +13,7 @@ import Dodge.LightSource
 import Geometry
 
 damageSensor ::
-    DamageType ->
+    SensorType ->
     Float ->
     Maybe Int ->
     PlacementSpot ->
@@ -42,16 +42,16 @@ damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1) $
                 defaultSensorWall
             )
 
-damageTypeThreshold :: DamageType -> Int
+damageTypeThreshold :: SensorType -> Int
 damageTypeThreshold dt = case dt of
-    FLAMING -> 1000
-    LASERING -> 1000
-    ELECTRICAL -> 500
-    _ -> undefined
+    LaserSensor -> 1000
+    ElectricSensor -> 500
+    ThermalSensor -> 1000
+    PhysicalSensor -> 1000
 
 lightSensor ::
     Float ->
     Maybe Int ->
     PlacementSpot ->
     Placement
-lightSensor = damageSensor LASERING
+lightSensor = damageSensor LaserSensor