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/editor-examples/Texturing.lc | |
parent | 27c8f3aeb2d13da0bec522ee8a8a98f534fa39e8 (diff) |
tuples are heterogeneous lists
Diffstat (limited to 'testdata/editor-examples/Texturing.lc')
-rw-r--r-- | testdata/editor-examples/Texturing.lc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testdata/editor-examples/Texturing.lc b/testdata/editor-examples/Texturing.lc index 8fd2510d..7fc1c7ea 100644 --- a/testdata/editor-examples/Texturing.lc +++ b/testdata/editor-examples/Texturing.lc | |||
@@ -8,8 +8,8 @@ makeFrame (projmat :: Mat 4 4 Float) | |||
8 | fragments = | 8 | fragments = |
9 | vertexstream | 9 | vertexstream |
10 | & mapPrimitives (\(x,uv) -> (scale 0.5 (projmat *. x), uv)) | 10 | & mapPrimitives (\(x,uv) -> (scale 0.5 (projmat *. x), uv)) |
11 | & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) Smooth | 11 | & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) ((Smooth)) |
12 | & mapFragments (texture2D sampler) | 12 | & mapFragments (\((x)) -> ((texture2D sampler x))) |
13 | & accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True)) | 13 | & accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True)) |
14 | 14 | ||
15 | main = renderFrame $ | 15 | main = renderFrame $ |