initial commit

1 files changed, 16 insertions, 0 deletions

diff --git a/hello.lc b/hello.lc
new file mode 100644
index 0000000..5837a82
--- /dev/null
+++ b/hello.lc
@@ -0,0 +1,16 @@
+makeFrame (time :: Float)
+          (texture :: Texture)
+          (prims :: PrimitiveStream Triangle (Vec 2 Float, Vec 2 Float))
+
+    = imageFrame ((emptyColorImage (V4 0 0 0.4 1)))
+  `overlay`
+      prims
+    & mapPrimitives (\(p,uv) -> (rotMatrixZ time *. (V4 p%x p%y (-1) 1), uv))
+    & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) ((Smooth))
+    & mapFragments (\((uv)) -> ((texture2D (Sampler PointFilter MirroredRepeat texture) uv)))
+    & accumulateWith ((ColorOp NoBlending (V4 True True True True)))
+
+main = renderFrame $
+   makeFrame (Uniform "time")
+             (Texture2DSlot "diffuseTexture")
+             (fetch "objects" (Attribute "position", Attribute "uv"))