Mid strictifying

2021-07-29 23:42:27 +02:00
parent 67aa5c05c7
commit bd8ef3f416
22 changed files with 359 additions and 325 deletions
@@ -57,7 +57,7 @@ createLightMap pdata lightPoints nWalls nSils nsurfVs = do
    blendFunc $= (Zero, OneMinusSrcAlpha)
    stencilTest $= Enabled
    depthFunc $= Just Lequal
-    forM_ lightPoints $ \((x,y,z),r,lum) -> do
+    forM_ lightPoints $ \((V3 x y z),r,lum) -> do
        -- stencil out shadows
        colorMask $= Color4 Disabled Disabled Disabled Disabled
        clear [StencilBuffer]