Improve terminal color possibilities

src/Dodge/Placement/Instance/Analyser.hs

@@ -17,7 +17,7 @@ analyser ::
 analyser proxreq pslight psmc = extTrigLitPos pslight $ \tp ->
     Just $
         plSpot .~ psmc $
-            putTerminal
+            putTerminal (dark magenta)
                 (themachine & mcMounts . at ObTrigger .~ _plMID tp)
                 tparams -- (linksensortotrigger tp)
   where

src/Dodge/Placement/Instance/Terminal.hs

@@ -13,9 +13,9 @@ import Dodge.SoundLogic
 import Geometry
 import LensHelp
 
-putTerminal :: Machine -> Terminal -> Placement
-putTerminal mc tm =
-    ps0PushPS (PutTerminal tm) $
+putTerminal :: Color -> Machine -> Terminal -> Placement
+putTerminal col mc tm =
+    ps0PushPS (PutTerminal (tm & tmExternalColor .~ col)) $
         \tmpl -> Just $
             ps0PushPS (PutButton termButton) $
                 \btpl -> Just $
@@ -42,7 +42,7 @@ putTerminal mc tm =
 
 putMessageTerminal :: Color -> Terminal -> Placement
 putMessageTerminal col =
-    putTerminal $
+    putTerminal col $
         defaultMachine
             & mcColor .~ col
             & mcType .~ McTerminal