Use compiler-support for TextureCube.

1 files changed, 4 insertions, 3 deletions

diff --git a/hello_obj2.lc b/hello_obj2.lc
index db28333..991c3c2 100644
--- a/hello_obj2.lc
+++ b/hello_obj2.lc
@@ -11,7 +11,7 @@ point :: Vec 3 Float -> Vec 4 Float
 point p = V4 p%x p%y p%z 1
 
 
-makeFrame (cubemap :: Texture)
+makeFrame (cubemap :: TextureCube)
           (skybox :: PrimitiveStream Triangle ((Vec 3 Float)))
           (cameraPosition :: Vec 3 Float)
           (cam ::  Mat 4 4 Float)
@@ -27,7 +27,7 @@ makeFrame (cubemap :: Texture)
                                    p' = cam *. point (p + cameraPosition)
                                 in (p', texcoord))
     & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) ((Smooth))
-    & mapFragments (\((d)) -> ((texture2D (Sampler PointFilter MirroredRepeat cubemap) d%xy )))
+    & mapFragments (\((d)) -> (( textureCube cubemap d )))
     & accumulateWith (DepthOp Always False, ColorOp NoBlending (V4 True True True True))
   `overlay`
       prims
@@ -44,8 +44,9 @@ makeFrame (cubemap :: Texture)
                                 in ((r + V4 0 0 0 (0.8))))
     & accumulateWith (DepthOp Less True, ColorOp blendplane (V4 True True True True))
 
-textureCubeSlot s = Texture2DSlot s
+textureCubeSlot s = TextureCubeSlot s
 
+main :: Output
 main = renderFrame $
    makeFrame (textureCubeSlot "CubeMap")
              (fetch "SkyCube" ((Attribute "position")))