Provisional working coloured lights

2021-08-21 12:34:49 +02:00
parent e35b95bf36
commit b396d6c857
9 changed files with 30 additions and 26 deletions
@@ -25,15 +25,19 @@ tLightFade :: Int -> Float -> (Int -> Float) -> Point2 -> TempLightSource
 tLightFade 0 rmax intensityF (V2 x y) = TLS 
    { _tlsPos = V3 x y 0
    , _tlsRad = rmax
-    , _tlsIntensity = intensityF 0
+    , _tlsIntensity = f $ intensityF 0
    , _tlsUpdate = \w _ -> (w, Nothing)
    }
+  where
+    f x' = V3 x' x' x'
 tLightFade i rmax intensityF p@(V2 x y) = TLS 
    { _tlsPos = V3 x y 0
    , _tlsRad = rmax
-    , _tlsIntensity = intensityF i
+    , _tlsIntensity = f $ intensityF i
    , _tlsUpdate = \w _ -> (w, Just $ tLightFade (i-1) rmax intensityF p)
    }
+  where
+    f x' = V3 x' x' x'

 tLightRad 
    :: Int