blob: 5f24acb6f7f0a5464ddf5bc4a1fc32fb08f2884b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
render modelViewProj = let
emptyFB = FrameBuffer ((depthImage1 1000.0))
rasterCtx = LineCtx 1.0 LastVertex
fragmentCtx = accumulationContext ((DepthOp Less False))
vertexShader ((v)) = (v, v)
vertexStream = fetch "stream4" Line (Attribute "position4" :: ((Vec 4 Float)))
primitiveStream = mapPrimitives vertexShader vertexStream
fragmentStream = rasterizePrimitives rasterCtx ((Flat)) primitiveStream
fragmentShader = \((v)) -> ()
frame = accumulate fragmentCtx fragmentShader fragmentStream emptyFB
in ScreenOut frame
main = render (Uniform "MVP" :: Mat 4 4 Float)
|
