Work on room generation/laser run past

2026-03-17 21:50:28 +00:00
parent 13b12f01a8
commit 3b4cf68a15
18 changed files with 656 additions and 528 deletions
@@ -17,11 +17,18 @@ damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1) $
            PutMachine
                (reverse $ square wdth)
                ( defaultMachine
+                    & mcMaterial .~ mattype
                    & mcMounts . at OTTrigger .~ mtrid
                    & mcMounts . at OTLightSource ?~ lsid
                    & mcType .~ McDamSensor (DamSensor 0 dt)
                )
                Nothing
+  where
+    mattype = case dt of
+        LaserSensor -> Photovoltaic
+        ElectricSensor -> LightningRod
+        ThermalSensor -> Pyroelectric
+        PhysicalSensor -> Piezoelectric

 lightSensor :: Float -> Maybe Int -> PlacementSpot -> Placement
 lightSensor = damageSensor LaserSensor