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/gfx04.lc | |
parent | 27c8f3aeb2d13da0bec522ee8a8a98f534fa39e8 (diff) |
tuples are heterogeneous lists
Diffstat (limited to 'testdata/gfx04.lc')
-rw-r--r-- | testdata/gfx04.lc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testdata/gfx04.lc b/testdata/gfx04.lc index c9b6a31f..dd6b6ca7 100644 --- a/testdata/gfx04.lc +++ b/testdata/gfx04.lc | |||
@@ -15,8 +15,8 @@ render fb = let | |||
15 | , Attribute "normal" :: Vec 3 Float | 15 | , Attribute "normal" :: Vec 3 Float |
16 | ) | 16 | ) |
17 | primitiveStream = mapPrimitives (\(v,n) -> (PrimMulMatVec modelViewProj $ v3FToV4F v, v3FToV4F n)) vertexStream | 17 | primitiveStream = mapPrimitives (\(v,n) -> (PrimMulMatVec modelViewProj $ v3FToV4F v, v3FToV4F n)) vertexStream |
18 | fragmentStream = rasterizePrimitives rasterCtx Smooth primitiveStream | 18 | fragmentStream = rasterizePrimitives rasterCtx ((Smooth)) primitiveStream |
19 | fragmentShader v = PrimMul v (V4 1.0 1.4 1.0 0.6) | 19 | fragmentShader ((v)) = ((PrimMul v (V4 1.0 1.4 1.0 0.6))) |
20 | frame = accumulate fragmentCtx fragmentShader fragmentStream fb | 20 | frame = accumulate fragmentCtx fragmentShader fragmentStream fb |
21 | in frame | 21 | in frame |
22 | 22 | ||