diff options
Diffstat (limited to 'testdata/later.ignore/fragment05uniform.lc')
-rw-r--r-- | testdata/later.ignore/fragment05uniform.lc | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/testdata/later.ignore/fragment05uniform.lc b/testdata/later.ignore/fragment05uniform.lc new file mode 100644 index 00000000..7a8378f7 --- /dev/null +++ b/testdata/later.ignore/fragment05uniform.lc | |||
@@ -0,0 +1,22 @@ | |||
1 | time = Uniform "Time" :: Float | ||
2 | clear = FrameBuffer $ ColorImage @1 $ V4 1 0 0 0.5 | ||
3 | |||
4 | triangleRasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex | ||
5 | colorFragmentCtx = accumulationContext (ColorOp NoBlending (V4 True True True True)) | ||
6 | |||
7 | rasterizeWith = Rasterize | ||
8 | triangles = triangleRasterCtx | ||
9 | |||
10 | quadVertexStream = fetch "quad" Triangle (Attribute "position" :: Vec 4 Float) | ||
11 | |||
12 | transform s f = Transform (\v -> VertexOut (f v) 1 () (Smooth v)) s | ||
13 | |||
14 | mapFragments s fs = accumulate colorFragmentCtx PassAll (FragmentShader $ \a -> fs a) s clear | ||
15 | |||
16 | render f = quadVertexStream -- id vertices | ||
17 | `transform` id | ||
18 | & rasterizeWith triangles -- rasterize | ||
19 | `mapFragments` f | ||
20 | & ScreenOut -- draw into screen | ||
21 | |||
22 | main = render $ \(V4 r g b a) -> V4 0 (0.5 +! (0.5 *! sin time)) b 1 | ||