Continue shader refactor

2023-04-13 00:43:01 +01:00
parent cd46998e05
commit f104b24e90
7 changed files with 40 additions and 39 deletions
@@ -46,7 +46,7 @@ doTestDrawing _ _ = do
 doDrawing' :: SDL.Window -> RenderData -> Universe -> IO ()
 doDrawing' win pdata u = do
    --sTicks <- SDL.ticks
-    checkGLError
+    checkGLError "during drawing"
    let w = _uvWorld u
        cfig = _uvConfig u
        rot = w ^. wCam . camRot