Allow alternate plane positions.

1 files changed, 4 insertions, 5 deletions

diff --git a/hello_obj2.lc b/hello_obj2.lc
index 629bf59..fdf08d6 100644
--- a/hello_obj2.lc
+++ b/hello_obj2.lc
@@ -20,6 +20,7 @@ makeFrame (cubemap :: TextureCube)
           (prims :: PrimitiveStream Triangle (Vec 4 Float, Vec 3 Float, Vec 3 Float))
           (plane :: PrimitiveStream Triangle ((Vec 4 Float)))
           (points :: PrimitiveStream Point ((Vec 3 Float)))
+          (plane_mat :: Mat 4 4 Float)
 
     = imageFrame (emptyDepthImage 1, emptyColorImage (V4 0 0 0.4 1))
   `overlay`
@@ -38,7 +39,7 @@ makeFrame (cubemap :: TextureCube)
     & accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True))
   `overlay`
       plane
-    & mapPrimitives (\((p)) -> let p' = coordmap cam p in (p', p%xz))
+    & mapPrimitives (\((p)) -> let p' = coordmap cam $ plane_mat *. p in (p', p%xz))
     & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) ((Smooth))
     & mapFragments (\((uv)) -> let c = mixB zero one (fract uv >= (one *! (0.95::Float)))
                                    r = V4 1 1 1 0 *! (max c%x c%y)
@@ -62,11 +63,9 @@ renderPoints cam points =
     & mapFragments (\((c)) -> ((c)))
     & accumulateWith (DepthOp Always False, ColorOp NoBlending (V4 True True True True))
 
-textureCubeSlot s = TextureCubeSlot s
-
 main :: Output
 main = renderFrame $
-   makeFrame (textureCubeSlot "CubeMap")
+   makeFrame (TextureCubeSlot "CubeMap")
              (fetch "SkyCube" ((Attribute "position")))
              (Uniform "CameraPosition")
              (Uniform "ViewProjection")
@@ -75,4 +74,4 @@ main = renderFrame $
              (fetch "objects" (Attribute "position", Attribute "normal", Attribute "uvw"))
              (fetch "plane"   ((Attribute "position")))
              (fetch "Points" ((Attribute "position")))
-
+             (Uniform "PlaneModel")