add test

3 files changed, 51 insertions, 0 deletions

diff --git a/testdata/bug/checksame01.wip.lc b/testdata/bug/checksame01.wip.lc
new file mode 100644
index 00000000..b88b8256
--- /dev/null
+++ b/testdata/bug/checksame01.wip.lc
@@ -0,0 +1,17 @@
+makeFrame (projmat :: Mat 4 4 Float)
+          (vertexstream :: PrimitiveStream Triangle (Vec 4 Float,Vec 2 Float))
+
+          = imageFrame (emptyDepthImage 1, emptyColorImage navy)
+  `overlay` fragments
+  where
+    fragments =
+          vertexstream
+        & mapPrimitives (\(x,uv) -> (scale 0.5 (projmat *. x), x, uv))
+        & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) (Smooth,Smooth)
+        & mapFragments (\((x,uv) :: (Vec 4 Float,Vec 2 Float)) -> x) -- HERE !!!!
+        & accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True))
+
+main = renderFrame $
+   makeFrame (Uniform "MVP")
+             (fetch_ "stream4" (Attribute "position4", Attribute "vertexUV"))
+
diff --git a/testdata/bug/parser01.wip.lc b/testdata/bug/parser01.wip.lc
new file mode 100644
index 00000000..53385fba
--- /dev/null
+++ b/testdata/bug/parser01.wip.lc
@@ -0,0 +1,17 @@
+makeFrame (projmat :: Mat 4 4 Float)
+          (vertexstream :: PrimitiveStream Triangle (Vec 4 Float,Vec 2 Float))
+
+          = imageFrame (emptyDepthImage 1, emptyColorImage navy)
+  `overlay` fragments
+  where
+    fragments =
+          vertexstream
+        & mapPrimitives (\(x,uv) -> (scale 0.5 (projmat *. x), x, uv))
+        & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) (Smooth,Smooth)
+        & mapFragments (\(x::Vec 4 Float,uv::Vec 2 Float) -> x) -- HERE !!!!
+        & accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True))
+
+main = renderFrame $
+   makeFrame (Uniform "MVP")
+             (fetch_ "stream4" (Attribute "position4", Attribute "vertexUV"))
+
diff --git a/testdata/bug/parser02.wip.lc b/testdata/bug/parser02.wip.lc
new file mode 100644
index 00000000..5e52b30d
--- /dev/null
+++ b/testdata/bug/parser02.wip.lc
@@ -0,0 +1,17 @@
+makeFrame (projmat :: Mat 4 4 Float)
+          (vertexstream :: PrimitiveStream Triangle (Vec 4 Float,Vec 2 Float))
+
+          = imageFrame (emptyDepthImage 1, emptyColorImage navy)
+  `overlay` fragments
+  where
+    fragments =
+          vertexstream
+        & mapPrimitives (\(x,uv) -> (scale 0.5 (projmat *. x), x, uv))
+        & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) (Smooth,Smooth)
+        & mapFragments (\(x,uv) :: (Vec 4 Float,Vec 2 Float) -> x) -- HERE !!!!
+        & accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True))
+
+main = renderFrame $
+   makeFrame (Uniform "MVP")
+             (fetch_ "stream4" (Attribute "position4", Attribute "vertexUV"))
+