opengl 0.8.0 → 0.9.0

data/examples/RedBook/tess.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
@@ -43,37 +43,39 @@
 # Note the exterior rectangle is drawn with its vertices
 # in counter-clockwise order, but its interior clockwise.
 # Note the combineCallback is needed for the self-intersecting
-# star.  Also note that removing the TessProperty for the 
+# star.  Also note that removing the TessProperty for the
 # star will make the interior unshaded (WINDING_ODD).
 require 'opengl'
+require 'glu'
+require 'glut'
 include Gl,Glu,Glut
 
 $startList = nil
 
 display = proc do
-	glClear(GL_COLOR_BUFFER_BIT)
-	glColor(1.0, 1.0, 1.0)
-	glCallList($startList)
-	glCallList($startList + 1)
-	glutSwapBuffers()
+  glClear(GL_COLOR_BUFFER_BIT)
+  glColor(1.0, 1.0, 1.0)
+  glCallList($startList)
+  glCallList($startList + 1)
+  glutSwapBuffers()
 end
 
 $beginCallback = proc do |which|
-	glBegin(which)
+  glBegin(which)
 end
 
 $errorCallback = proc do |errorCode|
-	print "Tessellation Error: #{gluErrorString(errorCode)}"
-	exit(0)
+  print "Tessellation Error: #{gluErrorString(errorCode)}"
+  exit(0)
 end
 
 $endCallback = proc do
-	glEnd()
+  glEnd()
 end
 
 $vertexCallback = proc do |vertex|
-	glColor(vertex[3], vertex[4], vertex[5])
-	glVertex(vertex[0], vertex[1], vertex[2])
+  glColor(vertex[3], vertex[4], vertex[5])
+  glVertex(vertex[0], vertex[1], vertex[2])
 end
 
 # combineCallback is used to create a new vertex when edges
@@ -81,94 +83,94 @@ end
 # but weight[4] may be used to average color, normal, or texture
 # coordinate data.  In this program, color is weighted.
 $combineCallback = proc do |coords, vertex_data, weight|
-	vertex = []
-	vertex[0] = coords[0]
-	vertex[1] = coords[1]
-	vertex[2] = coords[2]
-	for i in 3...6
-		vertex[i] = weight[0] * vertex_data[0][i] + weight[1] * vertex_data[1][i] + weight[2] * vertex_data[2][i] + weight[3] * vertex_data[3][i]
-	end
-	vertex
+  vertex = []
+  vertex[0] = coords[0]
+  vertex[1] = coords[1]
+  vertex[2] = coords[2]
+  for i in 3...6
+    vertex[i] = weight[0] * vertex_data[0][i] + weight[1] * vertex_data[1][i] + weight[2] * vertex_data[2][i] + weight[3] * vertex_data[3][i]
+  end
+  vertex
 end
 
 def init
-	rect = [[50.0, 50.0, 0.0],
-		[200.0, 50.0, 0.0],
-		[200.0, 200.0, 0.0],
-		[50.0, 200.0, 0.0]]
-	tri = [[75.0, 75.0, 0.0],
-		[125.0, 175.0, 0.0],
-		[175.0, 75.0, 0.0]]
-	star= [[250.0, 50.0, 0.0, 1.0, 0.0, 1.0],
-		[325.0, 200.0, 0.0, 1.0, 1.0, 0.0],
-		[400.0, 50.0, 0.0, 0.0, 1.0, 1.0],
-		[250.0, 150.0, 0.0, 1.0, 0.0, 0.0],
-		[400.0, 150.0, 0.0, 0.0, 1.0, 0.0]]
-
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	
-	$startList = glGenLists(2)
-	
-	tobj = gluNewTess()
-	gluTessCallback(tobj, GLU_TESS_VERTEX, proc do |v| glVertex(v) end )
-	gluTessCallback(tobj, GLU_TESS_BEGIN, $beginCallback)
-	gluTessCallback(tobj, GLU_TESS_END, $endCallback)
-	gluTessCallback(tobj, GLU_TESS_ERROR, $errorCallback)
-
-	# rectangle with triangular hole inside
-	glNewList($startList, GL_COMPILE)
-	glShadeModel(GL_FLAT)    
-	gluTessBeginPolygon(tobj, nil)
-	gluTessBeginContour(tobj)
-	gluTessVertex(tobj, rect[0], rect[0])
-	gluTessVertex(tobj, rect[1], rect[1])
-	gluTessVertex(tobj, rect[2], rect[2])
-	gluTessVertex(tobj, rect[3], rect[3])
-	gluTessEndContour(tobj)
-	gluTessBeginContour(tobj)
-	gluTessVertex(tobj, tri[0], tri[0])
-	gluTessVertex(tobj, tri[1], tri[1])
-	gluTessVertex(tobj, tri[2], tri[2])
-	gluTessEndContour(tobj)
-	gluTessEndPolygon(tobj)
-	glEndList()
-
-	gluTessCallback(tobj, GLU_TESS_VERTEX, $vertexCallback)
-	gluTessCallback(tobj, GLU_TESS_BEGIN, $beginCallback)
-	gluTessCallback(tobj, GLU_TESS_END, $endCallback)
-	gluTessCallback(tobj, GLU_TESS_ERROR, $errorCallback)
-	gluTessCallback(tobj, GLU_TESS_COMBINE, $combineCallback)
+  rect = [[50.0, 50.0, 0.0],
+    [200.0, 50.0, 0.0],
+    [200.0, 200.0, 0.0],
+    [50.0, 200.0, 0.0]]
+  tri = [[75.0, 75.0, 0.0],
+    [125.0, 175.0, 0.0],
+    [175.0, 75.0, 0.0]]
+  star= [[250.0, 50.0, 0.0, 1.0, 0.0, 1.0],
+    [325.0, 200.0, 0.0, 1.0, 1.0, 0.0],
+    [400.0, 50.0, 0.0, 0.0, 1.0, 1.0],
+    [250.0, 150.0, 0.0, 1.0, 0.0, 0.0],
+    [400.0, 150.0, 0.0, 0.0, 1.0, 0.0]]
+
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+
+  $startList = glGenLists(2)
+
+  tobj = gluNewTess()
+  gluTessCallback(tobj, GLU_TESS_VERTEX, proc do |v| glVertex(v) end )
+  gluTessCallback(tobj, GLU_TESS_BEGIN, $beginCallback)
+  gluTessCallback(tobj, GLU_TESS_END, $endCallback)
+  gluTessCallback(tobj, GLU_TESS_ERROR, $errorCallback)
+
+  # rectangle with triangular hole inside
+  glNewList($startList, GL_COMPILE)
+  glShadeModel(GL_FLAT)
+  gluTessBeginPolygon(tobj, nil)
+  gluTessBeginContour(tobj)
+  gluTessVertex(tobj, rect[0], rect[0])
+  gluTessVertex(tobj, rect[1], rect[1])
+  gluTessVertex(tobj, rect[2], rect[2])
+  gluTessVertex(tobj, rect[3], rect[3])
+  gluTessEndContour(tobj)
+  gluTessBeginContour(tobj)
+  gluTessVertex(tobj, tri[0], tri[0])
+  gluTessVertex(tobj, tri[1], tri[1])
+  gluTessVertex(tobj, tri[2], tri[2])
+  gluTessEndContour(tobj)
+  gluTessEndPolygon(tobj)
+  glEndList()
+
+  gluTessCallback(tobj, GLU_TESS_VERTEX, $vertexCallback)
+  gluTessCallback(tobj, GLU_TESS_BEGIN, $beginCallback)
+  gluTessCallback(tobj, GLU_TESS_END, $endCallback)
+  gluTessCallback(tobj, GLU_TESS_ERROR, $errorCallback)
+  gluTessCallback(tobj, GLU_TESS_COMBINE, $combineCallback)
 
 
 # smooth shaded, self-intersecting star
-	glNewList($startList + 1, GL_COMPILE)
-	glShadeModel(GL_SMOOTH)    
-	gluTessProperty(tobj, GLU_TESS_WINDING_RULE, GLU_TESS_WINDING_POSITIVE)
-	gluTessBeginPolygon(tobj, nil)
-	gluTessBeginContour(tobj)
-	gluTessVertex(tobj, star[0], star[0])
-	gluTessVertex(tobj, star[1], star[1])
-	gluTessVertex(tobj, star[2], star[2])
-	gluTessVertex(tobj, star[3], star[3])
-	gluTessVertex(tobj, star[4], star[4])
-	gluTessEndContour(tobj)
-	gluTessEndPolygon(tobj)
-	glEndList()
-	gluDeleteTess(tobj)
+  glNewList($startList + 1, GL_COMPILE)
+  glShadeModel(GL_SMOOTH)
+  gluTessProperty(tobj, GLU_TESS_WINDING_RULE, GLU_TESS_WINDING_POSITIVE)
+  gluTessBeginPolygon(tobj, nil)
+  gluTessBeginContour(tobj)
+  gluTessVertex(tobj, star[0], star[0])
+  gluTessVertex(tobj, star[1], star[1])
+  gluTessVertex(tobj, star[2], star[2])
+  gluTessVertex(tobj, star[3], star[3])
+  gluTessVertex(tobj, star[4], star[4])
+  gluTessEndContour(tobj)
+  gluTessEndPolygon(tobj)
+  glEndList()
+  gluDeleteTess(tobj)
 end
 
 reshape = proc do |w, h|
-	glViewport(0, 0, w, h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	gluOrtho2D(0.0, w, 0.0, h)
+  glViewport(0, 0, w, h)
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  gluOrtho2D(0.0, w, 0.0, h)
 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/texbind.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
@@ -36,9 +36,11 @@
 #
 
 # texbind.c
-# This program demonstrates using glBindTexture() by 
+# This program demonstrates using glBindTexture() by
 # creating and managing two textures.
 require 'opengl'
+require 'glu'
+require 'glut'
 require 'mathn'
 include Gl,Glu,Glut
 
@@ -50,88 +52,88 @@ $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
+  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)
+  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()
+  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)
+  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
+  case (key)
+    when ?\e
+      exit(0)
+  end
 end
 
 # main

data/examples/RedBook/texgen.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
@@ -35,7 +35,7 @@
 # OpenGL(R) is a registered trademark of Silicon Graphics, Inc.
 #
 # texgen.c
-# This program draws a texture mapped teapot with 
+# 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
@@ -43,11 +43,13 @@
 # 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 
+# 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 'glu'
+require 'glut'
 require 'mathn'
 include Gl,Glu,Glut
 
@@ -57,12 +59,12 @@ $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
+  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
@@ -73,87 +75,87 @@ $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)
+  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()
+  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()
+  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
+  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