ruby-opengl 0.60.1 → 0.61.0

data/test/tc_ext_gremedy.rb

@@ -1,36 +0,0 @@
-#
-# Copyright (C) 2007 Jan Dvorak <jan.dvorak@kraxnet.cz>
-#
-# This program is distributed under the terms of the MIT license.
-# See the included MIT-LICENSE file for the terms of this license.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
-# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-#
-
-require 'test/unit'
-
-class Test_EXT_GREMEDY < Test::Unit::TestCase
-	def setup
-		common_setup()
-	end
-
-	def teardown
-		common_teardown()
-	end
-
-	def test_gl_gremedy_string_marker
-		return if not supported?("GL_GREMEDY_string_marker")
-		glStringMarkerGREMEDY("test")
-	end
-
-	def test_gl_gremedy_frame_terminator
-		return if not supported?("GL_GREMEDY_frame_terminator")
-		glFrameTerminatorGREMEDY()
-	end
-end

data/test/tc_ext_nv.rb

@@ -1,357 +0,0 @@
-
-# Copyright (C) 2007 Jan Dvorak <jan.dvorak@kraxnet.cz>
-#
-# This program is distributed under the terms of the MIT license.
-# See the included MIT-LICENSE file for the terms of this license.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
-# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-#
-
-require 'test/unit'
-
-class Test_EXT_NV < Test::Unit::TestCase
-	def setup
-		common_setup()
-	end
-
-	def teardown
-		common_teardown()
-	end
-
-	def test_gl_nv_vertex_program
-		return if not supported?("GL_NV_vertex_program")
-	
-		assert_equal(glIsProgramNV(0),false)
-		programs = glGenProgramsNV(2)
-		assert_equal(programs.size,2)
-		
-		program = "!!VSP1.0\nEND"
-	
-	  glBindProgramNV(GL_VERTEX_PROGRAM_NV, programs[1])
-		glLoadProgramNV(GL_VERTEX_STATE_PROGRAM_NV, programs[0], program)
-		assert_equal(glGetProgramStringNV(programs[0], GL_PROGRAM_STRING_NV), program)
-		assert_equal(glIsProgramNV(programs[0]),true)	
-	
-		assert_equal(glGetProgramivNV(programs[0],GL_PROGRAM_LENGTH_NV),program.size)
-
-		glVertexAttribPointerNV(1,2,GL_FLOAT,0,[1,1].pack("f*"))
-		assert_equal(glGetVertexAttribPointervNV(1),[1,1].pack("f*"))
-
-		glExecuteProgramNV(GL_VERTEX_STATE_PROGRAM_NV,programs[0],[1,1,1,1])
-
-		glProgramParameter4dNV(GL_VERTEX_PROGRAM_NV,1, 1,2,3,4)
-		assert_equal(glGetProgramParameterdvNV(GL_VERTEX_PROGRAM_NV,1,GL_PROGRAM_PARAMETER_NV),[1,2,3,4])
-		glProgramParameter4fNV(GL_VERTEX_PROGRAM_NV,1, 5,6,7,8)
-		assert_equal(glGetProgramParameterfvNV(GL_VERTEX_PROGRAM_NV,1,GL_PROGRAM_PARAMETER_NV),[5,6,7,8])
-		glProgramParameter4dvNV(GL_VERTEX_PROGRAM_NV,1, [1,2,3,4])
-		assert_equal(glGetProgramParameterdvNV(GL_VERTEX_PROGRAM_NV,1,GL_PROGRAM_PARAMETER_NV),[1,2,3,4])
-		glProgramParameter4fvNV(GL_VERTEX_PROGRAM_NV,1, [5,6,7,8])
-		assert_equal(glGetProgramParameterfvNV(GL_VERTEX_PROGRAM_NV,1,GL_PROGRAM_PARAMETER_NV),[5,6,7,8])
-
-		glProgramParameters4fvNV(GL_VERTEX_PROGRAM_NV,1, [1,2,3,4,5,6,7,8])
-		assert_equal(glGetProgramParameterfvNV(GL_VERTEX_PROGRAM_NV,1,GL_PROGRAM_PARAMETER_NV),[1,2,3,4])
-		assert_equal(glGetProgramParameterfvNV(GL_VERTEX_PROGRAM_NV,2,GL_PROGRAM_PARAMETER_NV),[5,6,7,8])
-
-		glProgramParameters4dvNV(GL_VERTEX_PROGRAM_NV,1, [8,7,6,5,4,3,2,1])
-		assert_equal(glGetProgramParameterdvNV(GL_VERTEX_PROGRAM_NV,1,GL_PROGRAM_PARAMETER_NV),[8,7,6,5])
-		assert_equal(glGetProgramParameterdvNV(GL_VERTEX_PROGRAM_NV,2,GL_PROGRAM_PARAMETER_NV),[4,3,2,1])
-
-
-		glVertexAttrib1dNV(1,1)
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0],1)
-		glVertexAttrib1fNV(1,2)
-		assert_equal(glGetVertexAttribfvNV(1,GL_CURRENT_ATTRIB_NV)[0],2)
-		glVertexAttrib1sNV(1,3)
-		assert_equal(glGetVertexAttribivNV(1,GL_CURRENT_ATTRIB_NV)[0],3)
-		glVertexAttrib1dvNV(1,[1])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0],1)
-		glVertexAttrib1fvNV(1,[2])
-		assert_equal(glGetVertexAttribfvNV(1,GL_CURRENT_ATTRIB_NV)[0],2)
-		glVertexAttrib1svNV(1,[3])
-		assert_equal(glGetVertexAttribivNV(1,GL_CURRENT_ATTRIB_NV)[0],3)
-	
-		glVertexAttrib2dNV(1,1,2)
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,2],[1,2])
-		glVertexAttrib2fNV(1,2,3)
-		assert_equal(glGetVertexAttribfvNV(1,GL_CURRENT_ATTRIB_NV)[0,2],[2,3])
-		glVertexAttrib2sNV(1,3,4)
-		assert_equal(glGetVertexAttribivNV(1,GL_CURRENT_ATTRIB_NV)[0,2],[3,4])
-		glVertexAttrib2dvNV(1,[1,2])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,2],[1,2])
-		glVertexAttrib2fvNV(1,[2,3])
-		assert_equal(glGetVertexAttribfvNV(1,GL_CURRENT_ATTRIB_NV)[0,2],[2,3])
-		glVertexAttrib2svNV(1,[3,4])
-		assert_equal(glGetVertexAttribivNV(1,GL_CURRENT_ATTRIB_NV)[0,2],[3,4])
-	
-		glVertexAttrib3dNV(1,1,2,3)
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,3],[1,2,3])
-		glVertexAttrib3fNV(1,2,3,4)
-		assert_equal(glGetVertexAttribfvNV(1,GL_CURRENT_ATTRIB_NV)[0,3],[2,3,4])
-		glVertexAttrib3sNV(1,3,4,5)
-		assert_equal(glGetVertexAttribivNV(1,GL_CURRENT_ATTRIB_NV)[0,3],[3,4,5])
-		glVertexAttrib3dvNV(1,[1,2,3])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,3],[1,2,3])
-		glVertexAttrib3fvNV(1,[2,3,4])
-		assert_equal(glGetVertexAttribfvNV(1,GL_CURRENT_ATTRIB_NV)[0,3],[2,3,4])
-		glVertexAttrib3svNV(1,[3,4,5])
-		assert_equal(glGetVertexAttribivNV(1,GL_CURRENT_ATTRIB_NV)[0,3],[3,4,5])
-	
-		glVertexAttrib4dNV(1,1,2,3,4)
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[1,2,3,4])
-		glVertexAttrib4fNV(1,2,3,4,5)
-		assert_equal(glGetVertexAttribfvNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[2,3,4,5])
-		glVertexAttrib4sNV(1,3,4,5,6)
-		assert_equal(glGetVertexAttribivNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[3,4,5,6])
-		glVertexAttrib4dvNV(1,[1,2,3,4])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[1,2,3,4])
-		glVertexAttrib4fvNV(1,[2,3,4,5])
-		assert_equal(glGetVertexAttribfvNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[2,3,4,5])
-		glVertexAttrib4svNV(1,[3,4,5,6])
-		assert_equal(glGetVertexAttribivNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[3,4,5,6])
-
-		glVertexAttrib4ubNV(1,2**8-1,0,2**8-1,0)
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[1,0,1,0])
-		glVertexAttrib4ubvNV(1,[0,2**8-1,0,2**8-1])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[0,1,0,1])
-
-		glVertexAttribs1dvNV(1,[1,2])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0],1)
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0],2)
-		glVertexAttribs1fvNV(1,[3,4])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0],3)
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0],4)
-		glVertexAttribs1svNV(1,[5,6])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0],5)
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0],6)
-
-		glVertexAttribs2dvNV(1,[1,2,3,4])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,2],[1,2])
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0,2],[3,4])
-		glVertexAttribs2fvNV(1,[3,4,5,6])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,2],[3,4])
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0,2],[5,6])
-		glVertexAttribs2svNV(1,[5,6,7,8])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,2],[5,6])
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0,2],[7,8])
-
-		glVertexAttribs3dvNV(1,[1,2,3,4,5,6])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,3],[1,2,3])
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0,3],[4,5,6])
-		glVertexAttribs3fvNV(1,[3,4,5,6,7,8])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,3],[3,4,5])
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0,3],[6,7,8])
-		glVertexAttribs3svNV(1,[5,6,7,8,9,10])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,3],[5,6,7])
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0,3],[8,9,10])
-	
-		glVertexAttribs4dvNV(1,[1,2,3,4,5,6,7,8])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[1,2,3,4])
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0,4],[5,6,7,8])
-		glVertexAttribs4fvNV(1,[3,4,5,6,7,8,9,10])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[3,4,5,6])
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0,4],[7,8,9,10])
-		glVertexAttribs4svNV(1,[5,6,7,8,9,10,11,12])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[5,6,7,8])
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0,4],[9,10,11,12])
-		glVertexAttribs4ubvNV(1,[2**8-1,0,2**8-1,0,2**8-1,0,2**8-1,0])
-		assert_equal(glGetVertexAttribdvNV(1,GL_CURRENT_ATTRIB_NV)[0,4],[1,0,1,0])
-		assert_equal(glGetVertexAttribdvNV(2,GL_CURRENT_ATTRIB_NV)[0,4],[1,0,1,0])
-
-		glTrackMatrixNV(GL_VERTEX_PROGRAM_NV, 4, GL_MATRIX0_NV, GL_IDENTITY_NV);
-		assert_equal(glGetTrackMatrixivNV(GL_VERTEX_PROGRAM_NV, 4, GL_TRACK_MATRIX_NV),GL_MATRIX0_NV)
-
-		glRequestResidentProgramsNV(programs[0])
-		res = glAreProgramsResidentNV(programs[0])
-		assert_equal(res.size,1)
-	
-		glDeleteProgramsNV(programs)
-	end
-
-	def test_gl_nv_fragment_program
-		return if not supported?("GL_NV_fragment_program")
-		programs = glGenProgramsNV(1)
-		program = "!!FP1.0\nDECLARE test = {0,0,0,0};\nEND"
-	  glBindProgramNV(GL_FRAGMENT_PROGRAM_NV, programs[0])
-		glLoadProgramNV(GL_FRAGMENT_PROGRAM_NV, programs[0], program)
-		
-		glProgramNamedParameter4fNV(programs[0],"test",1,2,3,4)
-		assert_equal(glGetProgramNamedParameterfvNV(programs[0],"test"),[1,2,3,4])
-		glProgramNamedParameter4dNV(programs[0],"test",5,6,7,8)
-		assert_equal(glGetProgramNamedParameterdvNV(programs[0],"test"),[5,6,7,8])
-		glProgramNamedParameter4fvNV(programs[0],"test",[1,2,3,4])
-		assert_equal(glGetProgramNamedParameterfvNV(programs[0],"test"),[1,2,3,4])
-		glProgramNamedParameter4dvNV(programs[0],"test",[5,6,7,8])
-		assert_equal(glGetProgramNamedParameterdvNV(programs[0],"test"),[5,6,7,8])
-
-		glDeleteProgramsNV(programs)
-	end
-
-	def test_gl_nv_framebuffer_multisample_coverage
-		return if not supported?("GL_NV_framebuffer_multisample_coverage")
-		rb = glGenRenderbuffersEXT(1)[0]
-
-		glBindRenderbufferEXT(GL_RENDERBUFFER_EXT,rb)
-		glRenderbufferStorageMultisampleCoverageNV(GL_RENDERBUFFER_EXT,4,4, GL_RGBA,2,2)
-		samples = glGetRenderbufferParameterivEXT(GL_RENDERBUFFER_EXT,GL_RENDERBUFFER_COVERAGE_SAMPLES_NV)
-		assert_equal(samples,4)
-		samples = glGetRenderbufferParameterivEXT(GL_RENDERBUFFER_EXT,GL_RENDERBUFFER_COLOR_SAMPLES_NV)
-		assert_equal(samples,4)
-
-		glDeleteRenderbuffersEXT(rb)
-	end
-
-	def test_gl_nv_fence
-		return if not supported?("GL_NV_fence")
-			fences = glGenFencesNV(2)
-			assert_equal(fences.size,2)
-			
-			glSetFenceNV(fences[0],GL_ALL_COMPLETED_NV)
-			assert_equal(glGetFenceivNV(fences[0],GL_FENCE_CONDITION_NV),GL_ALL_COMPLETED_NV)
-			assert_equal(glIsFenceNV(fences[0]),true)
-
-			glFinishFenceNV(fences[0])
-			assert_equal(glTestFenceNV(fences[0]),true)
-
-			glDeleteFencesNV(fences)
-	end
-
-	def test_gl_nv_depth_buffer_float
-		return if not supported?("GL_NV_depth_buffer_float")
-		glDepthRangedNV(0.1,0.2)
-		assert(approx_equal(glGetFloatv(GL_DEPTH_RANGE),[0.1,0.2]))
-		glDepthBoundsdNV(0.1,0.2)
-		assert(approx_equal(glGetFloatv(GL_DEPTH_BOUNDS_EXT),[0.1,0.2]))
-		glClearDepthdNV(0.3)
-		assert(approx_equal([glGetDoublev(GL_DEPTH_CLEAR_VALUE)],[0.3]))
-	end
-
-	def test_gl_nv_occlusion_query
-		return if not supported?("GL_NV_occlusion_query")
-
-		queries = glGenOcclusionQueriesNV(2)
-		assert_equal(queries.size,2)
-
-		glBeginOcclusionQueryNV(queries[0])
-		assert_equal(glIsOcclusionQueryNV(queries[0]),true)
-
-		glEndOcclusionQueryNV()
-		r = glGetOcclusionQueryivNV(queries[0],GL_PIXEL_COUNT_AVAILABLE_NV)
-		assert(r==GL_TRUE || r==GL_FALSE)
-		assert(glGetOcclusionQueryuivNV(queries[0],GL_PIXEL_COUNT_NV)>=0)
-
-		glDeleteOcclusionQueriesNV(queries)
-		assert_equal(glIsOcclusionQueryNV(queries[1]),false)
-	end
-
-	def test_gl_nv_gpu_program4
-		return if not supported?(["GL_NV_gpu_program4","GL_ARB_vertex_program"])
-
-		programs = glGenProgramsARB(1)
-		program = "!!ARBvp1.0\nTEMP vv;\nEND"
-	
-	  glBindProgramARB(GL_VERTEX_PROGRAM_ARB, programs[0])
-		glProgramStringARB(GL_VERTEX_PROGRAM_ARB, GL_PROGRAM_FORMAT_ASCII_ARB, program)
-		
-		glProgramLocalParameterI4iNV(GL_VERTEX_PROGRAM_ARB,1, 1,2,3,4)
-		assert_equal(glGetProgramLocalParameterIivNV(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
-		glProgramLocalParameterI4uiNV(GL_VERTEX_PROGRAM_ARB,1, 5,6,7,8)
-		assert_equal(glGetProgramLocalParameterIuivNV(GL_VERTEX_PROGRAM_ARB,1),[5,6,7,8])
-		glProgramLocalParameterI4ivNV(GL_VERTEX_PROGRAM_ARB,1, [1,2,3,4])
-		assert_equal(glGetProgramLocalParameterIivNV(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
-		glProgramLocalParameterI4uivNV(GL_VERTEX_PROGRAM_ARB,1, [5,6,7,8])
-		assert_equal(glGetProgramLocalParameterIuivNV(GL_VERTEX_PROGRAM_ARB,1),[5,6,7,8])
-		glProgramLocalParametersI4ivNV(GL_VERTEX_PROGRAM_ARB,1, [1,2,3,4])
-		assert_equal(glGetProgramLocalParameterIivNV(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
-		glProgramLocalParametersI4uivNV(GL_VERTEX_PROGRAM_ARB,1, [5,6,7,8])
-		assert_equal(glGetProgramLocalParameterIuivNV(GL_VERTEX_PROGRAM_ARB,1),[5,6,7,8])
-
-		glProgramEnvParameterI4iNV(GL_VERTEX_PROGRAM_ARB,1, 1,2,3,4)
-		assert_equal(glGetProgramEnvParameterIivNV(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
-		glProgramEnvParameterI4uiNV(GL_VERTEX_PROGRAM_ARB,1, 5,6,7,8)
-		assert_equal(glGetProgramEnvParameterIuivNV(GL_VERTEX_PROGRAM_ARB,1),[5,6,7,8])
-		glProgramEnvParameterI4ivNV(GL_VERTEX_PROGRAM_ARB,1, [1,2,3,4])
-		assert_equal(glGetProgramEnvParameterIivNV(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
-		glProgramEnvParameterI4uivNV(GL_VERTEX_PROGRAM_ARB,1, [5,6,7,8])
-		assert_equal(glGetProgramEnvParameterIuivNV(GL_VERTEX_PROGRAM_ARB,1),[5,6,7,8])
-		glProgramEnvParametersI4ivNV(GL_VERTEX_PROGRAM_ARB,1, [1,2,3,4])
-		assert_equal(glGetProgramEnvParameterIivNV(GL_VERTEX_PROGRAM_ARB,1),[1,2,3,4])
-		glProgramEnvParametersI4uivNV(GL_VERTEX_PROGRAM_ARB,1, [5,6,7,8])
-		assert_equal(glGetProgramEnvParameterIuivNV(GL_VERTEX_PROGRAM_ARB,1),[5,6,7,8])
-
-		glDeleteProgramsARB(programs)
-	end
-
-	def test_gl_nv_gpu_program4
-		return if not supported?(["GL_NV_gpu_program4","GL_EXT_framebuffer_object"])
-		geometry_program = <<-EOP
-!!NVgp4.0
-PRIMITIVE_IN TRIANGLES;
-PRIMITIVE_OUT TRIANGLE_STRIP;
-VERTICES_OUT 1;
-END
-		EOP
-			
-    program_id = glGenProgramsARB(1)[0]
-		glBindProgramARB(GL_GEOMETRY_PROGRAM_NV, program_id)
-    glProgramStringARB(GL_GEOMETRY_PROGRAM_NV, GL_PROGRAM_FORMAT_ASCII_ARB, geometry_program);
-
-		assert_equal(glGetProgramivARB(GL_GEOMETRY_PROGRAM_NV,GL_GEOMETRY_VERTICES_OUT_EXT),1)
-    glProgramVertexLimitNV(GL_GEOMETRY_PROGRAM_NV, 2)
-		assert_equal(glGetProgramivARB(GL_GEOMETRY_PROGRAM_NV,GL_GEOMETRY_VERTICES_OUT_EXT),2)
-
-		#
-
-		fbo = glGenFramebuffersEXT(1)[0]
-		glBindFramebufferEXT(GL_FRAMEBUFFER_EXT,fbo)
-	
-		texture2d,texture3d,texture_cube = glGenTextures(3)
-		glBindTexture(GL_TEXTURE_2D, texture2d)
-		glBindTexture(GL_TEXTURE_3D, texture3d)
-		glBindTexture(GL_TEXTURE_CUBE_MAP, texture_cube)
-
-		glFramebufferTextureEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT,texture2d,0)
-		assert_equal(glGetFramebufferAttachmentParameterivEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT, GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT),texture2d)
-		assert_equal(glGetFramebufferAttachmentParameterivEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT,GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT),0)
-		glFramebufferTextureLayerEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT,texture3d,0,1)
-		assert_equal(glGetFramebufferAttachmentParameterivEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT,GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT),texture3d)
-		assert_equal(glGetFramebufferAttachmentParameterivEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT,GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT),0)
-		assert_equal(glGetFramebufferAttachmentParameterivEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT,GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER_EXT),1)
-
-		glFramebufferTextureFaceEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT,texture_cube,0,GL_TEXTURE_CUBE_MAP_POSITIVE_X)
-		assert_equal(glGetFramebufferAttachmentParameterivEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT,GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT),texture_cube)
-		assert_equal(glGetFramebufferAttachmentParameterivEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT,GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT),0)
-		assert_equal(glGetFramebufferAttachmentParameterivEXT(GL_FRAMEBUFFER_EXT,GL_COLOR_ATTACHMENT0_EXT,GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_EXT),GL_TEXTURE_CUBE_MAP_POSITIVE_X)
-
-		glDeleteTextures([texture2d,texture3d])
-		glDeleteFramebuffersEXT(fbo)
-		glDeleteProgramsARB(program_id)
-	end
-
-	def test_gl_nv_primitive_restart
-		return if not supported?("GL_NV_primitive_restart")
-		glBegin(GL_TRIANGLES)
-	  glPrimitiveRestartNV()
-		glEnd
-		glPrimitiveRestartIndexNV(2)
-		assert_equal(glGetIntegerv(GL_PRIMITIVE_RESTART_INDEX_NV),2)
-	end
-
-	def test_gl_nv_point_sprite
-		return if not supported?("GL_NV_point_sprite")
-		glPointParameteriNV(GL_POINT_SPRITE_R_MODE_NV, GL_ZERO)
-		assert_equal(glGetIntegerv(GL_POINT_SPRITE_R_MODE_NV),GL_ZERO)
-		glPointParameteriNV(GL_POINT_SPRITE_R_MODE_NV, GL_S)
-		assert_equal(glGetIntegerv(GL_POINT_SPRITE_R_MODE_NV),GL_S)
-
-		glPointParameterivNV(GL_POINT_SPRITE_R_MODE_NV, [GL_ZERO])
-		assert_equal(glGetIntegerv(GL_POINT_SPRITE_R_MODE_NV),GL_ZERO)
-		glPointParameterivNV(GL_POINT_SPRITE_R_MODE_NV, [GL_S])
-		assert_equal(glGetIntegerv(GL_POINT_SPRITE_R_MODE_NV),GL_S)
-	end
-end

data/test/tc_func_10_11.rb

@@ -1,1281 +0,0 @@
-#
-# Copyright (C) 2007 Jan Dvorak <jan.dvorak@kraxnet.cz>
-#
-# This program is distributed under the terms of the MIT license.
-# See the included MIT-LICENSE file for the terms of this license.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
-# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-#
-
-require 'test/unit'
-
-class Test_10_11 < Test::Unit::TestCase
-	def setup
-		common_setup()
-	end
-
-	def teardown
-		common_teardown()
-	end
-
-	def test_glhint
-		glHint(GL_FOG_HINT,GL_NICEST)
-		assert_equal(glGetIntegerv(GL_FOG_HINT), GL_NICEST)
-		glHint(GL_FOG_HINT,GL_FASTEST)
-		assert_equal(glGetIntegerv(GL_FOG_HINT), GL_FASTEST)
-	end
-
-	def test_glindex
-		glIndexd(2.0)
-		assert_in_delta(glGetDoublev(GL_CURRENT_INDEX),2.0,0.001)
-		glIndexdv([3.0])
-		assert_in_delta(glGetDoublev(GL_CURRENT_INDEX),3.0,0.001)
-
-		glIndexf(4.0)
-		assert_in_delta(glGetFloatv(GL_CURRENT_INDEX),4.0,0.001)
-		glIndexfv([5.0])
-		assert_in_delta(glGetFloatv(GL_CURRENT_INDEX),5.0,0.001)
-
-		glIndexi(6)
-		assert_in_delta(glGetIntegerv(GL_CURRENT_INDEX),6,0.001)
-		glIndexiv([7])
-		assert_in_delta(glGetIntegerv(GL_CURRENT_INDEX),7,0.001)
-
-		glIndexs(8)
-		assert_in_delta(glGetIntegerv(GL_CURRENT_INDEX),8,0.001)
-		glIndexsv([9])
-		assert_in_delta(glGetIntegerv(GL_CURRENT_INDEX),9,0.001)
-
-		glIndexub(10)
-		assert_in_delta(glGetIntegerv(GL_CURRENT_INDEX),10,0.001)
-		glIndexubv([11])
-		assert_in_delta(glGetIntegerv(GL_CURRENT_INDEX),11,0.001)
-
-		# index pointer
-		glIndexPointer(GL_INT,2,"")
-		assert_equal(glGetIntegerv(GL_INDEX_ARRAY_STRIDE),2)
-		assert_equal(glGetIntegerv(GL_INDEX_ARRAY_TYPE),GL_INT)
-	end
-
-	def test_glclear
-		glClearColor(1,0,1,0)
-		assert_equal(glGetDoublev(GL_COLOR_CLEAR_VALUE),[1,0,1,0])
-
-		glClearIndex(2)
-		assert_equal(glGetDoublev(GL_INDEX_CLEAR_VALUE),2)
-
-		glClearAccum(0.5,0.5,0.5,0.5)
-		assert_equal(glGetDoublev(GL_ACCUM_CLEAR_VALUE),[0.5,0.5,0.5,0.5])
-
-		glClearStencil(1)
-		assert_equal(glGetIntegerv(GL_STENCIL_CLEAR_VALUE),1)
-
-		glClearDepth(0.5)
-		assert_equal(glGetDoublev(GL_DEPTH_CLEAR_VALUE),0.5)
-	end
-	
-	def test_glclientattrib
-		glPixelStorei(GL_PACK_ALIGNMENT,2)
-		glPushClientAttrib(GL_CLIENT_PIXEL_STORE_BIT)
-		glPixelStorei(GL_PACK_ALIGNMENT,4)
-		assert_equal(glGetIntegerv(GL_PACK_ALIGNMENT),4)
-		glPopClientAttrib()
-		assert_equal(glGetIntegerv(GL_PACK_ALIGNMENT),2)
-	end
-
-	def test_matrix
-		m_a = [[2.0,0.0,0.0,0.0],
-					 [0.0,2.0,0.0,0.0],
-					 [0.0,0.0,2.0,0.0],
-					 [0.0,0.0,0.0,2.0]]
-
-		m_b = [[3.0,0.0,0.0,0.0],
-					 [0.0,3.0,0.0,0.0],
-					 [0.0,0.0,3.0,0.0],
-					 [0.0,0.0,0.0,3.0]]
-
-		m_ident = [[1.0,0.0,0.0,0.0],
-							 [0.0,1.0,0.0,0.0],
-							 [0.0,0.0,1.0,0.0],
-							 [0.0,0.0,0.0,1.0]]
-				
-		# 1	 
-		glMatrixMode(GL_MODELVIEW)
-		glLoadMatrixf(m_a)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m_a)
-		glLoadMatrixd(m_b)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m_b)
-
-		glLoadIdentity()
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m_ident)
-
-		glMultMatrixf(m_a)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m_a)
-		glLoadIdentity()
-		glMultMatrixd(m_b)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m_b)
-
-		# 2
-		glMatrixMode(GL_MODELVIEW)
-		glLoadMatrixf(m_a)
-		glMatrixMode(GL_PROJECTION)
-		glLoadMatrixf(m_b)
-
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m_a)
-		assert_equal(glGetDoublev(GL_PROJECTION_MATRIX), m_b)
-		
-		glMatrixMode(GL_MODELVIEW)
-		glLoadMatrixf(m_a)
-		glPushMatrix()
-		glLoadMatrixf(m_b)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m_b)
-		glPopMatrix()
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m_a)
-	
-		# 3
-		m = Matrix.rows([[1,2,3,4],[5,6,7,8],[9,10,11,12],[13,14,15,16]])
-		glMatrixMode(GL_MODELVIEW)
-		glLoadMatrixf(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a)
-		glLoadIdentity()
-		glLoadMatrixd(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a)
-		glLoadIdentity()
-		glMultMatrixf(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a)
-		glLoadIdentity()
-		glMultMatrixd(m)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX), m.to_a)
-
-		assert_raise ArgumentError do glLoadMatrixf([1,2,3,4]) end
-		assert_raise ArgumentError do glLoadMatrixd([1,2,3,4]) end
-		assert_raise ArgumentError do glMultMatrixf([1,2,3,4]) end
-		assert_raise ArgumentError do glMultMatrixd([1,2,3,4]) end
-	end
-
-	def test_gledge
-		glEdgeFlag(GL_FALSE)
-		assert_equal(glGetBooleanv(GL_EDGE_FLAG),false)
-		glEdgeFlag(GL_TRUE)
-		assert_equal(glGetBooleanv(GL_EDGE_FLAG),true)
-		glEdgeFlagv([GL_FALSE])
-		assert_equal(glGetBooleanv(GL_EDGE_FLAG),false)
-	end
-
-	def test_clientstate
-		glEnableClientState(GL_COLOR_ARRAY)
-		assert_equal(glIsEnabled(GL_COLOR_ARRAY),true)
-		glDisableClientState(GL_COLOR_ARRAY)
-		assert_equal(glIsEnabled(GL_COLOR_ARRAY),false)
-	end
-
-	def test_glshademodel
-		glShadeModel(GL_FLAT)
-		assert_equal(glGetIntegerv(GL_SHADE_MODEL),GL_FLAT)
-		glShadeModel(GL_SMOOTH)
-		assert_equal(glGetIntegerv(GL_SHADE_MODEL),GL_SMOOTH)
-	end
-
-	def test_glclipplane
-		glClipPlane(GL_CLIP_PLANE0,[1,2,3,4])
-		assert_equal(glGetClipPlane(GL_CLIP_PLANE0),[1,2,3,4])
-	end
-
-	def test_polygonoffset
-		glPolygonOffset(2.0,3.0)
-		assert_equal(glGetDoublev(GL_POLYGON_OFFSET_FACTOR),2.0)
-		assert_equal(glGetDoublev(GL_POLYGON_OFFSET_UNITS),3.0)
-	end
-
-	def test_glviewport
-		glViewport(1,2,3,4)
-		assert_equal(glGetIntegerv(GL_VIEWPORT), [1,2,3,4])
-	end
-
-	def test_mask
-		glStencilMask(2)
-		assert_equal(glGetIntegerv(GL_STENCIL_WRITEMASK), 2)
-		glStencilMask(1)
-		assert_equal(glGetIntegerv(GL_STENCIL_BACK_WRITEMASK), 1)
-
-		glColorMask(GL_TRUE,GL_FALSE,GL_TRUE,GL_FALSE)
-		assert_equal(glGetBooleanv(GL_COLOR_WRITEMASK),[true,false,true,false])
-
-		glDepthMask(GL_TRUE)
-		assert_equal(glGetBooleanv(GL_DEPTH_WRITEMASK),true)
-		glDepthMask(GL_FALSE)
-		assert_equal(glGetBooleanv(GL_DEPTH_WRITEMASK),false)
-
-		glIndexMask(2)
-		assert_equal(glGetIntegerv(GL_INDEX_WRITEMASK), 2)
-		glIndexMask(1)
-		assert_equal(glGetIntegerv(GL_INDEX_WRITEMASK), 1)
-	end
-
-	def test_glflush
-		begin
-			glBegin(GL_POINTS)
-			glFlush()
-			glEnd
-		rescue Gl::Error => err
-			assert(err.id == GL_INVALID_OPERATION)
-		end	
-	end
-
-	def test_glfinish
-		begin
-			glBegin(GL_POINTS)
-			glFinish()
-			glEnd
-		rescue Gl::Error => err
-			assert(err.id == GL_INVALID_OPERATION)
-		end	
-	end
-
-	def test_glgetstring
-		assert(glGetString(GL_VERSION).size > 0)
-	end
-
-	def test_glscissor
-		glScissor(1,2,3,4)
-		assert_equal(glGetIntegerv(GL_SCISSOR_BOX),[1,2,3,4])
-	end
-
-	def test_glstencilfunc
-		glStencilFunc(GL_LEQUAL,2,3)
-		assert_equal(glGetIntegerv(GL_STENCIL_FUNC),GL_LEQUAL)
-		assert_equal(glGetIntegerv(GL_STENCIL_REF),2)
-		assert_equal(glGetIntegerv(GL_STENCIL_VALUE_MASK),3)
-	end
-
-	def test_glstencilop
-		glStencilOp(GL_ZERO,GL_REPLACE,GL_INCR)
-		assert_equal(glGetIntegerv(GL_STENCIL_FAIL),GL_ZERO)
-		assert_equal(glGetIntegerv(GL_STENCIL_PASS_DEPTH_FAIL),GL_REPLACE)
-		assert_equal(glGetIntegerv(GL_STENCIL_PASS_DEPTH_PASS),GL_INCR)
-	end
-
-	def test_gllogicop
-		glLogicOp(GL_NAND)
-		assert_equal(glGetIntegerv(GL_LOGIC_OP_MODE),GL_NAND)
-	end
-
-	def test_glfrustum
-		glMatrixMode(GL_PROJECTION)
-		glLoadIdentity()
-		
-		glFrustum(1,2,3,4,5,6)
-		assert_equal(glGetDoublev(GL_PROJECTION_MATRIX),[[10.0, 0.0, 0.0, 0.0], [0.0, 10.0, 0.0, 0.0], [3.0, 7.0, -11.0, -1.0], [0.0, 0.0, -60.0, 0.0]])
-	end
-
-	def test_gldepthrange
-		glDepthRange(0.5,0.5)
-		assert_equal(glGetDoublev(GL_DEPTH_RANGE),[0.5,0.5])
-	end
-
-	def test_func
-		glAlphaFunc(GL_GREATER,0.5)
-		assert_equal(glGetIntegerv(GL_ALPHA_TEST_FUNC),GL_GREATER)
-		assert_equal(glGetDoublev(GL_ALPHA_TEST_REF),0.5)
-
-		glBlendFunc(GL_CONSTANT_ALPHA, GL_ONE_MINUS_DST_COLOR)
-		assert_equal(glGetIntegerv(GL_BLEND_SRC),GL_CONSTANT_ALPHA)
-		assert_equal(glGetIntegerv(GL_BLEND_DST),GL_ONE_MINUS_DST_COLOR)
-
-		glDepthFunc(GL_LEQUAL)
-		assert_equal(glGetIntegerv(GL_DEPTH_FUNC),GL_LEQUAL)
-	end
-
-	def test_glpixelzoom
-		glPixelZoom(0.5,0.5)
-		assert_equal(glGetDoublev(GL_ZOOM_X),0.5)
-		assert_equal(glGetDoublev(GL_ZOOM_Y),0.5)
-	end
-
-	def test_glpixelstore
-		glPixelStoref(GL_PACK_IMAGE_HEIGHT,5)
-		assert_equal(glGetIntegerv(GL_PACK_IMAGE_HEIGHT),5)
-		glPixelStorei(GL_PACK_IMAGE_HEIGHT,6)
-		assert_equal(glGetIntegerv(GL_PACK_IMAGE_HEIGHT),6)
-	end
-
-	def test_glpixeltransfer
-		glPixelTransferf(GL_RED_SCALE,2)
-		assert_equal(glGetIntegerv(GL_RED_SCALE),2)
-		glPixelTransferi(GL_RED_SCALE,3)
-		assert_equal(glGetIntegerv(GL_RED_SCALE),3)
-	end
-
-	def test_pixelmap
-		glPixelMapfv(GL_PIXEL_MAP_I_TO_I,[1,2,3,4])
-		assert_equal(glGetPixelMapfv(GL_PIXEL_MAP_I_TO_I), [1,2,3,4])
-
-		glPixelMapuiv(GL_PIXEL_MAP_I_TO_I,[5,6,7,8])
-		assert_equal(glGetPixelMapuiv(GL_PIXEL_MAP_I_TO_I),[5,6,7,8])
-
-		glPixelMapusv(GL_PIXEL_MAP_I_TO_I,[9,10,11,12])
-		assert_equal(glGetPixelMapusv(GL_PIXEL_MAP_I_TO_I),[9,10,11,12])
-	end
-
-	def test_buffers
-		glDrawBuffer(GL_FRONT)
-		assert_equal(glGetIntegerv(GL_DRAW_BUFFER),GL_FRONT)
-		glDrawBuffer(GL_BACK)
-		assert_equal(glGetIntegerv(GL_DRAW_BUFFER),GL_BACK)
-
-		glReadBuffer(GL_FRONT)
-		assert_equal(glGetIntegerv(GL_READ_BUFFER),GL_FRONT)
-		glReadBuffer(GL_BACK)
-		assert_equal(glGetIntegerv(GL_READ_BUFFER),GL_BACK)
-	end
-
-	def test__selection_buffer
-		buf = glSelectBuffer(32)
-
-		glRenderMode(GL_SELECT)
-		glInitNames()
-		glPushName(6)
-		glPushName(3)
-		glLoadName(5)
-		glPopName()
-
-		glBegin(GL_QUADS)
-		glVertex2i(-1,-1)
-		glVertex2i( 1,-1)
-		glVertex2i( 1, 1)
-		glVertex2i(-1, 1)
-		glEnd()
-		
-		count = glRenderMode(GL_RENDER)
-		data = buf.unpack("i*")
-		assert(count==1) # number of records
-		assert(data[0]==1) # number of hits in this record
-#		assert(data[1]>0) # zbuffer near
-#		assert(data[2]>0) # zbuffer far
-		assert(data[3]==6) # name of hit
-	end
-
-	def test__feedback_buffer
-		buf = glFeedbackBuffer(32,GL_2D)
-		
-		glRenderMode(GL_FEEDBACK)
-
-		glBegin(GL_TRIANGLES)
-		glVertex2i(-1,-1)
-		glVertex2i( 1,-1)
-		glVertex2i( 1, 1)
-		glEnd()
-	
-		glPassThrough(2.0)
-		
-		count = glRenderMode(GL_RENDER)
-		data = buf.unpack("f*")
-		assert_equal(count,10) # (1 + 1 + 3x2) + (1 + 1)
-		assert_equal(data[0],GL_POLYGON_TOKEN)
-		assert_equal(data[1],3) # 3 vertices
-		# skip rasterized vertex data
-		assert_equal(data[8],GL_PASS_THROUGH_TOKEN)
-		assert_equal(data[9],2.0)
-	end
-
-	def test_glrasterpos
-		glOrtho(0,$window_size,0,$window_size,0,-1)
-
-		# 2		
-		glRasterPos2d(1.0,2.0)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,0.0,1.0])
-		glRasterPos2dv([3.0,4.0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		glRasterPos2f(1.0,2.0)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,0.0,1.0])
-		glRasterPos2fv([3.0,4.0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		glRasterPos2i(1,2)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,0.0,1.0])
-		glRasterPos2iv([3,4])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		glRasterPos2s(1,2)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,0.0,1.0])
-		glRasterPos2sv([3,4])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		# 3
-		glRasterPos3d(1.0,2.0,1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,1.0,1.0])
-		glRasterPos3dv([3.0,4.0,0.0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		glRasterPos3f(1.0,2.0,1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,1.0,1.0])
-		glRasterPos3fv([3.0,4.0,0.0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		glRasterPos3i(1,2,1)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,1.0,1.0])
-		glRasterPos3iv([3,4,0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		glRasterPos3s(1,2,1)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,1.0,1.0])
-		glRasterPos3sv([3,4,0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		# 4
-		glRasterPos4d(1.0,2.0,1.0,1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,1.0,1.0])
-		glRasterPos4dv([3.0,4.0,0.0,1.0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		glRasterPos4f(1.0,2.0,1.0,1.0)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,1.0,1.0])
-		glRasterPos4fv([3.0,4.0,0.0,1.0])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		glRasterPos4i(1,2,1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,1.0,1.0])
-		glRasterPos4iv([3,4,0,1])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-
-		glRasterPos4s(1,2,1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[1.0,2.0,1.0,1.0])
-		glRasterPos4sv([3,4,0,1])
-		assert_equal(glGetDoublev(GL_CURRENT_RASTER_POSITION),[3.0,4.0,0.0,1.0])
-	end
-
-	def test_glbitmap
-		glOrtho(0,$window_size,0,$window_size,0,-1)
-
-		bitmap = [ 0x55 ] * 8 # 64 bits (8x8 bitmap), stipple pattern
-
-		glPixelStorei(GL_PACK_ALIGNMENT,1)
-		glPixelStorei(GL_UNPACK_ALIGNMENT,1)
-
-		glBitmap(8,8,0,0,0,0,bitmap.pack("c*"))
-		data = glReadPixels(0,0,8,8,GL_RED,GL_UNSIGNED_BYTE)
-		assert_equal(data.unpack("C*"),[0,255] * 32)
-	end
-
-	def test_glfog
-		glFogfv(GL_FOG_COLOR,[0.0,1.0,0.0,1.0])
-		assert_equal(glGetDoublev(GL_FOG_COLOR),[0.0,1.0,0.0,1.0])
-		glFogf(GL_FOG_DENSITY,0.5)
-		assert_equal(glGetDoublev(GL_FOG_DENSITY),0.5)
-		glFogi(GL_FOG_MODE,GL_LINEAR)
-		assert_equal(glGetIntegerv(GL_FOG_MODE),GL_LINEAR)
-		glFogi(GL_FOG_MODE,GL_EXP)
-		assert_equal(glGetIntegerv(GL_FOG_MODE),GL_EXP)
-		glFogiv(GL_FOG_MODE,[GL_EXP2])
-		assert_equal(glGetIntegerv(GL_FOG_MODE),GL_EXP2)
-	end
-
-	def test_glcolor
-		# 3
-		glColor3b(2**7-1,0,2**7-1)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,1.0]))
-		glColor3bv([0,2**7-1,0])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor3d(1.0,0.0,1.0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,1.0]))
-		glColor3dv([0.0,1.0,0.0])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor3f(1.0,0.0,1.0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,1.0]))
-		glColor3fv([0.0,1.0,0.0])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor3i(2**31-1,0,2**31-1)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,1.0]))
-		glColor3iv([0,2**31-1,0])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor3s(2**15-1,0,2**15-1)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,1.0]))
-		glColor3sv([0,2**15-1,0])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor3ub(2**8-1,0,2**8-1)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,1.0]))
-		glColor3ubv([0,2**8-1,0])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor3ui(2**32-1,0,2**32-1)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,1.0]))
-		glColor3uiv([0,2**32-1,0])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor3us(2**16-1,0,2**16-1)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,1.0]))
-		glColor3usv([0,2**16-1,0])
-		# 4
-		glColor4b(2**7-1,0,2**7-1,0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,0.0]))
-		glColor4bv([0,2**7-1,0,2**7-1])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor4d(1.0,0.0,1.0,0.0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,0.0]))
-		glColor4dv([0.0,1.0,0.0,1.0])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor4f(1.0,0.0,1.0,0.0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,0.0]))
-		glColor4fv([0.0,1.0,0.0,1.0])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor4i(2**31-1,0,2**31-1,0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,0.0]))
-		glColor4iv([0,2**31-1,0,2**31-1])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor4s(2**15-1,0,2**15-1,0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,0.0]))
-		glColor4sv([0,2**15-1,0,2**15-1])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor4ub(2**8-1,0,2**8-1,0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,0.0]))
-		glColor4ubv([0,2**8-1,0,2**8-1])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor4ui(2**32-1,0,2**32-1,0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,0.0]))
-		glColor4uiv([0,2**32-1,0,2**32-1])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-		glColor4us(2**16-1,0,2**16-1,0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[1.0,0.0,1.0,0.0]))
-		glColor4usv([0,2**16-1,0,2**16-1])
-		assert(approx_equal(glGetDoublev(GL_CURRENT_COLOR),[0.0,1.0,0.0,1.0]))
-	end
-
-	def test_glortho
-		res = [ [2.0/$window_size, 0, 0, 0],
-					  [0, 2.0/$window_size, 0, 0],
-					  [0, 0, 2, 0],
-						[-1,-1,-1,1] ]
-
-		glMatrixMode(GL_PROJECTION)
-		glLoadIdentity()
-		glOrtho(0,$window_size,0,$window_size,0,-1)
-		assert_equal(glGetDoublev(GL_PROJECTION_MATRIX),res)
-	end
-
-	def test_glnormal
-		glNormal3d(1.0,2.0,3.0)
-		assert_equal(glGetDoublev(GL_CURRENT_NORMAL),[1.0,2.0,3.0])
-		glNormal3dv([4.0,5.0,6.0])
-		assert_equal(glGetDoublev(GL_CURRENT_NORMAL),[4.0,5.0,6.0])
-
-		glNormal3f(1.0,2.0,3.0)
-		assert_equal(glGetDoublev(GL_CURRENT_NORMAL),[1.0,2.0,3.0])
-		glNormal3fv([4.0,5.0,6.0])
-		assert_equal(glGetDoublev(GL_CURRENT_NORMAL),[4.0,5.0,6.0])
-
-		glNormal3i(1,2,3)
-		assert_equal(glGetIntegerv(GL_CURRENT_NORMAL),[1,2,3])
-		glNormal3iv([4,5,6])
-		assert_equal(glGetIntegerv(GL_CURRENT_NORMAL),[4,5,6])
-
-		glNormal3b(2**7-1,0,2**7-1)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_NORMAL),[1.0,0.0,1.0]))
-		glNormal3bv(0,2**7-1,0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_NORMAL),[0.0,1.0,0.0]))
-
-		glNormal3s(2**15-1,0,2**15-1)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_NORMAL),[1.0,0.0,1.0]))
-		glNormal3sv(0,2**15-1,0)
-		assert(approx_equal(glGetDoublev(GL_CURRENT_NORMAL),[0.0,1.0,0.0]))
-	end
-
-
-	def test_gllight
-		glLightf(GL_LIGHT0,GL_SPOT_CUTOFF,80.0)
-		assert_equal(glGetLightfv(GL_LIGHT0,GL_SPOT_CUTOFF),80.0)
-		glLighti(GL_LIGHT0,GL_SPOT_CUTOFF,75)
-		assert_equal(glGetLightiv(GL_LIGHT0,GL_SPOT_CUTOFF),75)
-		glLightfv(GL_LIGHT0,GL_AMBIENT,[0.5,0.5,0.5,1.0])
-		assert_equal(glGetLightfv(GL_LIGHT0,GL_AMBIENT), [0.5,0.5,0.5,1.0])
-		glLightiv(GL_LIGHT0,GL_CONSTANT_ATTENUATION,[32])
-		assert_equal(glGetLightiv(GL_LIGHT0,GL_CONSTANT_ATTENUATION),32)
-	end
-
-	def test_glmaterial
-		glMaterialfv(GL_FRONT,GL_AMBIENT,[0.0,1.0,0.0,1.0])
-		assert_equal(glGetMaterialfv(GL_FRONT,GL_AMBIENT),[0.0,1.0,0.0,1.0])
-
-		glMaterialiv(GL_FRONT,GL_SHININESS,[50])
-		assert_equal(glGetMaterialiv(GL_FRONT,GL_SHININESS),50)
-
-		glMaterialf(GL_FRONT,GL_SHININESS,49.0)
-		assert_equal(glGetMaterialfv(GL_FRONT,GL_SHININESS),49.0)
-
-		glMateriali(GL_FRONT,GL_SHININESS,48)
-		assert_equal(glGetMaterialiv(GL_FRONT,GL_SHININESS),48)
-	
-	end
-
-	def test_glcolormaterial
-		glColorMaterial(GL_FRONT,GL_EMISSION)
-		assert_equal(glGetIntegerv(GL_COLOR_MATERIAL_FACE),GL_FRONT)
-		assert_equal(glGetIntegerv(GL_COLOR_MATERIAL_PARAMETER),GL_EMISSION)
-
-		glColorMaterial(GL_BACK,GL_SPECULAR)
-		assert_equal(glGetIntegerv(GL_COLOR_MATERIAL_FACE),GL_BACK)
-		assert_equal(glGetIntegerv(GL_COLOR_MATERIAL_PARAMETER),GL_SPECULAR)
-	end
-
-	def test_gllightmodel
-		glLightModeli(GL_LIGHT_MODEL_TWO_SIDE,GL_TRUE)
-		assert_equal(glGetBooleanv(GL_LIGHT_MODEL_TWO_SIDE),GL_TRUE)
-		glLightModelf(GL_LIGHT_MODEL_TWO_SIDE,GL_FALSE)
-		assert_equal(glGetBooleanv(GL_LIGHT_MODEL_TWO_SIDE),GL_FALSE)
-
-		glLightModelfv(GL_LIGHT_MODEL_AMBIENT,[0.5,0.5,0.5,1.0])
-		assert_equal(glGetDoublev(GL_LIGHT_MODEL_AMBIENT),[0.5,0.5,0.5,1.0])
-		glLightModeliv(GL_LIGHT_MODEL_AMBIENT,[1,0,1,0])
-		assert_equal(glGetIntegerv(GL_LIGHT_MODEL_AMBIENT),[1,0,1,0])
-	end
-
-	def test_gltexcoord
-		# 1
-		glTexCoord1d(1.5)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1.5,0,0,1])
-		glTexCoord1dv([0.5])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0.5,0,0,1])
-		glTexCoord1f(1.5)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1.5,0,0,1])
-		glTexCoord1fv([0.5])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0.5,0,0,1])
-		glTexCoord1i(1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1,0,0,1])
-		glTexCoord1iv([0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0,0,0,1])
-		glTexCoord1s(1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1,0,0,1])
-		glTexCoord1sv([0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0,0,0,1])
-		# 2
-		glTexCoord2d(1.5,1.5)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1.5,1.5,0,1])
-		glTexCoord2dv([0.5,0.5])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0.5,0.5,0,1])
-		glTexCoord2f(1.5,1.5)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1.5,1.5,0,1])
-		glTexCoord2fv([0.5,0.5])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0.5,0.5,0,1])
-		glTexCoord2i(1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1,1,0,1])
-		glTexCoord2iv([0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0,0,0,1])
-		glTexCoord2s(1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1,1,0,1])
-		glTexCoord2sv([0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0,0,0,1])
-		# 3
-		glTexCoord3d(1.5,1.5,1.5)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1.5,1.5,1.5,1])
-		glTexCoord3dv([0.5,0.5,0.5])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0.5,0.5,0.5,1])
-		glTexCoord3f(1.5,1.5,1.5)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1.5,1.5,1.5,1])
-		glTexCoord3fv([0.5,0.5,0.5])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0.5,0.5,0.5,1])
-		glTexCoord3i(1,1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1,1,1,1])
-		glTexCoord3iv([0,0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0,0,0,1])
-		glTexCoord3s(1,1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1,1,1,1])
-		glTexCoord3sv([0,0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0,0,0,1])
-		# 4
-		glTexCoord4d(1.5,1.5,1.5,1.5)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1.5,1.5,1.5,1.5])
-		glTexCoord4dv([0.5,0.5,0.5,0.5])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0.5,0.5,0.5,0.5])
-		glTexCoord4f(1.5,1.5,1.5,1.5)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1.5,1.5,1.5,1.5])
-		glTexCoord4fv([0.5,0.5,0.5,0.5])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0.5,0.5,0.5,0.5])
-		glTexCoord4i(1,1,1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1,1,1,1])
-		glTexCoord4iv([0,0,0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0,0,0,0])
-		glTexCoord4s(1,1,1,1)
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1,1,1,1])
-		glTexCoord4sv([0,0,0,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[0,0,0,0])
-	end
-
-	def test_glenable_disable
-		glEnable(GL_FOG)
-		assert_equal(glIsEnabled(GL_FOG),true)
-		glDisable(GL_FOG)
-		assert_equal(glIsEnabled(GL_FOG),false)
-	end
-
-	def test_gltexparameter
-		glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S,GL_CLAMP)
-		assert_equal(glGetTexParameteriv(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S),GL_CLAMP)
-		glTexParameterf(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S,GL_MIRRORED_REPEAT)
-		assert_equal(glGetTexParameterfv(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S),GL_MIRRORED_REPEAT)
-		glTexParameteriv(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S,[GL_CLAMP])
-		assert_equal(glGetTexParameteriv(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S),GL_CLAMP)
-		glTexParameterfv(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S,[GL_MIRRORED_REPEAT])
-		assert_equal(glGetTexParameterfv(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S),GL_MIRRORED_REPEAT)
-
-		assert_equal(glGetTexLevelParameterfv(GL_TEXTURE_2D,0,GL_TEXTURE_WIDTH),0.0)
-		assert_equal(glGetTexLevelParameteriv(GL_TEXTURE_2D,0,GL_TEXTURE_WIDTH),0)
-	end
-
-	def test_glcullface
-		glCullFace(GL_FRONT)
-		assert_equal(glGetIntegerv(GL_CULL_FACE_MODE),GL_FRONT)
-		glCullFace(GL_BACK)
-		assert_equal(glGetIntegerv(GL_CULL_FACE_MODE),GL_BACK)
-	end
-	
-	def test_glfrontface
-		glFrontFace(GL_CW)
-		assert_equal(glGetIntegerv(GL_FRONT_FACE),GL_CW)
-		glFrontFace(GL_CCW)
-		assert_equal(glGetIntegerv(GL_FRONT_FACE),GL_CCW)
-	end
-
-	def test_glpointsize
-		glPointSize(2.0)
-		assert_equal(glGetDoublev(GL_POINT_SIZE),2.0)
-		glPointSize(3.0)
-		assert_equal(glGetDoublev(GL_POINT_SIZE),3.0)
-	end
-
-	def test_glpolygonmode
-		glPolygonMode(GL_FRONT_AND_BACK,GL_LINE)
-		assert_equal(glGetIntegerv(GL_POLYGON_MODE),[GL_LINE,GL_LINE])
-		glPolygonMode(GL_FRONT_AND_BACK,GL_FILL)
-		assert_equal(glGetIntegerv(GL_POLYGON_MODE),[GL_FILL,GL_FILL])
-	end
-
-	def test_gllinewidth
-		glLineWidth(2.0)
-		assert_equal(glGetDoublev(GL_LINE_WIDTH),2.0)
-		glLineWidth(3.0)
-		assert_equal(glGetDoublev(GL_LINE_WIDTH),3.0)
-	end
-	
-	def test_gllinestipple
-		glLineStipple(3,0x1234)
-		assert_equal(glGetIntegerv(GL_LINE_STIPPLE_REPEAT),3)
-		assert_equal(glGetIntegerv(GL_LINE_STIPPLE_PATTERN),0x1234)
-	end
-
-	def test_glpolygonstipple
-		stipple = [0x12] * 128
-		glPolygonStipple(stipple.pack("c*"))
-		assert_equal(glGetPolygonStipple(),stipple.pack("c*"))
-	end
-
-	def parse_feedback_data(data,count)
-		c = count / 11
-		ret = []
-		(0...c).each do |x|
-			i = x *11
-			type = data[0+i]
-		
-			v1 = [data[2+i], data[3+i], data[4+i]]
-			v2 = [data[5+i], data[6+i], data[7+i]]
-			v3 = [data[8+i], data[9+i], data[10+i]]
-			vertex = [v1,v2,v3].sort
-			ret << [type,vertex]
-		end
-		ret
-	end
-
-	def test_glvertex
-		glMatrixMode(GL_PROJECTION)
-		glOrtho(0,$window_size,0,$window_size,0,-1)
-
-		buf = glFeedbackBuffer(256,GL_3D)
-
-		glRenderMode(GL_FEEDBACK)
-
-		glBegin(GL_TRIANGLES)
-		glVertex2d( 1, 0)
-		glVertex2dv([0,0])
-		glVertex2f( 1,1)
-
-		glVertex2fv([ 1, 0])
-		glVertex2i(  0,0)
-		glVertex2iv([1,1])
-
-		glVertex2s( 1, 0)
-		glVertex2sv([0,0])
-		glVertex3d( 1,1,0)
-
-		glVertex3dv([ 1, 0,0])
-		glVertex3f(  0,0,0)
-		glVertex3fv([1,1,0])
-
-		glVertex3i( 1, 0,0)
-		glVertex3iv([0,0,0])
-		glVertex3s( 1,1,0)
-
-		glVertex3sv([ 1, 0,0])
-		glVertex4d(  0,0,0,1)
-		glVertex4dv([1,1,0,1])
-
-		glVertex4f( 1, 0,0,1)
-		glVertex4fv([0,0,0,1])
-		glVertex4i( 1,1,0,1)
-
-		glVertex4iv([ 1, 0,0,1])
-		glVertex4s(  0,0,0,1)
-		glVertex4sv([1,1,0,1])
-
-		glEnd()
-
-		count = glRenderMode(GL_RENDER)
-		data = buf.unpack("f*")
-		
-		ref = [[GL_POLYGON_TOKEN,[[0,0,0],[1,0,0],[1,1,0]]]] * 8
-		
-		assert_equal(parse_feedback_data(data,count),ref)
-	end
-	
-	def test_glrect
-		glMatrixMode(GL_PROJECTION)
-		glOrtho(0,$window_size,0,$window_size,0,-1)
-		
-		buf = glFeedbackBuffer(256,GL_3D)
-		
-		glRenderMode(GL_FEEDBACK)
-
-		glRectd(0,0,1,1)
-		glRectdv([0,0],[1,1])
-		glRectf(0,0,1,1)
-		glRectfv([0,0],[1,1])
-		glRecti(0,0,1,1)
-		glRectiv([0,0],[1,1])
-		glRects(0,0,1,1)
-		glRectsv([0,0],[1,1])
-		
-		count = glRenderMode(GL_RENDER)
-		data = buf.unpack("f*")
-
-		assert_equal(count, (3*3+2)*2*8)
-	end
-
-	def test_glclear
-		glClearColor(1.0,1.0,1.0,1.0)
-		glClear(GL_COLOR_BUFFER_BIT)
-
-		data = glReadPixels(0,0,1,1,GL_RGB,GL_FLOAT)
-		assert_equal(data.unpack("f*"),[1.0,1.0,1.0])
-
-		glClearColor(0.0,0.0,0.0,0.0)
-		glClear(GL_COLOR_BUFFER_BIT)
-
-		data = glReadPixels(0,0,1,1,GL_RGB,GL_FLOAT)
-		assert_equal(data.unpack("f*"),[0.0,0.0,0.0])
-	end
-
-	def test_gltexenv
-		glTexEnvf(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE,GL_ADD)
-		assert_equal(glGetTexEnvfv(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE),GL_ADD)
-		glTexEnvi(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE,GL_MODULATE)
-		assert_equal(glGetTexEnviv(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE),GL_MODULATE)
-
-		glTexEnvfv(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE,[GL_ADD])
-		assert_equal(glGetTexEnvfv(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE),GL_ADD)
-		glTexEnviv(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE,[GL_MODULATE])
-		assert_equal(glGetTexEnviv(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE),GL_MODULATE)
-	end
-
-	def test_gltexgen
-		glTexGend(GL_S,GL_TEXTURE_GEN_MODE,GL_REFLECTION_MAP)
-		assert_equal(glGetTexGendv(GL_S,GL_TEXTURE_GEN_MODE),GL_REFLECTION_MAP)
-		glTexGenf(GL_S,GL_TEXTURE_GEN_MODE,GL_EYE_LINEAR)
-		assert_equal(glGetTexGenfv(GL_S,GL_TEXTURE_GEN_MODE),GL_EYE_LINEAR)
-		glTexGeni(GL_S,GL_TEXTURE_GEN_MODE,GL_SPHERE_MAP)
-		assert_equal(glGetTexGeniv(GL_S,GL_TEXTURE_GEN_MODE),GL_SPHERE_MAP)
-
-		glTexGendv(GL_S,GL_TEXTURE_GEN_MODE,[GL_REFLECTION_MAP])
-		assert_equal(glGetTexGendv(GL_S,GL_TEXTURE_GEN_MODE),GL_REFLECTION_MAP)
-		glTexGenfv(GL_S,GL_TEXTURE_GEN_MODE,[GL_EYE_LINEAR])
-		assert_equal(glGetTexGenfv(GL_S,GL_TEXTURE_GEN_MODE),GL_EYE_LINEAR)
-		glTexGeniv(GL_S,GL_TEXTURE_GEN_MODE,[GL_SPHERE_MAP])
-		assert_equal(glGetTexGeniv(GL_S,GL_TEXTURE_GEN_MODE),GL_SPHERE_MAP)
-	end
-
-	def test_textures
-		textures = glGenTextures(2)
-		assert_equal(textures.size, 2)
-		assert_equal(glIsTexture(textures[0]),false)
-		glBindTexture(GL_TEXTURE_2D,textures[0])
-		assert_equal(glIsTexture(textures[0]),true)
-
-		image = ([0,0,0,1,1,1] * 8).pack("f*") # 16 RGB pixels
-
-		glTexImage2D(GL_TEXTURE_2D,0,GL_RGB8, 4, 4, 0, GL_RGB, GL_FLOAT, image)
-		assert_equal(glGetTexImage(GL_TEXTURE_2D,0,GL_RGB,GL_FLOAT), image)
-
-		glBindTexture(GL_TEXTURE_1D,textures[1])
-
-		glTexImage1D(GL_TEXTURE_1D,0,GL_RGB8, 16, 0, GL_RGB, GL_FLOAT, image)
-		assert_equal(glGetTexImage(GL_TEXTURE_1D,0,GL_RGB,GL_FLOAT), image)
-
-		glDeleteTextures(textures)
-		assert_equal(glIsTexture(textures[0]),false)
-	end
-
-	def test_pixels
-		glClearColor(0,0,0,0)
-		glClear(GL_COLOR_BUFFER_BIT)
-
-		data = glReadPixels(0,0,4,4,GL_RGB,GL_FLOAT)
-		assert_equal(data.unpack("f*"), [0] * 3 * 16)
-
-		image = ([1.0] * 3 * 16).pack("f*")
-		glDrawPixels(4,4,GL_RGB,GL_FLOAT,image)
-
-		data = glReadPixels(0,0,4,4,GL_RGB,GL_FLOAT)
-		assert_equal(data,image)
-
-		#
-		glClearColor(0,0,0,0)
-		glClear(GL_COLOR_BUFFER_BIT)
-
-		image = (([0.0] * 3 * 8) + ([1.0] * 3 * 8)).pack("f*")
-		glDrawPixels(4,4,GL_RGB,GL_FLOAT,image)
-
-		data = glReadPixels(0,0,4,4,GL_RGB,GL_FLOAT)
-		assert_equal(data,image)
-	
-		glCopyPixels(0,2,4,2,GL_COLOR)
-	
-		data = glReadPixels(0,0,4,4,GL_RGB,GL_FLOAT)
-		assert_equal(data,([1.0] * 3 * 16).pack("f*"))
-	end
-
-	def test_gltranslate
-		m = [[1,0,0,0],[0,1,0,0],[0,0,1,0],[1,2,3,1]]
-		glMatrixMode(GL_MODELVIEW)
-		glLoadIdentity()
-		glTranslated(1.0,2.0,3.0)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX),m)
-		glLoadIdentity()
-		glTranslatef(1.0,2.0,3.0)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX),m)
-	end
-
-	def test_glscale
-		m = [[1,0,0,0],[0,2,0,0],[0,0,3,0],[0,0,0,1]]
-		glMatrixMode(GL_MODELVIEW)
-		glLoadIdentity()
-		glScaled(1.0,2.0,3.0)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX),m)
-		glLoadIdentity()
-		glScalef(1.0,2.0,3.0)
-		assert_equal(glGetDoublev(GL_MODELVIEW_MATRIX),m)
-	end
-
-	def test_glrotate
-		m1 = [[0,0,-1,0],[0,1,0,0],[1,0,0,0],[0,0,0,1]]
-		m2 = [[1,0,0,0],[0,1,0,0],[0,0,1,0],[0,0,0,1]]
-		glMatrixMode(GL_MODELVIEW)
-		glLoadIdentity()
-		glRotated(90,0,1,0)
-		assert(approx_equal(glGetDoublev(GL_MODELVIEW_MATRIX).flatten,m1.flatten))
-		glRotated(-90,0,1,0)
-		assert(approx_equal(glGetDoublev(GL_MODELVIEW_MATRIX).flatten,m2.flatten))
-	end
-
-	def test_textures_2
-		textures = glGenTextures(2)
-		glBindTexture(GL_TEXTURE_1D,textures[0])
-		glBindTexture(GL_TEXTURE_2D,textures[1])
-		assert_equal(glAreTexturesResident(textures).size,2)
-		glPrioritizeTextures(textures,[0.5,1.0])
-		assert_equal(glGetTexParameterfv(GL_TEXTURE_1D,GL_TEXTURE_PRIORITY),0.5)
-		assert_equal(glGetTexParameterfv(GL_TEXTURE_2D,GL_TEXTURE_PRIORITY),1.0)
-
-		tex = ([0,0,0,1,1,1] * 2).pack("f*")
-		tex2 = ([1] * 3 * 4).pack("f*")
-
-		# 1d
-		glDrawPixels(4,1,GL_RGB,GL_FLOAT,tex)
-		glCopyTexImage1D(GL_TEXTURE_1D,0,GL_RGB8,0,0,4,0)
-		assert_equal(glGetTexImage(GL_TEXTURE_1D,0,GL_RGB,GL_FLOAT),tex)
-		
-		glDrawPixels(4,1,GL_RGB,GL_FLOAT,tex2)
-		glCopyTexSubImage1D(GL_TEXTURE_1D,0,0,0,0,4)
-		assert_equal(glGetTexImage(GL_TEXTURE_1D,0,GL_RGB,GL_FLOAT),tex2)
-
-		glTexSubImage1D(GL_TEXTURE_1D,0,0,4,GL_RGB,GL_FLOAT,tex)
-		assert_equal(glGetTexImage(GL_TEXTURE_1D,0,GL_RGB,GL_FLOAT),tex)
-
-		# 2d
-		glDrawPixels(2,2,GL_RGB,GL_FLOAT,tex)
-		glCopyTexImage2D(GL_TEXTURE_2D,0,GL_RGB8,0,0,2,2,0)
-		assert_equal(glGetTexImage(GL_TEXTURE_2D,0,GL_RGB,GL_FLOAT),tex)
-
-		glDrawPixels(2,2,GL_RGB,GL_FLOAT,tex2)
-		glCopyTexSubImage2D(GL_TEXTURE_2D,0,0,0,0,0,2,2)
-		assert_equal(glGetTexImage(GL_TEXTURE_2D,0,GL_RGB,GL_FLOAT),tex2)
-
-		glTexSubImage2D(GL_TEXTURE_2D,0,0,0,2,2,GL_RGB,GL_FLOAT,tex)
-		assert_equal(glGetTexImage(GL_TEXTURE_2D,0,GL_RGB,GL_FLOAT),tex)
-
-		glDeleteTextures(textures)
-	end
-
-	def test_glmap
-		control_points = [
-			0.25, 0.5, 0.0,
-			1.0, 1.0, 0.0
-		]
-
-		control_points_2 = [
-			1.25, 1.5, 1.0,
-			0.0, 0.0, 1.0
-		]
-
-		glMap1f(GL_MAP1_VERTEX_3,0,100,3,2,control_points)
-		assert_equal(glGetMapfv(GL_MAP1_VERTEX_3,GL_COEFF),control_points)
-
-		glMap1d(GL_MAP1_VERTEX_3,0,100,3,2,control_points_2)
-		assert_equal(glGetMapdv(GL_MAP1_VERTEX_3,GL_COEFF),control_points_2)
-
-		assert_equal(glGetMapiv(GL_MAP1_VERTEX_3,GL_ORDER),2)
-
-		glMap2f(GL_MAP2_VERTEX_3,0,100,3,1,0,100,3,2,control_points)
-		assert_equal(glGetMapfv(GL_MAP2_VERTEX_3,GL_COEFF),control_points)
-
-		glMap2d(GL_MAP2_VERTEX_3,0,100,3,1,0,100,3,2,control_points_2)
-		assert_equal(glGetMapdv(GL_MAP2_VERTEX_3,GL_COEFF),control_points_2)
-	end
-
-	def test_glmapgrid
-		glMapGrid1d(2,1,100)
-		assert_equal(glGetIntegerv(GL_MAP1_GRID_SEGMENTS),2)
-		assert_equal(glGetIntegerv(GL_MAP1_GRID_DOMAIN),[1,100])
-		glMapGrid1f(3,2,99)
-		assert_equal(glGetIntegerv(GL_MAP1_GRID_SEGMENTS),3)
-		assert_equal(glGetIntegerv(GL_MAP1_GRID_DOMAIN),[2,99])
-		#
-		glMapGrid2d(2,1,100,3,2,99)
-		assert_equal(glGetIntegerv(GL_MAP2_GRID_SEGMENTS),[2,3])
-		assert_equal(glGetIntegerv(GL_MAP2_GRID_DOMAIN),[1,100,2,99])
-
-		glMapGrid2f(3,2,99,4,3,98)
-		assert_equal(glGetIntegerv(GL_MAP2_GRID_SEGMENTS),[3,4])
-		assert_equal(glGetIntegerv(GL_MAP2_GRID_DOMAIN),[2,99,3,98])
-	end
-
-	def test_gleval
-		control_points = [0,0,0,1,1,1]
-		glMap1f(GL_MAP1_VERTEX_3,0,1,3,2,control_points)
-		glMap2f(GL_MAP2_VERTEX_3,0,1,3,1,0,1,3,2,control_points)
-		glEnable(GL_MAP1_VERTEX_3)
-		glEnable(GL_MAP2_VERTEX_3)
-
-		buf = glFeedbackBuffer(256,GL_3D)
-		glRenderMode(GL_FEEDBACK)
-
-		glBegin(GL_TRIANGLES)
-		glEvalCoord1d(1.0)
-		glEvalCoord1dv([1.0])
-		glEvalCoord1f(1.0)
-		
-		glEvalCoord1fv([1.0])
-		glEvalCoord1fv([1.0])
-		glEvalCoord1fv([1.0])
-
-		glEvalCoord2d(1.0,1.0)
-		glEvalCoord2dv([1.0,1.0])
-		glEvalCoord2f(1.0,1.0)
-
-		glEvalCoord2fv([1.0,1.0])
-		glEvalCoord2fv([1.0,1.0])
-		glEvalCoord2fv([1.0,1.0])
-
-		glEvalPoint1(0.0)
-		glEvalPoint1(0.0)
-		glEvalPoint1(0.0)
-
-		glEvalPoint2(0.0,1.0)
-		glEvalPoint2(0.0,1.0)
-		glEvalPoint2(0.0,1.0)
-
-		glEnd
-
-		count = glRenderMode(GL_RENDER)
-		assert_equal(count,(3*3+2)*6)
-
-		glDisable(GL_MAP2_VERTEX_3)
-		glDisable(GL_MAP1_VERTEX_3)
-	end
-
-	def test_glevalmesh
-		control_points = [0,0,0,1,1,1]
-		glMap1f(GL_MAP1_VERTEX_3,0,1,3,2,control_points)
-		glMap2f(GL_MAP2_VERTEX_3,0,1,3,1,0,1,3,2,control_points)
-		glEnable(GL_MAP1_VERTEX_3)
-		glEnable(GL_MAP2_VERTEX_3)
-		
-		buf = glFeedbackBuffer(256,GL_3D)
-		glRenderMode(GL_FEEDBACK)
-		
-		glEvalMesh1(GL_POINT,0,1)
-		glEvalMesh2(GL_POINT,0,1,0,1)
-		
-		count = glRenderMode(GL_RENDER)
-		assert_equal(count,((3+1)*(2+2*2)))
-		
-		glDisable(GL_MAP2_VERTEX_3)
-		glDisable(GL_MAP1_VERTEX_3)
-	end
-
-	def test_glaccum
-		return if glGetIntegerv(GL_ACCUM_RED_BITS) <= 0 # no accumulation buffer ?
-
-		i1 = ([0.0] * 3 + [1.0] * 3 ).pack("f*")
-		i2 = ([1.0] * 3 + [0.0] * 3 ).pack("f*")
-
-		# init
-		glClearColor(0,0,0,0)	
-		glClear(GL_ACCUM_BUFFER_BIT | GL_COLOR_BUFFER_BIT)
-		# left
-		glDrawPixels(2,1,GL_RGB,GL_FLOAT,i1)
-		glAccum(GL_ACCUM,1.0)
-		# right
-		glClear(GL_COLOR_BUFFER_BIT)
-		glDrawPixels(2,1,GL_RGB,GL_FLOAT,i2)
-		glAccum(GL_ACCUM,1.0)
-		# combine
-		glAccum(GL_RETURN,1.0)
-
-		data = glReadPixels(0,0,2,1,GL_RGB,GL_FLOAT)
-		assert_equal(data.unpack("f*"),[1.0] * 2 * 3)
-	end
-
-	def test_displaylists
-		base = glGenLists(2)
-		assert(base>0)
-		glListBase(1)
-		assert_equal(glGetIntegerv(GL_LIST_BASE),1)
-		glListBase(0)
-		assert_equal(glGetIntegerv(GL_LIST_BASE),0)
-
-		glNewList(base+0, GL_COMPILE)
-		glBegin(GL_TRIANGLES)
-		glVertex2f(0,0)
-		glVertex2f(1,0)
-		glVertex2f(1,1)
-		glEnd()
-		glEndList()
-
-		glNewList(base+1, GL_COMPILE)
-		glBegin(GL_TRIANGLES)
-		glVertex2f(0,0)
-		glVertex2f(1,0)
-		glVertex2f(1,1)
-		glEnd()
-		glEndList()
-
-		assert_equal(glIsList(base+0),true)
-		assert_equal(glIsList(base+1),true)
-		assert_equal(glIsList(base+2),false)
-
-		#		
-		buf = glFeedbackBuffer(256,GL_3D)
-		glRenderMode(GL_FEEDBACK)
-
-		glCallList(base+0)
-		glCallLists(GL_INT,[base+0,base+1])
-
-		count = glRenderMode(GL_RENDER)
-		assert_equal(count,(3*3+2) * 3) # 3 triangles
-		#
-
-		glDeleteLists(base,2)
-
-		assert_equal(glIsList(base+0),false)
-		assert_equal(glIsList(base+1),false)
-	end
-
-	def test_arrays
-		glEnableClientState(GL_VERTEX_ARRAY)
-		
-		va = [0,0, 0,1, 1,1].pack("f*")
-		glVertexPointer(2,GL_FLOAT,0,va)
-		assert_equal(glGetPointerv(GL_VERTEX_ARRAY_POINTER),va)
-		assert_equal(glGetIntegerv(GL_VERTEX_ARRAY_SIZE),2)
-		assert_equal(glGetIntegerv(GL_VERTEX_ARRAY_TYPE),GL_FLOAT)
-		assert_equal(glGetIntegerv(GL_VERTEX_ARRAY_STRIDE),0)
-		#
-		buf = glFeedbackBuffer(256,GL_3D)
-		glRenderMode(GL_FEEDBACK)
-
-		glDrawArrays(GL_TRIANGLES,0,3)
-
-		glBegin(GL_TRIANGLES)
-		glArrayElement(0)
-		glArrayElement(1)
-		glArrayElement(2)
-		glEnd()
-
-		glDrawElements(GL_TRIANGLES,3,GL_UNSIGNED_BYTE,[0,1,2].pack("C*"))
-
-		glInterleavedArrays(GL_V2F,0, va)
-
-		glDrawElements(GL_TRIANGLES,3,GL_UNSIGNED_BYTE,[0,1,2].pack("C*"))
-
-		#		
-		count = glRenderMode(GL_RENDER)
-		assert_equal(count,44)
-
-		glDisableClientState(GL_VERTEX_ARRAY)
-	end
-
-	def test_arrays_2
-		na = [0,1,0].pack("f*")
-		ta = [1,0,1,0].pack("f*")
-		ea = [0].pack("C*")
-		ca = [1,0,1,0].pack("f*")
-		
-		glNormalPointer(GL_FLOAT,0,na)
-		assert_equal(glGetIntegerv(GL_NORMAL_ARRAY_TYPE),GL_FLOAT)
-		assert_equal(glGetIntegerv(GL_NORMAL_ARRAY_STRIDE),0)
-		assert_equal(glGetPointerv(GL_NORMAL_ARRAY_POINTER),na)
-		glTexCoordPointer(4,GL_FLOAT,0,ta)
-		assert_equal(glGetIntegerv(GL_TEXTURE_COORD_ARRAY_SIZE),4)
-		assert_equal(glGetIntegerv(GL_TEXTURE_COORD_ARRAY_TYPE),GL_FLOAT)
-		assert_equal(glGetIntegerv(GL_TEXTURE_COORD_ARRAY_STRIDE),0)
-		assert_equal(glGetPointerv(GL_TEXTURE_COORD_ARRAY_POINTER),ta)
-		glEdgeFlagPointer(0,ea)
-		assert_equal(glGetIntegerv(GL_EDGE_FLAG_ARRAY_STRIDE),0)
-		assert_equal(glGetPointerv(GL_EDGE_FLAG_ARRAY_POINTER),ea)
-		glColorPointer(4,GL_FLOAT,0,ca)
-		assert_equal(glGetIntegerv(GL_COLOR_ARRAY_SIZE),4)
-		assert_equal(glGetIntegerv(GL_COLOR_ARRAY_TYPE),GL_FLOAT)
-		assert_equal(glGetIntegerv(GL_COLOR_ARRAY_STRIDE),0)
-		assert_equal(glGetPointerv(GL_COLOR_ARRAY_POINTER),ca)
-		#
-		glEnable(GL_COLOR_ARRAY)
-		glEnable(GL_NORMAL_ARRAY)
-		glEnable(GL_TEXTURE_COORD_ARRAY)
-		glEnable(GL_EDGE_FLAG_ARRAY)
-
-		glBegin(GL_TRIANGLES)
-		glArrayElement(0)
-		glEnd()
-
-		assert_equal(glGetDoublev(GL_CURRENT_COLOR),[1,0,1,0])
-		assert_equal(glGetDoublev(GL_CURRENT_NORMAL),[0,1,0])
-		assert_equal(glGetDoublev(GL_CURRENT_TEXTURE_COORDS),[1,0,1,0])
-		assert_equal(glGetBooleanv(GL_EDGE_FLAG),false)
-
-		glDisable(GL_EDGE_FLAG_ARRAY)
-		glDisable(GL_TEXTURE_COORD_ARRAY)
-		glDisable(GL_NORMAL_ARRAY)
-		glDisable(GL_COLOR_ARRAY)
-	end
-end