Refactor machines

2022-07-24 20:55:44 +01:00
parent d6a94ec4bc
commit 24531b75a1
10 changed files with 110 additions and 59 deletions
@@ -1,6 +1,7 @@
 module Dodge.Placement.Instance.Sensor
    ( lightSensor
    , damageSensor
+    , sensorSPic -- this should be moved
    ) where
 import Color
 import Dodge.LightSource
@@ -28,7 +29,7 @@ damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1)
            & mcColor .~ yellow
            & mcMounts . at ObTrigger .~ mtrid
            & mcMounts . at ObLightSource ?~ lsid
-            & mcDraw .~ sensorSPic wdth (_sensorCoding (_genParams gw) M.! dt)
+            & mcDraw .~ MachineDrawDamageSensor wdth (_sensorCoding (_genParams gw) M.! dt)
            & mcSensor .~ DamageSensor False 0 dt
        )
        defaultSensorWall