danabr75-opengl 0.10.0

data/test/test_gl_12.rb

@@ -0,0 +1,71 @@
+#
+# 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 'opengl/test_case'
+
+class TestGl12 < OpenGL::TestCase
+
+  def setup
+    super
+    supported? 1.2
+  end
+
+  def test_glblend
+    glBlendColor(0.0, 1.0, 0.0, 1.0)
+    assert_equal(glGetDoublev(GL_BLEND_COLOR), [0, 1, 0, 1])
+
+    glBlendEquation(GL_MIN)
+    assert_equal(GL_MIN, glGetIntegerv(GL_BLEND_EQUATION))
+    glBlendEquation(GL_MAX)
+    assert_equal(GL_MAX, glGetIntegerv(GL_BLEND_EQUATION))
+  end
+
+  def test_gldrawrangeelements
+    va = [0, 0, 0, 1, 1, 1].pack("f*")
+    glVertexPointer(2, GL_FLOAT, 0, va)
+
+    buf = glFeedbackBuffer(256, GL_3D)
+    glRenderMode(GL_FEEDBACK)
+
+    glEnableClientState(GL_VERTEX_ARRAY)
+
+    glDrawRangeElements(GL_POINTS, 0, 2, 3, GL_UNSIGNED_BYTE, [0, 1, 2].pack("C*"))
+    count = glRenderMode(GL_RENDER)
+    assert_equal(12, count)
+
+    glDisableClientState(GL_VERTEX_ARRAY)
+  end
+
+  def test_texture_3D
+    image = ([0, 0, 0, 1, 1, 1] * 2 * 2).pack("f*")
+    image2 = ([1, 1, 1, 0, 0, 0] * 2 * 2).pack("f*")
+
+    textures = glGenTextures(1)
+    glBindTexture(GL_TEXTURE_3D, textures[0])
+
+    glTexImage3D(GL_TEXTURE_3D, 0, GL_RGB8, 2, 2, 2, 0, GL_RGB, GL_FLOAT, image)
+    assert_equal(image, glGetTexImage(GL_TEXTURE_3D, 0, GL_RGB, GL_FLOAT))
+
+    glTexSubImage3D(GL_TEXTURE_3D, 0, 0, 0, 0, 2, 2, 2, GL_RGB, GL_FLOAT, image2)
+    assert_equal(image2, glGetTexImage(GL_TEXTURE_3D, 0, GL_RGB, GL_FLOAT))
+
+    glDrawPixels(2, 2, GL_RGB, GL_FLOAT, image)
+    glCopyTexSubImage3D(GL_TEXTURE_3D, 0, 0, 0, 0, 0, 0, 2, 2)
+    ti = glGetTexImage(GL_TEXTURE_3D, 0, GL_RGB, GL_FLOAT).unpack("f*")
+    assert_equal(([0]*3 + [1]*3) * 2 + ([1]*3 + [0]*3) * 2, ti)
+
+    glDeleteTextures(textures)
+  end
+end

data/test/test_gl_13.rb

@@ -0,0 +1,221 @@
+#
+# 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 'opengl/test_case'
+
+class TestGl13 < OpenGL::TestCase
+
+  def setup
+    super
+    supported? 1.3
+  end
+
+  def test_glsamplecoverage
+    glSampleCoverage(0.0, GL_TRUE)
+    assert_equal(0.0, glGetDoublev(GL_SAMPLE_COVERAGE_VALUE))
+    assert_equal(GL_TRUE, glGetBooleanv(GL_SAMPLE_COVERAGE_INVERT))
+    glSampleCoverage(1.0, GL_FALSE)
+    assert_equal(1.0, glGetDoublev(GL_SAMPLE_COVERAGE_VALUE))
+    assert_equal(GL_FALSE, glGetBooleanv(GL_SAMPLE_COVERAGE_INVERT))
+  end
+
+  def test_multitexture
+    glActiveTexture(GL_TEXTURE1)
+    glClientActiveTexture(GL_TEXTURE2)
+    assert_equal(GL_TEXTURE1, glGetIntegerv(GL_ACTIVE_TEXTURE))
+    assert_equal(GL_TEXTURE2, glGetIntegerv(GL_CLIENT_ACTIVE_TEXTURE))
+  end
+
+  def test_transposematrix
+    m_a = [[1.0,2.0,3.0,4.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 = [[1.0,2.0,3.0,4.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]]
+
+    glMatrixMode(GL_MODELVIEW)
+    glLoadTransposeMatrixf(m_a)
+    assert_equal(m_a, glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX))
+
+    glLoadTransposeMatrixd(m_b)
+    assert_equal(m_b, glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX))
+
+    glLoadIdentity()
+    glMultTransposeMatrixf(m_a)
+    assert_equal(m_a, glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX))
+
+    glLoadIdentity()
+    glMultTransposeMatrixd(m_b)
+    assert_equal(m_b, glGetDoublev(GL_TRANSPOSE_MODELVIEW_MATRIX))
+
+    # 2
+    m = Matrix.rows([[1,2,3,4],[5,6,7,8],[9,10,11,12],[13,14,15,16]])
+    glMatrixMode(GL_MODELVIEW)
+    glLoadTransposeMatrixf(m)
+    assert_equal(m.to_a.transpose, glGetDoublev(GL_MODELVIEW_MATRIX))
+    glLoadIdentity()
+    glLoadTransposeMatrixd(m)
+    assert_equal(m.to_a.transpose, glGetDoublev(GL_MODELVIEW_MATRIX))
+    glLoadIdentity()
+    glMultTransposeMatrixf(m)
+    assert_equal(m.to_a.transpose, glGetDoublev(GL_MODELVIEW_MATRIX))
+    glLoadIdentity()
+    glMultTransposeMatrixd(m)
+    assert_equal(m.to_a.transpose, glGetDoublev(GL_MODELVIEW_MATRIX))
+
+    assert_raises ArgumentError do glLoadTransposeMatrixf([1,2,3,4]) end
+    assert_raises ArgumentError do glLoadTransposeMatrixd([1,2,3,4]) end
+    assert_raises ArgumentError do glMultTransposeMatrixf([1,2,3,4]) end
+    assert_raises ArgumentError do glMultTransposeMatrixd([1,2,3,4]) end
+  end
+
+  def test_texturecompression
+    supported?("GL_EXT_texture_compression_s3tc")
+
+    # S3TC/DXT5 compressed 2x2 pixels stipple patterns [w,b,b,w] and [b,w,w,b]
+    image_1 = [0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,0x00,0x00,0x01,0x54,0x5C,0x5C].pack("C*")
+    image_2 = [0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,0x00,0x00,0x54,0x01,0x0D,0x0D].pack("C*")
+
+    textures = glGenTextures(3)
+    glBindTexture(GL_TEXTURE_1D,textures[0])
+    glBindTexture(GL_TEXTURE_2D,textures[1])
+    glBindTexture(GL_TEXTURE_3D,textures[2])
+
+    # Note: 1D and 3D compressed textures are not supported by S3TC/DXTn, and usually not supported at all
+
+    # 1D
+    begin
+      glCompressedTexImage1D(GL_TEXTURE_1D,0,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,4,0,16,image_1)
+      assert_equal(image_1, glGetCompressedTexImage(GL_TEXTURE_1D,0))
+    rescue Gl::Error => err
+      assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
+    end
+
+    begin
+      glCompressedTexSubImage1D(GL_TEXTURE_1D,0,0,4,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,16,image_2)
+      assert_equal(image_2, glGetCompressedTexImage(GL_TEXTURE_1D,0))
+    rescue Gl::Error => err
+      assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
+    end
+
+    # 2D
+    glCompressedTexImage2D(GL_TEXTURE_2D,0,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,2,2,0,16,image_1)
+    assert_equal(image_1, glGetCompressedTexImage(GL_TEXTURE_2D,0))
+
+    glCompressedTexSubImage2D(GL_TEXTURE_2D,0,0,0,2,2,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,16,image_2)
+    assert_equal(image_2, glGetCompressedTexImage(GL_TEXTURE_2D,0))
+
+    # 3D
+    begin
+      glCompressedTexImage3D(GL_TEXTURE_3D,0,GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,2,2,1,0,16,image_1)
+      assert_equal(image_1, glGetCompressedTexImage(GL_TEXTURE_3D,0))
+    rescue Gl::Error => err
+      assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
+    end
+
+    begin
+      glCompressedTexSubImage3D(GL_TEXTURE_3D,0, 0,0,0, 2,2,1, GL_COMPRESSED_RGBA_S3TC_DXT5_EXT, 16, image_2)
+      assert_equal(image_2, glGetCompressedTexImage(GL_TEXTURE_3D,0))
+    rescue Gl::Error => err
+      assert(err.id == GL_INVALID_ENUM || err.id == GL_INVALID_OPERATION)
+    end
+
+    glDeleteTextures(textures)
+
+    n = glGetIntegerv(GL_NUM_COMPRESSED_TEXTURE_FORMATS)
+    if (n>0)
+      assert_equal(n, glGetIntegerv(GL_COMPRESSED_TEXTURE_FORMATS).size)
+    end
+  end
+
+  def test_glmultitexcoord
+    glActiveTexture(GL_TEXTURE1)
+
+    # 1
+    glMultiTexCoord1d(GL_TEXTURE1, 1.0)
+    assert_equal([1,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1dv(GL_TEXTURE1, [0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1f(GL_TEXTURE1, 1.0)
+    assert_equal([1,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1fv(GL_TEXTURE1, [0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1i(GL_TEXTURE1, 1)
+    assert_equal([1,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1iv(GL_TEXTURE1, [0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1s(GL_TEXTURE1, 1)
+    assert_equal([1,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord1sv(GL_TEXTURE1, [0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    # 2
+    glMultiTexCoord2d(GL_TEXTURE1, 1.0,1.0)
+    assert_equal([1,1,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2dv(GL_TEXTURE1, [0.0,0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2f(GL_TEXTURE1, 1.0,1.0)
+    assert_equal([1,1,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2fv(GL_TEXTURE1, [0.0,0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2i(GL_TEXTURE1, 1,1)
+    assert_equal([1,1,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2iv(GL_TEXTURE1, [0,0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2s(GL_TEXTURE1, 1,1)
+    assert_equal([1,1,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord2sv(GL_TEXTURE1, [0,0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    # 3
+    glMultiTexCoord3d(GL_TEXTURE1, 1.0,1.0,1.0)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3dv(GL_TEXTURE1, [0.0,0.0,0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3f(GL_TEXTURE1, 1.0,1.0,1.0)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3fv(GL_TEXTURE1, [0.0,0.0,0.0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3i(GL_TEXTURE1, 1,1,1)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3iv(GL_TEXTURE1, [0,0,0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3s(GL_TEXTURE1, 1,1,1)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord3sv(GL_TEXTURE1, [0,0,0])
+    assert_equal([0,0,0,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    # 4
+    glMultiTexCoord4d(GL_TEXTURE1, 1.0,1.0,1.0,1.0)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4dv(GL_TEXTURE1, [0.0,0.0,0.0,0.0])
+    assert_equal([0,0,0,0], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4f(GL_TEXTURE1, 1.0,1.0,1.0,1.0)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4fv(GL_TEXTURE1, [0.0,0.0,0.0,0.0])
+    assert_equal([0,0,0,0], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4i(GL_TEXTURE1, 1,1,1,1)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4iv(GL_TEXTURE1, [0,0,0,0])
+    assert_equal([0,0,0,0], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4s(GL_TEXTURE1, 1,1,1,1)
+    assert_equal([1,1,1,1], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+    glMultiTexCoord4sv(GL_TEXTURE1, [0,0,0,0])
+    assert_equal([0,0,0,0], glGetDoublev(GL_CURRENT_TEXTURE_COORDS))
+
+    glActiveTexture(GL_TEXTURE0)
+  end
+end

data/test/test_gl_14.rb

@@ -0,0 +1,218 @@
+#
+# 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 'opengl/test_case'
+
+class TestGl14 < OpenGL::TestCase
+
+  def setup
+    super
+    supported? 1.4
+  end
+
+  def test_arrays_2
+    sc = [0, 1, 0, 1, 0, 1].pack("f*")
+    fc = [1, 0].pack("f*")
+
+    glSecondaryColorPointer(3, GL_FLOAT, 12, sc)
+    assert_equal 3,        glGetIntegerv(GL_SECONDARY_COLOR_ARRAY_SIZE)
+    assert_equal GL_FLOAT, glGetIntegerv(GL_SECONDARY_COLOR_ARRAY_TYPE)
+    assert_equal 12,       glGetIntegerv(GL_SECONDARY_COLOR_ARRAY_STRIDE)
+    assert_equal sc,       glGetPointerv(GL_SECONDARY_COLOR_ARRAY_POINTER)
+
+    glFogCoordPointer(GL_FLOAT, 4, fc)
+    assert_equal GL_FLOAT, glGetIntegerv(GL_FOG_COORD_ARRAY_TYPE)
+    assert_equal 4,        glGetIntegerv(GL_FOG_COORD_ARRAY_STRIDE)
+    assert_equal fc,       glGetPointerv(GL_FOG_COORD_ARRAY_POINTER)
+
+    glEnableClientState(GL_SECONDARY_COLOR_ARRAY)
+    glEnableClientState(GL_FOG_COORD_ARRAY)
+
+    glBegin(GL_TRIANGLES)
+    glArrayElement(0)
+    glEnd()
+
+    assert_equal([0, 1, 0, 1], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+    assert_equal(1, glGetDoublev(GL_CURRENT_FOG_COORD))
+
+    glBegin(GL_TRIANGLES)
+    glArrayElement(1)
+    glEnd()
+
+    assert_equal([1, 0, 1, 1], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+    assert_equal(0, glGetDoublev(GL_CURRENT_FOG_COORD))
+
+    glDisableClientState(GL_SECONDARY_COLOR_ARRAY)
+    glDisableClientState(GL_FOG_COORD_ARRAY)
+  end
+
+  def test_arrays_3
+    va = [0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1].pack("f*")
+    glVertexPointer(2, GL_FLOAT, 0, va)
+
+    glEnableClientState(GL_VERTEX_ARRAY)
+
+    buf = glFeedbackBuffer(256, GL_3D)
+    glRenderMode(GL_FEEDBACK)
+
+    glMultiDrawArrays(GL_POLYGON, [0, 3], [3, 3])
+
+    i1 = [0, 1, 2].pack("C*")
+    i2 = [3, 4, 5].pack("C*")
+    glMultiDrawElements(GL_TRIANGLES, GL_UNSIGNED_BYTE, [i1, i2])
+
+    count = glRenderMode(GL_RENDER)
+    assert_equal(count, (3*3+2)*4)
+    glDisableClientState(GL_VERTEX_ARRAY)
+  end
+
+  def test_glblendfuncseparate
+    glBlendFuncSeparate(GL_SRC_COLOR, GL_SRC_COLOR, GL_SRC_COLOR, GL_SRC_COLOR)
+    assert_equal(GL_SRC_COLOR, glGetIntegerv(GL_BLEND_SRC_RGB))
+    assert_equal(GL_SRC_COLOR, glGetIntegerv(GL_BLEND_SRC_ALPHA))
+    assert_equal(GL_SRC_COLOR, glGetIntegerv(GL_BLEND_DST_RGB))
+    assert_equal(GL_SRC_COLOR, glGetIntegerv(GL_BLEND_DST_ALPHA))
+  end
+
+  def test_glpointparameter
+    glPointParameterf(GL_POINT_SIZE_MIN, 2.0)
+    assert_equal(2.0, glGetDoublev(GL_POINT_SIZE_MIN))
+
+    glPointParameterfv(GL_POINT_DISTANCE_ATTENUATION, [0, 1, 0])
+    assert_equal([0, 1, 0], glGetDoublev(GL_POINT_DISTANCE_ATTENUATION))
+
+    glPointParameteri(GL_POINT_SIZE_MAX, 4)
+    assert_equal(4, glGetDoublev(GL_POINT_SIZE_MAX))
+
+    glPointParameteriv(GL_POINT_DISTANCE_ATTENUATION, [1, 0, 1])
+    assert_equal([1, 0, 1], glGetDoublev(GL_POINT_DISTANCE_ATTENUATION))
+  end
+
+  def test_glfogcoord
+    glFogCoordf(2.0)
+    assert_equal(2.0, glGetDoublev(GL_CURRENT_FOG_COORD))
+    glFogCoordfv([3.0])
+    assert_equal(3.0, glGetDoublev(GL_CURRENT_FOG_COORD))
+
+    glFogCoordd(2.0)
+    assert_equal(2.0, glGetDoublev(GL_CURRENT_FOG_COORD))
+    glFogCoorddv([3.0])
+    assert_equal(3.0, glGetDoublev(GL_CURRENT_FOG_COORD))
+  end
+
+  def test_glsecondarycolor
+    glSecondaryColor3b(2**7-1, 0, 2**7-1)
+    assert_each_in_delta [1.0, 0.0, 1.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR)
+
+    glSecondaryColor3bv([0, 2**7-1, 0])
+    assert_each_in_delta([0.0, 1.0, 0.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3d(1.0, 0.0, 1.0)
+    assert_each_in_delta([1.0, 0.0, 1.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3dv([0.0, 1.0, 0.0])
+    assert_each_in_delta([0.0, 1.0, 0.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3f(1.0, 0.0, 1.0)
+    assert_each_in_delta([1.0, 0.0, 1.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3fv([0.0, 1.0, 0.0])
+    assert_each_in_delta([0.0, 1.0, 0.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3i(2**31-1, 0, 2**31-1)
+    assert_each_in_delta([1.0, 0.0, 1.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3iv([0, 2**31-1, 0])
+    assert_each_in_delta([0.0, 1.0, 0.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3s(2**15-1, 0, 2**15-1)
+    assert_each_in_delta([1.0, 0.0, 1.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3sv([0, 2**15-1, 0])
+    assert_each_in_delta([0.0, 1.0, 0.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3ub(2**8-1, 0, 2**8-1)
+    assert_each_in_delta([1.0, 0.0, 1.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3ubv([0, 2**8-1, 0])
+    assert_each_in_delta([0.0, 1.0, 0.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3ui(2**32-1, 0, 2**32-1)
+    assert_each_in_delta([1.0, 0.0, 1.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3uiv([0, 2**32-1, 0])
+    assert_each_in_delta([0.0, 1.0, 0.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3us(2**16-1, 0, 2**16-1)
+    assert_each_in_delta([1.0, 0.0, 1.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+
+    glSecondaryColor3usv([0, 2**16-1, 0])
+    assert_each_in_delta([0.0, 1.0, 0.0, 1.0], glGetDoublev(GL_CURRENT_SECONDARY_COLOR))
+  end
+
+  def test_glwindowpos_2
+    glLoadIdentity
+
+    glWindowPos2d 1.0, 2.0
+    assert_each_in_delta [1, 2, 0, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos2dv [2.0, 1.0]
+    assert_each_in_delta [2, 1, 0, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos2f 1.0, 2.0
+    assert_each_in_delta [1, 2, 0, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos2fv [2.0, 1.0]
+    assert_each_in_delta [2, 1, 0, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos2i 1, 2
+    assert_each_in_delta [1, 2, 0, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos2iv [2, 1]
+    assert_each_in_delta [2, 1, 0, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos2s 1, 2
+    assert_each_in_delta [1, 2, 0, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos2sv [2, 1]
+    assert_each_in_delta [2, 1, 0, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+  end
+
+  def test_glwindowspos_3
+    glWindowPos3d 1.0, 2.0, 0.5
+    assert_each_in_delta [1, 2, 0.5, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos3dv [3.0, 2.0, 1.0]
+    assert_each_in_delta [3, 2, 1, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos3f 1.0, 2.0, 0.5
+    assert_each_in_delta [1, 2, 0.5, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos3fv [3.0, 2.0, 1.0]
+    assert_each_in_delta [3, 2, 1, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos3i 1, 2, 0
+    assert_each_in_delta [1, 2, 0, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos3iv [3, 2, 1]
+    assert_each_in_delta [3, 2, 1, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos3s 1, 2, 0
+    assert_each_in_delta [1, 2, 0, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+
+    glWindowPos3sv [3, 2, 1]
+    assert_each_in_delta [3, 2, 1, 1], glGetDoublev(GL_CURRENT_RASTER_POSITION)
+  end
+end