ruby-opengl 0.60.1 → 0.61.0

data/ext/gl/gl-1.3.c

@@ -1,444 +0,0 @@
-/*
- * Copyright (C) 2007 Jan Dvorak <jan.dvorak@kraxnet.cz>
- *
- * This program is distributed under the terms of the MIT license.
- * See the included MIT-LICENSE file for the terms of this license.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
- * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
- * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
- * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
- * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
- * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
- * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
- */
-
-#include "../common/common.h"
-
-/* OpenGL 1.3 functions */
-
-GL_FUNC_LOAD_1(ActiveTexture,GLvoid, GLenum, "1.3")
-GL_FUNC_LOAD_1(ClientActiveTexture,GLvoid, GLenum, "1.3")
-GL_FUNC_LOAD_2(MultiTexCoord1d,GLvoid, GLenum,GLdouble, "1.3")
-GL_FUNC_LOAD_2(MultiTexCoord1f,GLvoid, GLenum,GLfloat, "1.3")
-GL_FUNC_LOAD_2(MultiTexCoord1i,GLvoid, GLenum,GLint, "1.3")
-GL_FUNC_LOAD_2(MultiTexCoord1s,GLvoid, GLenum,GLshort, "1.3")
-GL_FUNC_LOAD_3(MultiTexCoord2d,GLvoid, GLenum,GLdouble,GLdouble, "1.3")
-GL_FUNC_LOAD_3(MultiTexCoord2f,GLvoid, GLenum,GLfloat,GLfloat, "1.3")
-GL_FUNC_LOAD_3(MultiTexCoord2i,GLvoid, GLenum,GLint,GLint, "1.3")
-GL_FUNC_LOAD_3(MultiTexCoord2s,GLvoid, GLenum,GLshort,GLshort, "1.3")
-GL_FUNC_LOAD_4(MultiTexCoord3d,GLvoid, GLenum,GLdouble,GLdouble,GLdouble, "1.3")
-GL_FUNC_LOAD_4(MultiTexCoord3f,GLvoid, GLenum,GLfloat,GLfloat,GLfloat, "1.3")
-GL_FUNC_LOAD_4(MultiTexCoord3i,GLvoid, GLenum,GLint,GLint,GLint, "1.3")
-GL_FUNC_LOAD_4(MultiTexCoord3s,GLvoid, GLenum,GLshort,GLshort,GLshort, "1.3")
-GL_FUNC_LOAD_5(MultiTexCoord4d,GLvoid, GLenum,GLdouble,GLdouble,GLdouble,GLdouble, "1.3")
-GL_FUNC_LOAD_5(MultiTexCoord4f,GLvoid, GLenum,GLfloat,GLfloat,GLfloat,GLfloat, "1.3")
-GL_FUNC_LOAD_5(MultiTexCoord4i,GLvoid, GLenum,GLint,GLint,GLint,GLint, "1.3")
-GL_FUNC_LOAD_5(MultiTexCoord4s,GLvoid, GLenum,GLshort,GLshort,GLshort,GLshort, "1.3")
-GL_FUNC_LOAD_2(SampleCoverage,GLvoid, GLclampf,GLboolean, "1.3")
-
-#define GLMULTITEXCOORD_VFUNC(_type_) \
-static VALUE \
-gl_MultiTexCoord##_type_##v(argc,argv,obj) \
-int argc; \
-VALUE *argv; \
-VALUE obj; \
-{ \
-	int num; \
-	VALUE args[5]; \
-	RArray *ary; \
-	switch (num = rb_scan_args(argc, argv, "23", &args[0], &args[1], &args[2], &args[3],&args[4])) { \
-	case 2: \
-		if (TYPE(args[1]) == T_ARRAY) { \
-		ary = RARRAY(args[1]); \
-		switch (RARRAY_LEN(ary)) { \
-			case 1: \
-			gl_MultiTexCoord1##_type_(obj,args[0],RARRAY_PTR(ary)[0]); \
-			break; \
-			case 2: \
-			gl_MultiTexCoord2##_type_(obj,args[0],RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1]); \
-			break; \
-			case 3: \
-			gl_MultiTexCoord3##_type_(obj,args[0],RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
-			break; \
-			case 4: \
-			gl_MultiTexCoord4##_type_(obj,args[0],RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2],RARRAY_PTR(ary)[3]); \
-			break; \
-			default: \
-			rb_raise(rb_eArgError, "array length:%d", num); \
-		} \
-		} \
-		else {	\
-			gl_MultiTexCoord1##_type_(obj,args[0], args[1]); \
-			break; \
-		} \
-		break; \
-	case 3: \
-		gl_MultiTexCoord2##_type_(obj,args[0], args[1], args[2]); \
-		break; \
-	case 4: \
-		gl_MultiTexCoord3##_type_(obj,args[0], args[1], args[2], args[3]); \
-		break; \
-	case 5: \
-		gl_MultiTexCoord4##_type_(obj,args[0], args[1], args[2], args[3], args[4]); \
-		break; \
-	default: \
-		rb_raise(rb_eArgError, "too many arguments"); \
-		break; \
-	} \
-	return Qnil; \
-}
-
-GLMULTITEXCOORD_VFUNC(d)
-GLMULTITEXCOORD_VFUNC(f)
-GLMULTITEXCOORD_VFUNC(i)
-GLMULTITEXCOORD_VFUNC(s)
-#undef GLTEXCOORD_VFUNC
-
-#define TRANSPOSEMATRIX_FUNC(_name_,_type_) \
-static void (APIENTRY * fptr_gl##_name_)(const _type_[]); \
-static VALUE \
-gl_##_name_(obj,arg1) \
-VALUE obj,arg1; \
-{ \
-	_type_ m[4*4]; \
-	LOAD_GL_FUNC(gl##_name_,"1.3") \
-	ary2cmat##_type_(arg1, m, 4, 4); \
-	fptr_gl##_name_(m); \
-	CHECK_GLERROR \
-	return Qnil; \
-}
-
-TRANSPOSEMATRIX_FUNC(LoadTransposeMatrixf,float)
-TRANSPOSEMATRIX_FUNC(LoadTransposeMatrixd,double)
-TRANSPOSEMATRIX_FUNC(MultTransposeMatrixf,float)
-TRANSPOSEMATRIX_FUNC(MultTransposeMatrixd,double)
-
-#undef TRANSPOSEMATRIX_FUNC
-
-static void (APIENTRY * fptr_glCompressedTexImage3D)(GLenum,GLint,GLenum,GLsizei,GLsizei,GLsizei,GLint,GLsizei,GLvoid*);
-static VALUE
-gl_CompressedTexImage3D(obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9)
-VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9;
-{
-	GLenum target;
-	GLint level;
-	GLenum internalformat;
-	GLsizei width;
-	GLsizei height;
-	GLsizei depth;
-	GLint border;
-	GLsizei imagesize;
-	GLvoid *pixels;
-	LOAD_GL_FUNC(glCompressedTexImage3D,"1.3")
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	internalformat = (GLenum)NUM2INT(arg3);
-	width = (GLsizei)NUM2UINT(arg4);
-	height = (GLsizei)NUM2UINT(arg5);
-	depth = (GLsizei)NUM2UINT(arg6);
-	border = (GLint)NUM2INT(arg7);
-	imagesize = (GLsizei)NUM2UINT(arg8);
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		fptr_glCompressedTexImage3D(target,level,internalformat,width,height,depth,border,imagesize,(GLvoid *)NUM2INT(arg9));
-	} else {
-		if (TYPE(arg9) == T_STRING || TYPE(arg9) == T_ARRAY) {
-			VALUE data;
-			data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg9);
-			if (RSTRING_LEN(data) < imagesize)
-				rb_raise(rb_eArgError, "string length:%li",RSTRING_LEN(data));
-			pixels = RSTRING_PTR(data);
-		} else if (NIL_P(arg9)) {
-			pixels = NULL;
-		} else {
-			Check_Type(arg9,T_STRING); /* force exception */
-			return Qnil;
-		}
-		fptr_glCompressedTexImage3D(target,level,internalformat,width,height,depth,border,imagesize,pixels);
-	}
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glCompressedTexImage2D)(GLenum,GLint,GLenum,GLsizei,GLsizei,GLint,GLsizei,GLvoid*);
-static VALUE
-gl_CompressedTexImage2D(obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8)
-VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8;
-{
-	GLenum target;
-	GLint level;
-	GLenum internalformat;
-	GLsizei width;
-	GLsizei height;
-	GLint border;
-	GLsizei imagesize;
-	GLvoid *pixels;
-	LOAD_GL_FUNC(glCompressedTexImage2D,"1.3")
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	internalformat = (GLenum)NUM2INT(arg3);
-	width = (GLsizei)NUM2UINT(arg4);
-	height = (GLsizei)NUM2UINT(arg5);
-	border = (GLint)NUM2INT(arg6);
-	imagesize = (GLsizei)NUM2UINT(arg7);
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		fptr_glCompressedTexImage2D(target,level,internalformat,width,height,border,imagesize,(GLvoid *)NUM2INT(arg8));
-	} else {
-		if (TYPE(arg8) == T_STRING || TYPE(arg8) == T_ARRAY) {
-			VALUE data;
-			data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg8);
-			if (RSTRING_LEN(data) < imagesize)
-				rb_raise(rb_eArgError, "string length:%li",RSTRING_LEN(data));
-			pixels = RSTRING_PTR(data);
-		} else if (NIL_P(arg8)) {
-			pixels = NULL;
-		} else {
-			Check_Type(arg8,T_STRING); /* force exception */
-			return Qnil;
-		}
-		fptr_glCompressedTexImage2D(target,level,internalformat,width,height,border,imagesize,pixels);
-	}
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glCompressedTexImage1D)(GLenum,GLint,GLenum,GLsizei,GLint,GLsizei,GLvoid*);
-static VALUE
-gl_CompressedTexImage1D(obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7)
-VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7;
-{
-	GLenum target;
-	GLint level;
-	GLenum internalformat;
-	GLsizei width;
-	GLint border;
-	GLsizei imagesize;
-	GLvoid *pixels;
-	LOAD_GL_FUNC(glCompressedTexImage1D,"1.3")
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	internalformat = (GLenum)NUM2INT(arg3);
-	width = (GLsizei)NUM2UINT(arg4);
-	border = (GLint)NUM2INT(arg5);
-	imagesize = (GLsizei)NUM2UINT(arg6);
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		fptr_glCompressedTexImage1D(target,level,internalformat,width,border,imagesize,(GLvoid *)NUM2INT(arg7));
-	} else {
-		if (TYPE(arg7) == T_STRING || TYPE(arg7) == T_ARRAY) {
-			VALUE data;
-			data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg7);
-			if (RSTRING_LEN(data) < imagesize)
-				rb_raise(rb_eArgError, "string length:%li",RSTRING_LEN(data));
-			pixels = RSTRING_PTR(data);
-		} else if (NIL_P(arg7)) {
-			pixels = NULL;
-		} else {
-			Check_Type(arg7,T_STRING); /* force exception */
-			return Qnil;
-		}
-		fptr_glCompressedTexImage1D(target,level,internalformat,width,border,imagesize,pixels);
-	}
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glCompressedTexSubImage3D)(GLenum,GLint,GLint,GLint,GLint,GLsizei,GLsizei,GLsizei,GLenum,GLsizei,GLvoid*);
-static VALUE
-gl_CompressedTexSubImage3D(obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11)
-VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11;
-{
-	GLenum target;
-	GLint level;
-	GLint xoffset;
-	GLint yoffset;
-	GLint zoffset;
-	GLsizei width;
-	GLsizei height;
-	GLsizei depth;
-	GLenum format;
-	GLsizei imagesize;
-	GLvoid *pixels;
-	LOAD_GL_FUNC(glCompressedTexSubImage3D,"1.3")
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	xoffset = (GLint)NUM2INT(arg3);
-	yoffset = (GLint)NUM2INT(arg4);
-	zoffset = (GLint)NUM2INT(arg5);
-	width = (GLsizei)NUM2UINT(arg6);
-	height = (GLsizei)NUM2UINT(arg7);
-	depth = (GLsizei)NUM2UINT(arg8);
-	format = (GLenum)NUM2INT(arg9);
-	imagesize = (GLsizei)NUM2UINT(arg10);
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		fptr_glCompressedTexSubImage3D(target,level,xoffset,yoffset,zoffset,width,height,depth,format,imagesize,(GLvoid *)NUM2INT(arg11));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg11);
-		if (RSTRING_LEN(data) < imagesize)
-			rb_raise(rb_eArgError, "string length:%li",RSTRING_LEN(data));
-		pixels = RSTRING_PTR(data);
-
-		fptr_glCompressedTexSubImage3D(target,level,xoffset,yoffset,zoffset,width,height,depth,format,imagesize,pixels);
-	}
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glCompressedTexSubImage2D)(GLenum,GLint,GLint,GLint,GLsizei,GLsizei,GLenum,GLsizei,GLvoid*);
-static VALUE
-gl_CompressedTexSubImage2D(obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9)
-VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9;
-{
-	GLenum target;
-	GLint level;
-	GLint xoffset;
-	GLint yoffset;
-	GLsizei width;
-	GLsizei height;
-	GLenum format;
-	GLsizei imagesize;
-	GLvoid *pixels;
-	LOAD_GL_FUNC(glCompressedTexSubImage2D,"1.3")
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	xoffset = (GLint)NUM2INT(arg3);
-	yoffset = (GLint)NUM2INT(arg4);
-	width = (GLsizei)NUM2UINT(arg5);
-	height = (GLsizei)NUM2UINT(arg6);
-	format = (GLenum)NUM2INT(arg7);
-	imagesize = (GLsizei)NUM2UINT(arg8);
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		fptr_glCompressedTexSubImage2D(target,level,xoffset,yoffset,width,height,format,imagesize,(GLvoid *)NUM2INT(arg9));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg9);
-		if (RSTRING_LEN(data) < imagesize)
-			rb_raise(rb_eArgError, "string length:%li",RSTRING_LEN(data));
-		pixels = RSTRING_PTR(data);
-		fptr_glCompressedTexSubImage2D(target,level,xoffset,yoffset,width,height,format,imagesize,pixels);
-	}
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glCompressedTexSubImage1D)(GLenum,GLint,GLint,GLsizei,GLenum,GLsizei,GLvoid*);
-static VALUE
-gl_CompressedTexSubImage1D(obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7)
-VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7;
-{
-	GLenum target;
-	GLint level;
-	GLint xoffset;
-	GLsizei width;
-	GLenum format;
-	GLsizei imagesize;
-	GLvoid *pixels;
-	LOAD_GL_FUNC(glCompressedTexSubImage1D,"1.3")
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	xoffset = (GLint)NUM2INT(arg3);
-	width = (GLsizei)NUM2UINT(arg4);
-	format = (GLenum)NUM2INT(arg5);
-	imagesize = (GLsizei)NUM2UINT(arg6);
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		fptr_glCompressedTexSubImage1D(target,level,xoffset,width,format,imagesize,(GLvoid *)NUM2INT(arg7));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg7);
-		if (RSTRING_LEN(data) < imagesize)
-			rb_raise(rb_eArgError, "string length:%li",RSTRING_LEN(data));
-		pixels = RSTRING_PTR(data);
-		fptr_glCompressedTexSubImage1D(target,level,xoffset,width,format,imagesize,pixels);
-	}
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glGetCompressedTexImage)(GLenum,GLint,GLvoid*);
-static VALUE
-gl_GetCompressedTexImage(argc,argv,obj)
-int argc;
-VALUE *argv;
-VALUE obj;
-{
-	GLenum target;
-	GLint lod;
-	GLsizei size = 0;
-	VALUE data;
-	VALUE args[3];
-	int numargs;
-	LOAD_GL_FUNC(glGetCompressedTexImage,"1.3")
-	numargs = rb_scan_args(argc, argv, "21", &args[0], &args[1], &args[2]);
-	target = (GLenum)NUM2INT(args[0]);
-	lod = (GLenum)NUM2INT(args[1]);
-	switch(numargs) {
-		default:
-		case 2:
-			if (CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
-				rb_raise(rb_eArgError, "Pixel pack buffer bound, but offset argument missing");
-			glGetTexLevelParameteriv(target,lod,GL_TEXTURE_COMPRESSED_IMAGE_SIZE,&size); /* 1.0 function */
-			CHECK_GLERROR
-			data = allocate_buffer_with_string(size);
-			fptr_glGetCompressedTexImage(target,lod,(GLvoid*)RSTRING_PTR(data));
-			CHECK_GLERROR
-			return data;
-		case 3:
-			fptr_glGetCompressedTexImage(target,lod,(GLvoid*)NUM2INT(args[2]));
-			CHECK_GLERROR
-			return Qnil;	
-	}
-}
-
-void gl_init_functions_1_3(VALUE module)
-{
-	rb_define_module_function(module, "glActiveTexture", gl_ActiveTexture, 1);
-	rb_define_module_function(module, "glClientActiveTexture", gl_ClientActiveTexture, 1);
-	rb_define_module_function(module, "glMultiTexCoord1d", gl_MultiTexCoord1d, 2);
-	rb_define_module_function(module, "glMultiTexCoord1f", gl_MultiTexCoord1f, 2);
-	rb_define_module_function(module, "glMultiTexCoord1i", gl_MultiTexCoord1i, 2);
-	rb_define_module_function(module, "glMultiTexCoord1s", gl_MultiTexCoord1s, 2);
-	rb_define_module_function(module, "glMultiTexCoord2d", gl_MultiTexCoord2d, 3);
-	rb_define_module_function(module, "glMultiTexCoord2f", gl_MultiTexCoord2f, 3);
-	rb_define_module_function(module, "glMultiTexCoord2i", gl_MultiTexCoord2i, 3);
-	rb_define_module_function(module, "glMultiTexCoord2s", gl_MultiTexCoord2s, 3);
-	rb_define_module_function(module, "glMultiTexCoord3d", gl_MultiTexCoord3d, 4);
-	rb_define_module_function(module, "glMultiTexCoord3f", gl_MultiTexCoord3f, 4);
-	rb_define_module_function(module, "glMultiTexCoord3i", gl_MultiTexCoord3i, 4);
-	rb_define_module_function(module, "glMultiTexCoord3s", gl_MultiTexCoord3s, 4);
-	rb_define_module_function(module, "glMultiTexCoord4d", gl_MultiTexCoord4d, 5);
-	rb_define_module_function(module, "glMultiTexCoord4f", gl_MultiTexCoord4f, 5);
-	rb_define_module_function(module, "glMultiTexCoord4i", gl_MultiTexCoord4i, 5);
-	rb_define_module_function(module, "glMultiTexCoord4s", gl_MultiTexCoord4s, 5);
-	rb_define_module_function(module, "glLoadTransposeMatrixf", gl_LoadTransposeMatrixf, 1);
-	rb_define_module_function(module, "glLoadTransposeMatrixd", gl_LoadTransposeMatrixd, 1);
-	rb_define_module_function(module, "glMultTransposeMatrixf", gl_MultTransposeMatrixf, 1);
-	rb_define_module_function(module, "glMultTransposeMatrixd", gl_MultTransposeMatrixd, 1);
-	rb_define_module_function(module, "glSampleCoverage", gl_SampleCoverage, 2);
-	rb_define_module_function(module, "glCompressedTexImage3D", gl_CompressedTexImage3D, 9);
-	rb_define_module_function(module, "glCompressedTexImage2D", gl_CompressedTexImage2D, 8);
-	rb_define_module_function(module, "glCompressedTexImage1D", gl_CompressedTexImage1D, 7);
-	rb_define_module_function(module, "glCompressedTexSubImage3D", gl_CompressedTexSubImage3D, 11);
-	rb_define_module_function(module, "glCompressedTexSubImage2D", gl_CompressedTexSubImage2D, 9);
-	rb_define_module_function(module, "glCompressedTexSubImage1D", gl_CompressedTexSubImage1D, 7);
-	rb_define_module_function(module, "glGetCompressedTexImage", gl_GetCompressedTexImage, -1);
-
-	/* Additional functions */
-
-	rb_define_module_function(module, "glMultiTexCoord", gl_MultiTexCoorddv, -1);
-	rb_define_module_function(module, "glMultiTexCoord1dv", gl_MultiTexCoorddv, -1);
-	rb_define_module_function(module, "glMultiTexCoord1fv", gl_MultiTexCoordfv, -1);
-	rb_define_module_function(module, "glMultiTexCoord1iv", gl_MultiTexCoordiv, -1);
-	rb_define_module_function(module, "glMultiTexCoord1sv", gl_MultiTexCoordsv, -1);
-	rb_define_module_function(module, "glMultiTexCoord2dv", gl_MultiTexCoorddv, -1);
-	rb_define_module_function(module, "glMultiTexCoord2fv", gl_MultiTexCoordfv, -1);
-	rb_define_module_function(module, "glMultiTexCoord2iv", gl_MultiTexCoordiv, -1);
-	rb_define_module_function(module, "glMultiTexCoord2sv", gl_MultiTexCoordsv, -1);
-	rb_define_module_function(module, "glMultiTexCoord3dv", gl_MultiTexCoorddv, -1);
-	rb_define_module_function(module, "glMultiTexCoord3fv", gl_MultiTexCoordfv, -1);
-	rb_define_module_function(module, "glMultiTexCoord3iv", gl_MultiTexCoordiv, -1);
-	rb_define_module_function(module, "glMultiTexCoord3sv", gl_MultiTexCoordsv, -1);
-	rb_define_module_function(module, "glMultiTexCoord4dv", gl_MultiTexCoorddv, -1);
-	rb_define_module_function(module, "glMultiTexCoord4fv", gl_MultiTexCoordfv, -1);
-	rb_define_module_function(module, "glMultiTexCoord4iv", gl_MultiTexCoordiv, -1);
-	rb_define_module_function(module, "glMultiTexCoord4sv", gl_MultiTexCoordsv, -1);
-}

data/ext/gl/gl-1.4.c

@@ -1,349 +0,0 @@
-/*
- * Copyright (C) 2007 Jan Dvorak <jan.dvorak@kraxnet.cz>
- *
- * This program is distributed under the terms of the MIT license.
- * See the included MIT-LICENSE file for the terms of this license.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
- * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
- * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
- * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
- * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
- * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
- * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
- */
-
-#include "../common/common.h"
-
-/* OpenGL 1.4 functions */
-
-GL_FUNC_LOAD_4(BlendFuncSeparate,GLvoid, GLenum,GLenum,GLenum,GLenum, "1.4")
-GL_FUNC_LOAD_1(FogCoordf,GLvoid, GLfloat, "1.4")
-GL_FUNC_LOAD_1(FogCoordd,GLvoid, GLdouble, "1.4")
-GL_FUNC_LOAD_2(PointParameteri,GLvoid, GLenum,GLint, "1.4")
-GL_FUNC_LOAD_2(PointParameterf,GLvoid, GLenum,GLfloat, "1.4")
-GL_FUNC_LOAD_3(SecondaryColor3b,GLvoid, GLbyte,GLbyte,GLbyte, "1.4")
-GL_FUNC_LOAD_3(SecondaryColor3d,GLvoid, GLdouble,GLdouble,GLdouble, "1.4")
-GL_FUNC_LOAD_3(SecondaryColor3f,GLvoid, GLfloat,GLfloat,GLfloat, "1.4")
-GL_FUNC_LOAD_3(SecondaryColor3i,GLvoid, GLint,GLint,GLint, "1.4")
-GL_FUNC_LOAD_3(SecondaryColor3s,GLvoid, GLshort,GLshort,GLshort, "1.4")
-GL_FUNC_LOAD_3(SecondaryColor3ub,GLvoid, GLubyte,GLubyte,GLubyte, "1.4")
-GL_FUNC_LOAD_3(SecondaryColor3ui,GLvoid, GLuint,GLuint,GLuint, "1.4")
-GL_FUNC_LOAD_3(SecondaryColor3us,GLvoid, GLushort,GLushort,GLushort, "1.4")
-GL_FUNC_LOAD_2(WindowPos2d,GLvoid, GLdouble,GLdouble, "1.4")
-GL_FUNC_LOAD_2(WindowPos2f,GLvoid, GLfloat,GLfloat, "1.4")
-GL_FUNC_LOAD_2(WindowPos2i,GLvoid, GLint,GLint, "1.4")
-GL_FUNC_LOAD_2(WindowPos2s,GLvoid, GLshort,GLshort, "1.4")
-GL_FUNC_LOAD_3(WindowPos3d,GLvoid, GLdouble,GLdouble,GLdouble, "1.4")
-GL_FUNC_LOAD_3(WindowPos3f,GLvoid, GLfloat,GLfloat,GLfloat, "1.4")
-GL_FUNC_LOAD_3(WindowPos3i,GLvoid, GLint,GLint,GLint, "1.4")
-GL_FUNC_LOAD_3(WindowPos3s,GLvoid, GLshort,GLshort,GLshort, "1.4")
-
-static void (APIENTRY * fptr_glFogCoordfv)(GLfloat *);
-static VALUE
-gl_FogCoordfv(obj,arg1)
-VALUE obj,arg1;
-{
-	GLfloat coord;
-	LOAD_GL_FUNC(glFogCoordfv,"1.4")
-	Check_Type(arg1,T_ARRAY);
-	ary2cflt(arg1,&coord,1);
-	fptr_glFogCoordfv(&coord);
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glFogCoorddv)(GLdouble *);
-static VALUE
-gl_FogCoorddv(obj,arg1)
-VALUE obj,arg1;
-{
-	GLdouble coord;
-	LOAD_GL_FUNC(glFogCoorddv,"1.4")
-	Check_Type(arg1,T_ARRAY);
-	ary2cdbl(arg1,&coord,1);
-	fptr_glFogCoorddv(&coord);
-	CHECK_GLERROR
-	return Qnil;
-}
-
-extern VALUE g_FogCoord_ptr;
-static void (APIENTRY * fptr_glFogCoordPointer)(GLenum,GLsizei,const GLvoid *);
-static VALUE
-gl_FogCoordPointer(obj,arg1,arg2,arg3)
-VALUE obj,arg1,arg2,arg3;
-{
-	GLenum type;
-	GLsizei stride;
-	LOAD_GL_FUNC(glFogCoordPointer,"1.4")
-	type = (GLenum)NUM2INT(arg1);
-	stride = (GLsizei)NUM2UINT(arg2);
-	if (CheckBufferBinding(GL_ARRAY_BUFFER_BINDING)) {
-		g_FogCoord_ptr = arg3;
-		fptr_glFogCoordPointer(type, stride, (const GLvoid*)NUM2INT(arg3));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg3);
-		rb_str_freeze(data);
-		g_FogCoord_ptr = data;
-		fptr_glFogCoordPointer(type, stride, (const GLvoid*)RSTRING_PTR(data));
-	}
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glMultiDrawArrays)(GLenum,GLint*,GLsizei*,GLsizei);
-static VALUE
-gl_MultiDrawArrays(obj,arg1,arg2,arg3)
-VALUE obj,arg1,arg2,arg3;
-{
-	GLenum mode;
-	GLint *ary1;
-	GLsizei *ary2;
-  int len1,len2;
-	LOAD_GL_FUNC(glMultiDrawArrays,"1.4")
-  len1 = RARRAY_LEN(arg2);
-  len2 = RARRAY_LEN(arg3);
-	if (len1!=len2)
-			rb_raise(rb_eArgError, "Passed arrays must have same length");
-	mode = (GLenum)NUM2INT(arg1);
-	ary1 = ALLOC_N(GLint,len1);
-	ary2 = ALLOC_N(GLsizei,len2);
-	ary2cint(arg2,ary1,len1);
-	ary2cint(arg3,ary2,len2);
-	fptr_glMultiDrawArrays(mode,ary1,ary2,len1);
-	xfree(ary1);
-	xfree(ary2);
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glMultiDrawElements)(GLenum,const GLsizei *,GLenum,GLvoid **,GLsizei);
-static VALUE
-gl_MultiDrawElements(argc,argv,obj)
-int argc;
-VALUE *argv;
-VALUE obj;
-{
-	GLenum mode;
-	GLenum type;
-	GLsizei *counts;
-	GLvoid **indices;
-	GLint size;
-	RArray *ary;
-	int i;
-	VALUE args[4];
-	LOAD_GL_FUNC(glMultiDrawElements,"1.4")
-	switch (rb_scan_args(argc, argv, "31", &args[0], &args[1], &args[2],&args[3])) {
-		default:
-		case 3:
-			if (CheckBufferBinding(GL_ELEMENT_ARRAY_BUFFER_BINDING))
-				rb_raise(rb_eArgError, "Element array buffer bound, but offsets array missing");
-			mode = (GLenum)NUM2INT(args[0]);
-			type = (GLenum)NUM2INT(args[1]);
-			Check_Type(args[2],T_ARRAY);
-			ary = RARRAY(args[2]);
-			size = RARRAY_LEN(ary);
-			counts = ALLOC_N(GLsizei,size);
-			indices = ALLOC_N(GLvoid*,size);
-			for (i=0;i<size;i++) {
-				VALUE data;
-				data = pack_array_or_pass_string(type,RARRAY_PTR(ary)[i]);
-				indices[i] = RSTRING_PTR(data);
-				counts[i] = RSTRING_LEN(data);
-			}
-			fptr_glMultiDrawElements(mode,counts,type,indices,size);
-			xfree(counts);
-			xfree(indices);
-			break;
-		case 4:
-			if (!CheckBufferBinding(GL_ELEMENT_ARRAY_BUFFER_BINDING))
-				rb_raise(rb_eArgError, "Element array buffer not bound");
-			mode = (GLenum)NUM2INT(args[0]);
-			type = (GLenum)NUM2INT(args[1]);
-			Check_Type(args[2],T_ARRAY);
-			Check_Type(args[3],T_ARRAY);
-			if (RARRAY_LEN(args[2]) != RARRAY_LEN(args[3]))
-				rb_raise(rb_eArgError, "Count and indices offset array must have same length");
-
-			size = RARRAY_LEN(args[2]);
-
-			counts = ALLOC_N(GLsizei,size);
-			indices = ALLOC_N(GLvoid*,size);
-			for (i=0;i<size;i++) {
-				counts[i] = NUM2INT(rb_ary_entry(args[2],i));
-				indices[i] = (GLvoid *) NUM2INT(rb_ary_entry(args[3],i));
-			}
-			fptr_glMultiDrawElements(mode,counts,type,indices,size);
-			xfree(counts);
-			xfree(indices);
-			break;
-	}
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glPointParameterfv)(GLenum,GLfloat *);
-static VALUE
-gl_PointParameterfv(obj,arg1,arg2)
-VALUE obj,arg1,arg2;
-{
-	GLenum pname;
-	GLfloat params[3] = {0.0,0.0,0.0};
-	GLint size;
-	LOAD_GL_FUNC(glPointParameterfv,"1.4")
-	pname = (GLenum)NUM2INT(arg1);
-	Check_Type(arg2,T_ARRAY);
-	if (pname==GL_POINT_DISTANCE_ATTENUATION)
-		size = 3;
-	else
-		size = 1;
-	ary2cflt(arg2,params,size);
-	fptr_glPointParameterfv(pname,params);	
-	CHECK_GLERROR
-	return Qnil;
-}
-
-static void (APIENTRY * fptr_glPointParameteriv)(GLenum,GLint *);
-static VALUE
-gl_PointParameteriv(obj,arg1,arg2)
-VALUE obj,arg1,arg2;
-{
-	GLenum pname;
-	GLint params[3] = {0.0,0.0,0.0};
-	GLint size;
-	LOAD_GL_FUNC(glPointParameteriv,"1.4")
-	pname = (GLenum)NUM2INT(arg1);
-	Check_Type(arg2,T_ARRAY);
-	if (pname==GL_POINT_DISTANCE_ATTENUATION)
-		size = 3;
-	else
-		size = 1;
-	ary2cint(arg2,params,size);
-	fptr_glPointParameteriv(pname,params);	
-	CHECK_GLERROR
-	return Qnil;
-}
-
-#define GLSECONDARYCOLOR_VFUNC(_name_,_type_,_conv_) \
-static void (APIENTRY * fptr_gl##_name_)(_type_ *); \
-VALUE gl_##_name_(VALUE obj,VALUE arg1) \
-{ \
-	_type_ cary[3] = {0,0,0}; \
-	LOAD_GL_FUNC(gl##_name_,"1.4") \
-	Check_Type(arg1,T_ARRAY); \
-	_conv_(arg1,cary,3); \
-	fptr_gl##_name_(cary); \
-	CHECK_GLERROR \
-	return Qnil; \
-}
-
-GLSECONDARYCOLOR_VFUNC(SecondaryColor3bv,GLbyte,ary2cbyte)
-GLSECONDARYCOLOR_VFUNC(SecondaryColor3dv,GLdouble,ary2cdbl)
-GLSECONDARYCOLOR_VFUNC(SecondaryColor3fv,GLfloat,ary2cflt)
-GLSECONDARYCOLOR_VFUNC(SecondaryColor3iv,GLint,ary2cint)
-GLSECONDARYCOLOR_VFUNC(SecondaryColor3sv,GLshort,ary2cshort)
-GLSECONDARYCOLOR_VFUNC(SecondaryColor3uiv,GLuint,ary2cuint)
-GLSECONDARYCOLOR_VFUNC(SecondaryColor3ubv,GLubyte,ary2cubyte)
-GLSECONDARYCOLOR_VFUNC(SecondaryColor3usv,GLushort,ary2cushort)
-#undef GLSECONDARYCOLOR_VFUNC
-
-extern VALUE g_SecondaryColor_ptr;
-static void (APIENTRY * fptr_glSecondaryColorPointer)(GLint,GLenum,GLsizei,const GLvoid *);
-static VALUE
-gl_SecondaryColorPointer(obj,arg1,arg2,arg3,arg4)
-VALUE obj,arg1,arg2,arg3,arg4;
-{
-	GLint size;
-	GLenum type;
-	GLsizei stride;
-	LOAD_GL_FUNC(glSecondaryColorPointer,"1.4")
-	size = (GLint)NUM2INT(arg1);
-	type = (GLenum)NUM2INT(arg2);
-	stride = (GLsizei)NUM2UINT(arg3);
-	if (CheckBufferBinding(GL_ARRAY_BUFFER_BINDING)) {
-		g_SecondaryColor_ptr = arg4;
-		fptr_glSecondaryColorPointer(size,type, stride, (const GLvoid*)NUM2INT(arg4));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(type,arg4);
-		rb_str_freeze(data);
-		g_SecondaryColor_ptr = data;
-		fptr_glSecondaryColorPointer(size,type, stride, (const GLvoid*)RSTRING_PTR(data));
-	}
-	CHECK_GLERROR
-	return Qnil;
-}
-
-#define GLWINDOWPOS_VFUNC(_name_,_type_,_size_,_conv_) \
-static void (APIENTRY * fptr_gl##_name_)(_type_ *); \
-VALUE gl_##_name_(VALUE obj,VALUE arg1) \
-{ \
-	_type_ cary[3] = {0,0,0}; \
-	LOAD_GL_FUNC(gl##_name_,"1.4") \
-	Check_Type(arg1,T_ARRAY); \
-	_conv_(arg1,cary,_size_); \
-	fptr_gl##_name_(cary); \
-	CHECK_GLERROR \
-	return Qnil; \
-}
-
-GLWINDOWPOS_VFUNC(WindowPos2dv,GLdouble,2,ary2cdbl)
-GLWINDOWPOS_VFUNC(WindowPos2fv,GLfloat,2,ary2cflt)
-GLWINDOWPOS_VFUNC(WindowPos2iv,GLint,2,ary2cint)
-GLWINDOWPOS_VFUNC(WindowPos2sv,GLshort,2,ary2cshort)
-GLWINDOWPOS_VFUNC(WindowPos3dv,GLdouble,3,ary2cdbl)
-GLWINDOWPOS_VFUNC(WindowPos3fv,GLfloat,3,ary2cflt)
-GLWINDOWPOS_VFUNC(WindowPos3iv,GLint,3,ary2cint)
-GLWINDOWPOS_VFUNC(WindowPos3sv,GLshort,3,ary2cshort)
-#undef GLWINDOWPOS_VFUNC
-
-
-void gl_init_functions_1_4(VALUE module)
-{
-	rb_define_module_function(module, "glBlendFuncSeparate", gl_BlendFuncSeparate, 4);
-	rb_define_module_function(module, "glFogCoordf", gl_FogCoordf, 1);
-	rb_define_module_function(module, "glFogCoordfv", gl_FogCoordfv, 1);
-	rb_define_module_function(module, "glFogCoordd", gl_FogCoordd, 1);
-	rb_define_module_function(module, "glFogCoorddv", gl_FogCoorddv, 1);
-	rb_define_module_function(module, "glFogCoordPointer", gl_FogCoordPointer, 3);
-	rb_define_module_function(module, "glMultiDrawArrays", gl_MultiDrawArrays, 3);
-	rb_define_module_function(module, "glMultiDrawElements", gl_MultiDrawElements, -1);
-	rb_define_module_function(module, "glPointParameterf", gl_PointParameterf, 2);
-	rb_define_module_function(module, "glPointParameterfv", gl_PointParameterfv, 2);
-	rb_define_module_function(module, "glPointParameteri", gl_PointParameteri, 2);
-	rb_define_module_function(module, "glPointParameteriv", gl_PointParameteriv, 2);
-	rb_define_module_function(module, "glSecondaryColor3b", gl_SecondaryColor3b, 3);
-	rb_define_module_function(module, "glSecondaryColor3d", gl_SecondaryColor3d, 3);
-	rb_define_module_function(module, "glSecondaryColor3f", gl_SecondaryColor3f, 3);
-	rb_define_module_function(module, "glSecondaryColor3i", gl_SecondaryColor3i, 3);
-	rb_define_module_function(module, "glSecondaryColor3s", gl_SecondaryColor3s, 3);
-	rb_define_module_function(module, "glSecondaryColor3ub", gl_SecondaryColor3ub, 3);
-	rb_define_module_function(module, "glSecondaryColor3ui", gl_SecondaryColor3ui, 3);
-	rb_define_module_function(module, "glSecondaryColor3us", gl_SecondaryColor3us, 3);
-	rb_define_module_function(module, "glSecondaryColor3bv", gl_SecondaryColor3bv, 1);
-	rb_define_module_function(module, "glSecondaryColor3dv", gl_SecondaryColor3dv, 1);
-	rb_define_module_function(module, "glSecondaryColor3fv", gl_SecondaryColor3fv, 1);
-	rb_define_module_function(module, "glSecondaryColor3iv", gl_SecondaryColor3iv, 1);
-	rb_define_module_function(module, "glSecondaryColor3sv", gl_SecondaryColor3sv, 1);
-	rb_define_module_function(module, "glSecondaryColor3ubv", gl_SecondaryColor3ubv, 1);
-	rb_define_module_function(module, "glSecondaryColor3uiv", gl_SecondaryColor3uiv, 1);
-	rb_define_module_function(module, "glSecondaryColor3usv", gl_SecondaryColor3usv, 1);
-	rb_define_module_function(module, "glSecondaryColorPointer", gl_SecondaryColorPointer, 4);
-	rb_define_module_function(module, "glWindowPos2d", gl_WindowPos2d, 2);
-	rb_define_module_function(module, "glWindowPos2f", gl_WindowPos2f, 2);
-	rb_define_module_function(module, "glWindowPos2i", gl_WindowPos2i, 2);
-	rb_define_module_function(module, "glWindowPos2s", gl_WindowPos2s, 2);
-	rb_define_module_function(module, "glWindowPos3d", gl_WindowPos3d, 3);
-	rb_define_module_function(module, "glWindowPos3f", gl_WindowPos3f, 3);
-	rb_define_module_function(module, "glWindowPos3i", gl_WindowPos3i, 3);
-	rb_define_module_function(module, "glWindowPos3s", gl_WindowPos3s, 3);
-	rb_define_module_function(module, "glWindowPos2dv", gl_WindowPos2dv, 1);
-	rb_define_module_function(module, "glWindowPos2fv", gl_WindowPos2fv, 1);
-	rb_define_module_function(module, "glWindowPos2iv", gl_WindowPos2iv, 1);
-	rb_define_module_function(module, "glWindowPos2sv", gl_WindowPos2sv, 1);
-	rb_define_module_function(module, "glWindowPos3dv", gl_WindowPos3dv, 1);
-	rb_define_module_function(module, "glWindowPos3fv", gl_WindowPos3fv, 1);
-	rb_define_module_function(module, "glWindowPos3iv", gl_WindowPos3iv, 1);
-	rb_define_module_function(module, "glWindowPos3sv", gl_WindowPos3sv, 1);
-}