skybox shader code.

2 files changed, 13 insertions, 1 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index 7f01d4d..70493bd 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -160,7 +160,7 @@ deg30 = pi/6
 
 whirlingCamera :: State -> Animation
 whirlingCamera st = Animation $ \_ t -> do
-    let tf = realToFrac (t/10.0) :: Float
+    let tf = realToFrac t :: Float
         rot = rotMatrixZ (-tf) <> rotMatrixX (-tf)
     modifyIORef (stCamera st) $ \cam -> cam
                             { camUp            = rot #> fromList [0,1,0]
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))