Remove default light sources

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