summaryrefslogtreecommitdiff
path: root/src/LambdaCube/GL/Backend.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/LambdaCube/GL/Backend.hs')
-rw-r--r--src/LambdaCube/GL/Backend.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/LambdaCube/GL/Backend.hs b/src/LambdaCube/GL/Backend.hs
index 2753ac3..677e925 100644
--- a/src/LambdaCube/GL/Backend.hs
+++ b/src/LambdaCube/GL/Backend.hs
@@ -696,12 +696,12 @@ renderSlot cmds = forM_ cmds $ \cmd -> do
696 texUnit <- readIORef tuRef 696 texUnit <- readIORef tuRef
697 glActiveTexture $ GL_TEXTURE0 + fromIntegral texUnit 697 glActiveTexture $ GL_TEXTURE0 + fromIntegral texUnit
698 glBindTexture txTarget txObj 698 glBindTexture txTarget txObj
699 putStrLn $ "to texture unit " ++ show texUnit ++ " texture object " ++ show txObj 699 --putStrLn $ "to texture unit " ++ show texUnit ++ " texture object " ++ show txObj
700 GLSetVertexAttrib idx val -> do 700 GLSetVertexAttrib idx val -> do
701 glDisableVertexAttribArray idx 701 glDisableVertexAttribArray idx
702 setVertexAttrib idx val 702 setVertexAttrib idx val
703 isOk <- checkGL 703 --isOk <- checkGL
704 putStrLn $ isOk ++ " - " ++ show cmd 704 --putStrLn $ isOk ++ " - " ++ show cmd
705 705
706renderFrame :: GLRenderer -> IO () 706renderFrame :: GLRenderer -> IO ()
707renderFrame glp = do 707renderFrame glp = do
@@ -750,8 +750,8 @@ renderFrame glp = do
750 GLSaveImage 750 GLSaveImage
751 GLLoadImage 751 GLLoadImage
752 -} 752 -}
753 isOk <- checkGL 753 --isOk <- checkGL
754 putStrLn $ isOk ++ " - " ++ show cmd 754 --putStrLn $ isOk ++ " - " ++ show cmd
755 755
756data CGState 756data CGState
757 = CGState 757 = CGState