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
@@ -86,8 +86,10 @@ defaultDebugFlags = DebugFlags
    }
 youLight :: TempLightSource
 youLight = 
-    TLS { _tlsPos = (0,0)
+    TLS { _tlsPos = (0,0,0)
        ,_tlsRad = 300
        ,_tlsIntensity = 0.1
-        ,_tlsUpdate = \w _ -> (w, Just (youLight {_tlsPos = _crPos (you w)}))
+        ,_tlsUpdate = \w _ -> (w, Just (youLight {_tlsPos = f $ _crPos (you w)}))
        }
+  where
+    f (x,y) = (x,y,0)