Commit before trying to add machine footprint

2026-03-31 13:57:48 +01:00
parent 6bcf03b30d
commit dea4c0dffe
10 changed files with 44 additions and 44 deletions
@@ -17,7 +17,7 @@ damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1) $
            PutMachine
                (reverse $ square wdth)
                ( defaultMachine
-                    & mcMaterial .~ mattype
+                    & mcSkin .~ mattype
                    & mcMounts . at OTTrigger .~ mtrid
                    & mcMounts . at OTLightSource ?~ lsid
                    & mcType .~ McDamSensor (DamSensor 0 dt)
@@ -204,7 +204,7 @@ plMachine wallpoly mc mitm p rot gw =
        . at mcid
        ?~ themc
        & gwWorld
-        %~ placeMachineWalls (_mcMaterial mc) wallpoly mcid wlid
+        %~ placeMachineWalls (_mcSkin mc) wallpoly mcid wlid
        & tolw
        %~ maybe id placeturretitm mitm
    )