Remove default light sources

2024-11-26 13:27:58 +00:00
parent 029c61efc8
commit 7d0f44a041
8 changed files with 191 additions and 222 deletions
@@ -78,7 +78,7 @@ putLitButOnPos col theps subpl =
                    .~ _plSpot plmnt
  where
    changeLight lsid = SetLSCol (V3 0 0.5 0) lsid
-    ls = lsRadCol 50 (V3 0.5 0 0)
+    ls = lsColPosRad (V3 0.5 0 0) (V3 0 0 50) 50

 -- creates a lit external trigger, passes the trigger placement forward
 extTrigLitPos :: PlacementSpot -> (Placement -> Maybe Placement) -> Placement
@@ -128,4 +128,4 @@ putLitButOnPosExtTrig' col thePS cnt =
    trigid tp = fromJust $ _plMID tp
    oneff tid = SetTrigger True tid
    changeLight = SetLSCol (V3 0 0.5 0)
-    ls = lsRadCol 50 (V3 0.5 0 0)
+    ls = lsColPosRad (V3 0.5 0 0) (V3 0 0 50) 50