diff options
Diffstat (limited to 'testdata/NewStyle.lc')
-rw-r--r-- | testdata/NewStyle.lc | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/testdata/NewStyle.lc b/testdata/NewStyle.lc new file mode 100644 index 00000000..453147f6 --- /dev/null +++ b/testdata/NewStyle.lc | |||
@@ -0,0 +1,21 @@ | |||
1 | |||
2 | dark = V4 0.1 0.0 0.2 1 | ||
3 | clear = FrameBuffer $ (DepthImage @1 1000, ColorImage @1 dark) -- ... | ||
4 | |||
5 | triangleRasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex | ||
6 | colorFragmentCtx = (DepthOp Less True, ColorOp NoBlending (V4 True True True True)) | ||
7 | |||
8 | rasterizeWith = rasterizePrimitives | ||
9 | triangles = triangleRasterCtx | ||
10 | |||
11 | cubeVertexStream = fetch "stream4" Triangle (Attribute "position4" :: Vec 4 Float) | ||
12 | mapFragments2 s fs = accumulate colorFragmentCtx (\a -> fs a) s clear | ||
13 | |||
14 | rotate' v = (Uniform "MVP" :: Mat 4 4 Float) `PrimMulMatVec` v | ||
15 | |||
16 | main = cubeVertexStream -- cube vertices | ||
17 | & mapPrimitives (\v -> (scale 0.5 . rotate' $ v, v)) | ||
18 | & rasterizeWith triangles Smooth -- rasterize | ||
19 | `mapFragments2` id -- set every pixel blue | ||
20 | & ScreenOut -- draw into screen | ||
21 | |||