Skybox-related uniforms.

1 files changed, 7 insertions, 2 deletions

diff --git a/hello_obj2.lc b/hello_obj2.lc
index d0fc35b..52d4a52 100644
--- a/hello_obj2.lc
+++ b/hello_obj2.lc
@@ -7,7 +7,9 @@ blendplane = -- NoBlending -- BlendLogicOp Xor
           ((OneBF,SrcAlpha),(DstAlpha,DstAlpha))
           (V4 0 0 0 0)
 
-makeFrame (cameraPosition :: Vec 3 Float)
+makeFrame (cubemap :: Texture)
+          (skybox :: PrimitiveStream Triangle ((Vec 3 Float)))
+          (cameraPosition :: Vec 3 Float)
           (cam ::  Mat 4 4 Float)
           (color :: Vec 4 Float)
           (texture :: Texture)
@@ -30,9 +32,12 @@ makeFrame (cameraPosition :: Vec 3 Float)
                                 in ((r + V4 0 0 0 (0.8))))
     & accumulateWith (DepthOp Less True, ColorOp blendplane (V4 True True True True))
 
+textureCubeSlot s = Texture2DSlot s
 
 main = renderFrame $
-   makeFrame (Uniform "CameraPosition")
+   makeFrame (textureCubeSlot "CubeMap")
+             (fetch "SkyCube" ((Attribute "position")))
+             (Uniform "CameraPosition")
              (Uniform "ViewProjection")
              (Uniform "diffuseColor")
              (Texture2DSlot "diffuseTexture")