Remove recursive WdWd

2026-03-26 19:33:02 +00:00
parent 01b765300e
commit 62a37388e7
3 changed files with 5 additions and 5 deletions
@@ -110,7 +110,7 @@ putLitButOnPosExtTrig' col thePS cnt =
                    \plmnt ->
                        jps0'
                            ( PutButton
-                                (makeButton col (WorldEffects [changeLight (fromJust $ _plMID plmnt), oneff (trigid tp)]))
+                                (makeButton col (buteff (trigid tp) (fromJust $ _plMID plmnt)))
                                    { _btPos = V2 0 (-1)
                                    , _btRot = pi
                                    }
@@ -119,8 +119,7 @@ putLitButOnPosExtTrig' col thePS cnt =
                            <&> plSpot
                                .~ _plSpot plmnt
  where
+    buteff i j = SetTriggerAndSetLSCol True i (V3 0 0.5 0) j
    shp = fmap (fmap $ colorSH col) aShape
    trigid tp = fromJust $ _plMID tp
-    oneff = SetTrigger True
-    changeLight = SetLSCol (V3 0 0.5 0)
    ls = lsColPosRad (V3 0.5 0 0) (V3 0 0 50) 50