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/line01.lc | |
parent | 27c8f3aeb2d13da0bec522ee8a8a98f534fa39e8 (diff) |
tuples are heterogeneous lists
Diffstat (limited to 'testdata/line01.lc')
-rw-r--r-- | testdata/line01.lc | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/testdata/line01.lc b/testdata/line01.lc index afa8591f..0095b66d 100644 --- a/testdata/line01.lc +++ b/testdata/line01.lc | |||
@@ -1,22 +1,22 @@ | |||
1 | lineVertices :: [Vec 3 Float] | 1 | lineVertices :: [Vec 3 Float] |
2 | lineVertices = concat [[V3 i 0 0,V3 (i+!1.0) 0 0] | i <- [(-2)..2]] | 2 | lineVertices = concat [[V3 i 0 0,V3 (i+!1.0) 0 0] | i <- [(-2)..2]] |
3 | 3 | ||
4 | clear = FrameBuffer $ (DepthImage @1 1000, ColorImage @1 navy) -- ... | 4 | clear = FrameBuffer (DepthImage @1 1000, ColorImage @1 navy) -- ... |
5 | 5 | ||
6 | lines = LineCtx 1.0 LastVertex | 6 | lines = LineCtx 1.0 LastVertex |
7 | colorFragmentCtx = (DepthOp Less True, ColorOp NoBlending (V4 True True True True)) | 7 | colorFragmentCtx = (DepthOp Less True, ColorOp NoBlending (V4 True True True True)) |
8 | 8 | ||
9 | cubeVertexStream = fetchArrays Line (lineVertices) | 9 | cubeVertexStream = fetchArrays Line ((lineVertices)) |
10 | 10 | ||
11 | rasterizeWith = rasterizePrimitives | 11 | rasterizeWith = rasterizePrimitives |
12 | 12 | ||
13 | mapFragments2 s fs = accumulate colorFragmentCtx (\a -> fs a) s clear | 13 | mapFragments2 s fs = accumulate colorFragmentCtx (\((a)) -> ((fs a))) s clear |
14 | transform s f = mapPrimitives (\(p) -> let v = v3FToV4F p in (f v, v)) s | 14 | transform s f = mapPrimitives (\((p)) -> let v = v3FToV4F p in (f v, v)) s |
15 | 15 | ||
16 | rotate' v = (Uniform "MVP" :: Mat 4 4 Float) *. v | 16 | rotate' v = (Uniform "MVP" :: Mat 4 4 Float) *. v |
17 | 17 | ||
18 | main = cubeVertexStream -- cube vertices | 18 | main = cubeVertexStream -- cube vertices |
19 | `transform` (scale 0.5 . rotate') -- scale them | 19 | `transform` (scale 0.5 . rotate') -- scale them |
20 | & rasterizeWith lines Smooth -- rasterize | 20 | & rasterizeWith lines ((Smooth)) -- rasterize |
21 | `mapFragments2` id | 21 | `mapFragments2` id |
22 | & ScreenOut -- draw into screen | 22 | & ScreenOut -- draw into screen |