Browse Source

+ recentish TinyGL of MorphOS supports glCopyTexImage2D()

git-svn-id: trunk@15343 -
Károly Balogh 15 years ago
parent
commit
066b8616c0
1 changed files with 4 additions and 3 deletions
  1. 4 3
      packages/opengl/src/tinygl.inc

+ 4 - 3
packages/opengl/src/tinygl.inc

@@ -314,6 +314,9 @@ syscall sysvbase TinyGLBase 1216;
 
 
 procedure _GLColorMask(gcl: pointer; red, green, blue, alpha: GLboolean);
 procedure _GLColorMask(gcl: pointer; red, green, blue, alpha: GLboolean);
 syscall sysvbase TinyGLBase 1282;
 syscall sysvbase TinyGLBase 1282;
+
+procedure _GLCopyTexImage2D(gcl: pointer; target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width, height: GLsizei; border: GLint); inline;
+syscall sysvbase TinyGLBase 1402;
 {$ENDIF GL_UNIT}
 {$ENDIF GL_UNIT}
 
 
 
 
@@ -369,9 +372,7 @@ end;
 
 
 procedure glCopyTexImage2D(target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width, height: GLsizei; border: GLint); inline;
 procedure glCopyTexImage2D(target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width, height: GLsizei; border: GLint); inline;
 begin
 begin
-{$WARNING glCopyTexImage2D is dummy.}
-  // DUMMY, FIX ME!!! 
-  // TinyGL doesn't support this yet.
+ _GLCopyTexImage2D(tglContext, target, level, internalFormat, x, y, width, height, border);
 end;
 end;
 
 
 procedure glCullFace(mode: GLenum); inline;
 procedure glCullFace(mode: GLenum); inline;