blob: 68e163bda16b953df366a85691dc621e7b3ac64b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
main = let
blendFun x = Blend x ((SrcAlpha,OneMinusSrcAlpha),(SrcAlpha,OneMinusSrcAlpha)) (V4 1.0 1.0 1.0 1.0)
blend'' = blendFun (FuncAdd,FuncAdd)
blend = Blend (FuncAdd,FuncAdd) ((SrcAlpha,OneMinusSrcAlpha),(SrcAlpha,OneMinusSrcAlpha)) (V4 1.0 1.0 1.0 1.0)
blend' = NoBlending
bgColor = V4 0.5 0.0 0.4 1.0
bgColor' = V4 0.2 0.2 0.4 1.0
emptyFB = FrameBuffer (depthImage1 1000.0,colorImage1 bgColor)
polyMode = PolygonLine 20.0
polyMode' = PolygonFill
polyMode'' = PolygonPoint (PointSize 10.0)
cull = CullNone
cull' = CullFront
rasterCtx = TriangleCtx cull polyMode' NoOffset FirstVertex
fragmentCtx = (DepthOp Less True, ColorOp blend (V4 True True True True))
modelViewProj = Uniform "MVP" :: Mat 4 4 Float
vertexShader v = (PrimMulMatVec modelViewProj v, v)
vertexStream = fetch "stream4" Triangle (Attribute "position4" :: Vec 4 Float)
primitiveStream = mapPrimitives vertexShader vertexStream
fragmentStream = rasterizePrimitives rasterCtx Smooth primitiveStream
fragmentShader' = \v -> (V4 1.0 0.4 0.0 0.2)
fragmentShader = \v -> (PrimMul v (V4 1.0 0.4 0.0 0.2))
frame = accumulate fragmentCtx fragmentShader fragmentStream emptyFB
in ScreenOut frame
|
