ruby-opengl 0.60.1 → 0.61.0

data/examples/RedBook/texbind.rb

@@ -1,147 +0,0 @@
-#
-# Copyright (c) 1993-1997, Silicon Graphics, Inc.
-# ALL RIGHTS RESERVED 
-# Permission to use, copy, modify, and distribute this software for 
-# any purpose and without fee is hereby granted, provided that the above
-# copyright notice appear in all copies and that both the copyright notice
-# and this permission notice appear in supporting documentation, and that 
-# the name of Silicon Graphics, Inc. not be used in advertising
-# or publicity pertaining to distribution of the software without specific,
-# written prior permission. 
-#
-# THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
-# AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
-# INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
-# FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
-# GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
-# SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
-# KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
-# LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
-# THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
-# ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
-# POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
-# 
-# US Government Users Restricted Rights 
-# Use, duplication, or disclosure by the Government is subject to
-# restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
-# (c)(1)(ii) of the Rights in Technical Data and Computer Software
-# clause at DFARS 252.227-7013 and/or in similar or successor
-# clauses in the FAR or the DOD or NASA FAR Supplement.
-# Unpublished-- rights reserved under the copyright laws of the
-# United States.  Contractor/manufacturer is Silicon Graphics,
-# Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
-#
-# OpenGL(R) is a registered trademark of Silicon Graphics, Inc.
-#
-
-# texbind.c
-# This program demonstrates using glBindTexture() by 
-# creating and managing two textures.
-require 'opengl'
-require 'mathn'
-include Gl,Glu,Glut
-
-CheckImageWidth = 64
-CheckImageHeight = 64
-$checkImage = []
-$otherImage = []
-
-$texName = []
-
-def makeCheckImages
-	for i in (0..CheckImageHeight-1)
-		for j in (0..CheckImageWidth-1)
-			if ((i&0x8==0)!=(j&0x8==0)) then tmp = 1 else tmp=0 end
-			#c = ((((i&0x8)==0)^((j&0x8))==0))*255
-			c = tmp * 255
-			$checkImage[i*CheckImageWidth*4+j*4+0] = c
-			$checkImage[i*CheckImageWidth*4+j*4+1] = c
-			$checkImage[i*CheckImageWidth*4+j*4+2] = c
-			$checkImage[i*CheckImageWidth*4+j*4+3] = 255
-			#c = ((((i&0x10)==0)^((j&0x10))==0))*255
-			if ((i&0x10==0)!=(j&0x10==0)) then tmp = 1 else tmp=0 end
-			c = tmp * 255
-			$otherImage[i*CheckImageWidth*4+j*4+0] = c
-			$otherImage[i*CheckImageWidth*4+j*4+1] = 0
-			$otherImage[i*CheckImageWidth*4+j*4+2] = 0
-			$otherImage[i*CheckImageWidth*4+j*4+3] = 255
-		end
-	end
-end
-
-def init
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glShadeModel(GL_FLAT)
-	glEnable(GL_DEPTH_TEST)
-	
-	makeCheckImages()
-	glPixelStorei(GL_UNPACK_ALIGNMENT, 1)
-	
-	$texName = glGenTextures(2)
-	glBindTexture(GL_TEXTURE_2D, $texName[0])
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP)
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP)
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER,GL_NEAREST)
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER,GL_NEAREST)
-	glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, CheckImageWidth,
-	CheckImageHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE,	$checkImage.pack("C*"))
-	
-	glBindTexture(GL_TEXTURE_2D, $texName[1])
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP)
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP)
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST)
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST)
-	glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL)
-	glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, CheckImageWidth, CheckImageHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE, 
-		$otherImage.pack("C*"))
-	glEnable(GL_TEXTURE_2D)
-end
-
-display = Proc.new do
-	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-	glBindTexture(GL_TEXTURE_2D, $texName[0])
-	glBegin(GL_QUADS)
-	glTexCoord(0.0, 0.0); glVertex(-2.0, -1.0, 0.0)
-	glTexCoord(0.0, 1.0); glVertex(-2.0, 1.0, 0.0)
-	glTexCoord(1.0, 1.0); glVertex(0.0, 1.0, 0.0)
-	glTexCoord(1.0, 0.0); glVertex(0.0, -1.0, 0.0)
-	glEnd()
-	glBindTexture(GL_TEXTURE_2D, $texName[1])
-	glBegin(GL_QUADS)
-	glTexCoord(0.0, 0.0); glVertex(1.0, -1.0, 0.0)
-	glTexCoord(0.0, 1.0); glVertex(1.0, 1.0, 0.0)
-	glTexCoord(1.0, 1.0); glVertex(2.41421, 1.0, -1.41421)
-	glTexCoord(1.0, 0.0); glVertex(2.41421, -1.0, -1.41421)
-	glEnd()
-	glutSwapBuffers()
-end
-
-reshape = Proc.new do |w, h|
-	glViewport(0, 0,  w, h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	gluPerspective(60.0, w/h, 1.0, 30.0)
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-	glTranslate(0.0, 0.0, -3.6)
-end
-
-keyboard = Proc.new do |key, x, y|
-	case (key)
-		when ?\e
-			exit(0)
-	end
-end
-
-# main
-glutInit
-glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH)
-glutInitWindowSize(500, 500)
-glutInitWindowPosition(100, 100)
-glutCreateWindow($0)
-init()
-glutReshapeFunc(reshape)
-glutDisplayFunc(display)
-glutKeyboardFunc(keyboard)
-glutMainLoop()

data/examples/RedBook/texgen.rb

@@ -1,169 +0,0 @@
-#
-# Copyright (c) 1993-1997, Silicon Graphics, Inc.
-# ALL RIGHTS RESERVED 
-# Permission to use, copy, modify, and distribute this software for 
-# any purpose and without fee is hereby granted, provided that the above
-# copyright notice appear in all copies and that both the copyright notice
-# and this permission notice appear in supporting documentation, and that 
-# the name of Silicon Graphics, Inc. not be used in advertising
-# or publicity pertaining to distribution of the software without specific,
-# written prior permission. 
-#
-# THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
-# AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
-# INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
-# FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
-# GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
-# SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
-# KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
-# LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
-# THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
-# ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
-# POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
-# 
-# US Government Users Restricted Rights 
-# Use, duplication, or disclosure by the Government is subject to
-# restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
-# (c)(1)(ii) of the Rights in Technical Data and Computer Software
-# clause at DFARS 252.227-7013 and/or in similar or successor
-# clauses in the FAR or the DOD or NASA FAR Supplement.
-# Unpublished-- rights reserved under the copyright laws of the
-# United States.  Contractor/manufacturer is Silicon Graphics,
-# Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
-#
-# OpenGL(R) is a registered trademark of Silicon Graphics, Inc.
-#
-# texgen.c
-# This program draws a texture mapped teapot with 
-# automatically generated texture coordinates.  The
-# texture is rendered as stripes on the teapot.
-# Initially, the object is drawn with texture coordinates
-# based upon the object coordinates of the vertex
-# and distance from the plane x = 0.  Pressing the 'e'
-# key changes the coordinate generation to eye coordinates
-# of the vertex.  Pressing the 'o' key switches it back
-# to the object coordinates.  Pressing the 's' key 
-# changes the plane to a slanted one (x + y + z = 0).
-# Pressing the 'x' key switches it back to x = 0.
-
-require 'opengl'
-require 'mathn'
-include Gl,Glu,Glut
-
-StripeImageWidth =  32
-$stripeImage = []
-
-$texName
-
-def makeStripeImage
-	for j in (0..StripeImageWidth-1)
-		$stripeImage[4*j] = if (j<=4) then 255 else 0 end
-		$stripeImage[4*j+1] = if (j>4) then 255 else 0 end
-		$stripeImage[4*j+2] = 0
-		$stripeImage[4*j+3] = 255
-	end
-end
-
-# planes for texture coordinate generation
-$xequalzero = [1.0, 0.0, 0.0, 0.0]
-$slanted = [1.0, 1.0, 1.0, 0.0]
-$currentCoeff = nil
-$currentPlane = nil
-$currentGenMode = nil
-
-def init
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glEnable(GL_DEPTH_TEST)
-	glShadeModel(GL_SMOOTH)
-	
-	makeStripeImage()
-	glPixelStorei(GL_UNPACK_ALIGNMENT, 1)
-	
-	$texName = glGenTextures(1)
-	glBindTexture(GL_TEXTURE_2D, $texName[0])
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT)
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)
-	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR)
-	glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, StripeImageWidth, 1, 0,
-		GL_RGBA, GL_UNSIGNED_BYTE, $stripeImage.pack("C*"))
-	glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE)
-	$currentCoeff = $xequalzero
-	$currentGenMode = GL_OBJECT_LINEAR
-	$currentPlane = GL_OBJECT_PLANE
-	glTexGen(GL_S, GL_TEXTURE_GEN_MODE, $currentGenMode)
-	glTexGen(GL_S, $currentPlane, $currentCoeff)
-	
-	glEnable(GL_TEXTURE_GEN_S)
-	glEnable(GL_TEXTURE_2D)
-	glEnable(GL_CULL_FACE)
-	glEnable(GL_LIGHTING)
-	glEnable(GL_LIGHT0)
-	glEnable(GL_AUTO_NORMAL)
-	glEnable(GL_NORMALIZE)
-	glFrontFace(GL_CW)
-	glCullFace(GL_BACK)
-	glMaterial(GL_FRONT, GL_SHININESS, 64.0)
-end
-
-display = Proc.new do
-	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-	glPushMatrix()
-	glRotate(45.0, 0.0, 0.0, 1.0)
-	glBindTexture(GL_TEXTURE_2D, $texName[0])
-	glutSolidTeapot(2.0)
-	glPopMatrix()
-	glutSwapBuffers()
-end
-
-reshape = Proc.new do |w, h|
-	glViewport(0, 0, w, h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	if (w <= h)
-		glOrtho(-3.5, 3.5, -3.5*h/w,3.5*h/w, -3.5, 3.5)
-	else
-		glOrtho(-3.5*w/h, 3.5*w/h, -3.5, 3.5, -3.5, 3.5)
-	end
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-end
-
-keyboard = Proc.new do |key, x, y|
-	case (key)
-		when ?e,?E
-			$currentGenMode = GL_EYE_LINEAR
-			$currentPlane = GL_EYE_PLANE
-			glTexGen(GL_S, GL_TEXTURE_GEN_MODE, $currentGenMode)
-			glTexGen(GL_S, $currentPlane, $currentCoeff)
-			glutPostRedisplay()
-		when ?o, ?O
-			$currentGenMode = GL_OBJECT_LINEAR
-			$currentPlane = GL_OBJECT_PLANE
-			glTexGen(GL_S, GL_TEXTURE_GEN_MODE, $currentGenMode)
-			glTexGen(GL_S, $currentPlane, $currentCoeff)
-			glutPostRedisplay()
-		when ?s,?S
-			$currentCoeff = $slanted
-			glTexGen(GL_S, $currentPlane, $currentCoeff)
-			glutPostRedisplay()
-		when ?x,?X
-			$currentCoeff = $xequalzero
-			glTexGen(GL_S, $currentPlane, $currentCoeff)
-			glutPostRedisplay()
-		when ?\e
-			exit(0)
-	end
-end
-
-# main
-glutInit
-glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH)
-glutInitWindowSize(500, 500)
-glutInitWindowPosition(100, 100)
-glutCreateWindow($0)
-init()
-glutDisplayFunc(display)
-glutReshapeFunc(reshape)
-glutKeyboardFunc(keyboard)
-glutMainLoop()

data/examples/RedBook/texturesurf.rb

@@ -1,128 +0,0 @@
-#
-# Copyright (c) Mark J. Kilgard, 1994. */
-#
-# (c) Copyright 1993, Silicon Graphics, Inc.
-# ALL RIGHTS RESERVED 
-# Permission to use, copy, modify, and distribute this software for 
-# any purpose and without fee is hereby granted, provided that the above
-# copyright notice appear in all copies and that both the copyright notice
-# and this permission notice appear in supporting documentation, and that 
-# the name of Silicon Graphics, Inc. not be used in advertising
-# or publicity pertaining to distribution of the software without specific,
-# written prior permission. 
-#
-# THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
-# AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
-# INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
-# FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
-# GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
-# SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
-# KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
-# LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
-# THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
-# ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
-# POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
-# 
-# US Government Users Restricted Rights 
-# Use, duplication, or disclosure by the Government is subject to
-# restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
-# (c)(1)(ii) of the Rights in Technical Data and Computer Software
-# clause at DFARS 252.227-7013 and/or in similar or successor
-# clauses in the FAR or the DOD or NASA FAR Supplement.
-# Unpublished-- rights reserved under the copyright laws of the
-# United States.  Contractor/manufacturer is Silicon Graphics,
-# Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
-#
-# OpenGL(TM) is a trademark of Silicon Graphics, Inc.
-#
-# texturesurf.c
-# This program uses evaluators to generate a curved
-# surface and automatically generated texture coordinates.
-require 'opengl'
-include Gl,Glu,Glut
-
-$ctrlpoints = [
-	[[ -1.5, -1.5, 4.0], [ -0.5, -1.5, 2.0], [0.5, -1.5, -1.0], [1.5, -1.5, 2.0]], 
-	[[ -1.5, -0.5, 1.0], [ -0.5, -0.5, 3.0], [0.5, -0.5, 0.0], [1.5, -0.5, -1.0]], 
-	[[ -1.5, 0.5, 4.0], [ -0.5, 0.5, 0.0], [0.5, 0.5, 3.0], [1.5, 0.5, 4.0]], 
-	[[ -1.5, 1.5, -2.0], [ -0.5, 1.5, -2.0], [0.5, 1.5, 0.0], [1.5, 1.5, -1.0]]
-].flatten
-
-$texpts = [[[0.0, 0.0], [0.0, 1.0]], [[1.0, 0.0], [1.0, 1.0]]].flatten
-
-display = proc do
-	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-	glColor(1.0, 1.0, 1.0)
-	glEvalMesh2(GL_FILL, 0, 20, 0, 20)
-	glutSwapBuffers()
-end
-
-ImageWidth=64
-ImageHeight=64
-$image = []
-
-def makeImage
-	for i in 0...ImageWidth
-		ti = 2.0*Math::PI*i/ImageWidth.to_f
-		for j in 0...ImageHeight
-			tj = 2.0*Math::PI*j/ImageHeight.to_f
-
-			$image[3*(ImageHeight*i+j)] =  127*(1.0+Math::sin(ti))
-			$image[3*(ImageHeight*i+j)+1] =  127*(1.0+Math::cos(2*tj))
-			$image[3*(ImageHeight*i+j)+2] =  127*(1.0+Math::cos(ti+tj))
-		end
-	end
-end
-
-def myinit
-	glMap2d(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, $ctrlpoints)
-	glMap2d(GL_MAP2_TEXTURE_COORD_2, 0, 1, 2, 2, 0, 1, 4, 2, $texpts)
-	glEnable(GL_MAP2_TEXTURE_COORD_2)
-	glEnable(GL_MAP2_VERTEX_3)
-	glMapGrid2d(20, 0.0, 1.0, 20, 0.0, 1.0)
-	makeImage()
-	glTexEnv(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL)
-	glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT)
-	glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT)
-	glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST)
-	glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST)
-	glTexImage2D(GL_TEXTURE_2D, 0, 3, ImageWidth, ImageHeight, 0,
-		GL_RGB, GL_UNSIGNED_BYTE, $image.pack("C*"))
-	glEnable(GL_TEXTURE_2D)
-	glEnable(GL_DEPTH_TEST)
-	glEnable(GL_NORMALIZE)
-	glShadeModel(GL_FLAT)
-end
-
-myReshape = proc do|w, h|
-	glViewport(0, 0, w, h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	if (w <= h)
-		glOrtho(-4.0, 4.0, -4.0*h.to_f/w, 4.0*h.to_f/w, -4.0, 4.0)
-	else
-		glOrtho(-4.0*w.to_f/h, 4.0*w.to_f/h, -4.0, 4.0, -4.0, 4.0)
-	end
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-	glRotate(85.0, 1.0, 1.0, 1.0)
-end
-
-keyboard = Proc.new do |key, x, y|
-	case (key)
-		when ?\e
-		exit(0);
-	end
-end
-
-glutInit()
-glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH)
-glutInitWindowSize(500, 500)
-glutInitWindowPosition(100, 100)
-glutCreateWindow()
-myinit()
-glutReshapeFunc(myReshape)
-glutDisplayFunc(display)
-glutKeyboardFunc(keyboard)
-glutMainLoop()

data/examples/RedBook/varray.rb

@@ -1,159 +0,0 @@
-#
-# Copyright (c) 1993-1997, Silicon Graphics, Inc.
-# ALL RIGHTS RESERVED 
-# Permission to use, copy, modify, and distribute this software for 
-# any purpose and without fee is hereby granted, provided that the above
-# copyright notice appear in all copies and that both the copyright notice
-# and this permission notice appear in supporting documentation, and that 
-# the name of Silicon Graphics, Inc. not be used in advertising
-# or publicity pertaining to distribution of the software without specific,
-# written prior permission. 
-#
-# THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
-# AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
-# INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
-# FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
-# GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
-# SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
-# KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
-# LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
-# THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
-# ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
-# POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
-# 
-# US Government Users Restricted Rights 
-# Use, duplication, or disclosure by the Government is subject to
-# restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
-# (c)(1)(ii) of the Rights in Technical Data and Computer Software
-# clause at DFARS 252.227-7013 and/or in similar or successor
-# clauses in the FAR or the DOD or NASA FAR Supplement.
-# Unpublished-- rights reserved under the copyright laws of the
-# United States.  Contractor/manufacturer is Silicon Graphics,
-# Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
-#
-# OpenGL(R) is a registered trademark of Silicon Graphics, Inc.
-#
-# varray.c
-# This program demonstrates vertex arrays.
-require 'opengl'
-include Gl,Glu,Glut
-
-POINTER=1
-INTERLEAVED=2
-
-DRAWARRAY=1
-ARRAYELEMENT=2
-DRAWELEMENTS=3
-
-$setupMethod = POINTER
-$derefMethod = DRAWARRAY
-
-def setupPointers
-	$vertices = [25, 25,
-		100, 325,
-		175, 25,
-		175, 325,
-		250, 25,
-		325, 325].pack("i*")
-	$colors = [1.0, 0.2, 0.2,
-		0.2, 0.2, 1.0,
-		0.8, 1.0, 0.2,
-		0.75, 0.75, 0.75,
-		0.35, 0.35, 0.35,
-		0.5, 0.5, 0.5].pack("f*")
-	
-	glEnableClientState(GL_VERTEX_ARRAY)
-	glEnableClientState(GL_COLOR_ARRAY)
-	
-	glVertexPointer(2, GL_INT, 0, $vertices)
-	glColorPointer(3, GL_FLOAT, 0, $colors)
-end
-
-def  setupInterleave
-	$intertwined =
-	[1.0, 0.2, 1.0, 100.0, 100.0, 0.0,
-		1.0, 0.2, 0.2, 0.0, 200.0, 0.0,
-		1.0, 1.0, 0.2, 100.0, 300.0, 0.0,
-		0.2, 1.0, 0.2, 200.0, 300.0, 0.0,
-		0.2, 1.0, 1.0, 300.0, 200.0, 0.0,
-		0.2, 0.2, 1.0, 200.0, 100.0, 0.0].pack("f*")
-	
-	glInterleavedArrays(GL_C3F_V3F, 0, $intertwined)
-end
-
-def init
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glShadeModel(GL_SMOOTH)
-	setupPointers()
-end
-
-display = proc do
-	glClear(GL_COLOR_BUFFER_BIT)
-	if ($derefMethod == DRAWARRAY) 
-		glDrawArrays(GL_TRIANGLES, 0, 6)
-	elsif ($derefMethod == ARRAYELEMENT)
-		glBegin(GL_TRIANGLES)
-		glArrayElement(2)
-		glArrayElement(3)
-		glArrayElement(5)
-		glEnd()
-	elsif ($derefMethod == DRAWELEMENTS)
-		$indices = [0, 1, 3, 4].pack("I*")
-		glDrawElements(GL_POLYGON, 4, GL_UNSIGNED_INT, $indices)
-	end
-	glutSwapBuffers()
-end
-
-reshape = proc do|w, h|
-	glViewport(0, 0, w, h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	gluOrtho2D(0.0, w, 0.0, h)
-end
-
-mouse = proc do |button, state, x, y|
-	case (button)
-		when GLUT_LEFT_BUTTON
-			if (state == GLUT_DOWN)
-				if ($setupMethod == POINTER)
-					$setupMethod = INTERLEAVED
-					setupInterleave()
-				elsif ($setupMethod == INTERLEAVED)
-					$setupMethod = POINTER
-					setupPointers()
-				end
-				glutPostRedisplay()
-			end
-		when GLUT_MIDDLE_BUTTON,GLUT_RIGHT_BUTTON
-			if (state == GLUT_DOWN)
-				if ($derefMethod == DRAWARRAY) 
-					$derefMethod = ARRAYELEMENT
-				elsif ($derefMethod == ARRAYELEMENT) 
-					$derefMethod = DRAWELEMENTS
-				elsif ($derefMethod == DRAWELEMENTS) 
-					$derefMethod = DRAWARRAY
-				end
-				glutPostRedisplay()
-			end
-	end
-end
-
-keyboard = proc do |key, x, y|
-	case (key)
-		when ?\e
-			exit(0)
-	end
-end
-
-glutInit()
-glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB)
-glutInitWindowSize(350, 350)
-glutInitWindowPosition(100, 100)
-glutCreateWindow()
-init()
-glutDisplayFunc(display) 
-glutReshapeFunc(reshape)
-glutMouseFunc(mouse)
-glutKeyboardFunc(keyboard)
-glutMainLoop()