1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
Pipeline
{ info = ""
, backend = OpenGL33
, textures =
[ TextureDescriptor
{ textureType = Texture2D (FloatT Red) 1
, textureSize = VV2U (V2 128 128)
, textureSemantic = Depth
, textureSampler =
SamplerDescriptor
{ samplerWrapS = MirroredRepeat
, samplerWrapT = Just MirroredRepeat
, samplerWrapR = Nothing
, samplerMinFilter = Linear
, samplerMagFilter = Linear
, samplerBorderColor = VV4F (V4 0.0 0.0 0.0 1.0)
, samplerMinLod = Nothing
, samplerMaxLod = Nothing
, samplerLodBias = 0.0
, samplerCompareFunc = Nothing
}
, textureBaseLevel = 0
, textureMaxLevel = 0
}
, TextureDescriptor
{ textureType = Texture2D (FloatT RGBA) 1
, textureSize = VV2U (V2 128 128)
, textureSemantic = Color
, textureSampler =
SamplerDescriptor
{ samplerWrapS = MirroredRepeat
, samplerWrapT = Just MirroredRepeat
, samplerWrapR = Nothing
, samplerMinFilter = Linear
, samplerMagFilter = Linear
, samplerBorderColor = VV4F (V4 0.0 0.0 0.0 1.0)
, samplerMinLod = Nothing
, samplerMaxLod = Nothing
, samplerLodBias = 0.0
, samplerCompareFunc = Nothing
}
, textureBaseLevel = 0
, textureMaxLevel = 0
}
]
, samplers = []
, targets =
[ RenderTarget
{ renderTargets =
[ TargetItem
{ targetSemantic = Depth , targetRef = Just (Framebuffer Depth) }
, TargetItem
{ targetSemantic = Color , targetRef = Just (Framebuffer Color) }
]
}
, RenderTarget
{ renderTargets =
[ TargetItem
{ targetSemantic = Depth
, targetRef = Just (TextureImage 0 0 Nothing)
}
, TargetItem
{ targetSemantic = Color
, targetRef = Just (TextureImage 1 0 Nothing)
}
]
}
]
, programs =
[ Program
{ programUniforms = fromList [ ( "MVP" , M44F ) ]
, programStreams =
fromList
[ ( "vi1" , Parameter { name = "position4" , ty = V4F } )
, ( "vi2" , Parameter { name = "vertexUV" , ty = V2F } )
]
, programInTextures = fromList [ ( "s0" , FTexture2D ) ]
, programOutput = [ Parameter { name = "f0" , ty = V4F } ]
, vertexShader =
"""
#version 330 core
vec4 texture2D(sampler2D s,vec2 uv) {
return texture(s,uv);
}
uniform mat4 MVP;
in vec4 vi1;
in vec2 vi2;
smooth out vec2 vo1;
vec4 scale(float z0,vec4 z1) {
return (z1) * (vec4 (z0,z0,z0,1.0));
}
void main() {
gl_Position = scale (0.5,(MVP) * (vi1));
vo1 = vi2;
}
"""
, geometryShader = Nothing
, fragmentShader =
"""
#version 330 core
vec4 texture2D(sampler2D s,vec2 uv) {
return texture(s,uv);
}
uniform sampler2D s0;
smooth in vec2 vo1;
out vec4 f0;
void main() {
f0 = texture2D (s0,vo1);
}
"""
}
]
, slots =
[ Slot
{ slotName = "stream4"
, slotStreams =
fromList [ ( "position4" , V4F ) , ( "vertexUV" , V2F ) ]
, slotUniforms = fromList [ ( "MVP" , M44F ) ]
, slotPrimitive = Triangles
, slotPrograms = [ 0 ]
}
]
, streams = []
, commands =
[ SetRenderTarget 1
, ClearRenderTarget
[ ClearImage { imageSemantic = Depth , clearValue = VFloat 1000.0 }
, ClearImage
{ imageSemantic = Color , clearValue = VV4F (V4 0.0 0.0 1.0 1.0) }
]
, SetRenderTarget 0
, ClearRenderTarget
[ ClearImage { imageSemantic = Depth , clearValue = VFloat 1000.0 }
, ClearImage
{ imageSemantic = Color , clearValue = VV4F (V4 1.0 0.0 0.0 1.0) }
]
, SetProgram 0
, SetTexture 0 1
, SetSamplerUniform "s0" 0
, SetRasterContext
(TriangleCtx CullNone PolygonFill NoOffset LastVertex)
, SetAccumulationContext
AccumulationContext
{ accViewportName = Nothing
, accOperations =
[ DepthOp Less True
, ColorOp NoBlending (VV4B (V4 True True True True))
]
}
, RenderSlot 0
]
}
|
