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/fragment04ifthenelse.lc | |
parent | 27c8f3aeb2d13da0bec522ee8a8a98f534fa39e8 (diff) |
tuples are heterogeneous lists
Diffstat (limited to 'testdata/fragment04ifthenelse.lc')
-rw-r--r-- | testdata/fragment04ifthenelse.lc | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/testdata/fragment04ifthenelse.lc b/testdata/fragment04ifthenelse.lc index f0d65e32..ce23aa1e 100644 --- a/testdata/fragment04ifthenelse.lc +++ b/testdata/fragment04ifthenelse.lc | |||
@@ -1,21 +1,21 @@ | |||
1 | time = Uniform "Time" :: Float | 1 | time = Uniform "Time" :: Float |
2 | clear = FrameBuffer $ ColorImage @1 $ V4 1 0 0 0.5 | 2 | clear = FrameBuffer ((ColorImage @1 $ V4 1 0 0 0.5)) |
3 | 3 | ||
4 | triangleRasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex | 4 | triangleRasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex |
5 | colorFragmentCtx = accumulationContext (ColorOp NoBlending (V4 True True True True)) | 5 | colorFragmentCtx = accumulationContext ((ColorOp NoBlending (V4 True True True True))) |
6 | 6 | ||
7 | rasterizeWith = rasterizePrimitives | 7 | rasterizeWith = rasterizePrimitives |
8 | triangles = triangleRasterCtx | 8 | triangles = triangleRasterCtx |
9 | 9 | ||
10 | quadVertexStream = fetch "quad" Triangle (Attribute "position" :: Vec 4 Float) | 10 | quadVertexStream = fetch "quad" Triangle (Attribute "position" :: ((Vec 4 Float))) |
11 | 11 | ||
12 | transform s f = mapPrimitives (\v -> (f v, v)) s | 12 | transform s f = mapPrimitives (\((v)) -> (f v, v)) s |
13 | 13 | ||
14 | mapFragments2 s fs = accumulate colorFragmentCtx ( \a -> fs a) s clear | 14 | mapFragments2 s fs = accumulate colorFragmentCtx ( \((a)) -> ((fs a))) s clear |
15 | 15 | ||
16 | render f = quadVertexStream -- id vertices | 16 | render f = quadVertexStream -- id vertices |
17 | `transform` id | 17 | `transform` id |
18 | & rasterizeWith triangles Smooth -- rasterize | 18 | & rasterizeWith triangles ((Smooth)) -- rasterize |
19 | `mapFragments2` f | 19 | `mapFragments2` f |
20 | & ScreenOut -- draw into screen | 20 | & ScreenOut -- draw into screen |
21 | 21 | ||