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