Commit before trying to add machine footprint
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user