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/example08.lc | |
parent | 27c8f3aeb2d13da0bec522ee8a8a98f534fa39e8 (diff) |
tuples are heterogeneous lists
Diffstat (limited to 'testdata/example08.lc')
-rw-r--r-- | testdata/example08.lc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/testdata/example08.lc b/testdata/example08.lc index 1b9c3fce..dc0f12e9 100644 --- a/testdata/example08.lc +++ b/testdata/example08.lc | |||
@@ -8,12 +8,12 @@ colorFragmentCtx = (DepthOp Less True, ColorOp NoBlending (V4 True True True Tru | |||
8 | rasterizeWith = rasterizePrimitives | 8 | rasterizeWith = rasterizePrimitives |
9 | triangles = triangleRasterCtx | 9 | triangles = triangleRasterCtx |
10 | 10 | ||
11 | cubeVertexStream = fetch "stream4" Triangle (Attribute "position4" :: Vec 4 Float) | 11 | cubeVertexStream = fetch "stream4" Triangle (Attribute "position4" :: ((Vec 4 Float))) |
12 | mapFragments2 s fs bg = accumulate colorFragmentCtx (\a -> fs a) s bg | 12 | mapFragments2 s fs bg = accumulate colorFragmentCtx (\((a)) -> ((fs a))) s bg |
13 | 13 | ||
14 | cube fv f bg = (cubeVertexStream -- cube vertices | 14 | cube fv f bg = (cubeVertexStream -- cube vertices |
15 | & mapPrimitives (\v -> (fv v, v)) | 15 | & mapPrimitives (\((v)) -> (fv v, v)) |
16 | & rasterizeWith triangles Smooth -- rasterize | 16 | & rasterizeWith triangles ((Smooth)) -- rasterize |
17 | `mapFragments2` f) bg | 17 | `mapFragments2` f) bg |
18 | 18 | ||
19 | trMat a b = a *. b | 19 | trMat a b = a *. b |