Remove default light sources

src/Dodge/Placement/Instance/Button.hs

@@ -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

src/Dodge/Placement/Instance/LightSource.hs

@@ -5,7 +5,6 @@ import Control.Lens
 import Data.Maybe
 import Dodge.Creature.Inanimate
 import Dodge.Data.GenWorld
-import Dodge.Default
 import Dodge.LevelGen.PlacementHelper
 import Dodge.LightSource
 import Dodge.Room.Foreground
@@ -39,7 +38,7 @@ moveLSThen ::
 moveLSThen posf off sh = propLSThen (PropUpdatePosition posf) (PrWdLsSetPosition posf off) thels theprop
   where
     --lsupdate _ w = lsParam . lsPos .~ addZ 0 (fst (posf w)) +.+.+ rotate3z (snd (posf w)) off
-    thels = defaultLS
+    thels = LS 0 $ LSParam 0 200 0.6
     theprop =
         ShapeProp
             { _prPos = 0
@@ -123,9 +122,13 @@ vShape wallpos (V3 x y z) =
 
 mntLS :: (Point2 -> Point3 -> Shape) -> Point2 -> Point3 -> Placement
 mntLS shp wallp lampp = mntLSOn shp Nothing defaultLS wallp lampp (const Nothing)
+  where
+    defaultLS = LS 0 $ LSParam 0 200 0.6
 
 mntLSCol :: (Point2 -> Point3 -> Shape) -> Color -> Point2 -> Point3 -> Placement
 mntLSCol shp col wallp lampp = mntLSOn shp (Just col) defaultLS wallp lampp (const Nothing)
+  where
+    defaultLS = LS 0 $ LSParam 0 200 0.6
 
 mntLSLampCol :: (Point2 -> Point3 -> Shape) -> Color -> Point2 -> Point3 -> Placement
 mntLSLampCol shp (V4 x y z _) wallp lampp =
@@ -138,6 +141,7 @@ mntLSLampCol shp (V4 x y z _) wallp lampp =
         (const Nothing)
   where
     col = V3 x y z
+    defaultLS = LS 0 $ LSParam 0 200 0.6
 
 mntLSCond ::
     (Point2 -> Point3 -> Shape) ->