Continue work on shadow rendering

src/Dodge/LightSource.hs

@@ -2,9 +2,7 @@ module Dodge.LightSource (
     tlsTimeRadFunPos,
     tlsTimeRadColPos,
     lsRadCol,
-    lsPosRadCol,
     lsColPosRad,
-    lsPosColRad,
     lsColPos,
     lsPosCol,
     lsPosRad,
@@ -46,27 +44,22 @@ tlsTimeRadFunPos t rmax intensityF p =
 --            & tlsParam . lsCol .~ f (intensityF (_tlsTime tls) )
 --    f x' = V3 x' x' x'
 
-lsPosColRad :: Point3 -> Point3 -> Float -> LightSource
-lsPosColRad p col = lsColPosRad col p
-
-lsPosRadCol :: Point3 -> Float -> Point3 -> LightSource
-lsPosRadCol p r col =
-    defaultLS
-        & lsParam . lsPos .~ p
-        & lsParam . lsRad .~ r
-        & lsParam . lsCol .~ col
-
 lsColPosID :: Point3 -> Point3 -> Int -> LightSource
 lsColPosID col p i = lsColPos col p & lsID .~ i
 
 lsColPos :: Point3 -> Point3 -> LightSource
-lsColPos col pos = lsColPosRad col pos 700
+lsColPos col pos = lsColPosRad col pos 450
 
 lsPosCol :: Point3 -> Point3 -> LightSource
 lsPosCol pos col = lsColPos col pos
 
 lsColPosRad :: Point3 -> Point3 -> Float -> LightSource
-lsColPosRad col pos r = lsPosRadCol pos r col
+lsColPosRad col p r = 
+    defaultLS
+        & lsParam . lsPos .~ p
+        & lsParam . lsRad .~ r
+        & lsParam . lsCol .~ col
+
 
 lsRadCol :: Float -> Point3 -> LightSource
 lsRadCol r col =