make test compile with latest opengl version

This commit is contained in:
Andreas Rumpf 2016-07-30 09:46:27 +02:00
commit 2605c8c4ce
3 changed files with 3 additions and 3 deletions

View file

@ -6,7 +6,7 @@ export
opengl opengl
type type
EGL* = object of E_Base EGL* = object of Exception
EGL_code* = object of EGL EGL_code* = object of EGL
code*: EGL_err code*: EGL_err
EGL_err {.pure.} = enum EGL_err {.pure.} = enum

View file

@ -8,7 +8,7 @@ type
TShaderType* {.pure.} = enum TShaderType* {.pure.} = enum
frag = GL_FRAGMENT_SHADER, frag = GL_FRAGMENT_SHADER,
vert = GL_VERTEX_SHADER vert = GL_VERTEX_SHADER
E_Shader* = object of E_Base E_Shader* = object of Exception
E_UnknownShaderType* = object of E_Shader E_UnknownShaderType* = object of E_Shader
converter pathToShaderType*(s: string): TShaderType = converter pathToShaderType*(s: string): TShaderType =

View file

@ -25,7 +25,7 @@ proc whiteTex*(): TTex =
setTexParams() setTexParams()
var pixel = [255'u8, 255'u8, 255'u8, 255'u8] var pixel = [255'u8, 255'u8, 255'u8, 255'u8]
?glTexImage2D(GLtexture2D, 0, GL_RGBA, 1, 1, 0, GL_BGRA, cGLUnsignedByte, pixel[0].addr) ?glTexImage2D(GLtexture2D, 0, GLint GL_RGBA, 1, 1, 0, GL_BGRA, cGLUnsignedByte, pixel[0].addr)
?glBindTexture(GLtexture2D, 0) ?glBindTexture(GLtexture2D, 0)
result = gWhiteTex result = gWhiteTex