Cleanup

src/Dodge/LightSource.hs

@@ -7,6 +7,7 @@ module Dodge.LightSource
     , lsPosColRad 
     , lsColPos
     , lsPosCol
+    , lsPosRad
     , lsColPosID
     )
     where
@@ -37,8 +38,10 @@ tlsTimeRadFunPos t rmax intensityF p = TLS
             & 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 
@@ -56,6 +59,7 @@ lsPosCol pos col = lsColPos col pos
 lsColPosRad :: Point3 -> Point3 -> Float -> LightSource
 lsColPosRad col pos r = lsPosRadCol pos r col
 
+lsRadCol :: Float -> Point3 -> LightSource
 lsRadCol r col = defaultLS & lsParam . lsRad .~ r 
     & lsParam . lsCol .~ col