summaryrefslogtreecommitdiff
path: root/examples/hello.lc
diff options
context:
space:
mode:
Diffstat (limited to 'examples/hello.lc')
-rw-r--r--examples/hello.lc12
1 files changed, 12 insertions, 0 deletions
diff --git a/examples/hello.lc b/examples/hello.lc
new file mode 100644
index 0000000..1087fbe
--- /dev/null
+++ b/examples/hello.lc
@@ -0,0 +1,12 @@
1sampler = Sampler PointFilter MirroredRepeat (Texture2DSlot "diffuseTexture")
2main = let
3 emptyFB = FrameBuffer (colorImage1 (V4 0.0 0.0 0.4 1.0))
4 rasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex
5 fragmentCtx = AccumulationContext (ColorOp NoBlending (V4 True True True True))
6 vertexShader (p,uv) = VertexOut (V4 p%x p%y (-1) 1) 1.0 () (Smooth uv)
7 vertexStream = Fetch "objects" Triangles (Attribute "position" :: Vec 2 Float, Attribute "uv" :: Vec 2 Float)
8 primitiveStream = Transform vertexShader vertexStream
9 fragmentStream = Rasterize rasterCtx primitiveStream
10 fragmentShader uv = FragmentOut $ texture2D sampler uv
11 frame = Accumulate fragmentCtx PassAll fragmentShader fragmentStream emptyFB
12 in ScreenOut frame