Refactor window block

src/Dodge/LightSources.hs

@@ -23,3 +23,34 @@ lightAt p i =
 basicLS = PutLS ls dec
     where ls = lightAt (0,0) 0
           dec = onLayer PtLayer $ color white $ circleSolid 8
+
+
+tLightFade :: Int -> Float -> (Int -> Float) -> Point2 -> TempLightSource
+tLightFade 0 rmax intensityF p =
+    TLS { _tlsPos = p
+        , _tlsRad = rmax
+        , _tlsIntensity = intensityF 0
+        , _tlsUpdate = \w _ -> (w, Nothing)
+        }
+tLightFade i rmax intensityF p =
+    TLS { _tlsPos = p
+        , _tlsRad = rmax
+        , _tlsIntensity = intensityF i
+        , _tlsUpdate = \w _ -> (w, Just $ tLightFade (i-1) rmax intensityF p)
+        }
+
+tLightRad :: Int -> Float -> Float -> Point2 -> TempLightSource
+tLightRad 0 rmax rmin p =
+    TLS { _tlsPos = p
+        , _tlsRad = rmax
+        , _tlsIntensity = 0.5
+        , _tlsUpdate = \w _ -> (w, Nothing)
+        }
+tLightRad i rmax rmin p =
+    TLS { _tlsPos = p
+        , _tlsRad = rmax
+        , _tlsIntensity = 0.5
+        , _tlsUpdate = \w _ -> (w, Just $ tLightRad (i-1) rmax rmin p)
+        }
+
+tLightAt i p = tLightRad i 100 0 p