opengl 0.8.0 → 0.9.0

data/ext/opengl/gl-1.0-1.1.c

@@ -1,19 +1,19 @@
 /*
- * Copyright (C) 1999 - 2005 Yoshi <yoshi@giganet.net>
- * Copyright (C) 2006 John M. Gabriele <jmg3000@gmail.com>
- * 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.
- */
+* Copyright (C) 1999 - 2005 Yoshi <yoshi@giganet.net>
+* Copyright (C) 2006 John M. Gabriele <jmg3000@gmail.com>
+* 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.h"
 
@@ -268,7 +268,7 @@ gl_Enable(int argc, VALUE *argv, VALUE self)
   else
     gl_Enable0(caps);
 
-  return Qnil;	
+  return Qnil;
 }
 
 static VALUE
@@ -291,7 +291,7 @@ gl_Disable(int argc, VALUE *argv, VALUE self)
   else
     gl_Disable0(caps);
 
-  return Qnil;	
+  return Qnil;
 }
 
 static VALUE
@@ -362,7 +362,7 @@ gl_EnableClientState(int argc, VALUE *argv, VALUE self)
   else
     gl_EnableClientState0(ary);
 
-  return Qnil;	
+  return Qnil;
 }
 
 static VALUE
@@ -385,13 +385,13 @@ gl_DisableClientState(int argc, VALUE *argv, VALUE self)
   else
     gl_DisableClientState0(ary);
 
-  return Qnil;	
+  return Qnil;
 }
 
 static VALUE
 gl_Begin0(GLenum mode)
 {
-	glBegin(mode);
+  glBegin(mode);
 
   if (rb_block_given_p())
     rb_yield(Qundef);
@@ -402,27 +402,27 @@ gl_Begin0(GLenum mode)
 static VALUE
 gl_End(VALUE self)
 {
-	inside_begin_end = Qfalse;	
+  inside_begin_end = Qfalse;
 
-	glEnd();
+  glEnd();
 
-	CHECK_GLERROR_FROM("glEnd");
+  CHECK_GLERROR_FROM("glEnd");
 
-	return Qnil;	
+  return Qnil;
 }
 
 static VALUE
 gl_Begin(VALUE self, VALUE mode)
 {
   GLenum begin_mode = CONV_GLenum(mode);
-	inside_begin_end = Qtrue;
+  inside_begin_end = Qtrue;
 
   if (rb_block_given_p())
     return rb_ensure(gl_Begin0, (VALUE)begin_mode, gl_End, self);
   else
-	  gl_Begin0(begin_mode);
+    gl_Begin0(begin_mode);
 
-	return Qnil;	
+  return Qnil;
 }
 
 static VALUE
@@ -492,217 +492,217 @@ gl_NewList(VALUE self, VALUE list, VALUE mode)
   if (rb_block_given_p())
     return rb_ensure(gl_NewList0, args, gl_EndList, self);
   else
-	  gl_NewList0(args);
+    gl_NewList0(args);
 
-	return Qnil;	
+  return Qnil;
 }
 
 static VALUE
 gl_CallLists(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLsizei n;
-	GLenum type;
-	VALUE lists;
-	type = CONV_GLenum(arg1);
-	lists = pack_array_or_pass_string(type,arg2);
-	n = (GLsizei)RSTRING_LENINT(lists) / gltype_glformat_unit_size(type,1);
-	glCallLists(n, type, RSTRING_PTR(lists));
-	CHECK_GLERROR_FROM("glCallLists");
-	return Qnil;
+  GLsizei n;
+  GLenum type;
+  VALUE lists;
+  type = CONV_GLenum(arg1);
+  lists = pack_array_or_pass_string(type,arg2);
+  n = (GLsizei)RSTRING_LENINT(lists) / gltype_glformat_unit_size(type,1);
+  glCallLists(n, type, RSTRING_PTR(lists));
+  CHECK_GLERROR_FROM("glCallLists");
+  return Qnil;
 }
 
 static VALUE
 gl_Bitmap(obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7)
 VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7;
 {
-	GLsizei width;
-	GLsizei height;
-	GLfloat xorig;
-	GLfloat yorig;
-	GLfloat xmove;
-	GLfloat ymove;
-	width = (GLsizei)NUM2UINT(arg1);
-	height = (GLsizei)NUM2UINT(arg2);
-	xorig = (GLfloat)NUM2DBL(arg3);
-	yorig = (GLfloat)NUM2DBL(arg4);
-	xmove = (GLfloat)NUM2DBL(arg5);
-	ymove = (GLfloat)NUM2DBL(arg6);
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		glBitmap(width, height, xorig, yorig, xmove, ymove, (GLubyte *)NUM2LONG(arg7));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg7);
-
-		if ((RSTRING_LEN(data)*8) < (width * height))
-			rb_raise(rb_eArgError, "string length:%li", RSTRING_LEN(data));
-
-		glBitmap(width, height, xorig, yorig, xmove, ymove, (const GLubyte *)RSTRING_PTR(data));
-	}
-	CHECK_GLERROR_FROM("glBitmap");
-	return Qnil;
+  GLsizei width;
+  GLsizei height;
+  GLfloat xorig;
+  GLfloat yorig;
+  GLfloat xmove;
+  GLfloat ymove;
+  width = (GLsizei)NUM2UINT(arg1);
+  height = (GLsizei)NUM2UINT(arg2);
+  xorig = (GLfloat)NUM2DBL(arg3);
+  yorig = (GLfloat)NUM2DBL(arg4);
+  xmove = (GLfloat)NUM2DBL(arg5);
+  ymove = (GLfloat)NUM2DBL(arg6);
+  if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
+    glBitmap(width, height, xorig, yorig, xmove, ymove, (GLubyte *)NUM2SIZET(arg7));
+  } else {
+    VALUE data;
+    data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg7);
+
+    if ((RSTRING_LEN(data)*8) < (width * height))
+      rb_raise(rb_eArgError, "string length:%li", RSTRING_LEN(data));
+
+    glBitmap(width, height, xorig, yorig, xmove, ymove, (const GLubyte *)RSTRING_PTR(data));
+  }
+  CHECK_GLERROR_FROM("glBitmap");
+  return Qnil;
 }
 
 static VALUE
 gl_EdgeFlagv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLboolean flag[1] = { GL_FALSE };
-	Check_Type(arg1,T_ARRAY);
-	ary2cboolean(arg1,flag,1);
-	glEdgeFlagv(flag);
-	CHECK_GLERROR_FROM("glEdgeFlagv");
-	return Qnil;
+  GLboolean flag[1] = { GL_FALSE };
+  Check_Type(arg1,T_ARRAY);
+  ary2cboolean(arg1,flag,1);
+  glEdgeFlagv(flag);
+  CHECK_GLERROR_FROM("glEdgeFlagv");
+  return Qnil;
 }
 
 static VALUE
 gl_Indexdv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLdouble c[1] = {0.0};
-	Check_Type(arg1,T_ARRAY);
-	ary2cdbl(arg1,c,1);
-	glIndexdv(c);
-	CHECK_GLERROR_FROM("glIndexdv");
-	return Qnil;
+  GLdouble c[1] = {0.0};
+  Check_Type(arg1,T_ARRAY);
+  ary2cdbl(arg1,c,1);
+  glIndexdv(c);
+  CHECK_GLERROR_FROM("glIndexdv");
+  return Qnil;
 }
 
 static VALUE
 gl_Indexfv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLfloat c[1] = { (GLfloat)0.0 };
-	Check_Type(arg1,T_ARRAY);
-	ary2cflt(arg1,c,1);
-	glIndexfv(c);
-	CHECK_GLERROR_FROM("glIndexfv");
-	return Qnil;
+  GLfloat c[1] = { (GLfloat)0.0 };
+  Check_Type(arg1,T_ARRAY);
+  ary2cflt(arg1,c,1);
+  glIndexfv(c);
+  CHECK_GLERROR_FROM("glIndexfv");
+  return Qnil;
 }
 
 static VALUE
 gl_Indexiv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLint c[1] = {0};
-	Check_Type(arg1,T_ARRAY);
-	ary2cint(arg1,c,1);
-	glIndexiv(c);
-	CHECK_GLERROR_FROM("glIndexiv");
-	return Qnil;
+  GLint c[1] = {0};
+  Check_Type(arg1,T_ARRAY);
+  ary2cint(arg1,c,1);
+  glIndexiv(c);
+  CHECK_GLERROR_FROM("glIndexiv");
+  return Qnil;
 }
 
 static VALUE
 gl_Indexsv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLshort c[1] = {0};
-	Check_Type(arg1,T_ARRAY);
-	ary2cshort(arg1,c,1);
-	glIndexsv(c);
-	CHECK_GLERROR_FROM("glIndexsv");
-	return Qnil;
+  GLshort c[1] = {0};
+  Check_Type(arg1,T_ARRAY);
+  ary2cshort(arg1,c,1);
+  glIndexsv(c);
+  CHECK_GLERROR_FROM("glIndexsv");
+  return Qnil;
 }
 
 static VALUE
 gl_ClipPlane(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum plane;
-	GLdouble equation[4];
-	plane = (GLenum)NUM2INT(arg1);
-	Check_Type(arg2,T_ARRAY);
-	ary2cdbl(arg2, equation, 4);
-	glClipPlane(plane,equation);
-	CHECK_GLERROR_FROM("glClipPlane");
-	return Qnil;
+  GLenum plane;
+  GLdouble equation[4];
+  plane = (GLenum)NUM2INT(arg1);
+  Check_Type(arg2,T_ARRAY);
+  ary2cdbl(arg2, equation, 4);
+  glClipPlane(plane,equation);
+  CHECK_GLERROR_FROM("glClipPlane");
+  return Qnil;
 }
 
 static VALUE
 gl_Fogfv(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum pname;
-	GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
-	pname = (GLenum)NUM2INT(arg1);
-	Check_Type(arg2,T_ARRAY);
-	ary2cflt(arg2,params,4);
-	glFogfv(pname,params);
-	CHECK_GLERROR_FROM("glFogfv");
-	return Qnil;
+  GLenum pname;
+  GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
+  pname = (GLenum)NUM2INT(arg1);
+  Check_Type(arg2,T_ARRAY);
+  ary2cflt(arg2,params,4);
+  glFogfv(pname,params);
+  CHECK_GLERROR_FROM("glFogfv");
+  return Qnil;
 }
 
 static VALUE
 gl_Fogiv(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum pname;
-	GLint params[4] = {0,0,0,0};
-	pname = (GLenum)NUM2INT(arg1);
-	Check_Type(arg2,T_ARRAY);
-	ary2cint(arg2,params,4);
-	glFogiv(pname,params);
-	CHECK_GLERROR_FROM("glFogiv");
-	return Qnil;
+  GLenum pname;
+  GLint params[4] = {0,0,0,0};
+  pname = (GLenum)NUM2INT(arg1);
+  Check_Type(arg2,T_ARRAY);
+  ary2cint(arg2,params,4);
+  glFogiv(pname,params);
+  CHECK_GLERROR_FROM("glFogiv");
+  return Qnil;
 }
 
 static VALUE
 gl_Lightfv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum light;
-	GLenum pname;
-	GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
-	light = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cflt(arg3,params,4);
-	glLightfv(light,pname,params);
-	CHECK_GLERROR_FROM("glLightfv");
-	return Qnil;
+  GLenum light;
+  GLenum pname;
+  GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
+  light = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cflt(arg3,params,4);
+  glLightfv(light,pname,params);
+  CHECK_GLERROR_FROM("glLightfv");
+  return Qnil;
 }
 
 static VALUE
 gl_Lightiv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum light;
-	GLenum pname;
-	GLint params[4]={0,0,0,0};
-	light = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cint(arg3,params,4);
-	glLightiv(light,pname,params);
-	CHECK_GLERROR_FROM("glLightiv");
-	return Qnil;
+  GLenum light;
+  GLenum pname;
+  GLint params[4]={0,0,0,0};
+  light = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cint(arg3,params,4);
+  glLightiv(light,pname,params);
+  CHECK_GLERROR_FROM("glLightiv");
+  return Qnil;
 }
 
 static VALUE
 gl_LightModelfv(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum pname;
-	GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
-	pname = (GLenum)NUM2INT(arg1);
-	Check_Type(arg2,T_ARRAY);
-	ary2cflt(arg2,params,4);
-	glLightModelfv(pname,params);
-	CHECK_GLERROR_FROM("glLightModelfv");
-	return Qnil;
+  GLenum pname;
+  GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
+  pname = (GLenum)NUM2INT(arg1);
+  Check_Type(arg2,T_ARRAY);
+  ary2cflt(arg2,params,4);
+  glLightModelfv(pname,params);
+  CHECK_GLERROR_FROM("glLightModelfv");
+  return Qnil;
 }
 
 static VALUE
 gl_LightModeliv(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum pname;
-	GLint params[4] = {0,0,0,0};
-	pname = (GLenum)NUM2INT(arg1);
-	Check_Type(arg2,T_ARRAY);
-	ary2cint(arg2,params,4);
-	glLightModeliv(pname,params);
-	CHECK_GLERROR_FROM("glLightModeliv");
-	return Qnil;
+  GLenum pname;
+  GLint params[4] = {0,0,0,0};
+  pname = (GLenum)NUM2INT(arg1);
+  Check_Type(arg2,T_ARRAY);
+  ary2cint(arg2,params,4);
+  glLightModeliv(pname,params);
+  CHECK_GLERROR_FROM("glLightModeliv");
+  return Qnil;
 }
 
 
@@ -710,50 +710,50 @@ static VALUE
 gl_Materialfv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum face;
-	GLenum pname;
-	GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
-	face = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cflt(arg3,params,4);
-	glMaterialfv(face,pname,params);
-	CHECK_GLERROR_FROM("glMaterialfv");
-	return Qnil;
+  GLenum face;
+  GLenum pname;
+  GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
+  face = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cflt(arg3,params,4);
+  glMaterialfv(face,pname,params);
+  CHECK_GLERROR_FROM("glMaterialfv");
+  return Qnil;
 }
 
 static VALUE
 gl_Materialiv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum face;
-	GLenum pname;
-	GLint params[4] = {0,0,0,0};
-	face = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cint(arg3,params,4);
-	glMaterialiv(face,pname,params);
-	CHECK_GLERROR_FROM("glMaterialiv");
-	return Qnil;
+  GLenum face;
+  GLenum pname;
+  GLint params[4] = {0,0,0,0};
+  face = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cint(arg3,params,4);
+  glMaterialiv(face,pname,params);
+  CHECK_GLERROR_FROM("glMaterialiv");
+  return Qnil;
 }
 
 static VALUE
 gl_PolygonStipple(obj,arg1)
 VALUE obj,arg1;
 {
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		glPolygonStipple((GLubyte *)NUM2LONG(arg1));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg1);
-		if (RSTRING_LEN(data) < 128)
-			rb_raise(rb_eArgError, "string length:%li", RSTRING_LEN(data));
-		
-		glPolygonStipple((GLubyte *)RSTRING_PTR(data));
-	}
-	CHECK_GLERROR_FROM("glPolygonStipple");
-	return Qnil;
+  if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
+    glPolygonStipple((GLubyte *)NUM2SIZET(arg1));
+  } else {
+    VALUE data;
+    data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg1);
+    if (RSTRING_LEN(data) < 128)
+      rb_raise(rb_eArgError, "string length:%li", RSTRING_LEN(data));
+
+    glPolygonStipple((GLubyte *)RSTRING_PTR(data));
+  }
+  CHECK_GLERROR_FROM("glPolygonStipple");
+  return Qnil;
 }
 
 
@@ -761,144 +761,144 @@ static VALUE
 gl_TexParameterfv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum target;
-	GLenum pname;
-	GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
-	target = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cflt(arg3,params,4);
-	glTexParameterfv(target,pname,params);
-	CHECK_GLERROR_FROM("glTexParameterfv");
-	return Qnil;
+  GLenum target;
+  GLenum pname;
+  GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
+  target = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cflt(arg3,params,4);
+  glTexParameterfv(target,pname,params);
+  CHECK_GLERROR_FROM("glTexParameterfv");
+  return Qnil;
 }
 
 static VALUE
 gl_TexParameteriv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum target;
-	GLenum pname;
-	GLint params[4] = {0,0,0,0};
-	target = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cint(arg3,params,4);
-	glTexParameteriv(target,pname,params);
-	CHECK_GLERROR_FROM("glTexParameteriv");
-	return Qnil;
+  GLenum target;
+  GLenum pname;
+  GLint params[4] = {0,0,0,0};
+  target = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cint(arg3,params,4);
+  glTexParameteriv(target,pname,params);
+  CHECK_GLERROR_FROM("glTexParameteriv");
+  return Qnil;
 }
 
 static VALUE
 gl_TexImage1D(obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8)
 VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8;
 {
-	GLenum target;
-	GLint level;
-	GLint components;
-	GLsizei width;
-	GLint border;
-	GLenum format;
-	GLenum type;
-	const char *pixels;
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	components = (GLint)NUM2INT(arg3);
-	width = (GLsizei)NUM2UINT(arg4);
-	border = (GLint)NUM2INT(arg5);
-	format = (GLenum)NUM2INT(arg6);
-	type = (GLenum)NUM2INT(arg7);
-
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		glTexImage1D(target,level,components,width,border,format,type,(GLvoid *)NUM2LONG(arg8));
-		CHECK_GLERROR_FROM("glTexImage1D");
-		return Qnil;
-	}
-
-	if (target == GL_PROXY_TEXTURE_1D || NIL_P(arg8)) { /* proxy texture, no data read */
-		pixels = NULL;
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(type,arg8);
-		CheckDataSize(type,format,width,data);
-		pixels = RSTRING_PTR(data);
-	}
-	glTexImage1D(target,level,components,width,border,format,type,pixels);
-	CHECK_GLERROR_FROM("glTexImage1D");
-	return Qnil;
+  GLenum target;
+  GLint level;
+  GLint components;
+  GLsizei width;
+  GLint border;
+  GLenum format;
+  GLenum type;
+  const char *pixels;
+  target = (GLenum)NUM2INT(arg1);
+  level = (GLint)NUM2INT(arg2);
+  components = (GLint)NUM2INT(arg3);
+  width = (GLsizei)NUM2UINT(arg4);
+  border = (GLint)NUM2INT(arg5);
+  format = (GLenum)NUM2INT(arg6);
+  type = (GLenum)NUM2INT(arg7);
+
+  if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
+    glTexImage1D(target,level,components,width,border,format,type,(GLvoid *)NUM2SIZET(arg8));
+    CHECK_GLERROR_FROM("glTexImage1D");
+    return Qnil;
+  }
+
+  if (target == GL_PROXY_TEXTURE_1D || NIL_P(arg8)) { /* proxy texture, no data read */
+    pixels = NULL;
+  } else {
+    VALUE data;
+    data = pack_array_or_pass_string(type,arg8);
+    CheckDataSize(type,format,width,data);
+    pixels = RSTRING_PTR(data);
+  }
+  glTexImage1D(target,level,components,width,border,format,type,pixels);
+  CHECK_GLERROR_FROM("glTexImage1D");
+  return Qnil;
 }
 
 static VALUE
 gl_TexImage2D(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 components;
-	GLsizei width;
-	GLsizei height;
-	GLint border;
-	GLenum format;
-	GLenum type;
-	const char *pixels;
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	components = (GLint)NUM2INT(arg3);
-	width = (GLsizei)NUM2UINT(arg4);
-	height = (GLsizei)NUM2UINT(arg5);
-	border = (GLint)NUM2INT(arg6);
-	format = (GLenum)NUM2INT(arg7);
-	type = (GLenum)NUM2INT(arg8);
-
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		glTexImage2D(target,level,components,width,height,border,format,type,(GLvoid *)NUM2LONG(arg9));
-		CHECK_GLERROR_FROM("glTexImage2D");
-		return Qnil;
-	}
-	
-	if (target == GL_PROXY_TEXTURE_2D || target == GL_PROXY_TEXTURE_1D_ARRAY_EXT || target == GL_PROXY_TEXTURE_CUBE_MAP || NIL_P(arg9)) { /* proxy texture, no data read */
-		pixels = NULL;
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(type,arg9);
-		CheckDataSize(type,format,width*height,data);
-		pixels = RSTRING_PTR(data);
-	}
-	glTexImage2D(target,level,components,width,height,border,format,type,pixels);
-	CHECK_GLERROR_FROM("glTexImage2D");
-	return Qnil;
+  GLenum target;
+  GLint level;
+  GLint components;
+  GLsizei width;
+  GLsizei height;
+  GLint border;
+  GLenum format;
+  GLenum type;
+  const char *pixels;
+  target = (GLenum)NUM2INT(arg1);
+  level = (GLint)NUM2INT(arg2);
+  components = (GLint)NUM2INT(arg3);
+  width = (GLsizei)NUM2UINT(arg4);
+  height = (GLsizei)NUM2UINT(arg5);
+  border = (GLint)NUM2INT(arg6);
+  format = (GLenum)NUM2INT(arg7);
+  type = (GLenum)NUM2INT(arg8);
+
+  if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
+    glTexImage2D(target,level,components,width,height,border,format,type,(GLvoid *)NUM2SIZET(arg9));
+    CHECK_GLERROR_FROM("glTexImage2D");
+    return Qnil;
+  }
+
+  if (target == GL_PROXY_TEXTURE_2D || target == GL_PROXY_TEXTURE_1D_ARRAY_EXT || target == GL_PROXY_TEXTURE_CUBE_MAP || NIL_P(arg9)) { /* proxy texture, no data read */
+    pixels = NULL;
+  } else {
+    VALUE data;
+    data = pack_array_or_pass_string(type,arg9);
+    CheckDataSize(type,format,width*height,data);
+    pixels = RSTRING_PTR(data);
+  }
+  glTexImage2D(target,level,components,width,height,border,format,type,pixels);
+  CHECK_GLERROR_FROM("glTexImage2D");
+  return Qnil;
 }
 
 static VALUE
 gl_TexEnvfv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum target;
-	GLenum pname;
-	GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
-	target = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cflt(arg3,params,4);
-	glTexEnvfv(target,pname,params);
-	CHECK_GLERROR_FROM("glTexEnvfv");
-	return Qnil;
+  GLenum target;
+  GLenum pname;
+  GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
+  target = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cflt(arg3,params,4);
+  glTexEnvfv(target,pname,params);
+  CHECK_GLERROR_FROM("glTexEnvfv");
+  return Qnil;
 }
 
 static VALUE
 gl_TexEnviv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum target;
-	GLenum pname;
-	GLint params[4] = {0,0,0,0};
-	target = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cint(arg3,params,4);
-	glTexEnviv(target,pname,params);
-	CHECK_GLERROR_FROM("glTexEnviv");
-	return Qnil;
+  GLenum target;
+  GLenum pname;
+  GLint params[4] = {0,0,0,0};
+  target = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cint(arg3,params,4);
+  glTexEnviv(target,pname,params);
+  CHECK_GLERROR_FROM("glTexEnviv");
+  return Qnil;
 }
 
 
@@ -906,16 +906,16 @@ static VALUE
 gl_TexGendv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum coord;
-	GLenum pname;
-	GLdouble params[4] = {0.0,0.0,0.0,0.0};
-	coord = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cdbl(arg3,params,4);
-	glTexGendv(coord,pname,params);
-	CHECK_GLERROR_FROM("glTexGendv");
-	return Qnil;
+  GLenum coord;
+  GLenum pname;
+  GLdouble params[4] = {0.0,0.0,0.0,0.0};
+  coord = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cdbl(arg3,params,4);
+  glTexGendv(coord,pname,params);
+  CHECK_GLERROR_FROM("glTexGendv");
+  return Qnil;
 }
 
 
@@ -923,16 +923,16 @@ static VALUE
 gl_TexGenfv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum coord;
-	GLenum pname;
-	GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
-	coord = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cflt(arg3,params,4);
-	glTexGenfv(coord,pname,params);
-	CHECK_GLERROR_FROM("glTexGenfv");
-	return Qnil;
+  GLenum coord;
+  GLenum pname;
+  GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
+  coord = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cflt(arg3,params,4);
+  glTexGenfv(coord,pname,params);
+  CHECK_GLERROR_FROM("glTexGenfv");
+  return Qnil;
 }
 
 
@@ -940,31 +940,31 @@ static VALUE
 gl_TexGeniv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum coord;
-	GLenum pname;
-	GLint params[4] = {0,0,0,0};
-	coord = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	Check_Type(arg3,T_ARRAY);
-	ary2cint(arg3,params,4);
-	glTexGeniv(coord,pname,params);
-	CHECK_GLERROR_FROM("glTexGeniv");
-	return Qnil;
+  GLenum coord;
+  GLenum pname;
+  GLint params[4] = {0,0,0,0};
+  coord = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  Check_Type(arg3,T_ARRAY);
+  ary2cint(arg3,params,4);
+  glTexGeniv(coord,pname,params);
+  CHECK_GLERROR_FROM("glTexGeniv");
+  return Qnil;
 }
 static VALUE g_current_feed_buffer;
 static VALUE
 gl_FeedbackBuffer(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLsizei size;
-	GLenum type;
-	size = (GLsizei)NUM2UINT(arg1);
-	type = (GLenum)NUM2INT(arg2);
-	g_current_feed_buffer = allocate_buffer_with_string(sizeof(GLfloat)*size);
-	rb_str_freeze(g_current_feed_buffer);
-	glFeedbackBuffer(size, type, (GLfloat*)RSTRING_PTR(g_current_feed_buffer));
-	CHECK_GLERROR_FROM("glFeedbackBuffer");
-	return g_current_feed_buffer;
+  GLsizei size;
+  GLenum type;
+  size = (GLsizei)NUM2UINT(arg1);
+  type = (GLenum)NUM2INT(arg2);
+  g_current_feed_buffer = allocate_buffer_with_string(sizeof(GLfloat)*size);
+  rb_str_freeze(g_current_feed_buffer);
+  glFeedbackBuffer(size, type, (GLfloat*)RSTRING_PTR(g_current_feed_buffer));
+  CHECK_GLERROR_FROM("glFeedbackBuffer");
+  return g_current_feed_buffer;
 }
 
 static VALUE g_current_sel_buffer;
@@ -972,13 +972,13 @@ static VALUE
 gl_SelectBuffer(obj,arg1)
 VALUE obj,arg1;
 {
-	GLsizei size;
-	size = (GLsizei)NUM2UINT(arg1);
-	g_current_sel_buffer = allocate_buffer_with_string(sizeof(GLuint)*size);
-	rb_str_freeze(g_current_sel_buffer);
-	glSelectBuffer(size, (GLuint*)RSTRING_PTR(g_current_sel_buffer));
-	CHECK_GLERROR_FROM("glSelectBuffer");
-	return g_current_sel_buffer;
+  GLsizei size;
+  size = (GLsizei)NUM2UINT(arg1);
+  g_current_sel_buffer = allocate_buffer_with_string(sizeof(GLuint)*size);
+  rb_str_freeze(g_current_sel_buffer);
+  glSelectBuffer(size, (GLuint*)RSTRING_PTR(g_current_sel_buffer));
+  CHECK_GLERROR_FROM("glSelectBuffer");
+  return g_current_sel_buffer;
 }
 
 
@@ -986,172 +986,172 @@ static VALUE
 gl_Map1d(obj,arg1,arg2,arg3,arg4,arg5,arg6)
 VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6;
 {
-	GLenum target;
-	GLdouble u1;
-	GLdouble u2;
-	GLint stride;
-	GLint order;
-	GLdouble *points;
-
-	VALUE work_ary;
-
-	target = (GLenum)NUM2INT(arg1);
-	u1 = (GLdouble)NUM2DBL(arg2);
-	u2 = (GLdouble)NUM2DBL(arg3);
-	stride = (GLint)NUM2INT(arg4);
-	order = (GLint)NUM2INT(arg5);
-	points = ALLOC_N(GLdouble, order*stride);
-	work_ary = rb_funcall(arg6,rb_intern("flatten"),0);
-	ary2cdbl(work_ary, points, order*stride);
-	glMap1d(target, u1, u2, stride, order, points);
-	xfree(points);
-	CHECK_GLERROR_FROM("glMap1d");
-	return Qnil;
+  GLenum target;
+  GLdouble u1;
+  GLdouble u2;
+  GLint stride;
+  GLint order;
+  GLdouble *points;
+
+  VALUE work_ary;
+
+  target = (GLenum)NUM2INT(arg1);
+  u1 = (GLdouble)NUM2DBL(arg2);
+  u2 = (GLdouble)NUM2DBL(arg3);
+  stride = (GLint)NUM2INT(arg4);
+  order = (GLint)NUM2INT(arg5);
+  points = ALLOC_N(GLdouble, order*stride);
+  work_ary = rb_funcall(arg6,rb_intern("flatten"),0);
+  ary2cdbl(work_ary, points, order*stride);
+  glMap1d(target, u1, u2, stride, order, points);
+  xfree(points);
+  CHECK_GLERROR_FROM("glMap1d");
+  return Qnil;
 }
 
 static VALUE
 gl_Map1f(obj,arg1,arg2,arg3,arg4,arg5,arg6)
 VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6;
 {
-	GLenum target;
-	GLfloat u1;
-	GLfloat u2;
-	GLint stride;
-	GLint order;
-	GLfloat *points;
-
-	VALUE work_ary;
-
-	target = (GLenum)NUM2INT(arg1);
-	u1 = (GLfloat)NUM2DBL(arg2);
-	u2 = (GLfloat)NUM2DBL(arg3);
-	stride = (GLint)NUM2INT(arg4);
-	order = (GLint)NUM2INT(arg5);
-	points = ALLOC_N(GLfloat, order*stride);
-	work_ary = rb_funcall(arg6,rb_intern("flatten"),0);
-	ary2cflt(work_ary, points, order*stride);
-	glMap1f(target, u1, u2, stride, order, points);
-	xfree(points);
-	CHECK_GLERROR_FROM("glMap1f");
-	return Qnil;
+  GLenum target;
+  GLfloat u1;
+  GLfloat u2;
+  GLint stride;
+  GLint order;
+  GLfloat *points;
+
+  VALUE work_ary;
+
+  target = (GLenum)NUM2INT(arg1);
+  u1 = (GLfloat)NUM2DBL(arg2);
+  u2 = (GLfloat)NUM2DBL(arg3);
+  stride = (GLint)NUM2INT(arg4);
+  order = (GLint)NUM2INT(arg5);
+  points = ALLOC_N(GLfloat, order*stride);
+  work_ary = rb_funcall(arg6,rb_intern("flatten"),0);
+  ary2cflt(work_ary, points, order*stride);
+  glMap1f(target, u1, u2, stride, order, points);
+  xfree(points);
+  CHECK_GLERROR_FROM("glMap1f");
+  return Qnil;
 }
 
 static VALUE
 gl_Map2d(obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10)
 VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10;
 {
-	GLenum target;
-	GLdouble u1;
-	GLdouble u2;
-	GLint ustride;
-	GLint uorder;
-	GLdouble v1;
-	GLdouble v2;
-	GLint vstride;
-	GLint vorder;
-	GLdouble *points;
-
-	VALUE work_ary;
-
-	target = (GLenum)NUM2INT(arg1);
-	u1 = (GLdouble)NUM2INT(arg2);
-	u2 = (GLdouble)NUM2INT(arg3);
-	ustride = (GLint)NUM2INT(arg4);
-	uorder = (GLint)NUM2INT(arg5);
-	v1 = (GLdouble)NUM2INT(arg6);
-	v2 = (GLdouble)NUM2INT(arg7);
-	vstride = (GLint)NUM2INT(arg8);
-	vorder = (GLint)NUM2INT(arg9);
-	points = ALLOC_N(GLdouble, MAX(ustride*uorder, vstride*vorder));
-	work_ary = rb_funcall(arg10,rb_intern("flatten"),0);
-	ary2cdbl(work_ary, points, MAX(ustride*uorder, vstride*vorder));
-	glMap2d(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
-	xfree(points);
-	CHECK_GLERROR_FROM("glMap2d");
-	return Qnil;
+  GLenum target;
+  GLdouble u1;
+  GLdouble u2;
+  GLint ustride;
+  GLint uorder;
+  GLdouble v1;
+  GLdouble v2;
+  GLint vstride;
+  GLint vorder;
+  GLdouble *points;
+
+  VALUE work_ary;
+
+  target = (GLenum)NUM2INT(arg1);
+  u1 = (GLdouble)NUM2INT(arg2);
+  u2 = (GLdouble)NUM2INT(arg3);
+  ustride = (GLint)NUM2INT(arg4);
+  uorder = (GLint)NUM2INT(arg5);
+  v1 = (GLdouble)NUM2INT(arg6);
+  v2 = (GLdouble)NUM2INT(arg7);
+  vstride = (GLint)NUM2INT(arg8);
+  vorder = (GLint)NUM2INT(arg9);
+  points = ALLOC_N(GLdouble, MAX(ustride*uorder, vstride*vorder));
+  work_ary = rb_funcall(arg10,rb_intern("flatten"),0);
+  ary2cdbl(work_ary, points, MAX(ustride*uorder, vstride*vorder));
+  glMap2d(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
+  xfree(points);
+  CHECK_GLERROR_FROM("glMap2d");
+  return Qnil;
 }
 
 static VALUE
 gl_Map2f(obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10)
 VALUE obj,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10;
 {
-	GLenum target;
-	GLfloat u1;
-	GLfloat u2;
-	GLint ustride;
-	GLint uorder;
-	GLfloat v1;
-	GLfloat v2;
-	GLint vstride;
-	GLint vorder;
-	GLfloat *points;
-
-	VALUE work_ary;
-
-	target = (GLenum)NUM2INT(arg1);
-	u1 = (GLfloat)NUM2INT(arg2);
-	u2 = (GLfloat)NUM2INT(arg3);
-	ustride = (GLint)NUM2INT(arg4);
-	uorder = (GLint)NUM2INT(arg5);
-	v1 = (GLfloat)NUM2INT(arg6);
-	v2 = (GLfloat)NUM2INT(arg7);
-	vstride = (GLint)NUM2INT(arg8);
-	vorder = (GLint)NUM2INT(arg9);
-	points = ALLOC_N(GLfloat, MAX(ustride*uorder, vstride*vorder));
-	work_ary = rb_funcall(arg10,rb_intern("flatten"),0);
-	ary2cflt(work_ary, points, MAX(ustride*uorder, vstride*vorder));
-	glMap2f(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
-	xfree(points);
-	CHECK_GLERROR_FROM("glMap2f");
-	return Qnil;
+  GLenum target;
+  GLfloat u1;
+  GLfloat u2;
+  GLint ustride;
+  GLint uorder;
+  GLfloat v1;
+  GLfloat v2;
+  GLint vstride;
+  GLint vorder;
+  GLfloat *points;
+
+  VALUE work_ary;
+
+  target = (GLenum)NUM2INT(arg1);
+  u1 = (GLfloat)NUM2INT(arg2);
+  u2 = (GLfloat)NUM2INT(arg3);
+  ustride = (GLint)NUM2INT(arg4);
+  uorder = (GLint)NUM2INT(arg5);
+  v1 = (GLfloat)NUM2INT(arg6);
+  v2 = (GLfloat)NUM2INT(arg7);
+  vstride = (GLint)NUM2INT(arg8);
+  vorder = (GLint)NUM2INT(arg9);
+  points = ALLOC_N(GLfloat, MAX(ustride*uorder, vstride*vorder));
+  work_ary = rb_funcall(arg10,rb_intern("flatten"),0);
+  ary2cflt(work_ary, points, MAX(ustride*uorder, vstride*vorder));
+  glMap2f(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
+  xfree(points);
+  CHECK_GLERROR_FROM("glMap2f");
+  return Qnil;
 }
 
 static VALUE
 gl_EvalCoord1dv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLdouble params[1] = {0.0};
-	Check_Type(arg1,T_ARRAY);
-	ary2cdbl(arg1,params,1);
-	glEvalCoord1dv(params);
-	CHECK_GLERROR_FROM("glEvalCoord1dv");
-	return Qnil;
+  GLdouble params[1] = {0.0};
+  Check_Type(arg1,T_ARRAY);
+  ary2cdbl(arg1,params,1);
+  glEvalCoord1dv(params);
+  CHECK_GLERROR_FROM("glEvalCoord1dv");
+  return Qnil;
 }
 
 static VALUE
 gl_EvalCoord1fv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLfloat params[1] = {(GLfloat)0.0};
-	Check_Type(arg1,T_ARRAY);
-	ary2cflt(arg1,params,1);
-	glEvalCoord1fv(params);
-	CHECK_GLERROR_FROM("glEvalCoord1fv");
-	return Qnil;
+  GLfloat params[1] = {(GLfloat)0.0};
+  Check_Type(arg1,T_ARRAY);
+  ary2cflt(arg1,params,1);
+  glEvalCoord1fv(params);
+  CHECK_GLERROR_FROM("glEvalCoord1fv");
+  return Qnil;
 }
 
 static VALUE
 gl_EvalCoord2dv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLdouble params[2] = {0.0,0.0};
-	Check_Type(arg1,T_ARRAY);
-	ary2cdbl(arg1,params,2);
-	glEvalCoord2dv(params);
-	CHECK_GLERROR_FROM("glEvalCoord2fv");
-	return Qnil;
+  GLdouble params[2] = {0.0,0.0};
+  Check_Type(arg1,T_ARRAY);
+  ary2cdbl(arg1,params,2);
+  glEvalCoord2dv(params);
+  CHECK_GLERROR_FROM("glEvalCoord2fv");
+  return Qnil;
 }
 
 static VALUE
 gl_EvalCoord2fv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLfloat params[2] = {(GLfloat)0.0,(GLfloat)0.0};
-	Check_Type(arg1,T_ARRAY);
-	ary2cflt(arg1,params,2);
-	glEvalCoord2fv(params);
-	CHECK_GLERROR_FROM("glEvalCoord2fv");
-	return Qnil;
+  GLfloat params[2] = {(GLfloat)0.0,(GLfloat)0.0};
+  Check_Type(arg1,T_ARRAY);
+  ary2cflt(arg1,params,2);
+  glEvalCoord2fv(params);
+  CHECK_GLERROR_FROM("glEvalCoord2fv");
+  return Qnil;
 }
 
 
@@ -1162,33 +1162,33 @@ int argc; \
 VALUE *argv; \
 VALUE obj; \
 { \
-	GLenum map; \
-	_vartype_ *values; \
-	GLsizei size; \
-	VALUE args[4]; \
-	switch(rb_scan_args(argc, argv, "21", &args[0], &args[1], &args[2])) { \
-		default: \
-		case 2: \
-			if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) \
-				rb_raise(rb_eArgError, "Pixel unpack buffer bound, but offset argument missing"); \
-			map = (GLenum)NUM2INT(args[0]); \
-			Check_Type(args[1],T_ARRAY); \
-			size = (int)RARRAY_LENINT(args[1]); \
-			values = ALLOC_N(_vartype_,size); \
-			_convert_(args[1],values,size); \
-			glPixelMap##_type_##v(map,size,values); \
-			xfree(values); \
-			break; \
-		case 3: \
-			if (!CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) \
-				rb_raise(rb_eArgError, "Pixel unpack buffer not bound"); \
-			map = (GLenum)NUM2INT(args[0]);	 \
-			size = (GLsizei)NUM2INT(args[1]); \
-			glPixelMap##_type_##v(map,size,(GLvoid *)NUM2LONG(args[2])); \
-			break; \
-	} \
-	CHECK_GLERROR_FROM("glPixelMap" #_type_ "v"); \
-	return Qnil; \
+  GLenum map; \
+  _vartype_ *values; \
+  GLsizei size; \
+  VALUE args[4]; \
+  switch(rb_scan_args(argc, argv, "21", &args[0], &args[1], &args[2])) { \
+    default: \
+    case 2: \
+      if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) \
+        rb_raise(rb_eArgError, "Pixel unpack buffer bound, but offset argument missing"); \
+      map = (GLenum)NUM2INT(args[0]); \
+      Check_Type(args[1],T_ARRAY); \
+      size = (int)RARRAY_LENINT(args[1]); \
+      values = ALLOC_N(_vartype_,size); \
+      _convert_(args[1],values,size); \
+      glPixelMap##_type_##v(map,size,values); \
+      xfree(values); \
+      break; \
+    case 3: \
+      if (!CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) \
+        rb_raise(rb_eArgError, "Pixel unpack buffer not bound"); \
+      map = (GLenum)NUM2INT(args[0]);	 \
+      size = (GLsizei)NUM2INT(args[1]); \
+      glPixelMap##_type_##v(map,size,(GLvoid *)NUM2SIZET(args[2])); \
+      break; \
+  } \
+  CHECK_GLERROR_FROM("glPixelMap" #_type_ "v"); \
+  return Qnil; \
 }
 
 GLPIXELMAP_FUNC(f,GLfloat,ary2cflt)
@@ -1203,88 +1203,88 @@ int argc;
 VALUE *argv;
 VALUE obj;
 {
-	GLint x;
-	GLint y;
-	GLsizei width;
-	GLsizei height;
-	int format;
-	int type;
-	VALUE pixels;
-	VALUE args[7];
-	int numargs;
-	numargs = rb_scan_args(argc, argv, "61", &args[0], &args[1], &args[2], &args[3], &args[4], &args[5], &args[6]);
-	x = (GLint)NUM2INT(args[0]);
-	y = (GLint)NUM2INT(args[1]);
-	width = (GLsizei)NUM2UINT(args[2]);
-	height = (GLsizei)NUM2UINT(args[3]);
-	format = NUM2INT(args[4]);
-	type = NUM2INT(args[5]);
-
-	switch(numargs) {
-		default:
-		case 6:
-			if (CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
-				rb_raise(rb_eArgError, "Pixel pack buffer bound, but offset argument missing");
-			pixels = allocate_buffer_with_string(GetDataSize(type,format,width*height));
-			FORCE_PIXEL_STORE_MODE
-			glReadPixels(x,y,width,height,format,type,(GLvoid*)RSTRING_PTR(pixels));
-			RESTORE_PIXEL_STORE_MODE
-			CHECK_GLERROR_FROM("glReadPixels");
-			return pixels;
-			break;			
-		case 7:
-			if (!CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
-				rb_raise(rb_eArgError, "Pixel pack buffer not bound");
-			FORCE_PIXEL_STORE_MODE
-			glReadPixels(x,y,width,height,format,type,(GLvoid*)NUM2LONG(args[6]));
-			RESTORE_PIXEL_STORE_MODE
-			CHECK_GLERROR_FROM("glReadPixels");
-			return Qnil;
-			break;			
-	}
+  GLint x;
+  GLint y;
+  GLsizei width;
+  GLsizei height;
+  int format;
+  int type;
+  VALUE pixels;
+  VALUE args[7];
+  int numargs;
+  numargs = rb_scan_args(argc, argv, "61", &args[0], &args[1], &args[2], &args[3], &args[4], &args[5], &args[6]);
+  x = (GLint)NUM2INT(args[0]);
+  y = (GLint)NUM2INT(args[1]);
+  width = (GLsizei)NUM2UINT(args[2]);
+  height = (GLsizei)NUM2UINT(args[3]);
+  format = NUM2INT(args[4]);
+  type = NUM2INT(args[5]);
+
+  switch(numargs) {
+    default:
+    case 6:
+      if (CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
+        rb_raise(rb_eArgError, "Pixel pack buffer bound, but offset argument missing");
+      pixels = allocate_buffer_with_string(GetDataSize(type,format,width*height));
+      FORCE_PIXEL_STORE_MODE
+      glReadPixels(x,y,width,height,format,type,(GLvoid*)RSTRING_PTR(pixels));
+      RESTORE_PIXEL_STORE_MODE
+      CHECK_GLERROR_FROM("glReadPixels");
+      return pixels;
+      break;
+    case 7:
+      if (!CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
+        rb_raise(rb_eArgError, "Pixel pack buffer not bound");
+      FORCE_PIXEL_STORE_MODE
+      glReadPixels(x,y,width,height,format,type,(GLvoid*)NUM2SIZET(args[6]));
+      RESTORE_PIXEL_STORE_MODE
+      CHECK_GLERROR_FROM("glReadPixels");
+      return Qnil;
+      break;
+  }
 }
 
 static VALUE
 gl_DrawPixels(obj,arg1,arg2,arg3,arg4,arg5)
 VALUE obj,arg1,arg2,arg3,arg4,arg5;
 {
-	GLsizei width;
-	GLsizei height;
-	GLenum format;
-	GLenum type;
-	const char *pixels;
-	width = (GLsizei)NUM2UINT(arg1);
-	height = (GLsizei)NUM2UINT(arg2);
-	format = (GLenum)NUM2INT(arg3);
-	type = (GLenum)NUM2INT(arg4);
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		glDrawPixels(width,height,format,type,(GLvoid *)NUM2LONG(arg5));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(type,arg5);
-		CheckDataSize(type,format,width*height,data);
-		pixels = RSTRING_PTR(data);
-		glDrawPixels(width,height,format,type,pixels);
-	}
-	CHECK_GLERROR_FROM("glDrawPixels");
-	return Qnil;
+  GLsizei width;
+  GLsizei height;
+  GLenum format;
+  GLenum type;
+  const char *pixels;
+  width = (GLsizei)NUM2UINT(arg1);
+  height = (GLsizei)NUM2UINT(arg2);
+  format = (GLenum)NUM2INT(arg3);
+  type = (GLenum)NUM2INT(arg4);
+  if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
+    glDrawPixels(width,height,format,type,(GLvoid *)NUM2SIZET(arg5));
+  } else {
+    VALUE data;
+    data = pack_array_or_pass_string(type,arg5);
+    CheckDataSize(type,format,width*height,data);
+    pixels = RSTRING_PTR(data);
+    glDrawPixels(width,height,format,type,pixels);
+  }
+  CHECK_GLERROR_FROM("glDrawPixels");
+  return Qnil;
 }
 
 static VALUE
 gl_GetClipPlane(obj,arg1)
 VALUE obj,arg1;
 {
-	GLenum plane;
-	GLdouble equation[4] = {0.0,0.0,0.0,0.0};
-	VALUE retary;
-	int i;
-	plane = (GLenum)NUM2INT(arg1);
-	glGetClipPlane(plane,equation);
-	retary = rb_ary_new2(4);
-	for(i=0;i<4;i++)
-		rb_ary_push(retary, rb_float_new(equation[i]));
-	CHECK_GLERROR_FROM("glGetClipPlane");
-	return retary;
+  GLenum plane;
+  GLdouble equation[4] = {0.0,0.0,0.0,0.0};
+  VALUE retary;
+  int i;
+  plane = (GLenum)NUM2INT(arg1);
+  glGetClipPlane(plane,equation);
+  retary = rb_ary_new2(4);
+  for(i=0;i<4;i++)
+    rb_ary_push(retary, rb_float_new(equation[i]));
+  CHECK_GLERROR_FROM("glGetClipPlane");
+  return retary;
 }
 
 #define GLGET_FUNC(_name_,_type_,_conv_) \
@@ -1292,143 +1292,143 @@ static VALUE \
 gl_Get##_name_##v(obj,arg1) \
 VALUE obj,arg1; \
 { \
-	GLenum pname; \
-	int nitems; \
-	VALUE ary, ary2; \
-	int i,j; \
-	_type_ items[64];  \
-	pname = NUM2INT(arg1); \
-	switch(pname) { \
-	case GL_ACCUM_CLEAR_VALUE: \
-	case GL_BLEND_COLOR: \
-	case GL_COLOR_CLEAR_VALUE: \
-	case GL_COLOR_WRITEMASK: \
-	case GL_CURRENT_COLOR: \
-	case GL_CURRENT_RASTER_COLOR: \
-	case GL_CURRENT_RASTER_POSITION: \
-	case GL_CURRENT_RASTER_SECONDARY_COLOR: \
-	case GL_CURRENT_RASTER_TEXTURE_COORDS: \
-	case GL_CURRENT_TEXTURE_COORDS: \
-	case GL_FOG_COLOR: \
-	case GL_LIGHT_MODEL_AMBIENT: \
-	case GL_MAP2_GRID_DOMAIN: \
-	case GL_CURRENT_SECONDARY_COLOR: \
-	case GL_SCISSOR_BOX: \
-	case GL_TEXTURE_ENV_COLOR: \
-	case GL_VIEWPORT: \
-	case GL_REFERENCE_PLANE_EQUATION_SGIX: \
-	case GL_FOG_OFFSET_VALUE_SGIX: \
-	case GL_TEXTURE_ENV_BIAS_SGIX: \
-	case GL_CULL_VERTEX_OBJECT_POSITION_EXT: \
-	case GL_CULL_VERTEX_EYE_POSITION_EXT: \
-	case GL_FRAGMENT_LIGHT_MODEL_AMBIENT_SGIX: \
-	case GL_CONSTANT_COLOR0_NV: \
-	case GL_CONSTANT_COLOR1_NV: \
-	case GL_TEXTURE_COLOR_WRITEMASK_SGIS: \
-	case GL_FLOAT_CLEAR_COLOR_VALUE_NV: \
+  GLenum pname; \
+  int nitems; \
+  VALUE ary, ary2; \
+  int i,j; \
+  _type_ items[64];  \
+  pname = NUM2INT(arg1); \
+  switch(pname) { \
+  case GL_ACCUM_CLEAR_VALUE: \
+  case GL_BLEND_COLOR: \
+  case GL_COLOR_CLEAR_VALUE: \
+  case GL_COLOR_WRITEMASK: \
+  case GL_CURRENT_COLOR: \
+  case GL_CURRENT_RASTER_COLOR: \
+  case GL_CURRENT_RASTER_POSITION: \
+  case GL_CURRENT_RASTER_SECONDARY_COLOR: \
+  case GL_CURRENT_RASTER_TEXTURE_COORDS: \
+  case GL_CURRENT_TEXTURE_COORDS: \
+  case GL_FOG_COLOR: \
+  case GL_LIGHT_MODEL_AMBIENT: \
+  case GL_MAP2_GRID_DOMAIN: \
+  case GL_CURRENT_SECONDARY_COLOR: \
+  case GL_SCISSOR_BOX: \
+  case GL_TEXTURE_ENV_COLOR: \
+  case GL_VIEWPORT: \
+  case GL_REFERENCE_PLANE_EQUATION_SGIX: \
+  case GL_FOG_OFFSET_VALUE_SGIX: \
+  case GL_TEXTURE_ENV_BIAS_SGIX: \
+  case GL_CULL_VERTEX_OBJECT_POSITION_EXT: \
+  case GL_CULL_VERTEX_EYE_POSITION_EXT: \
+  case GL_FRAGMENT_LIGHT_MODEL_AMBIENT_SGIX: \
+  case GL_CONSTANT_COLOR0_NV: \
+  case GL_CONSTANT_COLOR1_NV: \
+  case GL_TEXTURE_COLOR_WRITEMASK_SGIS: \
+  case GL_FLOAT_CLEAR_COLOR_VALUE_NV: \
   case GL_RGBA_SIGNED_COMPONENTS_EXT: \
-		nitems = 4; \
-		break; \
-	case GL_CURRENT_NORMAL: \
-	case GL_POINT_DISTANCE_ATTENUATION: \
-	case GL_SPRITE_AXIS_SGIX: \
-	case GL_SPRITE_TRANSLATION_SGIX: \
-	case GL_CURRENT_RASTER_NORMAL_SGIX: \
-	case GL_CURRENT_TANGENT_EXT: \
-	case GL_CURRENT_BINORMAL_EXT: \
-		nitems = 3; \
-		break; \
-	case GL_DEPTH_RANGE:	 \
-	case GL_LINE_WIDTH_RANGE: \
-	case GL_MAP1_GRID_DOMAIN: \
-	case GL_MAP2_GRID_SEGMENTS: \
-	case GL_MAX_VIEWPORT_DIMS: \
-	case GL_POINT_SIZE_RANGE: \
-	case GL_POLYGON_MODE: \
-	case GL_ALIASED_LINE_WIDTH_RANGE: \
-	case GL_ALIASED_POINT_SIZE_RANGE: \
-	case GL_POST_TEXTURE_FILTER_BIAS_RANGE_SGIX: \
-	case GL_POST_TEXTURE_FILTER_SCALE_RANGE_SGIX: \
-	case GL_FOG_FUNC_SGIS: \
-	case GL_DEPTH_BOUNDS_EXT: \
-		nitems = 2; \
-		break; \
-	case GL_MODELVIEW_MATRIX: \
-	case GL_PROJECTION_MATRIX: \
-	case GL_TEXTURE_MATRIX: \
-	case GL_COLOR_MATRIX: \
-	case GL_TRANSPOSE_MODELVIEW_MATRIX: \
-	case GL_TRANSPOSE_PROJECTION_MATRIX: \
-	case GL_TRANSPOSE_TEXTURE_MATRIX: \
-	case GL_TRANSPOSE_COLOR_MATRIX: \
-	case GL_TRANSPOSE_CURRENT_MATRIX_ARB: \
-	case GL_MODELVIEW0_ARB: \
-	case GL_MODELVIEW1_ARB: \
-	case GL_MODELVIEW2_ARB: \
-	case GL_MODELVIEW3_ARB: \
-	case GL_MODELVIEW4_ARB: \
-	case GL_MODELVIEW5_ARB: \
-	case GL_MODELVIEW6_ARB: \
-	case GL_MODELVIEW7_ARB: \
-	case GL_MODELVIEW8_ARB: \
-	case GL_MODELVIEW9_ARB: \
-	case GL_MODELVIEW10_ARB: \
-	case GL_MODELVIEW11_ARB: \
-	case GL_MODELVIEW12_ARB: \
-	case GL_MODELVIEW13_ARB: \
-	case GL_MODELVIEW14_ARB: \
-	case GL_MODELVIEW15_ARB: \
-	case GL_MODELVIEW16_ARB: \
-	case GL_MODELVIEW17_ARB: \
-	case GL_MODELVIEW18_ARB: \
-	case GL_MODELVIEW19_ARB: \
-	case GL_MODELVIEW20_ARB: \
-	case GL_MODELVIEW21_ARB: \
-	case GL_MODELVIEW22_ARB: \
-	case GL_MODELVIEW23_ARB: \
-	case GL_MODELVIEW24_ARB: \
-	case GL_MODELVIEW25_ARB: \
-	case GL_MODELVIEW26_ARB: \
-	case GL_MODELVIEW27_ARB: \
-	case GL_MODELVIEW28_ARB: \
-	case GL_MODELVIEW29_ARB: \
-	case GL_MODELVIEW30_ARB: \
-	case GL_MODELVIEW31_ARB: \
-	case GL_MATRIX_PALETTE_ARB: \
-	case GL_PIXEL_TRANSFORM_2D_MATRIX_EXT: \
-	case GL_MODELVIEW1_MATRIX_EXT: \
-	case GL_CURRENT_MATRIX_NV: \
-		glGet##_name_##v(pname, items); \
-		ary = rb_ary_new2(4); \
-		for (i = 0; i < 4; i++) { \
-			ary2 = rb_ary_new2(4); \
-			rb_ary_push(ary, ary2); \
-			for (j = 0; j < 4; j++) \
-				rb_ary_push(ary2, _conv_(items[i*4+j])); \
-		} \
-		CHECK_GLERROR_FROM("glGet" #_name_ "v"); \
-		return ary; \
-	case GL_POLYGON_STIPPLE: \
-		glGet##_name_##v(pname, items); \
-		CHECK_GLERROR_FROM("glGet" #_name_ "v"); \
-		return rb_str_new((const char*)items, 32); \
-	case GL_COMPRESSED_TEXTURE_FORMATS: \
-		glGetIntegerv(GL_NUM_COMPRESSED_TEXTURE_FORMATS, &nitems); \
-		CHECK_GLERROR_FROM("glGetIntegerv"); \
-		if (nitems<=0||nitems>64) \
-			return INT2NUM(0); \
-		break; \
-	default: /* size=1 */ \
-		glGet##_name_##v(pname, items); \
-		CHECK_GLERROR_FROM("glGet" #_name_ "v"); \
-		return _conv_(items[0]); \
-	} \
-	glGet##_name_##v(pname, items); \
-	ary = rb_ary_new2(nitems); \
-	for (i = 0; i < nitems; i++) \
-		rb_ary_push(ary, _conv_(items[i])); \
-	CHECK_GLERROR_FROM("glGet" #_name_ "v"); \
-	return ary; \
+    nitems = 4; \
+    break; \
+  case GL_CURRENT_NORMAL: \
+  case GL_POINT_DISTANCE_ATTENUATION: \
+  case GL_SPRITE_AXIS_SGIX: \
+  case GL_SPRITE_TRANSLATION_SGIX: \
+  case GL_CURRENT_RASTER_NORMAL_SGIX: \
+  case GL_CURRENT_TANGENT_EXT: \
+  case GL_CURRENT_BINORMAL_EXT: \
+    nitems = 3; \
+    break; \
+  case GL_DEPTH_RANGE:	 \
+  case GL_LINE_WIDTH_RANGE: \
+  case GL_MAP1_GRID_DOMAIN: \
+  case GL_MAP2_GRID_SEGMENTS: \
+  case GL_MAX_VIEWPORT_DIMS: \
+  case GL_POINT_SIZE_RANGE: \
+  case GL_POLYGON_MODE: \
+  case GL_ALIASED_LINE_WIDTH_RANGE: \
+  case GL_ALIASED_POINT_SIZE_RANGE: \
+  case GL_POST_TEXTURE_FILTER_BIAS_RANGE_SGIX: \
+  case GL_POST_TEXTURE_FILTER_SCALE_RANGE_SGIX: \
+  case GL_FOG_FUNC_SGIS: \
+  case GL_DEPTH_BOUNDS_EXT: \
+    nitems = 2; \
+    break; \
+  case GL_MODELVIEW_MATRIX: \
+  case GL_PROJECTION_MATRIX: \
+  case GL_TEXTURE_MATRIX: \
+  case GL_COLOR_MATRIX: \
+  case GL_TRANSPOSE_MODELVIEW_MATRIX: \
+  case GL_TRANSPOSE_PROJECTION_MATRIX: \
+  case GL_TRANSPOSE_TEXTURE_MATRIX: \
+  case GL_TRANSPOSE_COLOR_MATRIX: \
+  case GL_TRANSPOSE_CURRENT_MATRIX_ARB: \
+  case GL_MODELVIEW0_ARB: \
+  case GL_MODELVIEW1_ARB: \
+  case GL_MODELVIEW2_ARB: \
+  case GL_MODELVIEW3_ARB: \
+  case GL_MODELVIEW4_ARB: \
+  case GL_MODELVIEW5_ARB: \
+  case GL_MODELVIEW6_ARB: \
+  case GL_MODELVIEW7_ARB: \
+  case GL_MODELVIEW8_ARB: \
+  case GL_MODELVIEW9_ARB: \
+  case GL_MODELVIEW10_ARB: \
+  case GL_MODELVIEW11_ARB: \
+  case GL_MODELVIEW12_ARB: \
+  case GL_MODELVIEW13_ARB: \
+  case GL_MODELVIEW14_ARB: \
+  case GL_MODELVIEW15_ARB: \
+  case GL_MODELVIEW16_ARB: \
+  case GL_MODELVIEW17_ARB: \
+  case GL_MODELVIEW18_ARB: \
+  case GL_MODELVIEW19_ARB: \
+  case GL_MODELVIEW20_ARB: \
+  case GL_MODELVIEW21_ARB: \
+  case GL_MODELVIEW22_ARB: \
+  case GL_MODELVIEW23_ARB: \
+  case GL_MODELVIEW24_ARB: \
+  case GL_MODELVIEW25_ARB: \
+  case GL_MODELVIEW26_ARB: \
+  case GL_MODELVIEW27_ARB: \
+  case GL_MODELVIEW28_ARB: \
+  case GL_MODELVIEW29_ARB: \
+  case GL_MODELVIEW30_ARB: \
+  case GL_MODELVIEW31_ARB: \
+  case GL_MATRIX_PALETTE_ARB: \
+  case GL_PIXEL_TRANSFORM_2D_MATRIX_EXT: \
+  case GL_MODELVIEW1_MATRIX_EXT: \
+  case GL_CURRENT_MATRIX_NV: \
+    glGet##_name_##v(pname, items); \
+    ary = rb_ary_new2(4); \
+    for (i = 0; i < 4; i++) { \
+      ary2 = rb_ary_new2(4); \
+      rb_ary_push(ary, ary2); \
+      for (j = 0; j < 4; j++) \
+        rb_ary_push(ary2, _conv_(items[i*4+j])); \
+    } \
+    CHECK_GLERROR_FROM("glGet" #_name_ "v"); \
+    return ary; \
+  case GL_POLYGON_STIPPLE: \
+    glGet##_name_##v(pname, items); \
+    CHECK_GLERROR_FROM("glGet" #_name_ "v"); \
+    return rb_str_new((const char*)items, 32); \
+  case GL_COMPRESSED_TEXTURE_FORMATS: \
+    glGetIntegerv(GL_NUM_COMPRESSED_TEXTURE_FORMATS, &nitems); \
+    CHECK_GLERROR_FROM("glGetIntegerv"); \
+    if (nitems<=0||nitems>64) \
+      return INT2NUM(0); \
+    break; \
+  default: /* size=1 */ \
+    glGet##_name_##v(pname, items); \
+    CHECK_GLERROR_FROM("glGet" #_name_ "v"); \
+    return _conv_(items[0]); \
+  } \
+  glGet##_name_##v(pname, items); \
+  ary = rb_ary_new2(nitems); \
+  for (i = 0; i < nitems; i++) \
+    rb_ary_push(ary, _conv_(items[i])); \
+  CHECK_GLERROR_FROM("glGet" #_name_ "v"); \
+  return ary; \
 }
 
 GLGET_FUNC(Double,GLdouble,rb_float_new)
@@ -1443,70 +1443,70 @@ static VALUE
 gl_GetLightfv(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum light;
-	GLenum pname;
-	GLsizei size;
-	GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
-	light = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	switch(pname) {
-		case GL_AMBIENT:
-		case GL_DIFFUSE:
-		case GL_SPECULAR:
-		case GL_POSITION:
-			size = 4;
-			break;
-		case GL_SPOT_DIRECTION:
-			size = 3;
-			break;
-		case GL_CONSTANT_ATTENUATION:
-		case GL_LINEAR_ATTENUATION:
-		case GL_QUADRATIC_ATTENUATION:
-		case GL_SPOT_EXPONENT:
-		case GL_SPOT_CUTOFF:
-			size = 1;
-			break;
-		default:
-			rb_raise(rb_eArgError, "unknown pname:%d",pname);
-			break; /* not reached */
-	}
-	glGetLightfv(light,pname,params);
-	RET_ARRAY_OR_SINGLE("glGetLightfv", size, rb_float_new, params);
+  GLenum light;
+  GLenum pname;
+  GLsizei size;
+  GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
+  light = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  switch(pname) {
+    case GL_AMBIENT:
+    case GL_DIFFUSE:
+    case GL_SPECULAR:
+    case GL_POSITION:
+      size = 4;
+      break;
+    case GL_SPOT_DIRECTION:
+      size = 3;
+      break;
+    case GL_CONSTANT_ATTENUATION:
+    case GL_LINEAR_ATTENUATION:
+    case GL_QUADRATIC_ATTENUATION:
+    case GL_SPOT_EXPONENT:
+    case GL_SPOT_CUTOFF:
+      size = 1;
+      break;
+    default:
+      rb_raise(rb_eArgError, "unknown pname:%d",pname);
+      break; /* not reached */
+  }
+  glGetLightfv(light,pname,params);
+  RET_ARRAY_OR_SINGLE("glGetLightfv", size, rb_float_new, params);
 }
 
 static VALUE
 gl_GetLightiv(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum light;
-	GLenum pname;
-	GLsizei size;
-	GLint params[4] = {0,0,0,0};
-	light = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	switch(pname) {
-		case GL_AMBIENT:
-		case GL_DIFFUSE:
-		case GL_SPECULAR:
-		case GL_POSITION:
-			size = 4;
-			break;
-		case GL_SPOT_DIRECTION:
-			size = 3;
-			break;
-		case GL_CONSTANT_ATTENUATION:
-		case GL_LINEAR_ATTENUATION:
-		case GL_QUADRATIC_ATTENUATION:
-		case GL_SPOT_EXPONENT:
-		case GL_SPOT_CUTOFF:
-			size = 1;
-			break;
-		default:
-			rb_raise(rb_eArgError, "unknown pname:%d",pname);
-			break; /* not reached */
-	}
-	glGetLightiv(light,pname,params);
-	RET_ARRAY_OR_SINGLE("glGetLightiv", size, INT2NUM, params);
+  GLenum light;
+  GLenum pname;
+  GLsizei size;
+  GLint params[4] = {0,0,0,0};
+  light = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  switch(pname) {
+    case GL_AMBIENT:
+    case GL_DIFFUSE:
+    case GL_SPECULAR:
+    case GL_POSITION:
+      size = 4;
+      break;
+    case GL_SPOT_DIRECTION:
+      size = 3;
+      break;
+    case GL_CONSTANT_ATTENUATION:
+    case GL_LINEAR_ATTENUATION:
+    case GL_QUADRATIC_ATTENUATION:
+    case GL_SPOT_EXPONENT:
+    case GL_SPOT_CUTOFF:
+      size = 1;
+      break;
+    default:
+      rb_raise(rb_eArgError, "unknown pname:%d",pname);
+      break; /* not reached */
+  }
+  glGetLightiv(light,pname,params);
+  RET_ARRAY_OR_SINGLE("glGetLightiv", size, INT2NUM, params);
 }
 
 #define GETMAP_FUNC(_name_,_type_) \
@@ -1514,57 +1514,57 @@ static VALUE \
 gl_##_name_(obj,arg1,arg2) \
 VALUE obj,arg1,arg2; \
 { \
-	GLenum target; \
-	GLenum query; \
-	int dims; \
-	int pointsize; \
-	int size=0; \
-	_type_ *points; \
-	GLint order[2] = {0,0}; /* for GL_COEFF, [order] or [uorder,vorder] (MAP1/MAP2) */ \
-	target = (GLenum)NUM2INT(arg1); \
-	query = (GLenum)NUM2INT(arg2); \
-	switch(target) { \
-		case GL_MAP1_INDEX: \
-		case GL_MAP1_TEXTURE_COORD_1: dims=1; pointsize=1; break; \
-		case GL_MAP1_TEXTURE_COORD_2: dims=1; pointsize=2; break; \
-		case GL_MAP1_VERTEX_3: \
-		case GL_MAP1_NORMAL: \
-		case GL_MAP1_TEXTURE_COORD_3: dims=1; pointsize=3; break; \
-		case GL_MAP1_COLOR_4: \
-		case GL_MAP1_TEXTURE_COORD_4: \
-		case GL_MAP1_VERTEX_4: dims=1; pointsize=4; break; \
-		case GL_MAP2_INDEX: \
-		case GL_MAP2_TEXTURE_COORD_1: dims=2; pointsize=1; break; \
-		case GL_MAP2_TEXTURE_COORD_2: dims=2; pointsize=2; break; \
-		case GL_MAP2_VERTEX_3: \
-		case GL_MAP2_NORMAL:  \
-		case GL_MAP2_TEXTURE_COORD_3: dims=2; pointsize=3; break; \
-		case GL_MAP2_COLOR_4:  \
-		case GL_MAP2_TEXTURE_COORD_4: \
-		case GL_MAP2_VERTEX_4: dims=2; pointsize=4; break; \
-		default: \
-			rb_raise(rb_eArgError, "unknown target:%d",target); \
-			break; /* not reached */ \
-	} \
-	switch(query) { \
-		case GL_ORDER: size = dims;	break; \
-		case GL_DOMAIN: size = dims*2; break; \
-		case GL_COEFF: \
-			glGetMapiv(target,GL_ORDER,order); \
-			CHECK_GLERROR_FROM("glGetMapiv"); \
-			if (dims==1) \
-				size = order[0] * pointsize; \
-			else \
-				size = (order[0]*order[1]) * pointsize; \
-			break; \
-		default: \
-			rb_raise(rb_eArgError, "unknown target:%d",target); \
-			break; /* not reached */ \
-	} \
-	points = ALLOC_N(_type_,size); \
-	gl##_name_(target,query,points); \
+  GLenum target; \
+  GLenum query; \
+  int dims; \
+  int pointsize; \
+  int size=0; \
+  _type_ *points; \
+  GLint order[2] = {0,0}; /* for GL_COEFF, [order] or [uorder,vorder] (MAP1/MAP2) */ \
+  target = (GLenum)NUM2INT(arg1); \
+  query = (GLenum)NUM2INT(arg2); \
+  switch(target) { \
+    case GL_MAP1_INDEX: \
+    case GL_MAP1_TEXTURE_COORD_1: dims=1; pointsize=1; break; \
+    case GL_MAP1_TEXTURE_COORD_2: dims=1; pointsize=2; break; \
+    case GL_MAP1_VERTEX_3: \
+    case GL_MAP1_NORMAL: \
+    case GL_MAP1_TEXTURE_COORD_3: dims=1; pointsize=3; break; \
+    case GL_MAP1_COLOR_4: \
+    case GL_MAP1_TEXTURE_COORD_4: \
+    case GL_MAP1_VERTEX_4: dims=1; pointsize=4; break; \
+    case GL_MAP2_INDEX: \
+    case GL_MAP2_TEXTURE_COORD_1: dims=2; pointsize=1; break; \
+    case GL_MAP2_TEXTURE_COORD_2: dims=2; pointsize=2; break; \
+    case GL_MAP2_VERTEX_3: \
+    case GL_MAP2_NORMAL:  \
+    case GL_MAP2_TEXTURE_COORD_3: dims=2; pointsize=3; break; \
+    case GL_MAP2_COLOR_4:  \
+    case GL_MAP2_TEXTURE_COORD_4: \
+    case GL_MAP2_VERTEX_4: dims=2; pointsize=4; break; \
+    default: \
+      rb_raise(rb_eArgError, "unknown target:%d",target); \
+      break; /* not reached */ \
+  } \
+  switch(query) { \
+    case GL_ORDER: size = dims;	break; \
+    case GL_DOMAIN: size = dims*2; break; \
+    case GL_COEFF: \
+      glGetMapiv(target,GL_ORDER,order); \
+      CHECK_GLERROR_FROM("glGetMapiv"); \
+      if (dims==1) \
+        size = order[0] * pointsize; \
+      else \
+        size = (order[0]*order[1]) * pointsize; \
+      break; \
+    default: \
+      rb_raise(rb_eArgError, "unknown target:%d",target); \
+      break; /* not reached */ \
+  } \
+  points = ALLOC_N(_type_,size); \
+  gl##_name_(target,query,points); \
 \
-	RET_ARRAY_OR_SINGLE_FREE("gl" #_name_, size, RETCONV_##_type_, points); \
+  RET_ARRAY_OR_SINGLE_FREE("gl" #_name_, size, RETCONV_##_type_, points); \
 }
 
 GETMAP_FUNC(GetMapdv,GLdouble)
@@ -1576,62 +1576,62 @@ static VALUE
 gl_GetMaterialfv(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum face;
-	GLenum pname;
-	GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
-	int size;
-	face = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	switch(pname) {
-		case GL_AMBIENT:
-		case GL_DIFFUSE:
-		case GL_SPECULAR:
-		case GL_EMISSION:
-			size = 4;
-			break;
-		case GL_COLOR_INDEXES:
-			size = 3;
-			break;
-		case GL_SHININESS:
-			size = 1;
-			break;
-		default:
-			rb_raise(rb_eArgError, "unknown pname:%d",pname);
-			break; /* not reached */
-	}
-	glGetMaterialfv(face,pname,params);
-	RET_ARRAY_OR_SINGLE("glGetMaterialfv", size, rb_float_new, params);
+  GLenum face;
+  GLenum pname;
+  GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
+  int size;
+  face = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  switch(pname) {
+    case GL_AMBIENT:
+    case GL_DIFFUSE:
+    case GL_SPECULAR:
+    case GL_EMISSION:
+      size = 4;
+      break;
+    case GL_COLOR_INDEXES:
+      size = 3;
+      break;
+    case GL_SHININESS:
+      size = 1;
+      break;
+    default:
+      rb_raise(rb_eArgError, "unknown pname:%d",pname);
+      break; /* not reached */
+  }
+  glGetMaterialfv(face,pname,params);
+  RET_ARRAY_OR_SINGLE("glGetMaterialfv", size, rb_float_new, params);
 }
 
 static VALUE
 gl_GetMaterialiv(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum face;
-	GLenum pname;
-	GLint params[4] = {0,0,0,0};
-	int size;
-	face = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	switch(pname) {
-		case GL_AMBIENT:
-		case GL_DIFFUSE:
-		case GL_SPECULAR:
-		case GL_EMISSION:
-			size = 4;
-			break;
-		case GL_COLOR_INDEXES:
-			size = 3;
-			break;
-		case GL_SHININESS:
-			size = 1;
-			break;
-		default:
-			rb_raise(rb_eArgError, "unknown pname:%d",pname);
-			break; /* not reached */
-	}
-	glGetMaterialiv(face,pname,params);
-	RET_ARRAY_OR_SINGLE("glGetMaterialiv", size, INT2NUM, params);
+  GLenum face;
+  GLenum pname;
+  GLint params[4] = {0,0,0,0};
+  int size;
+  face = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  switch(pname) {
+    case GL_AMBIENT:
+    case GL_DIFFUSE:
+    case GL_SPECULAR:
+    case GL_EMISSION:
+      size = 4;
+      break;
+    case GL_COLOR_INDEXES:
+      size = 3;
+      break;
+    case GL_SHININESS:
+      size = 1;
+      break;
+    default:
+      rb_raise(rb_eArgError, "unknown pname:%d",pname);
+      break; /* not reached */
+  }
+  glGetMaterialiv(face,pname,params);
+  RET_ARRAY_OR_SINGLE("glGetMaterialiv", size, INT2NUM, params);
 }
 
 #define GLGETPIXELMAP_FUNC(_type_,_vartype_,_convert_) \
@@ -1641,50 +1641,50 @@ int argc; \
 VALUE *argv; \
 VALUE obj; \
 { \
-	GLenum map; \
-	GLenum map_size; \
-	GLint size = 0; \
-	_vartype_ *values; \
-	VALUE args[2]; \
-	switch (rb_scan_args(argc, argv, "11", &args[0], &args[1])) { \
-		default: \
-		case 1: \
-			if (CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING)) \
-				rb_raise(rb_eArgError, \
+  GLenum map; \
+  GLenum map_size; \
+  GLint size = 0; \
+  _vartype_ *values; \
+  VALUE args[2]; \
+  switch (rb_scan_args(argc, argv, "11", &args[0], &args[1])) { \
+    default: \
+    case 1: \
+      if (CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING)) \
+        rb_raise(rb_eArgError, \
             "Pixel pack buffer bound, but offset argument missing"); \
 \
-			map = (GLenum)NUM2INT(args[0]); \
-			switch(map) { \
-				case GL_PIXEL_MAP_I_TO_I: map_size=GL_PIXEL_MAP_I_TO_I_SIZE; break; \
-				case GL_PIXEL_MAP_S_TO_S: map_size=GL_PIXEL_MAP_S_TO_S_SIZE; break; \
-				case GL_PIXEL_MAP_I_TO_R: map_size=GL_PIXEL_MAP_I_TO_R_SIZE; break; \
-				case GL_PIXEL_MAP_I_TO_G: map_size=GL_PIXEL_MAP_I_TO_G_SIZE; break; \
-				case GL_PIXEL_MAP_I_TO_B: map_size=GL_PIXEL_MAP_I_TO_B_SIZE; break; \
-				case GL_PIXEL_MAP_I_TO_A: map_size=GL_PIXEL_MAP_I_TO_A_SIZE; break; \
-				case GL_PIXEL_MAP_R_TO_R: map_size=GL_PIXEL_MAP_R_TO_R_SIZE; break; \
-				case GL_PIXEL_MAP_G_TO_G: map_size=GL_PIXEL_MAP_G_TO_G_SIZE; break; \
-				case GL_PIXEL_MAP_B_TO_B: map_size=GL_PIXEL_MAP_B_TO_B_SIZE; break; \
-				case GL_PIXEL_MAP_A_TO_A: map_size=GL_PIXEL_MAP_A_TO_A_SIZE; break; \
-				default: \
-					rb_raise(rb_eArgError, "unknown map:%d",map); \
-					break; \
-			} \
-			glGetIntegerv(map_size,&size); \
-			CHECK_GLERROR_FROM("glGetIntegerv"); \
-			values = ALLOC_N(_vartype_,size); \
-			glGetPixelMap##_type_##v(map,values); \
+      map = (GLenum)NUM2INT(args[0]); \
+      switch(map) { \
+        case GL_PIXEL_MAP_I_TO_I: map_size=GL_PIXEL_MAP_I_TO_I_SIZE; break; \
+        case GL_PIXEL_MAP_S_TO_S: map_size=GL_PIXEL_MAP_S_TO_S_SIZE; break; \
+        case GL_PIXEL_MAP_I_TO_R: map_size=GL_PIXEL_MAP_I_TO_R_SIZE; break; \
+        case GL_PIXEL_MAP_I_TO_G: map_size=GL_PIXEL_MAP_I_TO_G_SIZE; break; \
+        case GL_PIXEL_MAP_I_TO_B: map_size=GL_PIXEL_MAP_I_TO_B_SIZE; break; \
+        case GL_PIXEL_MAP_I_TO_A: map_size=GL_PIXEL_MAP_I_TO_A_SIZE; break; \
+        case GL_PIXEL_MAP_R_TO_R: map_size=GL_PIXEL_MAP_R_TO_R_SIZE; break; \
+        case GL_PIXEL_MAP_G_TO_G: map_size=GL_PIXEL_MAP_G_TO_G_SIZE; break; \
+        case GL_PIXEL_MAP_B_TO_B: map_size=GL_PIXEL_MAP_B_TO_B_SIZE; break; \
+        case GL_PIXEL_MAP_A_TO_A: map_size=GL_PIXEL_MAP_A_TO_A_SIZE; break; \
+        default: \
+          rb_raise(rb_eArgError, "unknown map:%d",map); \
+          break; \
+      } \
+      glGetIntegerv(map_size,&size); \
+      CHECK_GLERROR_FROM("glGetIntegerv"); \
+      values = ALLOC_N(_vartype_,size); \
+      glGetPixelMap##_type_##v(map,values); \
       RET_ARRAY_OR_SINGLE_FREE("glGetPixelMap" #_type_ "v", size, _convert_, \
           values); \
-			break; \
-		case 2: \
-			if (!CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING)) \
-				rb_raise(rb_eArgError, "Pixel pack buffer not bound"); \
- \
-			map = (GLenum)NUM2INT(args[0]); \
-			glGetPixelMap##_type_##v(map,(GLvoid*)NUM2LONG(args[1])); \
-			CHECK_GLERROR_FROM("glGetPixelMap" #_type_ "v"); \
-			return Qnil; \
-	} \
+      break; \
+    case 2: \
+      if (!CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING)) \
+        rb_raise(rb_eArgError, "Pixel pack buffer not bound"); \
+\
+      map = (GLenum)NUM2INT(args[0]); \
+      glGetPixelMap##_type_##v(map,(GLvoid*)NUM2SIZET(args[1])); \
+      CHECK_GLERROR_FROM("glGetPixelMap" #_type_ "v"); \
+      return Qnil; \
+  } \
 }
 
 GLGETPIXELMAP_FUNC(f,GLfloat,rb_float_new)
@@ -1698,38 +1698,38 @@ int argc;
 VALUE *argv;
 VALUE obj;
 {
-	VALUE args[1];
-	GLubyte mask[128];
-	switch(rb_scan_args(argc, argv, "01", &args[0])) {
-		default:
-		case 0:
-			if (CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
-				rb_raise(rb_eArgError, "Pixel pack buffer bound, but offset argument missing");
-			memset(mask, 0x0, sizeof(GLubyte)*128);
-			FORCE_PIXEL_STORE_MODE
-			glGetPolygonStipple(mask);
-			RESTORE_PIXEL_STORE_MODE
-			CHECK_GLERROR_FROM("glGetPolygonStipple");
-			return rb_str_new((const char*)mask, 128);
-		case 1:
-			if (!CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
-				rb_raise(rb_eArgError, "Pixel pack buffer not bound");
-			glGetPolygonStipple((GLvoid *)NUM2LONG(args[0]));
-			CHECK_GLERROR_FROM("glGetPolygonStipple");
-			return Qnil;
-	}
+  VALUE args[1];
+  GLubyte mask[128];
+  switch(rb_scan_args(argc, argv, "01", &args[0])) {
+    default:
+    case 0:
+      if (CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
+        rb_raise(rb_eArgError, "Pixel pack buffer bound, but offset argument missing");
+      memset(mask, 0x0, sizeof(GLubyte)*128);
+      FORCE_PIXEL_STORE_MODE
+      glGetPolygonStipple(mask);
+      RESTORE_PIXEL_STORE_MODE
+      CHECK_GLERROR_FROM("glGetPolygonStipple");
+      return rb_str_new((const char*)mask, 128);
+    case 1:
+      if (!CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
+        rb_raise(rb_eArgError, "Pixel pack buffer not bound");
+      glGetPolygonStipple((GLvoid *)NUM2SIZET(args[0]));
+      CHECK_GLERROR_FROM("glGetPolygonStipple");
+      return Qnil;
+  }
 }
 
 static VALUE
 gl_GetString(obj,arg1)
 VALUE obj,arg1;
 {
-	GLenum name;
-	const GLubyte *ret;
-	name = (GLenum)NUM2INT(arg1);
-	ret = glGetString(name);
-	CHECK_GLERROR_FROM("glGetString");
-	return rb_str_new2((const char*)ret);
+  GLenum name;
+  const GLubyte *ret;
+  name = (GLenum)NUM2INT(arg1);
+  ret = glGetString(name);
+  CHECK_GLERROR_FROM("glGetString");
+  return rb_str_new2((const char*)ret);
 }
 
 #define GETTEXENVFUNC(_name_,_type_) \
@@ -1737,28 +1737,28 @@ static VALUE \
 gl_##_name_(obj,arg1,arg2) \
 VALUE obj,arg1,arg2; \
 { \
-	GLenum target; \
-	GLenum pname; \
-	_type_ params[4] = {(_type_)0.0, (_type_)0.0, (_type_)0.0, (_type_)0.0}; \
-	int size; \
-	target = (GLenum)NUM2INT(arg1); \
-	pname = (GLenum)NUM2INT(arg2); \
-	switch(pname) { \
-		case GL_TEXTURE_ENV_COLOR: \
-		case GL_TEXTURE_ENV_BIAS_SGIX: \
-		case GL_CULL_MODES_NV: \
-		case GL_OFFSET_TEXTURE_MATRIX_NV: \
-			size = 4; \
-			break; \
-		case GL_CONST_EYE_NV: \
-			size = 3; \
-			break; \
-		default: \
-			size = 1; \
-			break; \
-	} \
-	gl##_name_(target,pname,params); \
-	RET_ARRAY_OR_SINGLE("gl" #_name_, size, RETCONV_##_type_, params); \
+  GLenum target; \
+  GLenum pname; \
+  _type_ params[4] = {(_type_)0.0, (_type_)0.0, (_type_)0.0, (_type_)0.0}; \
+  int size; \
+  target = (GLenum)NUM2INT(arg1); \
+  pname = (GLenum)NUM2INT(arg2); \
+  switch(pname) { \
+    case GL_TEXTURE_ENV_COLOR: \
+    case GL_TEXTURE_ENV_BIAS_SGIX: \
+    case GL_CULL_MODES_NV: \
+    case GL_OFFSET_TEXTURE_MATRIX_NV: \
+      size = 4; \
+      break; \
+    case GL_CONST_EYE_NV: \
+      size = 3; \
+      break; \
+    default: \
+      size = 1; \
+      break; \
+  } \
+  gl##_name_(target,pname,params); \
+  RET_ARRAY_OR_SINGLE("gl" #_name_, size, RETCONV_##_type_, params); \
 }
 
 GETTEXENVFUNC(GetTexEnvfv,GLfloat)
@@ -1770,23 +1770,23 @@ static VALUE \
 gl_##_name_(obj,arg1,arg2) \
 VALUE obj,arg1,arg2; \
 { \
-	GLenum coord; \
-	GLenum pname; \
-	_type_ params[4] = {(_type_)0.0, (_type_)0.0, (_type_)0.0, (_type_)0.0}; \
-	int size; \
-	coord = (GLenum)NUM2INT(arg1); \
-	pname = (GLenum)NUM2INT(arg2); \
-	switch(pname) { \
-		case GL_OBJECT_PLANE: \
-		case GL_EYE_PLANE: \
-			size = 4; \
-			break; \
-		default: \
-			size = 1; \
-			break; \
-	} \
-	gl##_name_(coord,pname,params); \
-	RET_ARRAY_OR_SINGLE("gl" #_name_, size, RETCONV_##_type_, params); \
+  GLenum coord; \
+  GLenum pname; \
+  _type_ params[4] = {(_type_)0.0, (_type_)0.0, (_type_)0.0, (_type_)0.0}; \
+  int size; \
+  coord = (GLenum)NUM2INT(arg1); \
+  pname = (GLenum)NUM2INT(arg2); \
+  switch(pname) { \
+    case GL_OBJECT_PLANE: \
+    case GL_EYE_PLANE: \
+      size = 4; \
+      break; \
+    default: \
+      size = 1; \
+      break; \
+  } \
+  gl##_name_(coord,pname,params); \
+  RET_ARRAY_OR_SINGLE("gl" #_name_, size, RETCONV_##_type_, params); \
 }
 
 GETTEXGENFUNC(GetTexGendv,GLdouble)
@@ -1800,128 +1800,128 @@ int argc;
 VALUE *argv;
 VALUE obj;
 {
-	GLenum tex;
-	GLint lod;
-	GLenum format;
-	GLenum type;
-	GLint width = 0;
-	GLint height = 0;
-	GLint depth = 0;
-	GLint size4d = 0;
-	GLint size;
-	VALUE pixels;
-	VALUE args[5];
-	int numargs;
-	numargs = rb_scan_args(argc, argv, "41", &args[0], &args[1], &args[2], &args[3], &args[4]);
-	tex = (GLenum)NUM2INT(args[0]);
-	lod = (GLint)NUM2INT(args[1]);
-	format = (GLenum)NUM2INT(args[2]);
-	type = (GLenum)NUM2INT(args[3]);
-	switch(numargs) {
-		default:
-		case 4:
-			if (CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
-				rb_raise(rb_eArgError, "Pixel pack buffer bound, but offset argument missing");
-
-			size = 1;
-			switch(tex) {
-				case GL_TEXTURE_4D_SGIS:
-					glGetTexLevelParameteriv(tex,lod,GL_TEXTURE_4DSIZE_SGIS,&size4d);
-					size *= size4d;
-					/* fall through */
-				case GL_TEXTURE_3D:
-				case GL_TEXTURE_1D_STACK_MESAX:
-				case GL_TEXTURE_2D_STACK_MESAX:
-					glGetTexLevelParameteriv(tex,lod,GL_TEXTURE_DEPTH,&depth);
-					size *= depth;
-					/* fall through */
-				case GL_TEXTURE_2D:
-				case GL_TEXTURE_CUBE_MAP_POSITIVE_X:
-				case GL_TEXTURE_CUBE_MAP_POSITIVE_Y:
-				case GL_TEXTURE_CUBE_MAP_POSITIVE_Z:
-				case GL_TEXTURE_CUBE_MAP_NEGATIVE_X:
-				case GL_TEXTURE_CUBE_MAP_NEGATIVE_Y:
-				case GL_TEXTURE_CUBE_MAP_NEGATIVE_Z:
-				case GL_TEXTURE_RECTANGLE_ARB:
-				case GL_DETAIL_TEXTURE_2D_SGIS:
-					glGetTexLevelParameteriv(tex,lod,GL_TEXTURE_HEIGHT,&height);
-					size *= height;
-					/* fall through */
-				case GL_TEXTURE_1D:
-					glGetTexLevelParameteriv(tex,lod,GL_TEXTURE_WIDTH,&width);
-					size *= width;
-					break;
-				default:
-					rb_raise(rb_eArgError, "Target type not supported");
-			}
-			CHECK_GLERROR_FROM("glGetTexLevelParameteriv");
-			pixels = allocate_buffer_with_string(GetDataSize(type,format,size));
-		
-			FORCE_PIXEL_STORE_MODE
-			glGetTexImage(tex,lod,format,type,(GLvoid*)RSTRING_PTR(pixels));
-			RESTORE_PIXEL_STORE_MODE
-			CHECK_GLERROR_FROM("glGetTexImage");
-			return pixels;
-			break;
-		case 5:
-			if (!CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
-				rb_raise(rb_eArgError, "Pixel pack buffer not bound");
-
-			FORCE_PIXEL_STORE_MODE
-			glGetTexImage(tex,lod,format,type,(GLvoid*)NUM2LONG(args[4]));
-			RESTORE_PIXEL_STORE_MODE
-			CHECK_GLERROR_FROM("glGetTexImage");
-		return Qnil;
-	}
+  GLenum tex;
+  GLint lod;
+  GLenum format;
+  GLenum type;
+  GLint width = 0;
+  GLint height = 0;
+  GLint depth = 0;
+  GLint size4d = 0;
+  GLint size;
+  VALUE pixels;
+  VALUE args[5];
+  int numargs;
+  numargs = rb_scan_args(argc, argv, "41", &args[0], &args[1], &args[2], &args[3], &args[4]);
+  tex = (GLenum)NUM2INT(args[0]);
+  lod = (GLint)NUM2INT(args[1]);
+  format = (GLenum)NUM2INT(args[2]);
+  type = (GLenum)NUM2INT(args[3]);
+  switch(numargs) {
+    default:
+    case 4:
+      if (CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
+        rb_raise(rb_eArgError, "Pixel pack buffer bound, but offset argument missing");
+
+      size = 1;
+      switch(tex) {
+        case GL_TEXTURE_4D_SGIS:
+          glGetTexLevelParameteriv(tex,lod,GL_TEXTURE_4DSIZE_SGIS,&size4d);
+          size *= size4d;
+          /* fall through */
+        case GL_TEXTURE_3D:
+        case GL_TEXTURE_1D_STACK_MESAX:
+        case GL_TEXTURE_2D_STACK_MESAX:
+          glGetTexLevelParameteriv(tex,lod,GL_TEXTURE_DEPTH,&depth);
+          size *= depth;
+          /* fall through */
+        case GL_TEXTURE_2D:
+        case GL_TEXTURE_CUBE_MAP_POSITIVE_X:
+        case GL_TEXTURE_CUBE_MAP_POSITIVE_Y:
+        case GL_TEXTURE_CUBE_MAP_POSITIVE_Z:
+        case GL_TEXTURE_CUBE_MAP_NEGATIVE_X:
+        case GL_TEXTURE_CUBE_MAP_NEGATIVE_Y:
+        case GL_TEXTURE_CUBE_MAP_NEGATIVE_Z:
+        case GL_TEXTURE_RECTANGLE_ARB:
+        case GL_DETAIL_TEXTURE_2D_SGIS:
+          glGetTexLevelParameteriv(tex,lod,GL_TEXTURE_HEIGHT,&height);
+          size *= height;
+          /* fall through */
+        case GL_TEXTURE_1D:
+          glGetTexLevelParameteriv(tex,lod,GL_TEXTURE_WIDTH,&width);
+          size *= width;
+          break;
+        default:
+          rb_raise(rb_eArgError, "Target type not supported");
+      }
+      CHECK_GLERROR_FROM("glGetTexLevelParameteriv");
+      pixels = allocate_buffer_with_string(GetDataSize(type,format,size));
+
+      FORCE_PIXEL_STORE_MODE
+      glGetTexImage(tex,lod,format,type,(GLvoid*)RSTRING_PTR(pixels));
+      RESTORE_PIXEL_STORE_MODE
+      CHECK_GLERROR_FROM("glGetTexImage");
+      return pixels;
+      break;
+    case 5:
+      if (!CheckBufferBinding(GL_PIXEL_PACK_BUFFER_BINDING))
+        rb_raise(rb_eArgError, "Pixel pack buffer not bound");
+
+      FORCE_PIXEL_STORE_MODE
+      glGetTexImage(tex,lod,format,type,(GLvoid*)NUM2SIZET(args[4]));
+      RESTORE_PIXEL_STORE_MODE
+      CHECK_GLERROR_FROM("glGetTexImage");
+    return Qnil;
+  }
 }
 
 static VALUE
 gl_GetTexParameterfv(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum target;
-	GLenum pname;
-	GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
-	int size;
-	target = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	switch(pname) {
-		case GL_TEXTURE_BORDER_COLOR:
-		case GL_TEXTURE_BORDER_VALUES_NV:
-		case GL_POST_TEXTURE_FILTER_BIAS_SGIX:
-		case GL_POST_TEXTURE_FILTER_SCALE_SGIX:
-			size = 4;
-			break;
-		default:
-			size = 1;
-			break;
-	}
-	glGetTexParameterfv(target,pname,params);
-	RET_ARRAY_OR_SINGLE("glGetTexParameterfv", size, RETCONV_GLfloat, params);
+  GLenum target;
+  GLenum pname;
+  GLfloat params[4] = {(GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0, (GLfloat)0.0};
+  int size;
+  target = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  switch(pname) {
+    case GL_TEXTURE_BORDER_COLOR:
+    case GL_TEXTURE_BORDER_VALUES_NV:
+    case GL_POST_TEXTURE_FILTER_BIAS_SGIX:
+    case GL_POST_TEXTURE_FILTER_SCALE_SGIX:
+      size = 4;
+      break;
+    default:
+      size = 1;
+      break;
+  }
+  glGetTexParameterfv(target,pname,params);
+  RET_ARRAY_OR_SINGLE("glGetTexParameterfv", size, RETCONV_GLfloat, params);
 }
 
 static VALUE
 gl_GetTexParameteriv(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLenum target;
-	GLenum pname;
-	GLint params[4] = {0,0,0,0};
-	int size;
-	target = (GLenum)NUM2INT(arg1);
-	pname = (GLenum)NUM2INT(arg2);
-	switch(pname) {
-		case GL_TEXTURE_BORDER_COLOR:
-		case GL_TEXTURE_BORDER_VALUES_NV:
-		case GL_POST_TEXTURE_FILTER_BIAS_SGIX:
-		case GL_POST_TEXTURE_FILTER_SCALE_SGIX:
-			size = 4;
-			break;
-		default:
-			size = 1;
-			break;
-	}
-	glGetTexParameteriv(target,pname,params);
+  GLenum target;
+  GLenum pname;
+  GLint params[4] = {0,0,0,0};
+  int size;
+  target = (GLenum)NUM2INT(arg1);
+  pname = (GLenum)NUM2INT(arg2);
+  switch(pname) {
+    case GL_TEXTURE_BORDER_COLOR:
+    case GL_TEXTURE_BORDER_VALUES_NV:
+    case GL_POST_TEXTURE_FILTER_BIAS_SGIX:
+    case GL_POST_TEXTURE_FILTER_SCALE_SGIX:
+      size = 4;
+      break;
+    default:
+      size = 1;
+      break;
+  }
+  glGetTexParameteriv(target,pname,params);
   RET_ARRAY_OR_SINGLE_BOOL("glGetTexParameteriv", size, cond_GLBOOL2RUBY,
       pname, params);
 }
@@ -1930,32 +1930,32 @@ static VALUE
 gl_GetTexLevelParameterfv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum target;
-	GLint level;
-	GLenum pname;
-	GLfloat params = (GLfloat)0.0; 
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	pname = (GLenum)NUM2INT(arg3);
-	glGetTexLevelParameterfv(target,level,pname,&params);
-	CHECK_GLERROR_FROM("glGetTexLevelParameterfv");
-	return RETCONV_GLfloat(params);
+  GLenum target;
+  GLint level;
+  GLenum pname;
+  GLfloat params = (GLfloat)0.0;
+  target = (GLenum)NUM2INT(arg1);
+  level = (GLint)NUM2INT(arg2);
+  pname = (GLenum)NUM2INT(arg3);
+  glGetTexLevelParameterfv(target,level,pname,&params);
+  CHECK_GLERROR_FROM("glGetTexLevelParameterfv");
+  return RETCONV_GLfloat(params);
 }
 
 static VALUE
 gl_GetTexLevelParameteriv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum target;
-	GLint level;
-	GLenum pname;
-	GLint params = 0; 
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	pname = (GLenum)NUM2INT(arg3);
-	glGetTexLevelParameteriv(target,level,pname,&params);
-	CHECK_GLERROR_FROM("glGetTexLevelParameteriv");
-	return cond_GLBOOL2RUBY(pname,params);
+  GLenum target;
+  GLint level;
+  GLenum pname;
+  GLint params = 0;
+  target = (GLenum)NUM2INT(arg1);
+  level = (GLint)NUM2INT(arg2);
+  pname = (GLenum)NUM2INT(arg3);
+  glGetTexLevelParameteriv(target,level,pname,&params);
+  CHECK_GLERROR_FROM("glGetTexLevelParameteriv");
+  return cond_GLBOOL2RUBY(pname,params);
 }
 
 
@@ -1963,53 +1963,53 @@ static VALUE
 gl_LoadMatrixf(obj,arg1)
 VALUE obj,arg1;
 {
-	GLfloat m[4*4];
-	ary2cmatfloat(arg1, m, 4, 4);
-	glLoadMatrixf(m);
-	CHECK_GLERROR_FROM("glLoadMatrixf");
-	return Qnil;
+  GLfloat m[4*4];
+  ary2cmatfloat(arg1, m, 4, 4);
+  glLoadMatrixf(m);
+  CHECK_GLERROR_FROM("glLoadMatrixf");
+  return Qnil;
 }
 
 static VALUE
 gl_LoadMatrixd(obj,arg1)
 VALUE obj,arg1;
 {
-	GLdouble m[4*4];
-	ary2cmatdouble(arg1, m, 4, 4);
-	glLoadMatrixd(m);
-	CHECK_GLERROR_FROM("glLoadMatrixd");
-	return Qnil;
+  GLdouble m[4*4];
+  ary2cmatdouble(arg1, m, 4, 4);
+  glLoadMatrixd(m);
+  CHECK_GLERROR_FROM("glLoadMatrixd");
+  return Qnil;
 }
 
 static VALUE
 gl_MultMatrixf(obj,arg1)
 VALUE obj,arg1;
 {
-	GLfloat m[4*4];
-	ary2cmatfloat(arg1, m, 4, 4);
-	glMultMatrixf(m);
-	CHECK_GLERROR_FROM("glMultMatrixf");
-	return Qnil;
+  GLfloat m[4*4];
+  ary2cmatfloat(arg1, m, 4, 4);
+  glMultMatrixf(m);
+  CHECK_GLERROR_FROM("glMultMatrixf");
+  return Qnil;
 }
 
 static VALUE
 gl_MultMatrixd(obj,arg1)
 VALUE obj,arg1;
 {
-	GLdouble m[4*4];
-	ary2cmatdouble(arg1, m, 4, 4);
-	glMultMatrixd(m);
-	CHECK_GLERROR_FROM("glMultMatrixd");
-	return Qnil;
+  GLdouble m[4*4];
+  ary2cmatdouble(arg1, m, 4, 4);
+  glMultMatrixd(m);
+  CHECK_GLERROR_FROM("glMultMatrixd");
+  return Qnil;
 }
 
 
 static VALUE g_Vertex_ptr;
 static VALUE g_Normal_ptr;
-static VALUE g_Color_ptr; 
-static VALUE g_Index_ptr; 
-static VALUE g_TexCoord_ptr; 
-static VALUE g_EdgeFlag_ptr; 
+static VALUE g_Color_ptr;
+static VALUE g_Index_ptr;
+static VALUE g_TexCoord_ptr;
+static VALUE g_EdgeFlag_ptr;
 VALUE g_FogCoord_ptr; /* OpenGL 1.4 */
 VALUE g_SecondaryColor_ptr; /* OpenGL 1.4 */
 #define POINTER_FUNC(_func_) \
@@ -2017,24 +2017,24 @@ static VALUE \
 gl_##_func_##Pointer(obj, arg1, arg2, arg3, arg4) \
 VALUE obj, arg1, arg2, arg3, arg4; \
 { \
-	GLint size; \
-	GLenum type; \
-	GLsizei stride; \
-	size = (GLint)NUM2INT(arg1); \
-	type = (GLenum)NUM2INT(arg2); \
-	stride = (GLsizei)NUM2UINT(arg3); \
-	if (CheckBufferBinding(GL_ARRAY_BUFFER_BINDING)) { \
-		g_##_func_##_ptr = arg4; \
-		gl##_func_##Pointer(size, type, stride, (const GLvoid*)NUM2LONG(arg4)); \
-	} else { \
-		VALUE data; \
-		data = pack_array_or_pass_string(type,arg4); \
-		rb_str_freeze(data); \
-		g_##_func_##_ptr = data; \
-		gl##_func_##Pointer(size, type, stride, (const GLvoid*)RSTRING_PTR(data)); \
-	} \
-	CHECK_GLERROR_FROM("gl" #_func_ "Pointer"); \
-	return Qnil; \
+  GLint size; \
+  GLenum type; \
+  GLsizei stride; \
+  size = (GLint)NUM2INT(arg1); \
+  type = (GLenum)NUM2INT(arg2); \
+  stride = (GLsizei)NUM2UINT(arg3); \
+  if (CheckBufferBinding(GL_ARRAY_BUFFER_BINDING)) { \
+    g_##_func_##_ptr = arg4; \
+    gl##_func_##Pointer(size, type, stride, (const GLvoid*)NUM2SIZET(arg4)); \
+  } else { \
+    VALUE data; \
+    data = pack_array_or_pass_string(type,arg4); \
+    rb_str_freeze(data); \
+    g_##_func_##_ptr = data; \
+    gl##_func_##Pointer(size, type, stride, (const GLvoid*)RSTRING_PTR(data)); \
+  } \
+  CHECK_GLERROR_FROM("gl" #_func_ "Pointer"); \
+  return Qnil; \
 }
 
 POINTER_FUNC(Vertex)
@@ -2047,135 +2047,135 @@ static VALUE
 gl_DrawElements(obj,arg1,arg2,arg3,arg4)
 VALUE obj,arg1,arg2,arg3,arg4;
 {
-	GLenum mode;
-	GLsizei count;
-	GLenum type;
-	mode = (GLenum)NUM2INT(arg1);
-	count = (GLsizei)NUM2UINT(arg2);
-	type = (GLenum)NUM2INT(arg3);
-	if (CheckBufferBinding(GL_ELEMENT_ARRAY_BUFFER_BINDING)) {
-		glDrawElements(mode, count, type, (const GLvoid*)NUM2LONG(arg4));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(type,arg4);
-		glDrawElements(mode, count, type, (const GLvoid*)RSTRING_PTR(data));
-	}
-	CHECK_GLERROR_FROM("glDrawElements");
-	return Qnil;
+  GLenum mode;
+  GLsizei count;
+  GLenum type;
+  mode = (GLenum)NUM2INT(arg1);
+  count = (GLsizei)NUM2UINT(arg2);
+  type = (GLenum)NUM2INT(arg3);
+  if (CheckBufferBinding(GL_ELEMENT_ARRAY_BUFFER_BINDING)) {
+    glDrawElements(mode, count, type, (const GLvoid*)NUM2SIZET(arg4));
+  } else {
+    VALUE data;
+    data = pack_array_or_pass_string(type,arg4);
+    glDrawElements(mode, count, type, (const GLvoid*)RSTRING_PTR(data));
+  }
+  CHECK_GLERROR_FROM("glDrawElements");
+  return Qnil;
 }
 
 static VALUE
 gl_EdgeFlagPointer(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLsizei stride;
-	stride = (GLsizei)NUM2UINT(arg1);
-	if (CheckBufferBinding(GL_ARRAY_BUFFER_BINDING)) {
-		g_EdgeFlag_ptr = arg2;
-		glEdgeFlagPointer(stride, (const GLvoid*) NUM2LONG(arg2));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg2);
-		rb_str_freeze(data);
-		g_EdgeFlag_ptr = data;
-		glEdgeFlagPointer(stride, (const GLvoid*)RSTRING_PTR(data));
-	}
-	CHECK_GLERROR_FROM("glEdgeFlagPointer");
-	return Qnil;
+  GLsizei stride;
+  stride = (GLsizei)NUM2UINT(arg1);
+  if (CheckBufferBinding(GL_ARRAY_BUFFER_BINDING)) {
+    g_EdgeFlag_ptr = arg2;
+    glEdgeFlagPointer(stride, (const GLvoid*) NUM2SIZET(arg2));
+  } else {
+    VALUE data;
+    data = pack_array_or_pass_string(GL_UNSIGNED_BYTE,arg2);
+    rb_str_freeze(data);
+    g_EdgeFlag_ptr = data;
+    glEdgeFlagPointer(stride, (const GLvoid*)RSTRING_PTR(data));
+  }
+  CHECK_GLERROR_FROM("glEdgeFlagPointer");
+  return Qnil;
 }
 
 static VALUE
 gl_GetPointerv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLenum pname;
-	pname = (GLenum)NUM2INT(arg1);
-	switch (pname) {
-		case GL_VERTEX_ARRAY_POINTER: 
-			return g_Vertex_ptr;
-		case GL_NORMAL_ARRAY_POINTER: 
-			return g_Normal_ptr;
-		case GL_COLOR_ARRAY_POINTER: 
-			return g_Color_ptr;
-		case GL_INDEX_ARRAY_POINTER: 
-			return g_Index_ptr;
-		case GL_TEXTURE_COORD_ARRAY_POINTER: 
-			return g_TexCoord_ptr;
-		case GL_EDGE_FLAG_ARRAY_POINTER: 
-			return g_EdgeFlag_ptr;
-		case GL_FOG_COORD_ARRAY_POINTER:
-			return g_FogCoord_ptr;
-		case GL_SECONDARY_COLOR_ARRAY_POINTER:
-			return g_SecondaryColor_ptr;
-		case GL_FEEDBACK_BUFFER_POINTER:
-			return g_current_feed_buffer;
-		case GL_SELECTION_BUFFER_POINTER:
-			return g_current_sel_buffer;			
-		default:
-			rb_raise(rb_eArgError, "Invalid pname %d",pname);
-			break; /* not reached */
-	}
-	return Qnil;
+  GLenum pname;
+  pname = (GLenum)NUM2INT(arg1);
+  switch (pname) {
+    case GL_VERTEX_ARRAY_POINTER:
+      return g_Vertex_ptr;
+    case GL_NORMAL_ARRAY_POINTER:
+      return g_Normal_ptr;
+    case GL_COLOR_ARRAY_POINTER:
+      return g_Color_ptr;
+    case GL_INDEX_ARRAY_POINTER:
+      return g_Index_ptr;
+    case GL_TEXTURE_COORD_ARRAY_POINTER:
+      return g_TexCoord_ptr;
+    case GL_EDGE_FLAG_ARRAY_POINTER:
+      return g_EdgeFlag_ptr;
+    case GL_FOG_COORD_ARRAY_POINTER:
+      return g_FogCoord_ptr;
+    case GL_SECONDARY_COLOR_ARRAY_POINTER:
+      return g_SecondaryColor_ptr;
+    case GL_FEEDBACK_BUFFER_POINTER:
+      return g_current_feed_buffer;
+    case GL_SELECTION_BUFFER_POINTER:
+      return g_current_sel_buffer;
+    default:
+      rb_raise(rb_eArgError, "Invalid pname %d",pname);
+      break; /* not reached */
+  }
+  return Qnil;
 }
 
 static VALUE
 gl_IndexPointer(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum type;
-	GLsizei stride;
-	type = (GLenum)NUM2INT(arg1);
-	stride = (GLsizei)NUM2UINT(arg2);
-	if (CheckBufferBinding(GL_ARRAY_BUFFER_BINDING)) {
-		g_Index_ptr = arg3;
-		glIndexPointer(type, stride, (const GLvoid*)NUM2LONG(arg3));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(type,arg3);
-		g_Index_ptr = data;
-		glIndexPointer(type, stride, (const GLvoid*)RSTRING_PTR(data));
-	}
-	CHECK_GLERROR_FROM("glIndexPointer");
-	return Qnil;
+  GLenum type;
+  GLsizei stride;
+  type = (GLenum)NUM2INT(arg1);
+  stride = (GLsizei)NUM2UINT(arg2);
+  if (CheckBufferBinding(GL_ARRAY_BUFFER_BINDING)) {
+    g_Index_ptr = arg3;
+    glIndexPointer(type, stride, (const GLvoid*)NUM2SIZET(arg3));
+  } else {
+    VALUE data;
+    data = pack_array_or_pass_string(type,arg3);
+    g_Index_ptr = data;
+    glIndexPointer(type, stride, (const GLvoid*)RSTRING_PTR(data));
+  }
+  CHECK_GLERROR_FROM("glIndexPointer");
+  return Qnil;
 }
 
 static VALUE
 gl_InterleavedArrays(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum format;
-	GLsizei stride;
-	VALUE data;
-	format = (GLenum)NUM2INT(arg1);
-	stride = (GLsizei)NUM2UINT(arg2);
-	/* FIXME: add support for GL_C4UB_V2F,GL_C4UB_V3F, GL_T2F_C4UB_V3 */
-	data = pack_array_or_pass_string(GL_FLOAT,arg3);
-	rb_str_freeze(data);
-	glInterleavedArrays(format, stride, (const GLvoid*)RSTRING_PTR(data));
-	CHECK_GLERROR_FROM("glInterleavedArrays");
-	return Qnil;
+  GLenum format;
+  GLsizei stride;
+  VALUE data;
+  format = (GLenum)NUM2INT(arg1);
+  stride = (GLsizei)NUM2UINT(arg2);
+  /* FIXME: add support for GL_C4UB_V2F,GL_C4UB_V3F, GL_T2F_C4UB_V3 */
+  data = pack_array_or_pass_string(GL_FLOAT,arg3);
+  rb_str_freeze(data);
+  glInterleavedArrays(format, stride, (const GLvoid*)RSTRING_PTR(data));
+  CHECK_GLERROR_FROM("glInterleavedArrays");
+  return Qnil;
 }
 
 static VALUE
 gl_NormalPointer(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	GLenum type;
-	GLsizei stride;
-	type = (GLenum)NUM2INT(arg1);
-	stride = (GLsizei)NUM2UINT(arg2);
-	if (CheckBufferBinding(GL_ARRAY_BUFFER_BINDING)) {
-		g_Normal_ptr = arg3;
-		glNormalPointer(type, stride, (const GLvoid*)NUM2LONG(arg3));
-	} else {
-		VALUE data;
-		data = pack_array_or_pass_string(type,arg3);
-		rb_str_freeze(data);
-		g_Normal_ptr = data;
-		glNormalPointer(type, stride, (const GLvoid*)RSTRING_PTR(data));
-	}
-	CHECK_GLERROR_FROM("glNormalPointer");
-	return Qnil;
+  GLenum type;
+  GLsizei stride;
+  type = (GLenum)NUM2INT(arg1);
+  stride = (GLsizei)NUM2UINT(arg2);
+  if (CheckBufferBinding(GL_ARRAY_BUFFER_BINDING)) {
+    g_Normal_ptr = arg3;
+    glNormalPointer(type, stride, (const GLvoid*)NUM2SIZET(arg3));
+  } else {
+    VALUE data;
+    data = pack_array_or_pass_string(type,arg3);
+    rb_str_freeze(data);
+    g_Normal_ptr = data;
+    glNormalPointer(type, stride, (const GLvoid*)RSTRING_PTR(data));
+  }
+  CHECK_GLERROR_FROM("glNormalPointer");
+  return Qnil;
 }
 
 
@@ -2183,99 +2183,99 @@ static VALUE
 gl_TexSubImage1D(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;
-	GLenum type;
-	VALUE data;
-	target = (GLenum)NUM2INT(arg1);
-	level = (GLint)NUM2INT(arg2);
-	xoffset = (GLint)NUM2INT(arg3);
-	width = (GLsizei)NUM2UINT(arg4);
-	format = (GLenum)NUM2INT(arg5);
-	type = (GLenum)NUM2INT(arg6);
-
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		glTexSubImage1D(target,level,xoffset,width,format,type,(GLvoid *)NUM2LONG(arg7));
-		CHECK_GLERROR_FROM("glTexSubImage1D");
-		return Qnil;
-	}
+  GLenum target;
+  GLint level;
+  GLint xoffset;
+  GLsizei width;
+  GLenum format;
+  GLenum type;
+  VALUE data;
+  target = (GLenum)NUM2INT(arg1);
+  level = (GLint)NUM2INT(arg2);
+  xoffset = (GLint)NUM2INT(arg3);
+  width = (GLsizei)NUM2UINT(arg4);
+  format = (GLenum)NUM2INT(arg5);
+  type = (GLenum)NUM2INT(arg6);
+
+  if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
+    glTexSubImage1D(target,level,xoffset,width,format,type,(GLvoid *)NUM2SIZET(arg7));
+    CHECK_GLERROR_FROM("glTexSubImage1D");
+    return Qnil;
+  }
 
-	data = pack_array_or_pass_string(type,arg7);
-	CheckDataSize(type,format,width,data);
+  data = pack_array_or_pass_string(type,arg7);
+  CheckDataSize(type,format,width,data);
 
-	glTexSubImage1D(target,level,xoffset,width,format,type,RSTRING_PTR(data));
-	CHECK_GLERROR_FROM("glTexSubImage1D");
-	return Qnil;
+  glTexSubImage1D(target,level,xoffset,width,format,type,RSTRING_PTR(data));
+  CHECK_GLERROR_FROM("glTexSubImage1D");
+  return Qnil;
 }
 
 static VALUE
 gl_TexSubImage2D(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;
-	GLenum type;
-	VALUE data;
-	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);
-	type = (GLenum)NUM2INT(arg8);
-
-	if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
-		glTexSubImage2D(target,level,xoffset,yoffset,width,height,format,type,(GLvoid *)NUM2LONG(arg9));
-		CHECK_GLERROR_FROM("glTexSubImage2D");
-		return Qnil;
-	}
-
-	data = pack_array_or_pass_string(type,arg9);
-	CheckDataSize(type,format,width*height,data);
-
-	glTexSubImage2D(target,level,xoffset,yoffset,width,height,format,type,RSTRING_PTR(data));
-	CHECK_GLERROR_FROM("glTexSubImage2D");
-	return Qnil;
+  GLenum target;
+  GLint level;
+  GLint xoffset;
+  GLint yoffset;
+  GLsizei width;
+  GLsizei height;
+  GLenum format;
+  GLenum type;
+  VALUE data;
+  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);
+  type = (GLenum)NUM2INT(arg8);
+
+  if (CheckBufferBinding(GL_PIXEL_UNPACK_BUFFER_BINDING)) {
+    glTexSubImage2D(target,level,xoffset,yoffset,width,height,format,type,(GLvoid *)NUM2SIZET(arg9));
+    CHECK_GLERROR_FROM("glTexSubImage2D");
+    return Qnil;
+  }
+
+  data = pack_array_or_pass_string(type,arg9);
+  CheckDataSize(type,format,width*height,data);
+
+  glTexSubImage2D(target,level,xoffset,yoffset,width,height,format,type,RSTRING_PTR(data));
+  CHECK_GLERROR_FROM("glTexSubImage2D");
+  return Qnil;
 }
 
 static VALUE
 gl_AreTexturesResident(obj,arg1)
 VALUE obj,arg1;
 {
-	GLuint *textures;
-	GLboolean *residences;
-	GLsizei size;
-	GLboolean r;
-	VALUE retary;
-	VALUE ary;
-	int i;
-	ary = rb_Array(arg1);
-	size = (int)RARRAY_LENINT(ary);
-	textures = ALLOC_N(GLuint,size);
-	residences = ALLOC_N(GLboolean,size);
-	ary2cuint(ary,textures,size);	
-	r = glAreTexturesResident(size,textures,residences);
-	retary = rb_ary_new2(size);
-	if (r==GL_TRUE) { /* all are resident */
-		for(i=0;i<size;i++)
-			rb_ary_push(retary, GLBOOL2RUBY(GL_TRUE));
-	} else {
-		for(i=0;i<size;i++)
-			rb_ary_push(retary, GLBOOL2RUBY(residences[i]));
-	}
-	xfree(textures);
-	xfree(residences);
-	CHECK_GLERROR_FROM("glAreTexturesResident");
-	return retary;
+  GLuint *textures;
+  GLboolean *residences;
+  GLsizei size;
+  GLboolean r;
+  VALUE retary;
+  VALUE ary;
+  int i;
+  ary = rb_Array(arg1);
+  size = (int)RARRAY_LENINT(ary);
+  textures = ALLOC_N(GLuint,size);
+  residences = ALLOC_N(GLboolean,size);
+  ary2cuint(ary,textures,size);
+  r = glAreTexturesResident(size,textures,residences);
+  retary = rb_ary_new2(size);
+  if (r==GL_TRUE) { /* all are resident */
+    for(i=0;i<size;i++)
+      rb_ary_push(retary, GLBOOL2RUBY(GL_TRUE));
+  } else {
+    for(i=0;i<size;i++)
+      rb_ary_push(retary, GLBOOL2RUBY(residences[i]));
+  }
+  xfree(textures);
+  xfree(residences);
+  CHECK_GLERROR_FROM("glAreTexturesResident");
+  return retary;
 }
 
 GL_FUNC_GENOBJECTS(GenTextures)
@@ -2285,34 +2285,34 @@ static VALUE
 gl_PrioritizeTextures(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	GLuint *textures;
-	GLclampf *priorities;
-	GLsizei size;
-	Check_Type(arg1,T_ARRAY);
-	Check_Type(arg2,T_ARRAY);
-	if ((size = (GLsizei)RARRAY_LENINT(arg1)) != (GLsizei)RARRAY_LENINT(arg2))
-		rb_raise(rb_eArgError, "passed arrays must have the same length");
-	textures = ALLOC_N(GLuint,size);
-	priorities = ALLOC_N(GLclampf,size);
-	ary2cuint(arg1,textures,size);	
-	ary2cflt(arg2,priorities,size);	
-	glPrioritizeTextures(size,textures,priorities);
-	xfree(textures);
-	xfree(priorities);
-	CHECK_GLERROR_FROM("glPrioritizeTextures");
-	return Qnil;
+  GLuint *textures;
+  GLclampf *priorities;
+  GLsizei size;
+  Check_Type(arg1,T_ARRAY);
+  Check_Type(arg2,T_ARRAY);
+  if ((size = (GLsizei)RARRAY_LENINT(arg1)) != (GLsizei)RARRAY_LENINT(arg2))
+    rb_raise(rb_eArgError, "passed arrays must have the same length");
+  textures = ALLOC_N(GLuint,size);
+  priorities = ALLOC_N(GLclampf,size);
+  ary2cuint(arg1,textures,size);
+  ary2cflt(arg2,priorities,size);
+  glPrioritizeTextures(size,textures,priorities);
+  xfree(textures);
+  xfree(priorities);
+  CHECK_GLERROR_FROM("glPrioritizeTextures");
+  return Qnil;
 }
 
 static VALUE
 gl_Indexubv(obj,arg1)
 VALUE obj,arg1;
 {
-	GLubyte c[1] = {0};
-	Check_Type(arg1,T_ARRAY);
-	ary2cubyte(arg1,c,1);
-	glIndexubv(c);
-	CHECK_GLERROR_FROM("glIndexubv");
-	return Qnil;
+  GLubyte c[1] = {0};
+  Check_Type(arg1,T_ARRAY);
+  ary2cubyte(arg1,c,1);
+  glIndexubv(c);
+  CHECK_GLERROR_FROM("glIndexubv");
+  return Qnil;
 }
 
 
@@ -2325,33 +2325,33 @@ int argc; \
 VALUE *argv; \
 VALUE obj; \
 { \
-	int num; \
-	VALUE args[4]; \
-	VALUE ary; \
-	switch (num = rb_scan_args(argc, argv, "13", &args[0], &args[1], &args[2], &args[3])) { \
-	case 1: \
+  int num; \
+  VALUE args[4]; \
+  VALUE ary; \
+  switch (num = rb_scan_args(argc, argv, "13", &args[0], &args[1], &args[2], &args[3])) { \
+  case 1: \
     ary = rb_convert_type(args[0], T_ARRAY, "Array", "to_a"); \
-		switch (RARRAY_LEN(ary)) { \
-			case 3: \
-			gl_Color3##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
-			break; \
-			case 4: \
-			gl_Color4##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2],RARRAY_PTR(ary)[3]); \
-			break; \
-			default: \
-			rb_raise(rb_eArgError, "array length:%li", RARRAY_LEN(ary)); \
-		} \
-		break; \
-	case 3: \
-		gl_Color3##_type_(obj,args[0], args[1], args[2]); \
-		break; \
-	case 4: \
-		gl_Color4##_type_(obj,args[0], args[1], args[2], args[3]); \
-		break; \
-	default: \
-		rb_raise(rb_eArgError, "arg length:%d", num); \
-	} \
-	return Qnil; \
+    switch (RARRAY_LEN(ary)) { \
+      case 3: \
+      gl_Color3##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
+      break; \
+      case 4: \
+      gl_Color4##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2],RARRAY_PTR(ary)[3]); \
+      break; \
+      default: \
+      rb_raise(rb_eArgError, "array length:%li", RARRAY_LEN(ary)); \
+    } \
+    break; \
+  case 3: \
+    gl_Color3##_type_(obj,args[0], args[1], args[2]); \
+    break; \
+  case 4: \
+    gl_Color4##_type_(obj,args[0], args[1], args[2], args[3]); \
+    break; \
+  default: \
+    rb_raise(rb_eArgError, "arg length:%d", num); \
+  } \
+  return Qnil; \
 }
 
 GLCOLOR_VFUNC(b)
@@ -2371,27 +2371,27 @@ int argc; \
 VALUE *argv; \
 VALUE obj; \
 { \
-	int num; \
-	VALUE args[3]; \
-	VALUE ary; \
-	switch (num = rb_scan_args(argc, argv, "12", &args[0], &args[1], &args[2])) { \
-	case 1: \
+  int num; \
+  VALUE args[3]; \
+  VALUE ary; \
+  switch (num = rb_scan_args(argc, argv, "12", &args[0], &args[1], &args[2])) { \
+  case 1: \
     ary = rb_convert_type(args[0], T_ARRAY, "Array", "to_a"); \
-		switch (RARRAY_LEN(ary)) { \
-			case 3: \
-			gl_Normal3##_type_(obj,RARRAY_PTR(ary)[0], RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
-			break; \
-			default: \
-			rb_raise(rb_eArgError, "array length: %li", RARRAY_LEN(ary)); \
-		} \
-		break; \
-	case 3: \
-		gl_Normal3##_type_(obj,args[0], args[1], args[2]); \
-		break; \
-	default: \
-		rb_raise(rb_eArgError, "arg length:%d",num); \
-	} \
-	return Qnil; \
+    switch (RARRAY_LEN(ary)) { \
+      case 3: \
+      gl_Normal3##_type_(obj,RARRAY_PTR(ary)[0], RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
+      break; \
+      default: \
+      rb_raise(rb_eArgError, "array length: %li", RARRAY_LEN(ary)); \
+    } \
+    break; \
+  case 3: \
+    gl_Normal3##_type_(obj,args[0], args[1], args[2]); \
+    break; \
+  default: \
+    rb_raise(rb_eArgError, "arg length:%d",num); \
+  } \
+  return Qnil; \
 }
 
 GLNORMAL_VFUNC(b)
@@ -2408,39 +2408,39 @@ int argc; \
 VALUE *argv; \
 VALUE obj; \
 { \
-	int num; \
-	VALUE args[4]; \
-	VALUE ary; \
-	switch (num = rb_scan_args(argc, argv, "13", &args[0], &args[1], &args[2], &args[3])) { \
-	case 1: \
+  int num; \
+  VALUE args[4]; \
+  VALUE ary; \
+  switch (num = rb_scan_args(argc, argv, "13", &args[0], &args[1], &args[2], &args[3])) { \
+  case 1: \
     ary = rb_convert_type(args[0], T_ARRAY, "Array", "to_a"); \
-		switch (RARRAY_LEN(ary)) { \
-			case 2: \
-			gl_RasterPos2##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1]); \
-			break; \
-			case 3: \
-			gl_RasterPos3##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
-			break; \
-			case 4: \
-			gl_RasterPos4##_type_(obj,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); \
-		} \
-		break; \
-	case 2: \
-		gl_RasterPos2##_type_(obj,args[0], args[1]); \
-		break; \
-	case 3: \
-		gl_RasterPos3##_type_(obj,args[0], args[1], args[2]); \
-		break; \
-	case 4: \
-		gl_RasterPos4##_type_(obj,args[0], args[1], args[2], args[3]); \
-		break; \
-	default: \
-		rb_raise(rb_eArgError, "too many arguments"); \
-	} \
-	return Qnil; \
+    switch (RARRAY_LEN(ary)) { \
+      case 2: \
+      gl_RasterPos2##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1]); \
+      break; \
+      case 3: \
+      gl_RasterPos3##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
+      break; \
+      case 4: \
+      gl_RasterPos4##_type_(obj,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); \
+    } \
+    break; \
+  case 2: \
+    gl_RasterPos2##_type_(obj,args[0], args[1]); \
+    break; \
+  case 3: \
+    gl_RasterPos3##_type_(obj,args[0], args[1], args[2]); \
+    break; \
+  case 4: \
+    gl_RasterPos4##_type_(obj,args[0], args[1], args[2], args[3]); \
+    break; \
+  default: \
+    rb_raise(rb_eArgError, "too many arguments"); \
+  } \
+  return Qnil; \
 }
 
 GLRASTERPOS_VFUNC(d)
@@ -2456,32 +2456,32 @@ int argc; \
 VALUE *argv; \
 VALUE obj; \
 { \
-	int num; \
-	VALUE args[4]; \
-	VALUE ary1, ary2; \
-	switch (num = rb_scan_args(argc, argv, "22", &args[0], &args[1], &args[2], &args[3])) { \
-	case 2: \
+  int num; \
+  VALUE args[4]; \
+  VALUE ary1, ary2; \
+  switch (num = rb_scan_args(argc, argv, "22", &args[0], &args[1], &args[2], &args[3])) { \
+  case 2: \
     ary1 = rb_convert_type(args[0], T_ARRAY, "Array", "to_a"); \
     ary2 = rb_convert_type(args[1], T_ARRAY, "Array", "to_a"); \
     if (RARRAY_LEN(ary1) != 2) \
-			rb_raise(rb_eArgError, "first array must be of length 2 (was %li)", \
+      rb_raise(rb_eArgError, "first array must be of length 2 (was %li)", \
           RARRAY_LEN(ary1)); \
 \
     if (RARRAY_LEN(ary2) != 2) \
-			rb_raise(rb_eArgError, "second array must be of length 2 (was %li)", \
+      rb_raise(rb_eArgError, "second array must be of length 2 (was %li)", \
           RARRAY_LEN(ary2)); \
 \
     gl_Rect##_type_(obj, \
         RARRAY_PTR(ary1)[0], RARRAY_PTR(ary1)[1], \
         RARRAY_PTR(ary2)[0], RARRAY_PTR(ary2)[1]); \
-		break; \
-	case 4: \
-		gl_Rect##_type_(obj,args[0], args[1], args[2], args[3]); \
-		break; \
-	default: \
-		rb_raise(rb_eArgError, "arg length: %d", num); \
-	} \
-	return Qnil; \
+    break; \
+  case 4: \
+    gl_Rect##_type_(obj,args[0], args[1], args[2], args[3]); \
+    break; \
+  default: \
+    rb_raise(rb_eArgError, "arg length: %d", num); \
+  } \
+  return Qnil; \
 }
 
 GLRECT_VFUNC(d)
@@ -2497,43 +2497,43 @@ int argc; \
 VALUE *argv; \
 VALUE obj; \
 { \
-	int num; \
-	VALUE args[4]; \
-	VALUE ary; \
-	switch (num = rb_scan_args(argc, argv, "13", &args[0], &args[1], &args[2], &args[3])) { \
-	case 1: \
+  int num; \
+  VALUE args[4]; \
+  VALUE ary; \
+  switch (num = rb_scan_args(argc, argv, "13", &args[0], &args[1], &args[2], &args[3])) { \
+  case 1: \
     ary = rb_convert_type(args[0], T_ARRAY, "Array", "to_a"); \
-		switch (RARRAY_LEN(ary)) { \
-			case 1: \
-			gl_TexCoord1##_type_(obj,RARRAY_PTR(ary)[0]); \
-			break; \
-			case 2: \
-			gl_TexCoord2##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1]); \
-			break; \
-			case 3: \
-			gl_TexCoord3##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
-			break; \
-			case 4: \
-			gl_TexCoord4##_type_(obj,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); \
-		} \
-		break; \
-	case 2: \
-		gl_TexCoord2##_type_(obj,args[0], args[1]); \
-		break; \
-	case 3: \
-		gl_TexCoord3##_type_(obj,args[0], args[1], args[2]); \
-		break; \
-	case 4: \
-		gl_TexCoord4##_type_(obj,args[0], args[1], args[2], args[3]); \
-		break; \
-	default: \
-		rb_raise(rb_eArgError, "too many arguments"); \
-		break; \
-	} \
-	return Qnil; \
+    switch (RARRAY_LEN(ary)) { \
+      case 1: \
+      gl_TexCoord1##_type_(obj,RARRAY_PTR(ary)[0]); \
+      break; \
+      case 2: \
+      gl_TexCoord2##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1]); \
+      break; \
+      case 3: \
+      gl_TexCoord3##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
+      break; \
+      case 4: \
+      gl_TexCoord4##_type_(obj,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); \
+    } \
+    break; \
+  case 2: \
+    gl_TexCoord2##_type_(obj,args[0], args[1]); \
+    break; \
+  case 3: \
+    gl_TexCoord3##_type_(obj,args[0], args[1], args[2]); \
+    break; \
+  case 4: \
+    gl_TexCoord4##_type_(obj,args[0], args[1], args[2], args[3]); \
+    break; \
+  default: \
+    rb_raise(rb_eArgError, "too many arguments"); \
+    break; \
+  } \
+  return Qnil; \
 }
 
 GLTEXCOORD_VFUNC(d)
@@ -2549,39 +2549,39 @@ int argc; \
 VALUE *argv; \
 VALUE obj; \
 { \
-	VALUE args[4]; \
-	VALUE ary; \
-	switch (rb_scan_args(argc, argv, "13", &args[0], &args[1], &args[2], &args[3])) { \
-	case 1: \
+  VALUE args[4]; \
+  VALUE ary; \
+  switch (rb_scan_args(argc, argv, "13", &args[0], &args[1], &args[2], &args[3])) { \
+  case 1: \
     ary = rb_convert_type(args[0], T_ARRAY, "Array", "to_a"); \
-		switch (RARRAY_LEN(ary)) { \
-			case 2: \
-			gl_Vertex2##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1]); \
-			break; \
-			case 3: \
-			gl_Vertex3##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
-			break; \
-			case 4: \
-			gl_Vertex4##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2],RARRAY_PTR(ary)[3]); \
-			break; \
-			default: \
-			rb_raise(rb_eRuntimeError, "glVertex vertex num error!: %ld", RARRAY_LEN(ary)); \
-		} \
-		break; \
-	case 2: \
-		gl_Vertex2##_type_(obj,args[0], args[1]); \
-		break; \
-	case 3: \
-		gl_Vertex3##_type_(obj,args[0], args[1], args[2]); \
-		break; \
-	case 4: \
-		gl_Vertex4##_type_(obj,args[0], args[1], args[2], args[3]); \
-		break; \
-	default: \
-		rb_raise(rb_eArgError, "too many arguments"); \
-		break; \
-	} \
-	return Qnil; \
+    switch (RARRAY_LEN(ary)) { \
+      case 2: \
+      gl_Vertex2##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1]); \
+      break; \
+      case 3: \
+      gl_Vertex3##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2]); \
+      break; \
+      case 4: \
+      gl_Vertex4##_type_(obj,RARRAY_PTR(ary)[0],RARRAY_PTR(ary)[1],RARRAY_PTR(ary)[2],RARRAY_PTR(ary)[3]); \
+      break; \
+      default: \
+      rb_raise(rb_eRuntimeError, "glVertex vertex num error!: %ld", RARRAY_LEN(ary)); \
+    } \
+    break; \
+  case 2: \
+    gl_Vertex2##_type_(obj,args[0], args[1]); \
+    break; \
+  case 3: \
+    gl_Vertex3##_type_(obj,args[0], args[1], args[2]); \
+    break; \
+  case 4: \
+    gl_Vertex4##_type_(obj,args[0], args[1], args[2], args[3]); \
+    break; \
+  default: \
+    rb_raise(rb_eArgError, "too many arguments"); \
+    break; \
+  } \
+  return Qnil; \
 }
 
 GLVERTEX_VFUNC(d)
@@ -2596,12 +2596,12 @@ static VALUE
 gl_LightModel(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	if (TYPE(arg2) == T_ARRAY)
-		gl_LightModelfv(obj,arg1,arg2);
-	else
-		gl_LightModelf(obj,arg1,arg2);
+  if (TYPE(arg2) == T_ARRAY)
+    gl_LightModelfv(obj,arg1,arg2);
+  else
+    gl_LightModelf(obj,arg1,arg2);
 
-	return Qnil; 
+  return Qnil;
 }
 
 static VALUE
@@ -2609,467 +2609,467 @@ gl_Material(VALUE self, VALUE face, VALUE pname, VALUE param)
 {
   VALUE ary;
 
-	if (RB_TYPE_P(param, T_ARRAY)) {
-		gl_Materialfv(self, face, pname, param);
-  } else if (ary = rb_convert_type(param, T_ARRAY, "Array", "to_a")) {
-		gl_Materialfv(self, face, pname, ary);
+  if (RB_TYPE_P(param, T_ARRAY)) {
+    gl_Materialfv(self, face, pname, param);
+  } else if (rb_respond_to(param, rb_intern("to_a")) && (ary = rb_convert_type(param, T_ARRAY, "Array", "to_a"))) {
+    gl_Materialfv(self, face, pname, ary);
   } else {
-		gl_Materialf(self, face, pname, param);
+    gl_Materialf(self, face, pname, param);
   }
 
-	return Qnil;
+  return Qnil;
 }
 
 static VALUE
 gl_Fog(obj,arg1,arg2)
 VALUE obj,arg1,arg2;
 {
-	if (TYPE(arg2) == T_ARRAY)
-		gl_Fogfv(obj,arg1,arg2);
-	else
-		gl_Fogf(obj,arg1,arg2);
+  if (TYPE(arg2) == T_ARRAY)
+    gl_Fogfv(obj,arg1,arg2);
+  else
+    gl_Fogf(obj,arg1,arg2);
 
-	return Qnil; 
+  return Qnil;
 }
 
 static VALUE
 gl_Light(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	if (TYPE(arg3) == T_ARRAY)
-		gl_Lightfv(obj,arg1,arg2,arg3);
-	else
-		gl_Lightf(obj,arg1,arg2,arg3);
+  if (TYPE(arg3) == T_ARRAY)
+    gl_Lightfv(obj,arg1,arg2,arg3);
+  else
+    gl_Lightf(obj,arg1,arg2,arg3);
 
-	return Qnil; 
+  return Qnil;
 }
 
 static VALUE
 gl_TexParameter(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	if (TYPE(arg3) == T_ARRAY)
-		gl_TexParameterfv(obj,arg1,arg2,arg3);
-	else
-		gl_TexParameterf(obj,arg1,arg2,arg3);
+  if (TYPE(arg3) == T_ARRAY)
+    gl_TexParameterfv(obj,arg1,arg2,arg3);
+  else
+    gl_TexParameterf(obj,arg1,arg2,arg3);
 
-	return Qnil; 
+  return Qnil;
 }
 
 static VALUE
 gl_TexEnv(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	if (TYPE(arg3) == T_ARRAY)
-		gl_TexEnvfv(obj,arg1,arg2,arg3);
-	else
-		gl_TexEnvf(obj,arg1,arg2,arg3);
+  if (TYPE(arg3) == T_ARRAY)
+    gl_TexEnvfv(obj,arg1,arg2,arg3);
+  else
+    gl_TexEnvf(obj,arg1,arg2,arg3);
 
-	return Qnil; 
+  return Qnil;
 }
 
 static VALUE
 gl_TexGen(obj,arg1,arg2,arg3)
 VALUE obj,arg1,arg2,arg3;
 {
-	if (TYPE(arg3) == T_ARRAY)
-		gl_TexGenfv(obj,arg1,arg2,arg3);
-	else
-		gl_TexGenf(obj,arg1,arg2,arg3);
+  if (TYPE(arg3) == T_ARRAY)
+    gl_TexGenfv(obj,arg1,arg2,arg3);
+  else
+    gl_TexGenf(obj,arg1,arg2,arg3);
 
-	return Qnil; 
+  return Qnil;
 }
 
 /* init */
 void gl_init_functions_1_0__1_1(VALUE module)
 {
-	g_FogCoord_ptr = 0; /* for use in gl-1.4.c */
-	g_SecondaryColor_ptr = 0; /* for use in gl-1.4.c */
-
-	/* OpenGL 1.0 functions */
-	rb_define_module_function(module, "glNewList", gl_NewList, 2);
-	rb_define_module_function(module, "glEndList", gl_EndList, 0);
-	rb_define_module_function(module, "glCallList", gl_CallList, 1);
-	rb_define_module_function(module, "glCallLists", gl_CallLists, 2);
-	rb_define_module_function(module, "glDeleteLists", gl_DeleteLists, 2);
-	rb_define_module_function(module, "glGenLists", gl_GenLists, 1);
-	rb_define_module_function(module, "glListBase", gl_ListBase, 1);
-	rb_define_module_function(module, "glBegin", gl_Begin, 1);
-	rb_define_module_function(module, "glBitmap", gl_Bitmap, 7);
-	rb_define_module_function(module, "glColor3b", gl_Color3b, 3);
-	rb_define_module_function(module, "glColor3d", gl_Color3d, 3);
-	rb_define_module_function(module, "glColor3f", gl_Color3f, 3);
-	rb_define_module_function(module, "glColor3i", gl_Color3i, 3);
-	rb_define_module_function(module, "glColor3s", gl_Color3s, 3);
-	rb_define_module_function(module, "glColor3ub", gl_Color3ub, 3);
-	rb_define_module_function(module, "glColor3ui", gl_Color3ui, 3);
-	rb_define_module_function(module, "glColor3us", gl_Color3us, 3);
-	rb_define_module_function(module, "glColor4b", gl_Color4b, 4);
-	rb_define_module_function(module, "glColor4d", gl_Color4d, 4);
-	rb_define_module_function(module, "glColor4f", gl_Color4f, 4);
-	rb_define_module_function(module, "glColor4i", gl_Color4i, 4);
-	rb_define_module_function(module, "glColor4s", gl_Color4s, 4);
-	rb_define_module_function(module, "glColor4ub", gl_Color4ub, 4);
-	rb_define_module_function(module, "glColor4ui", gl_Color4ui, 4);
-	rb_define_module_function(module, "glColor4us", gl_Color4us, 4);
-	rb_define_module_function(module, "glEdgeFlag", gl_EdgeFlag, 1);
-	rb_define_module_function(module, "glEdgeFlagv", gl_EdgeFlagv, 1);
-	rb_define_module_function(module, "glEnd", gl_End, 0);
-	rb_define_module_function(module, "glIndexd", gl_Indexd, 1);
-	rb_define_module_function(module, "glIndexdv", gl_Indexdv, 1);
-	rb_define_module_function(module, "glIndexf", gl_Indexf, 1);
-	rb_define_module_function(module, "glIndexfv", gl_Indexfv, 1);
-	rb_define_module_function(module, "glIndexi", gl_Indexi, 1);
-	rb_define_module_function(module, "glIndexiv", gl_Indexiv, 1);
-	rb_define_module_function(module, "glIndexs", gl_Indexs, 1);
-	rb_define_module_function(module, "glIndexsv", gl_Indexsv, 1);
-	rb_define_module_function(module, "glNormal3b", gl_Normal3b, 3);
-	rb_define_module_function(module, "glNormal3d", gl_Normal3d, 3);
-	rb_define_module_function(module, "glNormal3f", gl_Normal3f, 3);
-	rb_define_module_function(module, "glNormal3i", gl_Normal3i, 3);
-	rb_define_module_function(module, "glNormal3s", gl_Normal3s, 3);
-	rb_define_module_function(module, "glRasterPos2d", gl_RasterPos2d, 2);
-	rb_define_module_function(module, "glRasterPos2f", gl_RasterPos2f, 2);
-	rb_define_module_function(module, "glRasterPos2i", gl_RasterPos2i, 2);
-	rb_define_module_function(module, "glRasterPos2s", gl_RasterPos2s, 2);
-	rb_define_module_function(module, "glRasterPos3d", gl_RasterPos3d, 3);
-	rb_define_module_function(module, "glRasterPos3f", gl_RasterPos3f, 3);
-	rb_define_module_function(module, "glRasterPos3i", gl_RasterPos3i, 3);
-	rb_define_module_function(module, "glRasterPos3s", gl_RasterPos3s, 3);
-	rb_define_module_function(module, "glRasterPos4d", gl_RasterPos4d, 4);
-	rb_define_module_function(module, "glRasterPos4f", gl_RasterPos4f, 4);
-	rb_define_module_function(module, "glRasterPos4i", gl_RasterPos4i, 4);
-	rb_define_module_function(module, "glRasterPos4s", gl_RasterPos4s, 4);
-	rb_define_module_function(module, "glRectd", gl_Rectd, 4);
-	rb_define_module_function(module, "glRectf", gl_Rectf, 4);
-	rb_define_module_function(module, "glRecti", gl_Recti, 4);
-	rb_define_module_function(module, "glRects", gl_Rects, 4);
-	rb_define_module_function(module, "glTexCoord1d", gl_TexCoord1d, 1);
-	rb_define_module_function(module, "glTexCoord1f", gl_TexCoord1f, 1);
-	rb_define_module_function(module, "glTexCoord1i", gl_TexCoord1i, 1);
-	rb_define_module_function(module, "glTexCoord1s", gl_TexCoord1s, 1);
-	rb_define_module_function(module, "glTexCoord2d", gl_TexCoord2d, 2);
-	rb_define_module_function(module, "glTexCoord2f", gl_TexCoord2f, 2);
-	rb_define_module_function(module, "glTexCoord2i", gl_TexCoord2i, 2);
-	rb_define_module_function(module, "glTexCoord2s", gl_TexCoord2s, 2);
-	rb_define_module_function(module, "glTexCoord3d", gl_TexCoord3d, 3);
-	rb_define_module_function(module, "glTexCoord3f", gl_TexCoord3f, 3);
-	rb_define_module_function(module, "glTexCoord3i", gl_TexCoord3i, 3);
-	rb_define_module_function(module, "glTexCoord3s", gl_TexCoord3s, 3);
-	rb_define_module_function(module, "glTexCoord4d", gl_TexCoord4d, 4);
-	rb_define_module_function(module, "glTexCoord4f", gl_TexCoord4f, 4);
-	rb_define_module_function(module, "glTexCoord4i", gl_TexCoord4i, 4);
-	rb_define_module_function(module, "glTexCoord4s", gl_TexCoord4s, 4);
-	rb_define_module_function(module, "glVertex2d", gl_Vertex2d, 2);
-	rb_define_module_function(module, "glVertex2f", gl_Vertex2f, 2);
-	rb_define_module_function(module, "glVertex2i", gl_Vertex2i, 2);
-	rb_define_module_function(module, "glVertex2s", gl_Vertex2s, 2);
-	rb_define_module_function(module, "glVertex3d", gl_Vertex3d, 3);
-	rb_define_module_function(module, "glVertex3f", gl_Vertex3f, 3);
-	rb_define_module_function(module, "glVertex3i", gl_Vertex3i, 3);
-	rb_define_module_function(module, "glVertex3s", gl_Vertex3s, 3);
-	rb_define_module_function(module, "glVertex4d", gl_Vertex4d, 4);
-	rb_define_module_function(module, "glVertex4f", gl_Vertex4f, 4);
-	rb_define_module_function(module, "glVertex4i", gl_Vertex4i, 4);
-	rb_define_module_function(module, "glVertex4s", gl_Vertex4s, 4);
-	rb_define_module_function(module, "glClipPlane", gl_ClipPlane, 2);
-	rb_define_module_function(module, "glColorMaterial", gl_ColorMaterial, 2);
-	rb_define_module_function(module, "glCullFace", gl_CullFace, 1);
-	rb_define_module_function(module, "glFogf", gl_Fogf, 2);
-	rb_define_module_function(module, "glFogfv", gl_Fogfv, 2);
-	rb_define_module_function(module, "glFogi", gl_Fogi, 2);
-	rb_define_module_function(module, "glFogiv", gl_Fogiv, 2);
-	rb_define_module_function(module, "glFrontFace", gl_FrontFace, 1);
-	rb_define_module_function(module, "glHint", gl_Hint, 2);
-	rb_define_module_function(module, "glLightf", gl_Lightf, 3);
-	rb_define_module_function(module, "glLightfv", gl_Lightfv, 3);
-	rb_define_module_function(module, "glLighti", gl_Lighti, 3);
-	rb_define_module_function(module, "glLightiv", gl_Lightiv, 3);
-	rb_define_module_function(module, "glLightModelf", gl_LightModelf, 2);
-	rb_define_module_function(module, "glLightModelfv", gl_LightModelfv, 2);
-	rb_define_module_function(module, "glLightModeli", gl_LightModeli, 2);
-	rb_define_module_function(module, "glLightModeliv", gl_LightModeliv, 2);
-	rb_define_module_function(module, "glLineStipple", gl_LineStipple, 2);
-	rb_define_module_function(module, "glLineWidth", gl_LineWidth, 1);
-	rb_define_module_function(module, "glMaterialf", gl_Materialf, 3);
-	rb_define_module_function(module, "glMaterialfv", gl_Materialfv, 3);
-	rb_define_module_function(module, "glMateriali", gl_Materiali, 3);
-	rb_define_module_function(module, "glMaterialiv", gl_Materialiv, 3);
-	rb_define_module_function(module, "glPointSize", gl_PointSize, 1);
-	rb_define_module_function(module, "glPolygonMode", gl_PolygonMode, 2);
-	rb_define_module_function(module, "glPolygonStipple", gl_PolygonStipple, 1);
-	rb_define_module_function(module, "glScissor", gl_Scissor, 4);
-	rb_define_module_function(module, "glShadeModel", gl_ShadeModel, 1);
-	rb_define_module_function(module, "glTexParameterf", gl_TexParameterf, 3);
-	rb_define_module_function(module, "glTexParameterfv", gl_TexParameterfv, 3);
-	rb_define_module_function(module, "glTexParameteri", gl_TexParameteri, 3);
-	rb_define_module_function(module, "glTexParameteriv", gl_TexParameteriv, 3);
-	rb_define_module_function(module, "glTexImage1D", gl_TexImage1D, 8);
-	rb_define_module_function(module, "glTexImage2D", gl_TexImage2D, 9);
-	rb_define_module_function(module, "glTexEnvf", gl_TexEnvf, 3);
-	rb_define_module_function(module, "glTexEnvfv", gl_TexEnvfv, 3);
-	rb_define_module_function(module, "glTexEnvi", gl_TexEnvi, 3);
-	rb_define_module_function(module, "glTexEnviv", gl_TexEnviv, 3);
-	rb_define_module_function(module, "glTexGend", gl_TexGend, 3);
-	rb_define_module_function(module, "glTexGendv", gl_TexGendv, 3);
-	rb_define_module_function(module, "glTexGenf", gl_TexGenf, 3);
-	rb_define_module_function(module, "glTexGenfv", gl_TexGenfv, 3);
-	rb_define_module_function(module, "glTexGeni", gl_TexGeni, 3);
-	rb_define_module_function(module, "glTexGeniv", gl_TexGeniv, 3);
-	rb_define_module_function(module, "glFeedbackBuffer", gl_FeedbackBuffer, 2);
-	rb_define_module_function(module, "glSelectBuffer", gl_SelectBuffer, 1);
-	rb_define_module_function(module, "glRenderMode", gl_RenderMode, 1);
-	rb_define_module_function(module, "glInitNames", gl_InitNames, 0);
-	rb_define_module_function(module, "glLoadName", gl_LoadName, 1);
-	rb_define_module_function(module, "glPassThrough", gl_PassThrough, 1);
-	rb_define_module_function(module, "glPopName", gl_PopName, 0);
-	rb_define_module_function(module, "glPushName", gl_PushName, 1);
-	rb_define_module_function(module, "glDrawBuffer", gl_DrawBuffer, 1);
-	rb_define_module_function(module, "glClear", gl_Clear, 1);
-	rb_define_module_function(module, "glClearAccum", gl_ClearAccum, 4);
-	rb_define_module_function(module, "glClearIndex", gl_ClearIndex, 1);
-	rb_define_module_function(module, "glClearColor", gl_ClearColor, 4);
-	rb_define_module_function(module, "glClearStencil", gl_ClearStencil, 1);
-	rb_define_module_function(module, "glClearDepth", gl_ClearDepth, 1);
-	rb_define_module_function(module, "glStencilMask", gl_StencilMask, 1);
-	rb_define_module_function(module, "glColorMask", gl_ColorMask, 4);
-	rb_define_module_function(module, "glDepthMask", gl_DepthMask, 1);
-	rb_define_module_function(module, "glIndexMask", gl_IndexMask, 1);
-	rb_define_module_function(module, "glAccum", gl_Accum, 2);
-	rb_define_module_function(module, "glDisable", gl_Disable, -1);
-	rb_define_module_function(module, "glEnable", gl_Enable, -1);
-	rb_define_module_function(module, "glFinish", gl_Finish, 0);
-	rb_define_module_function(module, "glFlush", gl_Flush, 0);
-	rb_define_module_function(module, "glPopAttrib", gl_PopAttrib, 0);
-	rb_define_module_function(module, "glPushAttrib", gl_PushAttrib, 1);
-	rb_define_module_function(module, "glMap1d", gl_Map1d, 6);
-	rb_define_module_function(module, "glMap1f", gl_Map1f, 6);
-	rb_define_module_function(module, "glMap2d", gl_Map2d, 10);
-	rb_define_module_function(module, "glMap2f", gl_Map2f, 10);
-	rb_define_module_function(module, "glMapGrid1d", gl_MapGrid1d, 3);
-	rb_define_module_function(module, "glMapGrid1f", gl_MapGrid1f, 3);
-	rb_define_module_function(module, "glMapGrid2d", gl_MapGrid2d, 6);
-	rb_define_module_function(module, "glMapGrid2f", gl_MapGrid2f, 6);
-	rb_define_module_function(module, "glEvalCoord1d", gl_EvalCoord1d, 1);
-	rb_define_module_function(module, "glEvalCoord1dv", gl_EvalCoord1dv, 1);
-	rb_define_module_function(module, "glEvalCoord1f", gl_EvalCoord1f, 1);
-	rb_define_module_function(module, "glEvalCoord1fv", gl_EvalCoord1fv, 1);
-	rb_define_module_function(module, "glEvalCoord2d", gl_EvalCoord2d, 2);
-	rb_define_module_function(module, "glEvalCoord2dv", gl_EvalCoord2dv, 1);
-	rb_define_module_function(module, "glEvalCoord2f", gl_EvalCoord2f, 2);
-	rb_define_module_function(module, "glEvalCoord2fv", gl_EvalCoord2fv, 1);
-	rb_define_module_function(module, "glEvalMesh1", gl_EvalMesh1, 3);
-	rb_define_module_function(module, "glEvalPoint1", gl_EvalPoint1, 1);
-	rb_define_module_function(module, "glEvalMesh2", gl_EvalMesh2, 5);
-	rb_define_module_function(module, "glEvalPoint2", gl_EvalPoint2, 2);
-	rb_define_module_function(module, "glAlphaFunc", gl_AlphaFunc, 2);
-	rb_define_module_function(module, "glBlendFunc", gl_BlendFunc, 2);
-	rb_define_module_function(module, "glLogicOp", gl_LogicOp, 1);
-	rb_define_module_function(module, "glStencilFunc", gl_StencilFunc, 3);
-	rb_define_module_function(module, "glStencilOp", gl_StencilOp, 3);
-	rb_define_module_function(module, "glDepthFunc", gl_DepthFunc, 1);
-	rb_define_module_function(module, "glPixelZoom", gl_PixelZoom, 2);
-	rb_define_module_function(module, "glPixelTransferf", gl_PixelTransferf, 2);
-	rb_define_module_function(module, "glPixelTransferi", gl_PixelTransferi, 2);
-	rb_define_module_function(module, "glPixelStoref", gl_PixelStoref, 2);
-	rb_define_module_function(module, "glPixelStorei", gl_PixelStorei, 2);
-	rb_define_module_function(module, "glPixelMapfv", gl_PixelMapfv, -1);
-	rb_define_module_function(module, "glPixelMapuiv", gl_PixelMapuiv, -1);
-	rb_define_module_function(module, "glPixelMapusv", gl_PixelMapusv, -1);
-	rb_define_module_function(module, "glReadBuffer", gl_ReadBuffer, 1);
-	rb_define_module_function(module, "glCopyPixels", gl_CopyPixels, 5);
-	rb_define_module_function(module, "glReadPixels", gl_ReadPixels, -1);
-	rb_define_module_function(module, "glDrawPixels", gl_DrawPixels, 5);
-	rb_define_module_function(module, "glGetBooleanv", gl_GetBooleanv, 1);
-	rb_define_module_function(module, "glGetClipPlane", gl_GetClipPlane, 1);
-	rb_define_module_function(module, "glGetDoublev", gl_GetDoublev, 1);
-	rb_define_module_function(module, "glGetError", gl_GetError, 0);
-	rb_define_module_function(module, "glGetFloatv", gl_GetFloatv, 1);
-	rb_define_module_function(module, "glGetIntegerv", gl_GetIntegerv, 1);
-	rb_define_module_function(module, "glGetLightfv", gl_GetLightfv, 2);
-	rb_define_module_function(module, "glGetLightiv", gl_GetLightiv, 2);
-	rb_define_module_function(module, "glGetMapdv", gl_GetMapdv, 2);
-	rb_define_module_function(module, "glGetMapfv", gl_GetMapfv, 2); 
-	rb_define_module_function(module, "glGetMapiv", gl_GetMapiv, 2);
-	rb_define_module_function(module, "glGetMaterialfv", gl_GetMaterialfv, 2);
-	rb_define_module_function(module, "glGetMaterialiv", gl_GetMaterialiv, 2);
-	rb_define_module_function(module, "glGetPixelMapfv", gl_GetPixelMapfv, -1);
-	rb_define_module_function(module, "glGetPixelMapuiv", gl_GetPixelMapuiv, -1);
-	rb_define_module_function(module, "glGetPixelMapusv", gl_GetPixelMapusv, -1);
-	rb_define_module_function(module, "glGetPolygonStipple", gl_GetPolygonStipple, -1);
-	rb_define_module_function(module, "glGetString", gl_GetString, 1);
-	rb_define_module_function(module, "glGetTexEnvfv", gl_GetTexEnvfv, 2);
-	rb_define_module_function(module, "glGetTexEnviv", gl_GetTexEnviv, 2);
-	rb_define_module_function(module, "glGetTexGendv", gl_GetTexGendv, 2);
-	rb_define_module_function(module, "glGetTexGenfv", gl_GetTexGenfv, 2);
-	rb_define_module_function(module, "glGetTexGeniv", gl_GetTexGeniv, 2);
-	rb_define_module_function(module, "glGetTexImage", gl_GetTexImage, -1); 
-	rb_define_module_function(module, "glGetTexParameterfv", gl_GetTexParameterfv, 2);
-	rb_define_module_function(module, "glGetTexParameteriv", gl_GetTexParameteriv, 2);
-	rb_define_module_function(module, "glGetTexLevelParameterfv", gl_GetTexLevelParameterfv, 3);
-	rb_define_module_function(module, "glGetTexLevelParameteriv", gl_GetTexLevelParameteriv, 3);
-	rb_define_module_function(module, "glIsEnabled", gl_IsEnabled, 1);
-	rb_define_module_function(module, "glIsList", gl_IsList, 1);
-	rb_define_module_function(module, "glDepthRange", gl_DepthRange, 2);
-	rb_define_module_function(module, "glFrustum", gl_Frustum, 6);
-	rb_define_module_function(module, "glLoadIdentity", gl_LoadIdentity, 0);
-	rb_define_module_function(module, "glLoadMatrixf", gl_LoadMatrixf, 1);
-	rb_define_module_function(module, "glLoadMatrixd", gl_LoadMatrixd, 1);
-	rb_define_module_function(module, "glMatrixMode", gl_MatrixMode, 1);
-	rb_define_module_function(module, "glMultMatrixf", gl_MultMatrixf, 1);
-	rb_define_module_function(module, "glMultMatrixd", gl_MultMatrixd, 1);
-	rb_define_module_function(module, "glOrtho", gl_Ortho, 6);
-	rb_define_module_function(module, "glPopMatrix", gl_PopMatrix, 0);
-	rb_define_module_function(module, "glPushMatrix", gl_PushMatrix, 0);
-	rb_define_module_function(module, "glRotated", gl_Rotated, 4);
-	rb_define_module_function(module, "glRotatef", gl_Rotatef, 4);
-	rb_define_module_function(module, "glScaled", gl_Scaled, 3);
-	rb_define_module_function(module, "glScalef", gl_Scalef, 3);
-	rb_define_module_function(module, "glTranslated", gl_Translated, 3);
-	rb_define_module_function(module, "glTranslatef", gl_Translatef, 3);
-	rb_define_module_function(module, "glViewport", gl_Viewport, 4);
-
-	/* OpenGL 1.1 functions */
-	rb_define_module_function(module, "glArrayElement", gl_ArrayElement, 1);
-	rb_define_module_function(module, "glColorPointer", gl_ColorPointer, 4);
-	rb_define_module_function(module, "glDisableClientState", gl_DisableClientState, -1);
-	rb_define_module_function(module, "glDrawArrays", gl_DrawArrays, 3);
-	rb_define_module_function(module, "glDrawElements", gl_DrawElements, 4);
-	rb_define_module_function(module, "glEdgeFlagPointer", gl_EdgeFlagPointer, 2);
-	rb_define_module_function(module, "glEnableClientState", gl_EnableClientState, -1);
-	rb_define_module_function(module, "glGetPointerv", gl_GetPointerv, 1);
-	rb_define_module_function(module, "glIndexPointer", gl_IndexPointer, 3);
-	rb_define_module_function(module, "glInterleavedArrays", gl_InterleavedArrays, 3);
-	rb_define_module_function(module, "glNormalPointer", gl_NormalPointer, 3);
-	rb_define_module_function(module, "glTexCoordPointer", gl_TexCoordPointer, 4);
-	rb_define_module_function(module, "glVertexPointer", gl_VertexPointer, 4);
-	rb_define_module_function(module, "glPolygonOffset", gl_PolygonOffset, 2);
-	rb_define_module_function(module, "glCopyTexImage1D", gl_CopyTexImage1D, 7);
-	rb_define_module_function(module, "glCopyTexImage2D", gl_CopyTexImage2D, 8);
-	rb_define_module_function(module, "glCopyTexSubImage1D", gl_CopyTexSubImage1D, 6);
-	rb_define_module_function(module, "glCopyTexSubImage2D", gl_CopyTexSubImage2D, 8);
-	rb_define_module_function(module, "glTexSubImage1D", gl_TexSubImage1D, 7);
-	rb_define_module_function(module, "glTexSubImage2D", gl_TexSubImage2D, 9);
-	rb_define_module_function(module, "glAreTexturesResident", gl_AreTexturesResident, 1);
-	rb_define_module_function(module, "glBindTexture", gl_BindTexture, 2);
-	rb_define_module_function(module, "glDeleteTextures", gl_DeleteTextures, 1);
-	rb_define_module_function(module, "glGenTextures", gl_GenTextures, 1);
-	rb_define_module_function(module, "glIsTexture", gl_IsTexture, 1);
-	rb_define_module_function(module, "glPrioritizeTextures", gl_PrioritizeTextures, 2);
-	rb_define_module_function(module, "glIndexub", gl_Indexub, 1);
-	rb_define_module_function(module, "glIndexubv", gl_Indexubv, 1);
-	rb_define_module_function(module, "glPopClientAttrib", gl_PopClientAttrib, 0);
-	rb_define_module_function(module, "glPushClientAttrib", gl_PushClientAttrib, 1);
-	
-	/* additional functions */
-	rb_define_module_function(module, "glColor", gl_Colordv, -1);
-	rb_define_module_function(module, "glColor3bv", gl_Colorbv, -1);
-	rb_define_module_function(module, "glColor3dv", gl_Colordv, -1);
-	rb_define_module_function(module, "glColor3fv", gl_Colorfv, -1);
-	rb_define_module_function(module, "glColor3iv", gl_Coloriv, -1);
-	rb_define_module_function(module, "glColor3sv", gl_Colorsv, -1);
-	rb_define_module_function(module, "glColor3ubv", gl_Colorubv, -1);
-	rb_define_module_function(module, "glColor3uiv", gl_Coloruiv, -1);
-	rb_define_module_function(module, "glColor3usv", gl_Colorusv, -1);
-	rb_define_module_function(module, "glColor4bv", gl_Colorbv, -1);
-	rb_define_module_function(module, "glColor4dv", gl_Colordv, -1);
-	rb_define_module_function(module, "glColor4fv", gl_Colorfv, -1);
-	rb_define_module_function(module, "glColor4iv", gl_Coloriv, -1);
-	rb_define_module_function(module, "glColor4sv", gl_Colorsv, -1);
-	rb_define_module_function(module, "glColor4ubv", gl_Colorubv, -1);
-	rb_define_module_function(module, "glColor4uiv", gl_Coloruiv, -1);
-	rb_define_module_function(module, "glColor4usv", gl_Colorusv, -1);
-
-	rb_define_module_function(module, "glNormal", gl_Normaldv, -1);
-	rb_define_module_function(module, "glNormal3bv", gl_Normalbv, -1);
-	rb_define_module_function(module, "glNormal3dv", gl_Normaldv, -1);
-	rb_define_module_function(module, "glNormal3fv", gl_Normalfv, -1);
-	rb_define_module_function(module, "glNormal3iv", gl_Normaliv, -1);
-	rb_define_module_function(module, "glNormal3sv", gl_Normalsv, -1);
-
-	rb_define_module_function(module, "glRasterPos", gl_RasterPosdv, -1);
-	rb_define_module_function(module, "glRasterPos2dv", gl_RasterPosdv, -1);
-	rb_define_module_function(module, "glRasterPos2fv", gl_RasterPosfv, -1);
-	rb_define_module_function(module, "glRasterPos2iv", gl_RasterPosiv, -1);
-	rb_define_module_function(module, "glRasterPos2sv", gl_RasterPossv, -1);
-	rb_define_module_function(module, "glRasterPos3dv", gl_RasterPosdv, -1);
-	rb_define_module_function(module, "glRasterPos3fv", gl_RasterPosfv, -1);
-	rb_define_module_function(module, "glRasterPos3iv", gl_RasterPosiv, -1);
-	rb_define_module_function(module, "glRasterPos3sv", gl_RasterPossv, -1);
-	rb_define_module_function(module, "glRasterPos4dv", gl_RasterPosdv, -1);
-	rb_define_module_function(module, "glRasterPos4fv", gl_RasterPosfv, -1);
-	rb_define_module_function(module, "glRasterPos4iv", gl_RasterPosiv, -1);
-	rb_define_module_function(module, "glRasterPos4sv", gl_RasterPossv, -1);
-
-	rb_define_module_function(module, "glRect", gl_Rectdv, -1);
-	rb_define_module_function(module, "glRectdv", gl_Rectdv, -1);
-	rb_define_module_function(module, "glRectfv", gl_Rectfv, -1);
-	rb_define_module_function(module, "glRectiv", gl_Rectiv, -1);
-	rb_define_module_function(module, "glRectsv", gl_Rectsv, -1);
-
-	rb_define_module_function(module, "glTexCoord", gl_TexCoorddv, -1);
-	rb_define_module_function(module, "glTexCoord1dv", gl_TexCoorddv, -1);
-	rb_define_module_function(module, "glTexCoord1fv", gl_TexCoordfv, -1);
-	rb_define_module_function(module, "glTexCoord1iv", gl_TexCoordiv, -1);
-	rb_define_module_function(module, "glTexCoord1sv", gl_TexCoordsv, -1);
-	rb_define_module_function(module, "glTexCoord2dv", gl_TexCoorddv, -1);
-	rb_define_module_function(module, "glTexCoord2fv", gl_TexCoordfv, -1);
-	rb_define_module_function(module, "glTexCoord2iv", gl_TexCoordiv, -1);
-	rb_define_module_function(module, "glTexCoord2sv", gl_TexCoordsv, -1);
-	rb_define_module_function(module, "glTexCoord3dv", gl_TexCoorddv, -1);
-	rb_define_module_function(module, "glTexCoord3fv", gl_TexCoordfv, -1);
-	rb_define_module_function(module, "glTexCoord3iv", gl_TexCoordiv, -1);
-	rb_define_module_function(module, "glTexCoord3sv", gl_TexCoordsv, -1);
-	rb_define_module_function(module, "glTexCoord4dv", gl_TexCoorddv, -1);
-	rb_define_module_function(module, "glTexCoord4fv", gl_TexCoordfv, -1);
-	rb_define_module_function(module, "glTexCoord4iv", gl_TexCoordiv, -1);
-	rb_define_module_function(module, "glTexCoord4sv", gl_TexCoordsv, -1);
-
-	rb_define_module_function(module, "glVertex", gl_Vertexdv, -1);
-	rb_define_module_function(module, "glVertex2dv", gl_Vertexdv, -1);
-	rb_define_module_function(module, "glVertex2fv", gl_Vertexfv, -1);
-	rb_define_module_function(module, "glVertex2iv", gl_Vertexiv, -1);
-	rb_define_module_function(module, "glVertex2sv", gl_Vertexsv, -1);
-	rb_define_module_function(module, "glVertex3dv", gl_Vertexdv, -1);
-	rb_define_module_function(module, "glVertex3fv", gl_Vertexfv, -1);
-	rb_define_module_function(module, "glVertex3iv", gl_Vertexiv, -1);
-	rb_define_module_function(module, "glVertex3sv", gl_Vertexsv, -1);
-	rb_define_module_function(module, "glVertex4dv", gl_Vertexdv, -1);
-	rb_define_module_function(module, "glVertex4fv", gl_Vertexfv, -1);
-	rb_define_module_function(module, "glVertex4iv", gl_Vertexiv, -1);
-	rb_define_module_function(module, "glVertex4sv", gl_Vertexsv, -1);
-
-	/* these simply calls normal or vector (*v) function depending on
-	   if array or single value is passed to them */
-	rb_define_module_function(module, "glLightModel", gl_LightModel, 2);
-	rb_define_module_function(module, "glMaterial", gl_Material, 3);
-	rb_define_module_function(module, "glFog", gl_Fog, 2);
-	rb_define_module_function(module, "glLight", gl_Light, 3);
-	rb_define_module_function(module, "glTexParameter", gl_TexParameter, 3);
-	rb_define_module_function(module, "glTexEnv", gl_TexEnv, 3);
-	rb_define_module_function(module, "glTexGen", gl_TexGen, 3);
-
-	/* aliases */
-	rb_define_module_function(module, "glMultMatrix", gl_MultMatrixd, 1);
-	rb_define_module_function(module, "glLoadMatrix", gl_LoadMatrixd, 1);
-	rb_define_module_function(module, "glRotate", gl_Rotated, 4);
-	rb_define_module_function(module, "glScale", gl_Scaled, 3);
-	rb_define_module_function(module, "glTranslate", gl_Translated, 3);
-
-	rb_define_module_function(module, "glPixelStore", gl_PixelStoref, 2);
-	rb_define_module_function(module, "glPixelTransfer", gl_PixelTransferf, 2);
-	rb_define_module_function(module, "glIndex", gl_Indexi, 1);
-	rb_define_module_function(module, "glGetMaterial", gl_GetMaterialfv, 2);
-	rb_define_module_function(module, "glGetDouble", gl_GetDoublev, 1);
-
-	rb_global_variable(&g_current_sel_buffer);
-	rb_global_variable(&g_current_feed_buffer);
-	rb_global_variable(&g_Vertex_ptr);
-	rb_global_variable(&g_Normal_ptr);
-	rb_global_variable(&g_Color_ptr);
-	rb_global_variable(&g_Index_ptr);
-	rb_global_variable(&g_TexCoord_ptr);
-	rb_global_variable(&g_EdgeFlag_ptr);
-	rb_global_variable(&g_FogCoord_ptr);
-	rb_global_variable(&g_SecondaryColor_ptr);
+  g_FogCoord_ptr = 0; /* for use in gl-1.4.c */
+  g_SecondaryColor_ptr = 0; /* for use in gl-1.4.c */
+
+  /* OpenGL 1.0 functions */
+  rb_define_module_function(module, "glNewList", gl_NewList, 2);
+  rb_define_module_function(module, "glEndList", gl_EndList, 0);
+  rb_define_module_function(module, "glCallList", gl_CallList, 1);
+  rb_define_module_function(module, "glCallLists", gl_CallLists, 2);
+  rb_define_module_function(module, "glDeleteLists", gl_DeleteLists, 2);
+  rb_define_module_function(module, "glGenLists", gl_GenLists, 1);
+  rb_define_module_function(module, "glListBase", gl_ListBase, 1);
+  rb_define_module_function(module, "glBegin", gl_Begin, 1);
+  rb_define_module_function(module, "glBitmap", gl_Bitmap, 7);
+  rb_define_module_function(module, "glColor3b", gl_Color3b, 3);
+  rb_define_module_function(module, "glColor3d", gl_Color3d, 3);
+  rb_define_module_function(module, "glColor3f", gl_Color3f, 3);
+  rb_define_module_function(module, "glColor3i", gl_Color3i, 3);
+  rb_define_module_function(module, "glColor3s", gl_Color3s, 3);
+  rb_define_module_function(module, "glColor3ub", gl_Color3ub, 3);
+  rb_define_module_function(module, "glColor3ui", gl_Color3ui, 3);
+  rb_define_module_function(module, "glColor3us", gl_Color3us, 3);
+  rb_define_module_function(module, "glColor4b", gl_Color4b, 4);
+  rb_define_module_function(module, "glColor4d", gl_Color4d, 4);
+  rb_define_module_function(module, "glColor4f", gl_Color4f, 4);
+  rb_define_module_function(module, "glColor4i", gl_Color4i, 4);
+  rb_define_module_function(module, "glColor4s", gl_Color4s, 4);
+  rb_define_module_function(module, "glColor4ub", gl_Color4ub, 4);
+  rb_define_module_function(module, "glColor4ui", gl_Color4ui, 4);
+  rb_define_module_function(module, "glColor4us", gl_Color4us, 4);
+  rb_define_module_function(module, "glEdgeFlag", gl_EdgeFlag, 1);
+  rb_define_module_function(module, "glEdgeFlagv", gl_EdgeFlagv, 1);
+  rb_define_module_function(module, "glEnd", gl_End, 0);
+  rb_define_module_function(module, "glIndexd", gl_Indexd, 1);
+  rb_define_module_function(module, "glIndexdv", gl_Indexdv, 1);
+  rb_define_module_function(module, "glIndexf", gl_Indexf, 1);
+  rb_define_module_function(module, "glIndexfv", gl_Indexfv, 1);
+  rb_define_module_function(module, "glIndexi", gl_Indexi, 1);
+  rb_define_module_function(module, "glIndexiv", gl_Indexiv, 1);
+  rb_define_module_function(module, "glIndexs", gl_Indexs, 1);
+  rb_define_module_function(module, "glIndexsv", gl_Indexsv, 1);
+  rb_define_module_function(module, "glNormal3b", gl_Normal3b, 3);
+  rb_define_module_function(module, "glNormal3d", gl_Normal3d, 3);
+  rb_define_module_function(module, "glNormal3f", gl_Normal3f, 3);
+  rb_define_module_function(module, "glNormal3i", gl_Normal3i, 3);
+  rb_define_module_function(module, "glNormal3s", gl_Normal3s, 3);
+  rb_define_module_function(module, "glRasterPos2d", gl_RasterPos2d, 2);
+  rb_define_module_function(module, "glRasterPos2f", gl_RasterPos2f, 2);
+  rb_define_module_function(module, "glRasterPos2i", gl_RasterPos2i, 2);
+  rb_define_module_function(module, "glRasterPos2s", gl_RasterPos2s, 2);
+  rb_define_module_function(module, "glRasterPos3d", gl_RasterPos3d, 3);
+  rb_define_module_function(module, "glRasterPos3f", gl_RasterPos3f, 3);
+  rb_define_module_function(module, "glRasterPos3i", gl_RasterPos3i, 3);
+  rb_define_module_function(module, "glRasterPos3s", gl_RasterPos3s, 3);
+  rb_define_module_function(module, "glRasterPos4d", gl_RasterPos4d, 4);
+  rb_define_module_function(module, "glRasterPos4f", gl_RasterPos4f, 4);
+  rb_define_module_function(module, "glRasterPos4i", gl_RasterPos4i, 4);
+  rb_define_module_function(module, "glRasterPos4s", gl_RasterPos4s, 4);
+  rb_define_module_function(module, "glRectd", gl_Rectd, 4);
+  rb_define_module_function(module, "glRectf", gl_Rectf, 4);
+  rb_define_module_function(module, "glRecti", gl_Recti, 4);
+  rb_define_module_function(module, "glRects", gl_Rects, 4);
+  rb_define_module_function(module, "glTexCoord1d", gl_TexCoord1d, 1);
+  rb_define_module_function(module, "glTexCoord1f", gl_TexCoord1f, 1);
+  rb_define_module_function(module, "glTexCoord1i", gl_TexCoord1i, 1);
+  rb_define_module_function(module, "glTexCoord1s", gl_TexCoord1s, 1);
+  rb_define_module_function(module, "glTexCoord2d", gl_TexCoord2d, 2);
+  rb_define_module_function(module, "glTexCoord2f", gl_TexCoord2f, 2);
+  rb_define_module_function(module, "glTexCoord2i", gl_TexCoord2i, 2);
+  rb_define_module_function(module, "glTexCoord2s", gl_TexCoord2s, 2);
+  rb_define_module_function(module, "glTexCoord3d", gl_TexCoord3d, 3);
+  rb_define_module_function(module, "glTexCoord3f", gl_TexCoord3f, 3);
+  rb_define_module_function(module, "glTexCoord3i", gl_TexCoord3i, 3);
+  rb_define_module_function(module, "glTexCoord3s", gl_TexCoord3s, 3);
+  rb_define_module_function(module, "glTexCoord4d", gl_TexCoord4d, 4);
+  rb_define_module_function(module, "glTexCoord4f", gl_TexCoord4f, 4);
+  rb_define_module_function(module, "glTexCoord4i", gl_TexCoord4i, 4);
+  rb_define_module_function(module, "glTexCoord4s", gl_TexCoord4s, 4);
+  rb_define_module_function(module, "glVertex2d", gl_Vertex2d, 2);
+  rb_define_module_function(module, "glVertex2f", gl_Vertex2f, 2);
+  rb_define_module_function(module, "glVertex2i", gl_Vertex2i, 2);
+  rb_define_module_function(module, "glVertex2s", gl_Vertex2s, 2);
+  rb_define_module_function(module, "glVertex3d", gl_Vertex3d, 3);
+  rb_define_module_function(module, "glVertex3f", gl_Vertex3f, 3);
+  rb_define_module_function(module, "glVertex3i", gl_Vertex3i, 3);
+  rb_define_module_function(module, "glVertex3s", gl_Vertex3s, 3);
+  rb_define_module_function(module, "glVertex4d", gl_Vertex4d, 4);
+  rb_define_module_function(module, "glVertex4f", gl_Vertex4f, 4);
+  rb_define_module_function(module, "glVertex4i", gl_Vertex4i, 4);
+  rb_define_module_function(module, "glVertex4s", gl_Vertex4s, 4);
+  rb_define_module_function(module, "glClipPlane", gl_ClipPlane, 2);
+  rb_define_module_function(module, "glColorMaterial", gl_ColorMaterial, 2);
+  rb_define_module_function(module, "glCullFace", gl_CullFace, 1);
+  rb_define_module_function(module, "glFogf", gl_Fogf, 2);
+  rb_define_module_function(module, "glFogfv", gl_Fogfv, 2);
+  rb_define_module_function(module, "glFogi", gl_Fogi, 2);
+  rb_define_module_function(module, "glFogiv", gl_Fogiv, 2);
+  rb_define_module_function(module, "glFrontFace", gl_FrontFace, 1);
+  rb_define_module_function(module, "glHint", gl_Hint, 2);
+  rb_define_module_function(module, "glLightf", gl_Lightf, 3);
+  rb_define_module_function(module, "glLightfv", gl_Lightfv, 3);
+  rb_define_module_function(module, "glLighti", gl_Lighti, 3);
+  rb_define_module_function(module, "glLightiv", gl_Lightiv, 3);
+  rb_define_module_function(module, "glLightModelf", gl_LightModelf, 2);
+  rb_define_module_function(module, "glLightModelfv", gl_LightModelfv, 2);
+  rb_define_module_function(module, "glLightModeli", gl_LightModeli, 2);
+  rb_define_module_function(module, "glLightModeliv", gl_LightModeliv, 2);
+  rb_define_module_function(module, "glLineStipple", gl_LineStipple, 2);
+  rb_define_module_function(module, "glLineWidth", gl_LineWidth, 1);
+  rb_define_module_function(module, "glMaterialf", gl_Materialf, 3);
+  rb_define_module_function(module, "glMaterialfv", gl_Materialfv, 3);
+  rb_define_module_function(module, "glMateriali", gl_Materiali, 3);
+  rb_define_module_function(module, "glMaterialiv", gl_Materialiv, 3);
+  rb_define_module_function(module, "glPointSize", gl_PointSize, 1);
+  rb_define_module_function(module, "glPolygonMode", gl_PolygonMode, 2);
+  rb_define_module_function(module, "glPolygonStipple", gl_PolygonStipple, 1);
+  rb_define_module_function(module, "glScissor", gl_Scissor, 4);
+  rb_define_module_function(module, "glShadeModel", gl_ShadeModel, 1);
+  rb_define_module_function(module, "glTexParameterf", gl_TexParameterf, 3);
+  rb_define_module_function(module, "glTexParameterfv", gl_TexParameterfv, 3);
+  rb_define_module_function(module, "glTexParameteri", gl_TexParameteri, 3);
+  rb_define_module_function(module, "glTexParameteriv", gl_TexParameteriv, 3);
+  rb_define_module_function(module, "glTexImage1D", gl_TexImage1D, 8);
+  rb_define_module_function(module, "glTexImage2D", gl_TexImage2D, 9);
+  rb_define_module_function(module, "glTexEnvf", gl_TexEnvf, 3);
+  rb_define_module_function(module, "glTexEnvfv", gl_TexEnvfv, 3);
+  rb_define_module_function(module, "glTexEnvi", gl_TexEnvi, 3);
+  rb_define_module_function(module, "glTexEnviv", gl_TexEnviv, 3);
+  rb_define_module_function(module, "glTexGend", gl_TexGend, 3);
+  rb_define_module_function(module, "glTexGendv", gl_TexGendv, 3);
+  rb_define_module_function(module, "glTexGenf", gl_TexGenf, 3);
+  rb_define_module_function(module, "glTexGenfv", gl_TexGenfv, 3);
+  rb_define_module_function(module, "glTexGeni", gl_TexGeni, 3);
+  rb_define_module_function(module, "glTexGeniv", gl_TexGeniv, 3);
+  rb_define_module_function(module, "glFeedbackBuffer", gl_FeedbackBuffer, 2);
+  rb_define_module_function(module, "glSelectBuffer", gl_SelectBuffer, 1);
+  rb_define_module_function(module, "glRenderMode", gl_RenderMode, 1);
+  rb_define_module_function(module, "glInitNames", gl_InitNames, 0);
+  rb_define_module_function(module, "glLoadName", gl_LoadName, 1);
+  rb_define_module_function(module, "glPassThrough", gl_PassThrough, 1);
+  rb_define_module_function(module, "glPopName", gl_PopName, 0);
+  rb_define_module_function(module, "glPushName", gl_PushName, 1);
+  rb_define_module_function(module, "glDrawBuffer", gl_DrawBuffer, 1);
+  rb_define_module_function(module, "glClear", gl_Clear, 1);
+  rb_define_module_function(module, "glClearAccum", gl_ClearAccum, 4);
+  rb_define_module_function(module, "glClearIndex", gl_ClearIndex, 1);
+  rb_define_module_function(module, "glClearColor", gl_ClearColor, 4);
+  rb_define_module_function(module, "glClearStencil", gl_ClearStencil, 1);
+  rb_define_module_function(module, "glClearDepth", gl_ClearDepth, 1);
+  rb_define_module_function(module, "glStencilMask", gl_StencilMask, 1);
+  rb_define_module_function(module, "glColorMask", gl_ColorMask, 4);
+  rb_define_module_function(module, "glDepthMask", gl_DepthMask, 1);
+  rb_define_module_function(module, "glIndexMask", gl_IndexMask, 1);
+  rb_define_module_function(module, "glAccum", gl_Accum, 2);
+  rb_define_module_function(module, "glDisable", gl_Disable, -1);
+  rb_define_module_function(module, "glEnable", gl_Enable, -1);
+  rb_define_module_function(module, "glFinish", gl_Finish, 0);
+  rb_define_module_function(module, "glFlush", gl_Flush, 0);
+  rb_define_module_function(module, "glPopAttrib", gl_PopAttrib, 0);
+  rb_define_module_function(module, "glPushAttrib", gl_PushAttrib, 1);
+  rb_define_module_function(module, "glMap1d", gl_Map1d, 6);
+  rb_define_module_function(module, "glMap1f", gl_Map1f, 6);
+  rb_define_module_function(module, "glMap2d", gl_Map2d, 10);
+  rb_define_module_function(module, "glMap2f", gl_Map2f, 10);
+  rb_define_module_function(module, "glMapGrid1d", gl_MapGrid1d, 3);
+  rb_define_module_function(module, "glMapGrid1f", gl_MapGrid1f, 3);
+  rb_define_module_function(module, "glMapGrid2d", gl_MapGrid2d, 6);
+  rb_define_module_function(module, "glMapGrid2f", gl_MapGrid2f, 6);
+  rb_define_module_function(module, "glEvalCoord1d", gl_EvalCoord1d, 1);
+  rb_define_module_function(module, "glEvalCoord1dv", gl_EvalCoord1dv, 1);
+  rb_define_module_function(module, "glEvalCoord1f", gl_EvalCoord1f, 1);
+  rb_define_module_function(module, "glEvalCoord1fv", gl_EvalCoord1fv, 1);
+  rb_define_module_function(module, "glEvalCoord2d", gl_EvalCoord2d, 2);
+  rb_define_module_function(module, "glEvalCoord2dv", gl_EvalCoord2dv, 1);
+  rb_define_module_function(module, "glEvalCoord2f", gl_EvalCoord2f, 2);
+  rb_define_module_function(module, "glEvalCoord2fv", gl_EvalCoord2fv, 1);
+  rb_define_module_function(module, "glEvalMesh1", gl_EvalMesh1, 3);
+  rb_define_module_function(module, "glEvalPoint1", gl_EvalPoint1, 1);
+  rb_define_module_function(module, "glEvalMesh2", gl_EvalMesh2, 5);
+  rb_define_module_function(module, "glEvalPoint2", gl_EvalPoint2, 2);
+  rb_define_module_function(module, "glAlphaFunc", gl_AlphaFunc, 2);
+  rb_define_module_function(module, "glBlendFunc", gl_BlendFunc, 2);
+  rb_define_module_function(module, "glLogicOp", gl_LogicOp, 1);
+  rb_define_module_function(module, "glStencilFunc", gl_StencilFunc, 3);
+  rb_define_module_function(module, "glStencilOp", gl_StencilOp, 3);
+  rb_define_module_function(module, "glDepthFunc", gl_DepthFunc, 1);
+  rb_define_module_function(module, "glPixelZoom", gl_PixelZoom, 2);
+  rb_define_module_function(module, "glPixelTransferf", gl_PixelTransferf, 2);
+  rb_define_module_function(module, "glPixelTransferi", gl_PixelTransferi, 2);
+  rb_define_module_function(module, "glPixelStoref", gl_PixelStoref, 2);
+  rb_define_module_function(module, "glPixelStorei", gl_PixelStorei, 2);
+  rb_define_module_function(module, "glPixelMapfv", gl_PixelMapfv, -1);
+  rb_define_module_function(module, "glPixelMapuiv", gl_PixelMapuiv, -1);
+  rb_define_module_function(module, "glPixelMapusv", gl_PixelMapusv, -1);
+  rb_define_module_function(module, "glReadBuffer", gl_ReadBuffer, 1);
+  rb_define_module_function(module, "glCopyPixels", gl_CopyPixels, 5);
+  rb_define_module_function(module, "glReadPixels", gl_ReadPixels, -1);
+  rb_define_module_function(module, "glDrawPixels", gl_DrawPixels, 5);
+  rb_define_module_function(module, "glGetBooleanv", gl_GetBooleanv, 1);
+  rb_define_module_function(module, "glGetClipPlane", gl_GetClipPlane, 1);
+  rb_define_module_function(module, "glGetDoublev", gl_GetDoublev, 1);
+  rb_define_module_function(module, "glGetError", gl_GetError, 0);
+  rb_define_module_function(module, "glGetFloatv", gl_GetFloatv, 1);
+  rb_define_module_function(module, "glGetIntegerv", gl_GetIntegerv, 1);
+  rb_define_module_function(module, "glGetLightfv", gl_GetLightfv, 2);
+  rb_define_module_function(module, "glGetLightiv", gl_GetLightiv, 2);
+  rb_define_module_function(module, "glGetMapdv", gl_GetMapdv, 2);
+  rb_define_module_function(module, "glGetMapfv", gl_GetMapfv, 2);
+  rb_define_module_function(module, "glGetMapiv", gl_GetMapiv, 2);
+  rb_define_module_function(module, "glGetMaterialfv", gl_GetMaterialfv, 2);
+  rb_define_module_function(module, "glGetMaterialiv", gl_GetMaterialiv, 2);
+  rb_define_module_function(module, "glGetPixelMapfv", gl_GetPixelMapfv, -1);
+  rb_define_module_function(module, "glGetPixelMapuiv", gl_GetPixelMapuiv, -1);
+  rb_define_module_function(module, "glGetPixelMapusv", gl_GetPixelMapusv, -1);
+  rb_define_module_function(module, "glGetPolygonStipple", gl_GetPolygonStipple, -1);
+  rb_define_module_function(module, "glGetString", gl_GetString, 1);
+  rb_define_module_function(module, "glGetTexEnvfv", gl_GetTexEnvfv, 2);
+  rb_define_module_function(module, "glGetTexEnviv", gl_GetTexEnviv, 2);
+  rb_define_module_function(module, "glGetTexGendv", gl_GetTexGendv, 2);
+  rb_define_module_function(module, "glGetTexGenfv", gl_GetTexGenfv, 2);
+  rb_define_module_function(module, "glGetTexGeniv", gl_GetTexGeniv, 2);
+  rb_define_module_function(module, "glGetTexImage", gl_GetTexImage, -1);
+  rb_define_module_function(module, "glGetTexParameterfv", gl_GetTexParameterfv, 2);
+  rb_define_module_function(module, "glGetTexParameteriv", gl_GetTexParameteriv, 2);
+  rb_define_module_function(module, "glGetTexLevelParameterfv", gl_GetTexLevelParameterfv, 3);
+  rb_define_module_function(module, "glGetTexLevelParameteriv", gl_GetTexLevelParameteriv, 3);
+  rb_define_module_function(module, "glIsEnabled", gl_IsEnabled, 1);
+  rb_define_module_function(module, "glIsList", gl_IsList, 1);
+  rb_define_module_function(module, "glDepthRange", gl_DepthRange, 2);
+  rb_define_module_function(module, "glFrustum", gl_Frustum, 6);
+  rb_define_module_function(module, "glLoadIdentity", gl_LoadIdentity, 0);
+  rb_define_module_function(module, "glLoadMatrixf", gl_LoadMatrixf, 1);
+  rb_define_module_function(module, "glLoadMatrixd", gl_LoadMatrixd, 1);
+  rb_define_module_function(module, "glMatrixMode", gl_MatrixMode, 1);
+  rb_define_module_function(module, "glMultMatrixf", gl_MultMatrixf, 1);
+  rb_define_module_function(module, "glMultMatrixd", gl_MultMatrixd, 1);
+  rb_define_module_function(module, "glOrtho", gl_Ortho, 6);
+  rb_define_module_function(module, "glPopMatrix", gl_PopMatrix, 0);
+  rb_define_module_function(module, "glPushMatrix", gl_PushMatrix, 0);
+  rb_define_module_function(module, "glRotated", gl_Rotated, 4);
+  rb_define_module_function(module, "glRotatef", gl_Rotatef, 4);
+  rb_define_module_function(module, "glScaled", gl_Scaled, 3);
+  rb_define_module_function(module, "glScalef", gl_Scalef, 3);
+  rb_define_module_function(module, "glTranslated", gl_Translated, 3);
+  rb_define_module_function(module, "glTranslatef", gl_Translatef, 3);
+  rb_define_module_function(module, "glViewport", gl_Viewport, 4);
+
+  /* OpenGL 1.1 functions */
+  rb_define_module_function(module, "glArrayElement", gl_ArrayElement, 1);
+  rb_define_module_function(module, "glColorPointer", gl_ColorPointer, 4);
+  rb_define_module_function(module, "glDisableClientState", gl_DisableClientState, -1);
+  rb_define_module_function(module, "glDrawArrays", gl_DrawArrays, 3);
+  rb_define_module_function(module, "glDrawElements", gl_DrawElements, 4);
+  rb_define_module_function(module, "glEdgeFlagPointer", gl_EdgeFlagPointer, 2);
+  rb_define_module_function(module, "glEnableClientState", gl_EnableClientState, -1);
+  rb_define_module_function(module, "glGetPointerv", gl_GetPointerv, 1);
+  rb_define_module_function(module, "glIndexPointer", gl_IndexPointer, 3);
+  rb_define_module_function(module, "glInterleavedArrays", gl_InterleavedArrays, 3);
+  rb_define_module_function(module, "glNormalPointer", gl_NormalPointer, 3);
+  rb_define_module_function(module, "glTexCoordPointer", gl_TexCoordPointer, 4);
+  rb_define_module_function(module, "glVertexPointer", gl_VertexPointer, 4);
+  rb_define_module_function(module, "glPolygonOffset", gl_PolygonOffset, 2);
+  rb_define_module_function(module, "glCopyTexImage1D", gl_CopyTexImage1D, 7);
+  rb_define_module_function(module, "glCopyTexImage2D", gl_CopyTexImage2D, 8);
+  rb_define_module_function(module, "glCopyTexSubImage1D", gl_CopyTexSubImage1D, 6);
+  rb_define_module_function(module, "glCopyTexSubImage2D", gl_CopyTexSubImage2D, 8);
+  rb_define_module_function(module, "glTexSubImage1D", gl_TexSubImage1D, 7);
+  rb_define_module_function(module, "glTexSubImage2D", gl_TexSubImage2D, 9);
+  rb_define_module_function(module, "glAreTexturesResident", gl_AreTexturesResident, 1);
+  rb_define_module_function(module, "glBindTexture", gl_BindTexture, 2);
+  rb_define_module_function(module, "glDeleteTextures", gl_DeleteTextures, 1);
+  rb_define_module_function(module, "glGenTextures", gl_GenTextures, 1);
+  rb_define_module_function(module, "glIsTexture", gl_IsTexture, 1);
+  rb_define_module_function(module, "glPrioritizeTextures", gl_PrioritizeTextures, 2);
+  rb_define_module_function(module, "glIndexub", gl_Indexub, 1);
+  rb_define_module_function(module, "glIndexubv", gl_Indexubv, 1);
+  rb_define_module_function(module, "glPopClientAttrib", gl_PopClientAttrib, 0);
+  rb_define_module_function(module, "glPushClientAttrib", gl_PushClientAttrib, 1);
+
+  /* additional functions */
+  rb_define_module_function(module, "glColor", gl_Colordv, -1);
+  rb_define_module_function(module, "glColor3bv", gl_Colorbv, -1);
+  rb_define_module_function(module, "glColor3dv", gl_Colordv, -1);
+  rb_define_module_function(module, "glColor3fv", gl_Colorfv, -1);
+  rb_define_module_function(module, "glColor3iv", gl_Coloriv, -1);
+  rb_define_module_function(module, "glColor3sv", gl_Colorsv, -1);
+  rb_define_module_function(module, "glColor3ubv", gl_Colorubv, -1);
+  rb_define_module_function(module, "glColor3uiv", gl_Coloruiv, -1);
+  rb_define_module_function(module, "glColor3usv", gl_Colorusv, -1);
+  rb_define_module_function(module, "glColor4bv", gl_Colorbv, -1);
+  rb_define_module_function(module, "glColor4dv", gl_Colordv, -1);
+  rb_define_module_function(module, "glColor4fv", gl_Colorfv, -1);
+  rb_define_module_function(module, "glColor4iv", gl_Coloriv, -1);
+  rb_define_module_function(module, "glColor4sv", gl_Colorsv, -1);
+  rb_define_module_function(module, "glColor4ubv", gl_Colorubv, -1);
+  rb_define_module_function(module, "glColor4uiv", gl_Coloruiv, -1);
+  rb_define_module_function(module, "glColor4usv", gl_Colorusv, -1);
+
+  rb_define_module_function(module, "glNormal", gl_Normaldv, -1);
+  rb_define_module_function(module, "glNormal3bv", gl_Normalbv, -1);
+  rb_define_module_function(module, "glNormal3dv", gl_Normaldv, -1);
+  rb_define_module_function(module, "glNormal3fv", gl_Normalfv, -1);
+  rb_define_module_function(module, "glNormal3iv", gl_Normaliv, -1);
+  rb_define_module_function(module, "glNormal3sv", gl_Normalsv, -1);
+
+  rb_define_module_function(module, "glRasterPos", gl_RasterPosdv, -1);
+  rb_define_module_function(module, "glRasterPos2dv", gl_RasterPosdv, -1);
+  rb_define_module_function(module, "glRasterPos2fv", gl_RasterPosfv, -1);
+  rb_define_module_function(module, "glRasterPos2iv", gl_RasterPosiv, -1);
+  rb_define_module_function(module, "glRasterPos2sv", gl_RasterPossv, -1);
+  rb_define_module_function(module, "glRasterPos3dv", gl_RasterPosdv, -1);
+  rb_define_module_function(module, "glRasterPos3fv", gl_RasterPosfv, -1);
+  rb_define_module_function(module, "glRasterPos3iv", gl_RasterPosiv, -1);
+  rb_define_module_function(module, "glRasterPos3sv", gl_RasterPossv, -1);
+  rb_define_module_function(module, "glRasterPos4dv", gl_RasterPosdv, -1);
+  rb_define_module_function(module, "glRasterPos4fv", gl_RasterPosfv, -1);
+  rb_define_module_function(module, "glRasterPos4iv", gl_RasterPosiv, -1);
+  rb_define_module_function(module, "glRasterPos4sv", gl_RasterPossv, -1);
+
+  rb_define_module_function(module, "glRect", gl_Rectdv, -1);
+  rb_define_module_function(module, "glRectdv", gl_Rectdv, -1);
+  rb_define_module_function(module, "glRectfv", gl_Rectfv, -1);
+  rb_define_module_function(module, "glRectiv", gl_Rectiv, -1);
+  rb_define_module_function(module, "glRectsv", gl_Rectsv, -1);
+
+  rb_define_module_function(module, "glTexCoord", gl_TexCoorddv, -1);
+  rb_define_module_function(module, "glTexCoord1dv", gl_TexCoorddv, -1);
+  rb_define_module_function(module, "glTexCoord1fv", gl_TexCoordfv, -1);
+  rb_define_module_function(module, "glTexCoord1iv", gl_TexCoordiv, -1);
+  rb_define_module_function(module, "glTexCoord1sv", gl_TexCoordsv, -1);
+  rb_define_module_function(module, "glTexCoord2dv", gl_TexCoorddv, -1);
+  rb_define_module_function(module, "glTexCoord2fv", gl_TexCoordfv, -1);
+  rb_define_module_function(module, "glTexCoord2iv", gl_TexCoordiv, -1);
+  rb_define_module_function(module, "glTexCoord2sv", gl_TexCoordsv, -1);
+  rb_define_module_function(module, "glTexCoord3dv", gl_TexCoorddv, -1);
+  rb_define_module_function(module, "glTexCoord3fv", gl_TexCoordfv, -1);
+  rb_define_module_function(module, "glTexCoord3iv", gl_TexCoordiv, -1);
+  rb_define_module_function(module, "glTexCoord3sv", gl_TexCoordsv, -1);
+  rb_define_module_function(module, "glTexCoord4dv", gl_TexCoorddv, -1);
+  rb_define_module_function(module, "glTexCoord4fv", gl_TexCoordfv, -1);
+  rb_define_module_function(module, "glTexCoord4iv", gl_TexCoordiv, -1);
+  rb_define_module_function(module, "glTexCoord4sv", gl_TexCoordsv, -1);
+
+  rb_define_module_function(module, "glVertex", gl_Vertexdv, -1);
+  rb_define_module_function(module, "glVertex2dv", gl_Vertexdv, -1);
+  rb_define_module_function(module, "glVertex2fv", gl_Vertexfv, -1);
+  rb_define_module_function(module, "glVertex2iv", gl_Vertexiv, -1);
+  rb_define_module_function(module, "glVertex2sv", gl_Vertexsv, -1);
+  rb_define_module_function(module, "glVertex3dv", gl_Vertexdv, -1);
+  rb_define_module_function(module, "glVertex3fv", gl_Vertexfv, -1);
+  rb_define_module_function(module, "glVertex3iv", gl_Vertexiv, -1);
+  rb_define_module_function(module, "glVertex3sv", gl_Vertexsv, -1);
+  rb_define_module_function(module, "glVertex4dv", gl_Vertexdv, -1);
+  rb_define_module_function(module, "glVertex4fv", gl_Vertexfv, -1);
+  rb_define_module_function(module, "glVertex4iv", gl_Vertexiv, -1);
+  rb_define_module_function(module, "glVertex4sv", gl_Vertexsv, -1);
+
+  /* these simply calls normal or vector (*v) function depending on
+    if array or single value is passed to them */
+  rb_define_module_function(module, "glLightModel", gl_LightModel, 2);
+  rb_define_module_function(module, "glMaterial", gl_Material, 3);
+  rb_define_module_function(module, "glFog", gl_Fog, 2);
+  rb_define_module_function(module, "glLight", gl_Light, 3);
+  rb_define_module_function(module, "glTexParameter", gl_TexParameter, 3);
+  rb_define_module_function(module, "glTexEnv", gl_TexEnv, 3);
+  rb_define_module_function(module, "glTexGen", gl_TexGen, 3);
+
+  /* aliases */
+  rb_define_module_function(module, "glMultMatrix", gl_MultMatrixd, 1);
+  rb_define_module_function(module, "glLoadMatrix", gl_LoadMatrixd, 1);
+  rb_define_module_function(module, "glRotate", gl_Rotated, 4);
+  rb_define_module_function(module, "glScale", gl_Scaled, 3);
+  rb_define_module_function(module, "glTranslate", gl_Translated, 3);
+
+  rb_define_module_function(module, "glPixelStore", gl_PixelStoref, 2);
+  rb_define_module_function(module, "glPixelTransfer", gl_PixelTransferf, 2);
+  rb_define_module_function(module, "glIndex", gl_Indexi, 1);
+  rb_define_module_function(module, "glGetMaterial", gl_GetMaterialfv, 2);
+  rb_define_module_function(module, "glGetDouble", gl_GetDoublev, 1);
+
+  rb_global_variable(&g_current_sel_buffer);
+  rb_global_variable(&g_current_feed_buffer);
+  rb_global_variable(&g_Vertex_ptr);
+  rb_global_variable(&g_Normal_ptr);
+  rb_global_variable(&g_Color_ptr);
+  rb_global_variable(&g_Index_ptr);
+  rb_global_variable(&g_TexCoord_ptr);
+  rb_global_variable(&g_EdgeFlag_ptr);
+  rb_global_variable(&g_FogCoord_ptr);
+  rb_global_variable(&g_SecondaryColor_ptr);
 }