Various performance improvements

2021-09-23 15:27:37 +01:00
parent 7b6904b51f
commit 85edd98d62
17 changed files with 137 additions and 81 deletions
@@ -42,10 +42,10 @@ tLight
    :: Int 
    -> Float -- ^ maximal radius
    -> Point3
-    -> Point2 
+    -> Point3 
    -> TempLightSource
-tLight t rmax col (V2 x y) = TLS 
-    { _tlsPos = V3 x y 1
+tLight t rmax col (V3 x y z) = TLS 
+    { _tlsPos = V3 x y z
    , _tlsRad = rmax
    , _tlsIntensity = col
    , _tlsUpdate = upF