From fa31e5881bd7bc1ec9b501d79e136caf46f5056b Mon Sep 17 00:00:00 2001 From: karoly Date: Sat, 29 May 2010 17:53:31 +0000 Subject: + recentish TinyGL of MorphOS supports glCopyTexImage2D() git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15343 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/opengl/src/tinygl.inc | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'packages/opengl') diff --git a/packages/opengl/src/tinygl.inc b/packages/opengl/src/tinygl.inc index f9969bca15..8214d461d4 100644 --- a/packages/opengl/src/tinygl.inc +++ b/packages/opengl/src/tinygl.inc @@ -314,6 +314,9 @@ syscall sysvbase TinyGLBase 1216; procedure _GLColorMask(gcl: pointer; red, green, blue, alpha: GLboolean); 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} @@ -369,9 +372,7 @@ end; procedure glCopyTexImage2D(target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width, height: GLsizei; border: GLint); inline; 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; procedure glCullFace(mode: GLenum); inline; -- cgit v1.2.1