1 files changed, 13 insertions, 0 deletions

diff --git a/testdata/uniformparam02.lc b/testdata/uniformparam02.lc
new file mode 100644
index 00000000..180eba0c
--- /dev/null
+++ b/testdata/uniformparam02.lc
@@ -0,0 +1,13 @@
+render modelViewProj = let
+  emptyFB           = FrameBuffer (depthImage1 1000.0)
+  rasterCtx         = LineCtx 1.0 LastVertex
+  fragmentCtx       = accumulationContext (DepthOp Less False)
+  vertexShader v    = (v, v)
+  vertexStream      = fetch "stream4" Line (Attribute "position4" :: Vec 4 Float)
+  primitiveStream   = mapPrimitives vertexShader vertexStream
+  fragmentStream    = rasterizePrimitives rasterCtx Flat primitiveStream
+  fragmentShader    = \v -> ()
+  frame             = accumulate fragmentCtx fragmentShader fragmentStream emptyFB
+ in ScreenOut frame
+
+main = render (Uniform "MVP" :: Mat 4 4 Float)