blob: e52d9fa1bedc7c32fb9633d3188cc9508fb7cc7d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
makeFrame (projmat :: Mat 4 4 Float)
(prims :: PrimitiveStream Triangle ((Vec 4 Float)))
= imageFrame (emptyDepthImage 1000, emptyColorImage navy)
`overlay`
prims
& mapPrimitives (\((x)) -> (scale 0.5 $ projmat *. x, x))
& rasterizePrimitives (TriangleCtx CullNone PolygonFill NoOffset LastVertex) ((Smooth))
& filterFragments (\_ -> True)
& mapFragments (\((x)) -> ((x)))
& accumulateWith ({-defaultFragOp @(Depth Float) @_ -}DepthOp Less True, ColorOp NoBlending (V4 True True True True))
main = renderFrame $
makeFrame (Uniform "MVP")
(fetch "stream4" ((Attribute "position4")))
|