Continue work on shadow rendering

2023-03-14 11:20:38 +00:00
parent 9947979b52
commit 6af041bb8c
20 changed files with 417 additions and 380 deletions
@@ -126,7 +126,7 @@ rezColor = do
    col <- takeOne [V3 0.0 0.1 0.5, V3 0.0 0.5 0.1]
    h <- takeOne [30, 50, 80, 90, 90, 90, 90]
    rad <- takeOne [150, 200, 200, 250, 250, 300, 300, 300]
-    return $ lsPosColRad (V3 0 0 h) col rad
+    return $ lsColPosRad col (V3 0 0 h) rad

 rezInvBox :: LightSource -> Room
 rezInvBox = swapInOutLinks . rezBox