From 998ae8f884f4b1d4e092ebdf3a441b97b2cf05b7 Mon Sep 17 00:00:00 2001 From: Péter Diviánszky Date: Thu, 18 Feb 2016 18:34:47 +0100 Subject: tuples are heterogeneous lists --- testdata/accumulate01.reject.lc | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'testdata/accumulate01.reject.lc') diff --git a/testdata/accumulate01.reject.lc b/testdata/accumulate01.reject.lc index 9807280a..5d0351cd 100644 --- a/testdata/accumulate01.reject.lc +++ b/testdata/accumulate01.reject.lc @@ -1,12 +1,12 @@ main = let - emptyFB = FrameBuffer (colorImage1 (V4 0.0 0.0 0.4 1.0)) + emptyFB = FrameBuffer ((colorImage1 (V4 0.0 0.0 0.4 1.0)) rasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex colorOp = ColorOp NoBlending (V4 True True True True) - fragmentCtx = colorOp - vertexShader v = (v%xyz, v) - vertexStream = fetch "stream" Triangle (Attribute "position" :: Vec 4 Float) + fragmentCtx = ((colorOp)) + vertexShader ((v)) = (v%xyz, v) + vertexStream = fetch "stream" Triangle (Attribute "position" :: ((Vec 4 Float))) primitiveStream = mapPrimitives vertexShader vertexStream - fragmentStream = rasterizePrimitives rasterCtx Smooth primitiveStream - fragmentShader = \v -> (V4 1.0 0.0 0.0 1.0) + fragmentStream = rasterizePrimitives rasterCtx ((Smooth)) primitiveStream + fragmentShader = \((v)) -> (V4 1.0 0.0 0.0 1.0) frame = accumulate fragmentCtx fragmentShader fragmentStream emptyFB in ScreenOut frame -- cgit v1.2.3