diff options
Diffstat (limited to 'testdata/example08.lc')
| -rw-r--r-- | testdata/example08.lc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/testdata/example08.lc b/testdata/example08.lc index 1b9c3fce..dc0f12e9 100644 --- a/testdata/example08.lc +++ b/testdata/example08.lc | |||
| @@ -8,12 +8,12 @@ colorFragmentCtx = (DepthOp Less True, ColorOp NoBlending (V4 True True True Tru | |||
| 8 | rasterizeWith = rasterizePrimitives | 8 | rasterizeWith = rasterizePrimitives |
| 9 | triangles = triangleRasterCtx | 9 | triangles = triangleRasterCtx |
| 10 | 10 | ||
| 11 | cubeVertexStream = fetch "stream4" Triangle (Attribute "position4" :: Vec 4 Float) | 11 | cubeVertexStream = fetch "stream4" Triangle (Attribute "position4" :: ((Vec 4 Float))) |
| 12 | mapFragments2 s fs bg = accumulate colorFragmentCtx (\a -> fs a) s bg | 12 | mapFragments2 s fs bg = accumulate colorFragmentCtx (\((a)) -> ((fs a))) s bg |
| 13 | 13 | ||
| 14 | cube fv f bg = (cubeVertexStream -- cube vertices | 14 | cube fv f bg = (cubeVertexStream -- cube vertices |
| 15 | & mapPrimitives (\v -> (fv v, v)) | 15 | & mapPrimitives (\((v)) -> (fv v, v)) |
| 16 | & rasterizeWith triangles Smooth -- rasterize | 16 | & rasterizeWith triangles ((Smooth)) -- rasterize |
| 17 | `mapFragments2` f) bg | 17 | `mapFragments2` f) bg |
| 18 | 18 | ||
| 19 | trMat a b = a *. b | 19 | trMat a b = a *. b |