Make light position uniform 3d

2021-06-25 01:19:20 +02:00
parent b451953b99
commit b6feccd934
10 changed files with 40 additions and 71 deletions
@@ -130,13 +130,13 @@ data Cloud = Cloud
    }
 data LightSource = LS  
    { _lsID         :: !Int
-    , _lsPos        :: !Point2
+    , _lsPos        :: !Point3
    , _lsDir        :: !Float
    , _lsRad        :: !Float
    , _lsIntensity  :: !Float
    }
 data TempLightSource = TLS 
-    { _tlsPos :: !Point2
+    { _tlsPos :: !Point3
    , _tlsRad :: !Float
    , _tlsIntensity :: !Float
    , _tlsUpdate :: World -> TempLightSource -> (World, Maybe TempLightSource)