opengl 0.8.0 → 0.9.0

data/examples/RedBook/texturesurf.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
@@ -40,22 +40,24 @@
 # This program uses evaluators to generate a curved
 # surface and automatically generated texture coordinates.
 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]]
 ].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()
+  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
@@ -63,57 +65,57 @@ 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
+  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
+      $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)
+  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)
+  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
+  case (key)
+    when ?\e
+    exit(0);
+  end
 end
 
 glutInit()

data/examples/RedBook/varray.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
@@ -37,6 +37,8 @@
 # varray.c
 # This program demonstrates vertex arrays.
 require 'opengl'
+require 'glu'
+require 'glut'
 include Gl,Glu,Glut
 
 POINTER=1
@@ -50,100 +52,100 @@ $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)
+  $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)
+  $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()
+  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()
+  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)
+  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
+  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
+  case (key)
+    when ?\e
+      exit(0)
+  end
 end
 
 glutInit()
@@ -152,7 +154,7 @@ glutInitWindowSize(350, 350)
 glutInitWindowPosition(100, 100)
 glutCreateWindow()
 init()
-glutDisplayFunc(display) 
+glutDisplayFunc(display)
 glutReshapeFunc(reshape)
 glutMouseFunc(mouse)
 glutKeyboardFunc(keyboard)

data/examples/RedBook/wrap.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
@@ -41,14 +41,16 @@
 # Interaction: Pressing the 's' and 'S' keys switch the
 # wrapping between clamping and repeating for the s parameter.
 # The 't' and 'T' keys control the wrapping for the t parameter.
-# 
+#
 # If running this program on OpenGL 1.0, texture objects are
 # not used.
 require 'opengl'
+require 'glu'
+require 'glut'
 require 'mathn'
 include Gl,Glu,Glut
 
-#	Create checkerboard texture
+#  Create checkerboard texture
 CheckImageWidth=64
 CheckImageHeight=64
 $checkImage = []
@@ -56,84 +58,84 @@ $checkImage = []
 $texName = 0
 
 def makeCheckImage
-	for i in 0..CheckImageHeight-1
-		for j in 0..CheckImageWidth-1
-			c = if (((i&0x8)==0)!=((j&0x8)==0)) then 255 else 0 end
-			$checkImage[(i*CheckImageWidth+j)*4+0] = c
-			$checkImage[(i*CheckImageWidth+j)*4+1] = c
-			$checkImage[(i*CheckImageWidth+j)*4+2] = c
-			$checkImage[(i*CheckImageWidth+j)*4+3] = 255
-		end
-	end
+  for i in 0..CheckImageHeight-1
+    for j in 0..CheckImageWidth-1
+      c = if (((i&0x8)==0)!=((j&0x8)==0)) then 255 else 0 end
+      $checkImage[(i*CheckImageWidth+j)*4+0] = c
+      $checkImage[(i*CheckImageWidth+j)*4+1] = c
+      $checkImage[(i*CheckImageWidth+j)*4+2] = c
+      $checkImage[(i*CheckImageWidth+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)
-	
-	makeCheckImage()
-	glPixelStore(GL_UNPACK_ALIGNMENT, 1)
-	
-	$texName = glGenTextures(1)
-	glBindTexture(GL_TEXTURE_2D, $texName[0])
-	
-	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, GL_RGBA, CheckImageWidth,
-		CheckImageHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE, $checkImage.pack("C*"))
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+  glShadeModel(GL_FLAT)
+  glEnable(GL_DEPTH_TEST)
+
+  makeCheckImage()
+  glPixelStore(GL_UNPACK_ALIGNMENT, 1)
+
+  $texName = glGenTextures(1)
+  glBindTexture(GL_TEXTURE_2D, $texName[0])
+
+  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, GL_RGBA, CheckImageWidth,
+    CheckImageHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE, $checkImage.pack("C*"))
 end
 
 display = Proc.new do
-	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-	glEnable(GL_TEXTURE_2D)
-	glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL)
-	glBindTexture(GL_TEXTURE_2D, $texName[0])
-	
-	glBegin(GL_QUADS)
-	glTexCoord(0.0, 0.0); glVertex(-2.0, -1.0, 0.0)
-	glTexCoord(0.0, 3.0); glVertex(-2.0, 1.0, 0.0)
-	glTexCoord(3.0, 3.0); glVertex(0.0, 1.0, 0.0)
-	glTexCoord(3.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, 3.0); glVertex(1.0, 1.0, 0.0)
-	glTexCoord(3.0, 3.0); glVertex(2.41421, 1.0, -1.41421)
-	glTexCoord(3.0, 0.0); glVertex(2.41421, -1.0, -1.41421)
-	glEnd()
-	glutSwapBuffers()
-	glDisable(GL_TEXTURE_2D)
+  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
+  glEnable(GL_TEXTURE_2D)
+  glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL)
+  glBindTexture(GL_TEXTURE_2D, $texName[0])
+
+  glBegin(GL_QUADS)
+  glTexCoord(0.0, 0.0); glVertex(-2.0, -1.0, 0.0)
+  glTexCoord(0.0, 3.0); glVertex(-2.0, 1.0, 0.0)
+  glTexCoord(3.0, 3.0); glVertex(0.0, 1.0, 0.0)
+  glTexCoord(3.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, 3.0); glVertex(1.0, 1.0, 0.0)
+  glTexCoord(3.0, 3.0); glVertex(2.41421, 1.0, -1.41421)
+  glTexCoord(3.0, 0.0); glVertex(2.41421, -1.0, -1.41421)
+  glEnd()
+  glutSwapBuffers()
+  glDisable(GL_TEXTURE_2D)
 end
 
 reshape = Proc.new do |w, h|
-	glViewport(0, 0,  w,  h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	GLU.Perspective(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()
+  GLU.Perspective(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 ?s
-			glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP)
-			glutPostRedisplay()
-		when ?S
-			glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT)
-			glutPostRedisplay()
-		when ?t
-			glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP)
-			glutPostRedisplay()
-		when ?T
-			glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT)
-			glutPostRedisplay()
-		when ?\e
-			exit(0)
-	end
+  case (key)
+    when ?s
+      glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP)
+      glutPostRedisplay()
+    when ?S
+      glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT)
+      glutPostRedisplay()
+    when ?t
+      glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP)
+      glutPostRedisplay()
+    when ?T
+      glTexParameter(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT)
+      glutPostRedisplay()
+    when ?\e
+      exit(0)
+  end
 end
 
 glutInit