Remove explicit external terminal color record

src/Dodge/Machine/Draw.hs

@@ -46,7 +46,7 @@ terminalShape lw mc = fromMaybe mempty $ do
     term <- lw ^? terminals . ix tid
     return $
         colorSH
-            (_tmExternalColor term)
+            (mcColor mc)
             ( prismBox
                 Medium
                 Typical
@@ -68,11 +68,20 @@ terminalShape lw mc = fromMaybe mempty $ do
 drawBaseMachine :: Float -> Machine -> SPic
 drawBaseMachine h mc =
     noPic
-        . colorSH (_mcColor mc)
+        . colorSH (mcColor mc)
         . upperBox Medium Typical h
         . square
         $ _mcWidth mc
 
+mcColor :: Machine -> Color
+mcColor mc = case mc ^. mcType of
+    McStatic -> blue
+    McTerminal -> dark magenta
+    McDamSensor {} -> yellow
+    McProxSensor {} -> aquamarine
+    McTurret {} -> blue
+    
+
 drawTurret :: LWorld -> Turret -> Machine -> SPic
 drawTurret lw tu mc = fold $ do
     itm <- lw ^? items . ix (tu ^. tuWeapon)