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
@@ -142,12 +142,12 @@ data LightSource = LS
    , _lsPos        :: !Point3
    , _lsDir        :: !Float
    , _lsRad        :: !Float
-    , _lsIntensity  :: !Float
+    , _lsIntensity  :: !Point3
    }
 data TempLightSource = TLS 
    { _tlsPos :: !Point3
    , _tlsRad :: !Float
-    , _tlsIntensity :: !Float
+    , _tlsIntensity :: !Point3
    , _tlsUpdate :: World -> TempLightSource -> (World, Maybe TempLightSource)
    }
 data Creature = Creature