add editor examples as tests

1 files changed, 24 insertions, 0 deletions

diff --git a/testdata/editor-examples/Stripes.lc b/testdata/editor-examples/Stripes.lc
new file mode 100644
index 00000000..8558bfe2
--- /dev/null
+++ b/testdata/editor-examples/Stripes.lc
@@ -0,0 +1,24 @@
+
+makeFrame (time :: Float)
+          (vertexstream :: PrimitiveStream Triangle (Vec 4 Float))
+
+    = foldl' overlay (imageFrame (emptyDepthImage 1, emptyColorImage navy))
+    $ map (f . (/10)) [ 1 .. 10 ]
+  where
+    f sc =
+          vertexstream
+        & mapPrimitives (\x -> (scale sc x, x))
+        & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) Smooth
+        & filterFragments ffilter
+        & mapFragments (\x -> V4 sc' sc' sc' 1)
+        & accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True))
+      where
+        sc' = 1 - sc
+        ffilter v = sin (10 * (rotMatrixY (time) *. rotMatrixZ (time * sc) *. v)%x) > 0.5
+
+
+main = renderFrame $
+   makeFrame (Uniform "Time")
+             (fetch_ "stream4" (Attribute "position4"))
+
+