blob: b4dc7b46eff61be9994154d57d5f023320d9a5e1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
vert projmat ((x)) = (scale 0.5 (projmat *. x), x)
makeFrame (projmat :: Mat 4 4 Float)
(vertexstream :: PrimitiveStream Triangle ((Vec 4 Float)))
= imageFrame (emptyDepthImage 1, emptyColorImage navy)
`overlay` fragments
where
fragments =
vertexstream
& mapPrimitives (vert projmat)
& rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) ((Smooth))
-- & mapFragments id
& accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True))
main = renderFrame $
makeFrame (Uniform "MVP")
(fetch "stream4" ((Attribute "position4")))
|