diff options
author | Joe Crayne <joe@jerkface.net> | 2019-05-06 02:34:32 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-05-06 19:44:11 -0400 |
commit | d1d0946d084dac6666fb5e65ea71b1be9b8017eb (patch) | |
tree | ded4974018e92d5610c3533478fd1d8c0e7a1c16 /src/LambdaCube | |
parent | fcf51c414e06ff24e7f2ec350ef0cef20b6238d2 (diff) |
Avoid checking automatic program inputs (gl_VertexID).
Diffstat (limited to 'src/LambdaCube')
-rw-r--r-- | src/LambdaCube/GL/Backend.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/LambdaCube/GL/Backend.hs b/src/LambdaCube/GL/Backend.hs index f3bfe47..50d0d3f 100644 --- a/src/LambdaCube/GL/Backend.hs +++ b/src/LambdaCube/GL/Backend.hs | |||
@@ -257,7 +257,11 @@ compileProgram p = do | |||
257 | 257 | ||
258 | -- check program input | 258 | -- check program input |
259 | (uniforms,uniformsType) <- queryUniforms po | 259 | (uniforms,uniformsType) <- queryUniforms po |
260 | (attributes,attributesType) <- queryStreams po | 260 | (attributes,attributesType) <- do |
261 | (as,ts) <- queryStreams po | ||
262 | let builtins = Map.singleton "gl_VertexID" () -- Avoid checking automatic inputs. | ||
263 | return (as Map.\\ builtins, ts Map.\\ builtins) | ||
264 | |||
261 | --print uniforms | 265 | --print uniforms |
262 | --print attributes | 266 | --print attributes |
263 | let lcUniforms = (programUniforms p) `Map.union` (programInTextures p) | 267 | let lcUniforms = (programUniforms p) `Map.union` (programInTextures p) |