Skybox-related uniforms.

1 files changed, 8 insertions, 5 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index 288488b..7f01d4d 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -131,11 +131,11 @@ uploadState obj glarea storage = do
     skybox <- newIORef 0
     Right ts <- skyboxLoad skyboxes 0
     skybox_id <- uploadCubeMapToGPU ts
-    -- LC.updateUniforms storage $ do
-    --    "CubeMap" @= return skybox_id
+    LC.updateUniforms storage $ do
+       "CubeMap" @= return skybox_id
     skytex <- newIORef skybox_id
     mi <- LC.uploadMeshToGPU cubeMesh
-    -- LC.addMeshToObjectArray storage "SkyCube" [] mi -- TODO
+    LC.addMeshToObjectArray storage "SkyCube" [] mi
 
     let st = State
             { stAnimator     = tm
@@ -194,6 +194,8 @@ new = do
         objName <- head . (++ ["cube.obj"]) <$> getArgs
         mobj <- loadOBJ objName
         mpipeline <- loadPipeline "hello_obj2.json" $ do
+          defObjectArray "SkyCube" Triangles $ do
+            "position"  @: Attribute_V3F
           defObjectArray "objects" Triangles $ do
             "position"  @: Attribute_V4F
             "normal"    @: Attribute_V3F
@@ -201,6 +203,7 @@ new = do
           defObjectArray "plane" Triangles $ do
             "position"  @: Attribute_V4F
           defUniforms $ do
+            "CubeMap"         @: FTextureCube
             "CameraPosition"  @: V3F
             "ViewProjection"  @: M44F
             "diffuseTexture"  @: FTexture2D
@@ -314,8 +317,8 @@ onEvent w realized ev = do
                     Right ts <- skyboxLoad (stSkyboxes st) idx
                     disposeTexture =<< readIORef (stSkyTexture st)
                     skybox_id <- uploadCubeMapToGPU ts
-                    -- LC.updateUniforms storage $ do
-                    --    "CubeMap" @= return skybox_id
+                    LC.updateUniforms (stStorage realized) $ do
+                        "CubeMap" @= return skybox_id
                     writeIORef (stSkyTexture st) skybox_id
                     put (skyboxNames (stSkyboxes st) !! idx)
                     return ()