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/texture01.lc | |
parent | d5f3ef4a65218b966f7463511896fd901a4d1d77 (diff) |
normalise paths and fix self export handling
Diffstat (limited to 'testdata/texture01.lc')
-rw-r--r-- | testdata/texture01.lc | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/testdata/texture01.lc b/testdata/texture01.lc new file mode 100644 index 00000000..4b530baa --- /dev/null +++ b/testdata/texture01.lc | |||
@@ -0,0 +1,21 @@ | |||
1 | clear = FrameBuffer $ (DepthImage @1 1000, ColorImage @1 red) -- ... | ||
2 | |||
3 | triangleRasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex | ||
4 | colorFragmentCtx = accumulationContext (DepthOp Less True, ColorOp NoBlending (V4 True True True True)) | ||
5 | |||
6 | rasterizeWith = rasterizePrimitives | ||
7 | triangles = triangleRasterCtx | ||
8 | |||
9 | cubeVertexStream = fetch "stream4" Triangle (Attribute "position4" :: Vec 4 Float, Attribute "vertexUV" :: Vec 2 Float) | ||
10 | mapFragments2 s fs = accumulate colorFragmentCtx ( \a -> fs a) s clear | ||
11 | transform s f = mapPrimitives (\(v,uv) -> (f v, uv)) s | ||
12 | |||
13 | rotate' v = (Uniform "MVP" :: Mat 4 4 Float) `PrimMulMatVec` v | ||
14 | |||
15 | sampler = Sampler LinearFilter MirroredRepeat $ Texture2DSlot "diffuse" | ||
16 | |||
17 | main = cubeVertexStream -- cube vertices | ||
18 | `transform` (scale 0.5 . rotate') -- scale them | ||
19 | & rasterizeWith triangles Smooth -- rasterize | ||
20 | `mapFragments2` (texture2D sampler) | ||
21 | & ScreenOut -- draw into screen | ||