diff options
| author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-01-19 15:59:35 +0100 |
|---|---|---|
| committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-01-19 16:10:49 +0100 |
| commit | cb69693769ebfcdac605c90f38a20c788b08eaf3 (patch) | |
| tree | 3689094c7ff13f45cc928a7dfaafff2652ed4c03 /testdata/uniformparam02.lc | |
| parent | d5f3ef4a65218b966f7463511896fd901a4d1d77 (diff) | |
normalise paths and fix self export handling
Diffstat (limited to 'testdata/uniformparam02.lc')
| -rw-r--r-- | testdata/uniformparam02.lc | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testdata/uniformparam02.lc b/testdata/uniformparam02.lc new file mode 100644 index 00000000..180eba0c --- /dev/null +++ b/testdata/uniformparam02.lc | |||
| @@ -0,0 +1,13 @@ | |||
| 1 | render modelViewProj = let | ||
| 2 | emptyFB = FrameBuffer (depthImage1 1000.0) | ||
| 3 | rasterCtx = LineCtx 1.0 LastVertex | ||
| 4 | fragmentCtx = accumulationContext (DepthOp Less False) | ||
| 5 | vertexShader v = (v, v) | ||
| 6 | vertexStream = fetch "stream4" Line (Attribute "position4" :: Vec 4 Float) | ||
| 7 | primitiveStream = mapPrimitives vertexShader vertexStream | ||
| 8 | fragmentStream = rasterizePrimitives rasterCtx Flat primitiveStream | ||
| 9 | fragmentShader = \v -> () | ||
| 10 | frame = accumulate fragmentCtx fragmentShader fragmentStream emptyFB | ||
| 11 | in ScreenOut frame | ||
| 12 | |||
| 13 | main = render (Uniform "MVP" :: Mat 4 4 Float) | ||