Simplify Foreground

2025-10-25 13:12:00 +01:00
parent 5fce0772f8
commit ff03efc41f
8 changed files with 6 additions and 21 deletions
@@ -126,11 +126,7 @@ placeSpotID rid ps pt w = case pt of
            )
    PutCrit cr -> plNewUpID (gwWorld . cWorld . lWorld . creatures) crID (mvCr p rot cr) w
    PutForeground fs ->
-        plNewUpID
-            (gwWorld . cWorld . lWorld . foreShapes)
-            fsID
-            (mvFS p rot fs)
-            w
+            (0, w & gwWorld . cWorld . lWorld . foreShapes .:~ mvFS p rot fs)
    PutMachine pps mc mitm -> plMachine (map doShift pps) mc mitm p rot w
    PutLS ls -> plNewUpID (gwWorld . cWorld . lWorld . lightSources) lsID (mvLS p' rot ls) w
    RandPS _ -> error "RandPS should not be reachable here" --evaluateRandPS rid rgn ps w