Unify background machine sounds

src/Dodge/Machine/Draw.hs

@@ -23,6 +23,7 @@ drawMachine cw mc = case _mcType mc of
     McProxSensor {} -> drawBaseMachine 25 mc
     McStorage {} -> noPic $ colorSH (mcColor mc) storageShape
     McDistributer {} -> drawBaseMachine 25 mc
+    McInterrupter {} -> drawBaseMachine 25 mc
   where
     lw = cw ^. lWorld
     gp = cw ^. cwGen . cwgParams . sensorCoding
@@ -86,7 +87,8 @@ mcColor mc = case mc ^. mcType of
     McProxSensor {} -> aquamarine
     McTurret {} -> blue
     McStorage {} -> orange
-    McDistributer {} -> red
+    McDistributer {} -> green
+    McInterrupter {} -> red
     
 
 drawTurret :: LWorld -> Turret -> Machine -> SPic