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/later.ignore/fragment02vectorpattern.lc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'testdata/later.ignore/fragment02vectorpattern.lc') diff --git a/testdata/later.ignore/fragment02vectorpattern.lc b/testdata/later.ignore/fragment02vectorpattern.lc index 0e533a75..bb25c660 100644 --- a/testdata/later.ignore/fragment02vectorpattern.lc +++ b/testdata/later.ignore/fragment02vectorpattern.lc @@ -1,16 +1,16 @@ clear = FrameBuffer $ ColorImage @1 $ V4 1 0 0 0.5 triangleRasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex -colorFragmentCtx = accumulationContext (ColorOp NoBlending (V4 True True True True)) +colorFragmentCtx = accumulationContext ((ColorOp NoBlending (V4 True True True True))) rasterizeWith = Rasterize triangles = triangleRasterCtx -quadVertexStream = fetch "quad" Triangle (Attribute "position" :: Vec 4 Float) +quadVertexStream = fetch "quad" Triangle (Attribute "position" :: ((Vec 4 Float))) transform s f = Transform (\v -> VertexOut (f v) 1 () (Smooth v)) s -mapFragments s fs = accumulate colorFragmentCtx PassAll (FragmentShader $ \a -> fs a) s clear +mapFragments s fs = accumulate colorFragmentCtx PassAll (FragmentShader $ \((a)) -> ((fs a))) s clear render f = quadVertexStream -- id vertices `transform` id -- cgit v1.2.3