diff --git a/src/nogl/noGLES1.inc b/src/nogl/noGLES1.inc
index 1f4f67aa7b58fc728d56ebb52d293a4100c05905..6142e2e4ee6c148f254d365c166ed62be90f986e 100644 (file)
--- a/src/nogl/noGLES1.inc
+++ b/src/nogl/noGLES1.inc
var
cmds: TCmds;
+ var
+ extList: string = '';
+
var
es_glVertexPointer: procedure (size: GLint; _type: GLenum; stride: GLsizei; pointer: PGLvoid); cdecl;
es_glColorPointer: procedure (size: GLint; _type: GLenum; stride: GLsizei; pointer: PGLvoid); cdecl;
es_glDisable: procedure (cap: GLenum); cdecl;
es_glIsEnabled: function (cap: GLenum): GLBoolean; cdecl;
es_glGetString: function (name: GLenum): PChar; cdecl;
+ es_glGetError: function (): GLenum; cdecl;
es_glClearColor: procedure (red, green, blue, alpha: GLclampf); cdecl;
es_glClear: procedure (mask: GLbitfield); cdecl;
es_glAlphaFunc: procedure (func: GLenum; ref: GLclampf); cdecl;
es_glFlush: procedure; cdecl;
es_glFinish: procedure; cdecl;
+ es_glMultMatrixf: procedure (m: PGLfloat); cdecl;
+ es_glOrthof: procedure (left, right, bottom, top, near, far: GLfloat); cdecl;
es_glLoadIdentity: procedure; cdecl;
es_glMatrixMode: procedure (mode: GLenum); cdecl;
es_glLoadMatrixf: procedure (m: PGLfloat); cdecl;
es_glTexSubImage2D: procedure (target: GLenum; level: GLint; xoffset, yoffset: GLint; width, height: GLsizei; format, _type: GLenum; pixels: PGLvoid); cdecl;
es_glDeleteTextures: procedure (n: GLsizei; textures: PGLuint); cdecl;
+ es_glGenFramebuffers: procedure (n: GLsizei; framebuffers: PGLuint); cdecl;
+ es_glBindFramebuffer: procedure (target: GLenum; framebuffer: GLuint); cdecl;
+ es_glFramebufferTexture2D: procedure (target, attachment, textarget: GLenum; texture: GLuint; level: GLint); cdecl;
+ es_glFramebufferRenderbuffer: procedure (target, attachment, rbotarget: GLenum; rbo: GLuint); cdecl;
+ es_glCheckFramebufferStatus: function (framebuffer: GLuint): GLenum; cdecl;
+ es_glDeleteFramebuffers: procedure (n: GLsizei; const framebuffers: PGLuint); cdecl;
+
+ es_glGenRenderbuffers: procedure (n: GLsizei; framebuffers: PGLuint); cdecl;
+ es_glBindRenderbuffer: procedure (target: GLenum; renderbuffer: GLuint); cdecl;
+ es_glRenderbufferStorage: procedure (target, internalformat: GLenum; w, h: GLsizei); cdecl;
+ es_glDeleteRenderbuffers: procedure (n: GLsizei; const renderbuffers: PGLuint); cdecl;
+
procedure glEnable(cap: GLenum);
begin
es_glEnable(cap);
result := es_glGetString(name);
end;
+ function glGetError: GLenum;
+ begin
+ result := es_glGetError
+ end;
+
procedure glClearColor(red, green, blue, alpha: GLclampf);
begin
es_glClearColor(red, green, blue, alpha);
procedure glBegin(mode: GLenum);
begin
assert(cmds.mode = GL_INVALID_ENUM);
- assert((mode = GL_POINTS) or (mode = GL_LINES) or (mode = GL_QUADS));
+ assert((mode = GL_POINTS) or (mode = GL_LINES) or (mode = GL_QUADS) or (mode = GL_LINE_LOOP));
cmds.mode := mode;
SetLength(cmds.v, 0);
SetLength(cmds.c, 0);
begin
i := Length(x);
vpx := Length(v);
- if (cmds.mode = GL_QUADS) and (i div vpx mod 4 = 3) then
+ if (cmds.mode = GL_QUADS) and (i div vpx mod 6 = 3) then
begin
- for j := 0 to vpx - 1 do
- AddFloatRaw(x, x[i - 3*vpx + j]);
- for j := 0 to vpx - 1 do
- AddFloatRaw(x, x[i - 1*vpx + j]);
+ for j := 0 to vpx - 1 do AddFloatRaw(x, x[i - 1*vpx + j]);
+ for j := 0 to vpx - 1 do AddFloatRaw(x, v[j]);
+ for j := 0 to vpx - 1 do AddFloatRaw(x, x[i - 3*vpx + j]);
+ end
+ else
+ begin
+ for j := 0 to vpx - 1 do AddFloatRaw(x, v[j]);
end;
- for j := 0 to vpx - 1 do
- AddFloatRaw(x, v[j]);
end;
(* ---------- end internals ---------- *)
+ procedure glOrtho (left, right, bottom, top, near, far: GLdouble);
+ var m: array [0..15] of GLfloat;
+ begin
+ if assigned(es_glOrthof) then
+ begin
+ es_glOrthof(left, right, bottom, top, near, far);
+ end
+ else
+ begin
+ m[0] := 2 / (right - left);
+ m[1] := 0;
+ m[2] := 0;
+ m[3] := 0;
+ m[4] := 0;
+ m[5] := 2 / (top - bottom);
+ m[6] := 0;
+ m[7] := 0;
+ m[8] := 0;
+ m[9] := 0;
+ m[10] := -2 / (far - near);
+ m[11] := 0;
+ m[12] := -((right + left) / (right - left));
+ m[13] := -((top + bottom) / (top - bottom));
+ m[14] := -((far + near) / (far - near));
+ m[15] := 1;
+ es_glMultMatrixf(@m[0]);
+ end;
+ end;
procedure glLoadIdentity;
begin
+
+ procedure glGenFramebuffers(n: GLsizei; framebuffers: PGLuint);
+ begin
+ es_glGenFramebuffers(n, framebuffers);
+ end;
+
+ procedure glBindFramebuffer(target: GLenum; framebuffer: GLuint);
+ begin
+ es_glBindFramebuffer(target, framebuffer);
+ end;
+
+ procedure glFramebufferTexture2D(target, attachment, textarget: GLenum; texture: GLuint; level: GLint);
+ begin
+ es_glFramebufferTexture2D(target, attachment, textarget, texture, level);
+ end;
+
+ procedure glFramebufferRenderbuffer(target, attachment, rbotarget: GLenum; rbo: GLuint);
+ begin
+ es_glFramebufferRenderbuffer(target, attachment, rbotarget, rbo);
+ end;
+
+ function glCheckFramebufferStatus(framebuffer: GLuint): GLenum;
+ begin
+ result := es_glCheckFramebufferStatus(framebuffer);
+ end;
+
+ procedure glDeleteFramebuffers(n: GLsizei; const framebuffers: PGLuint);
+ begin
+ es_glDeleteFramebuffers(n, framebuffers);
+ end;
+
+ procedure glGenRenderbuffers(n: GLsizei; renderbuffers: PGLuint);
+ begin
+ es_glGenRenderbuffers(n, renderbuffers);
+ end;
+
+ procedure glBindRenderbuffer(target: GLenum; renderbuffer: GLuint);
+ begin
+ es_glBindRenderbuffer(target, renderbuffer);
+ end;
+
+ procedure glRenderbufferStorage(target, internalformat: GLenum; w, h: GLsizei);
+ begin
+ es_glRenderbufferStorage(target, internalformat, w, h);
+ end;
+
+ procedure glDeleteRenderbuffers(n: GLsizei; const renderbuffers: PGLuint);
+ begin
+ es_glDeleteRenderbuffers(n, renderbuffers);
+ end;
+
+
+
+
+
+
procedure nogl_Init;
begin
es_glVertexPointer := SDL_GL_GetProcAddress('glVertexPointer');
es_glDisable := SDL_GL_GetProcAddress('glDisable');
es_glIsEnabled := SDL_GL_GetProcAddress('glIsEnabled');
es_glGetString := SDL_GL_GetProcAddress('glGetString');
+ es_glGetError := SDL_GL_GetProcAddress('glGetError');
es_glClearColor := SDL_GL_GetProcAddress('glClearColor');
es_glClear := SDL_GL_GetProcAddress('glClear');
es_glAlphaFunc := SDL_GL_GetProcAddress('glAlphaFunc');
es_glFlush := SDL_GL_GetProcAddress('glFlush');
es_glFinish := SDL_GL_GetProcAddress('glFinish');
+ es_glMultMatrixf := SDL_GL_GetProcAddress('glMultMatrixf');
+ es_glOrthof := SDL_GL_GetProcAddress('glOrthof');
es_glLoadIdentity := SDL_GL_GetProcAddress('glLoadIdentity');
es_glMatrixMode := SDL_GL_GetProcAddress('glMatrixMode');
es_glLoadMatrixf := SDL_GL_GetProcAddress('glLoadMatrixf');
es_glTexSubImage2D := SDL_GL_GetProcAddress('glTexSubImage2D');
es_glDeleteTextures := SDL_GL_GetProcAddress('glDeleteTextures');
+ es_glGenFramebuffers := SDL_GL_GetProcAddress('glGenFramebuffersOES');
+ es_glBindFramebuffer := SDL_GL_GetProcAddress('glBindFramebufferOES');
+ es_glFramebufferTexture2D := SDL_GL_GetProcAddress('glFramebufferTexture2DOES');;
+ es_glFramebufferRenderbuffer := SDL_GL_GetProcAddress('glFramebufferRenderbufferOES');
+ es_glCheckFramebufferStatus := SDL_GL_GetProcAddress('glCheckFramebufferStatusOES');
+ es_glDeleteFramebuffers := SDL_GL_GetProcAddress('glDeleteFramebuffersOES');
+
+ es_glGenRenderbuffers := SDL_GL_GetProcAddress('glGenRenderbuffersOES');
+ es_glBindRenderbuffer := SDL_GL_GetProcAddress('glBindRenderbufferOES');
+ es_glRenderbufferStorage := SDL_GL_GetProcAddress('glRenderbufferStorageOES');
+ es_glDeleteRenderbuffers := SDL_GL_GetProcAddress('glDeleteRenderbuffersOES');
+
cmds.mode := GL_INVALID_ENUM
end;
es_glFlush := nil;
es_glFinish := nil;
+ es_glMultMatrixf := nil;
+ es_glOrthof := nil;
es_glLoadIdentity := nil;
es_glMatrixMode := nil;
es_glLoadMatrixf := nil;
es_glTexImage2D := nil;
es_glTexSubImage2D := nil;
es_glDeleteTextures := nil;
+
+ es_glGenFramebuffers := nil;
+ es_glBindFramebuffer := nil;
+ es_glFramebufferTexture2D := nil;
+ es_glFramebufferRenderbuffer := nil;
+ es_glCheckFramebufferStatus := nil;
+ es_glDeleteFramebuffers := nil;
+
+ es_glGenRenderbuffers := nil;
+ es_glBindRenderbuffer := nil;
+ es_glRenderbufferStorage := nil;
+ es_glDeleteRenderbuffers := nil;
+ end;
+
+ function nogl_ExtensionSupported(ext: string): Boolean;
+ begin
+ if (extList = '') and Assigned(es_glGetString) then
+ extList := glGetString(GL_EXTENSIONS);
+ result := pos(ext, extList) <> 0;
end;
initialization