skybox shader code.

1 files changed, 12 insertions, 0 deletions

diff --git a/hello_obj2.lc b/hello_obj2.lc
index 52d4a52..db28333 100644
--- a/hello_obj2.lc
+++ b/hello_obj2.lc
@@ -7,6 +7,10 @@ blendplane = -- NoBlending -- BlendLogicOp Xor
           ((OneBF,SrcAlpha),(DstAlpha,DstAlpha))
           (V4 0 0 0 0)
 
+point :: Vec 3 Float -> Vec 4 Float
+point p = V4 p%x p%y p%z 1
+
+
 makeFrame (cubemap :: Texture)
           (skybox :: PrimitiveStream Triangle ((Vec 3 Float)))
           (cameraPosition :: Vec 3 Float)
@@ -18,6 +22,14 @@ makeFrame (cubemap :: Texture)
 
     = imageFrame (emptyDepthImage 1, emptyColorImage (V4 0 0 0.4 1))
   `overlay`
+      skybox
+    & mapPrimitives (\((p)) -> let texcoord = V3 p%x (p%y) (p%z)
+                                   p' = cam *. point (p + cameraPosition)
+                                in (p', texcoord))
+    & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) ((Smooth))
+    & mapFragments (\((d)) -> ((texture2D (Sampler PointFilter MirroredRepeat cubemap) d%xy )))
+    & accumulateWith (DepthOp Always False, ColorOp NoBlending (V4 True True True True))
+  `overlay`
       prims
     & mapPrimitives (\(p,n,uvw) -> ( coordmap cam p, V2 uvw%x (1 - uvw%y) ))
     & rasterizePrimitives (TriangleCtx CullBack PolygonFill NoOffset LastVertex) ((Smooth))