gl: fix error messages

[d2df-sdl.git] / src / nogl / noGL.pas

diff --git a/src/nogl/noGL.pas b/src/nogl/noGL.pas
index 90735c340c1af3096ac4b542ef852320b8d434af..0c6724912e117d7ae4f7c836882636e9708fd15d 100644 (file)
--- a/src/nogl/noGL.pas
+++ b/src/nogl/noGL.pas
@@ -43,6 +43,12 @@ interface
 
   const
     GL_NO_ERROR = 0;
+    GL_INVALID_ENUM = $0500;
+    GL_INVALID_VALUE = $0501;
+    GL_INVALID_OPERATION = $0502;
+    GL_STACK_OVERFLOW = $0503;
+    GL_STACK_UNDERFLOW = $0504;
+    GL_OUT_OF_MEMORY = $0505;
     GL_NEAREST = $2600;
     GL_DEPTH_TEST = $0B71;
     GL_SCISSOR_TEST = $0C11;
@@ -70,6 +76,7 @@ interface
     GL_TEXTURE_WRAP_S = $2802;
     GL_TEXTURE_WRAP_T = $2803;
     GL_REPEAT = $2901;
+    GL_CLAMP_TO_EDGE = $812F;
     GL_TEXTURE_MIN_FILTER = $2801;
     GL_TEXTURE_MAG_FILTER = $2800;
     GL_RGBA = $1908;
@@ -174,7 +181,7 @@ interface
 
   procedure glReadPixels(x, y: GLint; width, height: GLsizei; format, atype: GLenum; pixels: Pointer);
 
-  procedure glOrtho (left, right, bottom, top, near, far: GLfloat);
+  procedure glOrtho (left, right, bottom, top, near, far: GLdouble);
   procedure glLoadIdentity;
   procedure glScissor(x, y: GLint; width, height: GLsizei);
   procedure glViewport(x, y: GLint; width, height: GLsizei);