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/editor-examples/LambdaCube2.lc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'testdata/editor-examples/LambdaCube2.lc') diff --git a/testdata/editor-examples/LambdaCube2.lc b/testdata/editor-examples/LambdaCube2.lc index b3d3ebf5..fff56f87 100644 --- a/testdata/editor-examples/LambdaCube2.lc +++ b/testdata/editor-examples/LambdaCube2.lc @@ -3,19 +3,19 @@ len2 v = v%x*v%x + v%y*v%y + v%z*v%z makeFrame (time :: Float) (projmat :: Mat 4 4 Float) - (vertexstream :: PrimitiveStream Triangle (Vec 4 Float)) + (vertexstream :: PrimitiveStream Triangle ((Vec 4 Float))) = imageFrame (emptyDepthImage 1, emptyColorImage navy) `overlay` vertexstream - & mapPrimitives (\x -> (scale 0.5 (projmat *. x), x)) - & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) Smooth + & mapPrimitives (\((x)) -> (scale 0.5 (projmat *. x), x)) + & rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) ((Smooth)) & filterFragments ffilter & accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True)) where h = 0.25 - ffilter v = + ffilter ((v)) = (v%y + v%x + v%z > 1 || abs (v%y - v%x + v%z - 1.0) > h) && (v%y + v%x - v%z > 1 || abs (v%y + v%x + v%z - 1.0) > h) && (v%y - v%x - v%z > 1 || abs (v%y + v%x - v%z - 1.0) > h) -- cgit v1.2.3