it works.

1 files changed, 29 insertions, 5 deletions

diff --git a/Lambda2.hs b/Lambda2.hs
index 9e0be24..7677464 100644
--- a/Lambda2.hs
+++ b/Lambda2.hs
@@ -26,6 +26,9 @@ import Data.Aeson
 import qualified Data.ByteString as SB
 import Data.Char
 import Text.Printf
+import System.IO
+
+import qualified Backend as RF
 
 data State = State
 
@@ -35,6 +38,12 @@ initState = do
 
 render :: State -> GLArea -> GLContext -> IO Bool
 render st glarea gl = do
+    cf <- GL.get GL.cullFace
+    oldvp <- GL.get GL.viewport
+    putStrLn $ "cullface = " ++ show cf
+    putStrLn $ "viewport = " ++ show oldvp
+    GL.cullFace GL.$= Nothing
+
     Just pipelineDesc <- decodeStrict <$> SB.readFile "hello.json"
 
     -- win <- initWindow "LambdaCube 3D DSL Hello World" 640 640
@@ -72,6 +81,17 @@ render st glarea gl = do
                         ht <- windowGetHeight win
                         print (wd,ht)
                         return (wd,ht)
+                vp <- GL.get GL.viewport
+                dr <- GL.get GL.depthRange
+                mm <- GL.get GL.matrixMode
+                mat <- GL.get (GL.matrix $ Just mm)
+                cs <- GL.getMatrixComponents GL.RowMajor mat
+                dc <- GL.get GL.depthClamp
+                tms <- mapM (GL.get . GL.textureGenMode) [GL.S, GL.T, GL.R, GL.Q]
+                mx <- GL.get GL.maxViewportDims
+                print (vp,(wd,ht),dr,mm,dc)
+                print (mat :: GL.GLmatrix Double, cs)
+                print (tms,mx)
                 return (wd,ht) >>= \(w,h) -> LambdaCubeGL.setScreenSize storage (fromIntegral w) (fromIntegral h)
                 LambdaCubeGL.updateUniforms storage $ do
                   "diffuseTexture" @= return textureData
@@ -79,13 +99,16 @@ render st glarea gl = do
                               Just t <- return $ Just (1.0::Double) -- GLFW.getTime
                               return (realToFrac t :: Float)
                 -- render
-                GL.clearColor GL.$= GL.Color4 0 255 0 1
-                GL.clear [GL.ColorBuffer]
-                putStrLn "LambdaCubeGL.renderFrame enter"
-                LambdaCubeGL.renderFrame renderer
-                putStrLn "LambdaCubeGL.renderFrame exit"
+                -- GL.clearColor GL.$= GL.Color4 0 0 0 0
+                -- GL.clear [GL.ColorBuffer,GL.DepthBuffer]
+                putStrLn "LambdaCubeGL.renderFrame enter.."
+                -- mapM_ print $ glCommands renderer
+                RF.renderFrame renderer
+                putStrLn "LambdaCubeGL.renderFrame ..exit"
+                -- GL.clear [GL.ColorBuffer,GL.DepthBuffer]
                 -- GLFW.swapBuffers win
                 -- GLFW.pollEvents
+                -- GL.flush
 
                 let keyIsPressed k = return True -- fmap (==KeyState'Pressed) $ GLFW.getKey win k
                 escape <- keyIsPressed () -- Key'Escape
@@ -132,6 +155,7 @@ unrealize :: State -> GLArea -> IO ()
 unrealize st glarea = do
     return ()
 
+prettyDebug :: GL.DebugMessage -> String
 prettyDebug (GL.DebugMessage src typ (GL.DebugMessageID mid) severity msg) = unwords ws
  where
     ws = [wsrc,wtyp,wmid,wseverity,msg]