diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-02-18 18:34:47 +0100 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-02-19 02:50:09 +0100 |
commit | 998ae8f884f4b1d4e092ebdf3a441b97b2cf05b7 (patch) | |
tree | 6ced17ee38fa78de69b05c8765288ecabe52fb6e /testdata/accumulate01.reject.lc | |
parent | 27c8f3aeb2d13da0bec522ee8a8a98f534fa39e8 (diff) |
tuples are heterogeneous lists
Diffstat (limited to 'testdata/accumulate01.reject.lc')
-rw-r--r-- | testdata/accumulate01.reject.lc | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/testdata/accumulate01.reject.lc b/testdata/accumulate01.reject.lc index 9807280a..5d0351cd 100644 --- a/testdata/accumulate01.reject.lc +++ b/testdata/accumulate01.reject.lc | |||
@@ -1,12 +1,12 @@ | |||
1 | main = let | 1 | main = let |
2 | emptyFB = FrameBuffer (colorImage1 (V4 0.0 0.0 0.4 1.0)) | 2 | emptyFB = FrameBuffer ((colorImage1 (V4 0.0 0.0 0.4 1.0)) |
3 | rasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex | 3 | rasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex |
4 | colorOp = ColorOp NoBlending (V4 True True True True) | 4 | colorOp = ColorOp NoBlending (V4 True True True True) |
5 | fragmentCtx = colorOp | 5 | fragmentCtx = ((colorOp)) |
6 | vertexShader v = (v%xyz, v) | 6 | vertexShader ((v)) = (v%xyz, v) |
7 | vertexStream = fetch "stream" Triangle (Attribute "position" :: Vec 4 Float) | 7 | vertexStream = fetch "stream" Triangle (Attribute "position" :: ((Vec 4 Float))) |
8 | primitiveStream = mapPrimitives vertexShader vertexStream | 8 | primitiveStream = mapPrimitives vertexShader vertexStream |
9 | fragmentStream = rasterizePrimitives rasterCtx Smooth primitiveStream | 9 | fragmentStream = rasterizePrimitives rasterCtx ((Smooth)) primitiveStream |
10 | fragmentShader = \v -> (V4 1.0 0.0 0.0 1.0) | 10 | fragmentShader = \((v)) -> (V4 1.0 0.0 0.0 1.0) |
11 | frame = accumulate fragmentCtx fragmentShader fragmentStream emptyFB | 11 | frame = accumulate fragmentCtx fragmentShader fragmentStream emptyFB |
12 | in ScreenOut frame | 12 | in ScreenOut frame |