Add quiet laser sound

src/Dodge/Placement/Instance/Sensor.hs

@@ -36,7 +36,7 @@ sensorUpdate :: (DamageType -> Either Int Int) -> Machine -> World -> World
 sensorUpdate damF mc w = w & machines . ix mcid %~ upmc
     & lightSources . ix lsid %~ upls
   where
-    upmc = ( mcSensor %~ \x' -> min 750 (max 0 (x' - 5 + newSense)) )
+    upmc = ( mcSensor %~ \x' -> min 1000 (max 0 (x' - 5 + newSense)) )
         . ( mcHP -~ sum dam )
         . (mcDamage .~ [])
     x = _mcSensor mc
@@ -44,7 +44,7 @@ sensorUpdate damF mc w = w & machines . ix mcid %~ upmc
     lsid = head (_mcLSs mc)
     (senseData,dam) = partitionEithers $ map damF $ _mcDamage mc
     newSense = sum senseData
-    ni = fromIntegral x / 500
+    ni = fromIntegral x / 1000
     upls = lsIntensity .~ V3 ni ni ni
 
 sensorSPic :: Machine -> SPic