Remove default light sources

src/Dodge/LightSource.hs

@@ -1,18 +1,13 @@
 module Dodge.LightSource (
---    tlsTimeRadFunPos,
---    tlsTimeRadColPos,
-    lsRadCol,
     lsColPosRad,
     lsColPos,
     lsPosCol,
     lsPosRad,
     lsColPosID,
---    makeTlsTimeRadColPos,
     destroyLS,
 ) where
 
 import Dodge.Data.World
-import Dodge.Default.LightSource
 import Dodge.Material.Sound
 import Dodge.WorldEvent.Sound
 import Geometry.Data
@@ -54,17 +49,12 @@ lsPosCol :: Point3 -> Point3 -> LightSource
 lsPosCol pos col = lsColPos col pos
 
 lsColPosRad :: Point3 -> Point3 -> Float -> LightSource
-lsColPosRad col p r = 
-    defaultLS
-        & lsParam . lsPos .~ p
-        & lsParam . lsRad .~ r
-        & lsParam . lsCol .~ col
+lsColPosRad col p r = LS 0 $ LSParam p r col
 
-
-lsRadCol :: Float -> Point3 -> LightSource
-lsRadCol r col =
-    defaultLS & lsParam . lsRad .~ r
-        & lsParam . lsCol .~ col
+--lsRadCol :: Float -> Point3 -> LightSource
+--lsRadCol r col =
+--    defaultLS & lsParam . lsRad .~ r
+--        & lsParam . lsCol .~ col
 
 --tlsTimeRadColPos ::
 --    Int ->