blob: 98f76d024b40486ff64136a8e2a9b81c3e2861de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
main = let
emptyFB = FrameBuffer (colorImage1 (V4 0.0 0.0 0.4 1.0),colorImage1 0.1)
rasterCtx = TriangleCtx CullNone PolygonFill NoOffset LastVertex
colorOp = ColorOp NoBlending (V4 True True True True)
fragmentCtx = accumulationContext (colorOp,ColorOp NoBlending True)
vertexShader v = VertexOut v 1.0 () (Smooth v)
vertexStream = fetch "stream" Triangle (Attribute "position" :: Vec 4 Float)
primitiveStream = Transform vertexShader vertexStream
fragmentStream = Rasterize rasterCtx primitiveStream
fragmentShader = FragmentShader $ \v -> 1.0
frame = accumulate fragmentCtx PassAll fragmentShader fragmentStream emptyFB
in ScreenOut frame
|
