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/simple02.lc | |
| parent | 27c8f3aeb2d13da0bec522ee8a8a98f534fa39e8 (diff) | |
tuples are heterogeneous lists
Diffstat (limited to 'testdata/simple02.lc')
| -rw-r--r-- | testdata/simple02.lc | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/testdata/simple02.lc b/testdata/simple02.lc index 68e163bd..e920e6c6 100644 --- a/testdata/simple02.lc +++ b/testdata/simple02.lc | |||
| @@ -14,11 +14,11 @@ main = let | |||
| 14 | rasterCtx = TriangleCtx cull polyMode' NoOffset FirstVertex | 14 | rasterCtx = TriangleCtx cull polyMode' NoOffset FirstVertex |
| 15 | fragmentCtx = (DepthOp Less True, ColorOp blend (V4 True True True True)) | 15 | fragmentCtx = (DepthOp Less True, ColorOp blend (V4 True True True True)) |
| 16 | modelViewProj = Uniform "MVP" :: Mat 4 4 Float | 16 | modelViewProj = Uniform "MVP" :: Mat 4 4 Float |
| 17 | vertexShader v = (PrimMulMatVec modelViewProj v, v) | 17 | vertexShader ((v)) = (PrimMulMatVec modelViewProj v, v) |
| 18 | vertexStream = fetch "stream4" Triangle (Attribute "position4" :: Vec 4 Float) | 18 | vertexStream = fetch "stream4" Triangle (Attribute "position4" :: ((Vec 4 Float))) |
| 19 | primitiveStream = mapPrimitives vertexShader vertexStream | 19 | primitiveStream = mapPrimitives vertexShader vertexStream |
| 20 | fragmentStream = rasterizePrimitives rasterCtx Smooth primitiveStream | 20 | fragmentStream = rasterizePrimitives rasterCtx ((Smooth)) primitiveStream |
| 21 | fragmentShader' = \v -> (V4 1.0 0.4 0.0 0.2) | 21 | fragmentShader' = \((v)) -> ((V4 1.0 0.4 0.0 0.2)) |
| 22 | fragmentShader = \v -> (PrimMul v (V4 1.0 0.4 0.0 0.2)) | 22 | fragmentShader = \((v)) -> ((PrimMul v (V4 1.0 0.4 0.0 0.2))) |
| 23 | frame = accumulate fragmentCtx fragmentShader fragmentStream emptyFB | 23 | frame = accumulate fragmentCtx fragmentShader fragmentStream emptyFB |
| 24 | in ScreenOut frame | 24 | in ScreenOut frame |