opengl 0.8.0 → 0.9.0

data/examples/RedBook/bezcurve.rb

@@ -1,13 +1,13 @@
 #
 # Copyright (c) 1993-1997, Silicon Graphics, Inc.
-# ALL RIGHTS RESERVED 
-# Permission to use, copy, modify, and distribute this software for 
+# 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 
+# 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. 
+# 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,
@@ -21,8 +21,8 @@
 # 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 
+#
+# 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
@@ -34,63 +34,65 @@
 #
 # OpenGL(R) is a registered trademark of Silicon Graphics, Inc.
 #
-# bezcurve.c			
+# bezcurve.c
 # This program uses evaluators to draw a Bezier curve.
 
 require "opengl"
+require 'glu'
+require 'glut'
 include Gl,Glu,Glut
 
 $ctrlpoints = [
-	[-4.0,-4.0, 0.0],
-	[-2.0, 4.0, 0.0], 
-	[ 2.0,-4.0, 0.0],
-	[ 4.0, 4.0, 0.0]
-	]
+  [-4.0,-4.0, 0.0],
+  [-2.0, 4.0, 0.0],
+  [ 2.0,-4.0, 0.0],
+  [ 4.0, 4.0, 0.0]
+  ]
 
 def init
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glShadeModel(GL_FLAT)
-	glMap1d(GL_MAP1_VERTEX_3, 0.0, 1.0, 3, 4, $ctrlpoints.flatten)
-	glEnable(GL_MAP1_VERTEX_3)
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+  glShadeModel(GL_FLAT)
+  glMap1d(GL_MAP1_VERTEX_3, 0.0, 1.0, 3, 4, $ctrlpoints.flatten)
+  glEnable(GL_MAP1_VERTEX_3)
 end
 
 display = proc do
-	glClear(GL_COLOR_BUFFER_BIT)
-	glColor(1.0, 1.0, 1.0)
-	glBegin(GL_LINE_STRIP)
-	for i in 0..30
-		glEvalCoord1d(i.to_f/30.0)
-	end
-	glEnd()
-	# The following code displays the control points as dots. 
-	glPointSize(5.0)
-	glColor(1.0, 1.0, 0.0)
-	glBegin(GL_POINTS)
-	for i in 0...4
-		glVertex($ctrlpoints[i])
-	end
-	glEnd()
-	glutSwapBuffers()
+  glClear(GL_COLOR_BUFFER_BIT)
+  glColor(1.0, 1.0, 1.0)
+  glBegin(GL_LINE_STRIP)
+  for i in 0..30
+    glEvalCoord1d(i.to_f/30.0)
+  end
+  glEnd()
+  # The following code displays the control points as dots.
+  glPointSize(5.0)
+  glColor(1.0, 1.0, 0.0)
+  glBegin(GL_POINTS)
+  for i in 0...4
+    glVertex($ctrlpoints[i])
+  end
+  glEnd()
+  glutSwapBuffers()
 end
 
 reshape = proc do |w, h|
-	glViewport(0, 0, w, h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	if (w <= h)
-		glOrtho(-5.0, 5.0, -5.0*h/w, 5.0*h/w, -5.0, 5.0)
-	else
-		glOrtho(-5.0*w/h, 5.0*w/h, -5.0, 5.0, -5.0, 5.0)
-	end
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
+  glViewport(0, 0, w, h)
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  if (w <= h)
+    glOrtho(-5.0, 5.0, -5.0*h/w, 5.0*h/w, -5.0, 5.0)
+  else
+    glOrtho(-5.0*w/h, 5.0*w/h, -5.0, 5.0, -5.0, 5.0)
+  end
+  glMatrixMode(GL_MODELVIEW)
+  glLoadIdentity()
 end
 
 keyboard = proc do |key, x, y|
-	case (key)
-	when ?\e
-		exit(0)
-	end
+  case (key)
+  when ?\e
+    exit(0)
+  end
 end
 
 glutInit()

data/examples/RedBook/bezmesh.rb

@@ -2,14 +2,14 @@
 # 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 
+# 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 
+# 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. 
+# 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,
@@ -23,8 +23,8 @@
 # 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 
+#
+# 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
@@ -42,87 +42,89 @@
 #
 
 require 'opengl'
+require 'glu'
+require 'glut'
 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]]
+  [
+    [-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]]
 ]
 
 def initlights
-	ambient = [0.2, 0.2, 0.2, 1.0]
-	position = [0.0, 0.0, 2.0, 1.0]
-	mat_diffuse = [0.6, 0.6, 0.6, 1.0]
-	mat_specular = [1.0, 1.0, 1.0, 1.0]
-	mat_shininess = [50.0]
-	
-	glEnable(GL_LIGHTING)
-	glEnable(GL_LIGHT0)
-	
-	glLight(GL_LIGHT0, GL_AMBIENT, ambient)
-	glLight(GL_LIGHT0, GL_POSITION, position)
-	
-	glMaterial(GL_FRONT, GL_DIFFUSE, mat_diffuse)
-	glMaterial(GL_FRONT, GL_SPECULAR, mat_specular)
-	glMaterial(GL_FRONT, GL_SHININESS, mat_shininess)
+  ambient = [0.2, 0.2, 0.2, 1.0]
+  position = [0.0, 0.0, 2.0, 1.0]
+  mat_diffuse = [0.6, 0.6, 0.6, 1.0]
+  mat_specular = [1.0, 1.0, 1.0, 1.0]
+  mat_shininess = [50.0]
+
+  glEnable(GL_LIGHTING)
+  glEnable(GL_LIGHT0)
+
+  glLight(GL_LIGHT0, GL_AMBIENT, ambient)
+  glLight(GL_LIGHT0, GL_POSITION, position)
+
+  glMaterial(GL_FRONT, GL_DIFFUSE, mat_diffuse)
+  glMaterial(GL_FRONT, GL_SPECULAR, mat_specular)
+  glMaterial(GL_FRONT, GL_SHININESS, mat_shininess)
 end
 
 display = proc do
-	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-	glPushMatrix()
-	glRotate(85.0, 1.0, 1.0, 1.0)
-	glEvalMesh2(GL_FILL, 0, 20, 0, 20)
-	glPopMatrix()
-	glutSwapBuffers()
+  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
+  glPushMatrix()
+  glRotate(85.0, 1.0, 1.0, 1.0)
+  glEvalMesh2(GL_FILL, 0, 20, 0, 20)
+  glPopMatrix()
+  glutSwapBuffers()
 end
 
 def myinit
-	glClearColor(0.0, 0.0, 0.0, 1.0)
-	glEnable(GL_DEPTH_TEST)
-	glMap2d(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, $ctrlpoints.flatten)
-	glEnable(GL_MAP2_VERTEX_3)
-	glEnable(GL_AUTO_NORMAL)
-	glEnable(GL_NORMALIZE)
-	glMapGrid2d(20, 0.0, 1.0, 20, 0.0, 1.0)
-	initlights() # for lighted version only
+  glClearColor(0.0, 0.0, 0.0, 1.0)
+  glEnable(GL_DEPTH_TEST)
+  glMap2d(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, $ctrlpoints.flatten)
+  glEnable(GL_MAP2_VERTEX_3)
+  glEnable(GL_AUTO_NORMAL)
+  glEnable(GL_NORMALIZE)
+  glMapGrid2d(20, 0.0, 1.0, 20, 0.0, 1.0)
+  initlights() # for lighted version only
 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 / w, 4.0 * h / w, -4.0, 4.0)
-	else
-		glOrtho(-4.0 * w / h, 4.0 * w / h, -4.0, 4.0, -4.0, 4.0)
-	end
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
+  glViewport(0, 0, w, h)
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  if (w <= h)
+    glOrtho(-4.0, 4.0, -4.0 * h / w, 4.0 * h / w, -4.0, 4.0)
+  else
+    glOrtho(-4.0 * w / h, 4.0 * w / h, -4.0, 4.0, -4.0, 4.0)
+  end
+  glMatrixMode(GL_MODELVIEW)
+  glLoadIdentity()
 end
 
 keyboard = Proc.new do |key, x, y|
-	case (key)
-		when ?\e
-			exit(0);
-	end
+  case (key)
+    when ?\e
+      exit(0);
+  end
 end
 
 glutInit()

data/examples/RedBook/checker.rb

@@ -2,14 +2,14 @@
 # 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 
+# 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 
+# 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. 
+# 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,
@@ -23,8 +23,8 @@
 # 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 
+#
+# 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
@@ -41,75 +41,77 @@
 # two rectangles.  This program clamps the texture, if
 # the texture coordinates fall outside 0.0 and 1.0.
 require 'opengl'
+require 'glu'
+require 'glut'
 require 'mathn'
 include Gl,Glu,Glut
 
-#	Create checkerboard texture
+#  Create checkerboard texture
 CheckImageWidth=64
 CheckImageHeight=64
 $checkImage = []
 
 def makeCheckImage
-	for i in 0..CheckImageWidth-1
-		for j in 0..CheckImageHeight-1
-			c = if ((i&0x8==0) != (j&0x8==0)) then 255 else 0 end
-			$checkImage[(i+CheckImageWidth*j)*3+0] = c
-			$checkImage[(i+CheckImageWidth*j)*3+1] = c
-			$checkImage[(i+CheckImageWidth*j)*3+2] = c
-		end
-	end
+  for i in 0..CheckImageWidth-1
+    for j in 0..CheckImageHeight-1
+      c = if ((i&0x8==0) != (j&0x8==0)) then 255 else 0 end
+      $checkImage[(i+CheckImageWidth*j)*3+0] = c
+      $checkImage[(i+CheckImageWidth*j)*3+1] = c
+      $checkImage[(i+CheckImageWidth*j)*3+2] = c
+    end
+  end
 end
 
 def myinit
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glEnable(GL_DEPTH_TEST)
-	glDepthFunc(GL_LESS)
-	
-	makeCheckImage()
-	glPixelStore(GL_UNPACK_ALIGNMENT, 1)
-	glTexImage2D(GL_TEXTURE_2D, 0, 3, CheckImageWidth, 
-		CheckImageHeight, 0, GL_RGB, GL_UNSIGNED_BYTE, 
-		$checkImage.pack("C*"))
-	glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP)
-	glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP)
-	glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)
-	glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR)
-	glTexEnv(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL)
-	glEnable(GL_TEXTURE_2D)
-	glShadeModel(GL_FLAT)
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+  glEnable(GL_DEPTH_TEST)
+  glDepthFunc(GL_LESS)
+
+  makeCheckImage()
+  glPixelStore(GL_UNPACK_ALIGNMENT, 1)
+  glTexImage2D(GL_TEXTURE_2D, 0, 3, CheckImageWidth,
+    CheckImageHeight, 0, GL_RGB, GL_UNSIGNED_BYTE,
+    $checkImage.pack("C*"))
+  glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP)
+  glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP)
+  glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)
+  glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR)
+  glTexEnv(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL)
+  glEnable(GL_TEXTURE_2D)
+  glShadeModel(GL_FLAT)
 end
 
 display = Proc.new do
-	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-	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)
-	
-	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()
+  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
+  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)
+
+  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
 
 myReshape = Proc.new do |w, h|
-	glViewport(0, 0, w, h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	gluPerspective(60.0, 1.0*w/h, 1.0, 30.0)
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-	glTranslate(0.0, 0.0, -3.6)
+  glViewport(0, 0, w, h)
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  gluPerspective(60.0, 1.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
+  case (key)
+    when ?\e
+    exit(0)
+  end
 end
 
 glutInit