Remove explicit external terminal color record

2025-12-07 14:24:11 +00:00
parent 1d53ff4277
commit 6e5d2f147a
16 changed files with 117 additions and 132 deletions
@@ -3,7 +3,6 @@ module Dodge.Placement.Instance.Sensor (
    damageSensor,
 ) where

-import Color
 import Control.Lens
 import Dodge.Data.GenWorld
 import Dodge.Default
@@ -18,7 +17,7 @@ damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1) $
             PutMachine
                (reverse $ square wdth)
                ( defaultMachine
-                    & mcColor .~ yellow
+--                    & mcColor .~ yellow
                    & mcMounts . at OTTrigger .~ mtrid
                    & mcMounts . at OTLightSource ?~ lsid
                    & mcType