opengl 0.8.0-x86-mingw32 → 0.9.0-x86-mingw32

data/examples/RedBook/hello.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,
@@ -22,7 +22,7 @@
 # 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,43 +37,45 @@
 # hello.c
 # This is a simple, introductory OpenGL program.
 require 'opengl'
+require 'glu'
+require 'glut'
 include Gl,Glu,Glut
 
 display = Proc.new do
-	glClear(GL_COLOR_BUFFER_BIT)
-	
-	glColor(1.0, 1.0, 1.0)
-	glBegin(GL_POLYGON)
-	glVertex(0.25, 0.25, 0.0)
-	glVertex(0.75, 0.25, 0.0)
-	glVertex(0.75, 0.75, 0.0)
-	glVertex(0.25, 0.75, 0.0)
-	glEnd()
-	
-	glutSwapBuffers()
+  glClear(GL_COLOR_BUFFER_BIT)
+
+  glColor(1.0, 1.0, 1.0)
+  glBegin(GL_POLYGON)
+  glVertex(0.25, 0.25, 0.0)
+  glVertex(0.75, 0.25, 0.0)
+  glVertex(0.75, 0.75, 0.0)
+  glVertex(0.25, 0.75, 0.0)
+  glEnd()
+
+  glutSwapBuffers()
 end
 
 def init
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	glOrtho(0.0, 1.0, 0.0, 1.0, -1.0, 1.0)
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  glOrtho(0.0, 1.0, 0.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
 glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB)
-glutInitWindowSize(500, 500) 
+glutInitWindowSize(500, 500)
 glutInitWindowPosition(100, 100)
 glutCreateWindow("hello")
 init()
-glutDisplayFunc(display) 
+glutDisplayFunc(display)
 glutKeyboardFunc(keyboard)
 glutMainLoop()

data/examples/RedBook/image.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
@@ -45,6 +45,8 @@
 # factors are reset.  If you press the 'z' or 'Z' keys, you change
 # the zoom factors.
 require 'opengl'
+require 'glu'
+require 'glut'
 require 'mathn'
 include Gl,Glu,Glut
 
@@ -57,71 +59,71 @@ $zoomFactor = 1.0
 $height = 0.0
 
 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 init
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glShadeModel(GL_FLAT)
-	makeCheckImage()
-	glPixelStorei(GL_UNPACK_ALIGNMENT, 1)
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+  glShadeModel(GL_FLAT)
+  makeCheckImage()
+  glPixelStorei(GL_UNPACK_ALIGNMENT, 1)
 end
 
 display = Proc.new do
-	glClear(GL_COLOR_BUFFER_BIT)
-	glRasterPos(0, 0)
-	glDrawPixels(CheckImageWidth, CheckImageHeight, GL_RGB, GL_UNSIGNED_BYTE, $checkImage.pack("C*"))
-	glFlush()
+  glClear(GL_COLOR_BUFFER_BIT)
+  glRasterPos(0, 0)
+  glDrawPixels(CheckImageWidth, CheckImageHeight, GL_RGB, GL_UNSIGNED_BYTE, $checkImage.pack("C*"))
+  glFlush()
 end
 
 reshape = Proc.new do |w, h|
-	glViewport(0, 0,  w,  h)
-	$height = h
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	gluOrtho2D(0.0,  w, 0.0, h)
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
+  glViewport(0, 0,  w,  h)
+  $height = h
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  gluOrtho2D(0.0,  w, 0.0, h)
+  glMatrixMode(GL_MODELVIEW)
+  glLoadIdentity()
 end
 
 $screeny = 0.0
 motion = Proc.new do |x, y|
-	$screeny = $height - y
-	glRasterPos(x, $screeny)
-	glPixelZoom($zoomFactor, $zoomFactor)
-	glCopyPixels(0, 0, CheckImageWidth, CheckImageHeight, GL_COLOR)
-	glPixelZoom(1.0, 1.0)
-	glFlush()
+  $screeny = $height - y
+  glRasterPos(x, $screeny)
+  glPixelZoom($zoomFactor, $zoomFactor)
+  glCopyPixels(0, 0, CheckImageWidth, CheckImageHeight, GL_COLOR)
+  glPixelZoom(1.0, 1.0)
+  glFlush()
 end
 
 keyboard = Proc.new do |key, x, y|
-	case (key)
-		when ?r,?R
-			$zoomFactor = 1.0
-			glutPostRedisplay()
-			printf("zoomFactor reset to 1.0\n")
-		when ?z
-			$zoomFactor = $zoomFactor + 0.5
-			if ($zoomFactor >= 3.0) 
-				$zoomFactor = 3.0
-			end
-			printf("zoomFactor is now %4.1f\n", $zoomFactor)
-		when ?Z
-			$zoomFactor = $zoomFactor - 0.5
-			if ($zoomFactor <= 0.5) 
-				$zoomFactor = 0.5
-			end
-			printf("zoomFactor is now %4.1f\n", $zoomFactor)
-		when ?\e
-			exit(0)
-	end
+  case (key)
+    when ?r,?R
+      $zoomFactor = 1.0
+      glutPostRedisplay()
+      printf("zoomFactor reset to 1.0\n")
+    when ?z
+      $zoomFactor = $zoomFactor + 0.5
+      if ($zoomFactor >= 3.0)
+        $zoomFactor = 3.0
+      end
+      printf("zoomFactor is now %4.1f\n", $zoomFactor)
+    when ?Z
+      $zoomFactor = $zoomFactor - 0.5
+      if ($zoomFactor <= 0.5)
+        $zoomFactor = 0.5
+      end
+      printf("zoomFactor is now %4.1f\n", $zoomFactor)
+    when ?\e
+      exit(0)
+  end
 end
 
 glutInit

data/examples/RedBook/jitter.rb

@@ -1,13 +1,13 @@
 #
 # (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,
@@ -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
@@ -45,7 +45,7 @@
 # have a gaussian distribution around the origin.
 #
 # Use these to do model jittering for scene anti-aliasing and view volume
-# jittering for depth of field effects. Use in conjunction with the 
+# jittering for depth of field effects. Use in conjunction with the
 # accwindow() routine.
 #
 
@@ -53,155 +53,155 @@ MAX_SAMPLES=66
 
 # 2 jitter points
 $j2 = [
-	[ 0.246490,  0.249999],
-	[-0.246490, -0.249999]
+  [ 0.246490,  0.249999],
+  [-0.246490, -0.249999]
 ]
 
 
 # 3 jitter points
 $j3 = [
-	[-0.373411, -0.250550],
-	[ 0.256263,  0.368119],
-	[ 0.117148, -0.117570]
+  [-0.373411, -0.250550],
+  [ 0.256263,  0.368119],
+  [ 0.117148, -0.117570]
 ]
 
 
 # 4 jitter points
 $j4 = [
-	[-0.208147,  0.353730],
-	[ 0.203849, -0.353780],
-	[-0.292626, -0.149945],
-	[ 0.296924,  0.149994]
+  [-0.208147,  0.353730],
+  [ 0.203849, -0.353780],
+  [-0.292626, -0.149945],
+  [ 0.296924,  0.149994]
 ]
 
 
 # 8 jitter points
 $j8 = [
-	[-0.334818,  0.435331],
-	[ 0.286438, -0.393495],
-	[ 0.459462,  0.141540],
-	[-0.414498, -0.192829],
-	[-0.183790,  0.082102],
-	[-0.079263, -0.317383],
-	[ 0.102254,  0.299133],
-	[ 0.164216, -0.054399]
+  [-0.334818,  0.435331],
+  [ 0.286438, -0.393495],
+  [ 0.459462,  0.141540],
+  [-0.414498, -0.192829],
+  [-0.183790,  0.082102],
+  [-0.079263, -0.317383],
+  [ 0.102254,  0.299133],
+  [ 0.164216, -0.054399]
 ]
 
 
-# 15 jitter points 
+# 15 jitter points
 $j15 = [
-	[ 0.285561,  0.188437],
-	[ 0.360176, -0.065688],
-	[-0.111751,  0.275019],
-	[-0.055918, -0.215197],
-	[-0.080231, -0.470965],
-	[ 0.138721,  0.409168],
-	[ 0.384120,  0.458500],
-	[-0.454968,  0.134088],
-	[ 0.179271, -0.331196],
-	[-0.307049, -0.364927],
-	[ 0.105354, -0.010099],
-	[-0.154180,  0.021794],
-	[-0.370135, -0.116425],
-	[ 0.451636, -0.300013],
-	[-0.370610,  0.387504]
+  [ 0.285561,  0.188437],
+  [ 0.360176, -0.065688],
+  [-0.111751,  0.275019],
+  [-0.055918, -0.215197],
+  [-0.080231, -0.470965],
+  [ 0.138721,  0.409168],
+  [ 0.384120,  0.458500],
+  [-0.454968,  0.134088],
+  [ 0.179271, -0.331196],
+  [-0.307049, -0.364927],
+  [ 0.105354, -0.010099],
+  [-0.154180,  0.021794],
+  [-0.370135, -0.116425],
+  [ 0.451636, -0.300013],
+  [-0.370610,  0.387504]
 ]
 
-# 24 jitter points 
+# 24 jitter points
 $j24 = [
-	[ 0.030245,  0.136384],
-	[ 0.018865, -0.348867],
-	[-0.350114, -0.472309],
-	[ 0.222181,  0.149524],
-	[-0.393670, -0.266873],
-	[ 0.404568,  0.230436],
-	[ 0.098381,  0.465337],
-	[ 0.462671,  0.442116],
-	[ 0.400373, -0.212720],
-	[-0.409988,  0.263345],
-	[-0.115878, -0.001981],
-	[ 0.348425, -0.009237],
-	[-0.464016,  0.066467],
-	[-0.138674, -0.468006],
-	[ 0.144932, -0.022780],
-	[-0.250195,  0.150161],
-	[-0.181400, -0.264219],
-	[ 0.196097, -0.234139],
-	[-0.311082, -0.078815],
-	[ 0.268379,  0.366778],
-	[-0.040601,  0.327109],
-	[-0.234392,  0.354659],
-	[-0.003102, -0.154402],
-	[ 0.297997, -0.417965]
+  [ 0.030245,  0.136384],
+  [ 0.018865, -0.348867],
+  [-0.350114, -0.472309],
+  [ 0.222181,  0.149524],
+  [-0.393670, -0.266873],
+  [ 0.404568,  0.230436],
+  [ 0.098381,  0.465337],
+  [ 0.462671,  0.442116],
+  [ 0.400373, -0.212720],
+  [-0.409988,  0.263345],
+  [-0.115878, -0.001981],
+  [ 0.348425, -0.009237],
+  [-0.464016,  0.066467],
+  [-0.138674, -0.468006],
+  [ 0.144932, -0.022780],
+  [-0.250195,  0.150161],
+  [-0.181400, -0.264219],
+  [ 0.196097, -0.234139],
+  [-0.311082, -0.078815],
+  [ 0.268379,  0.366778],
+  [-0.040601,  0.327109],
+  [-0.234392,  0.354659],
+  [-0.003102, -0.154402],
+  [ 0.297997, -0.417965]
 ]
 
 
 # 66 jitter points
 $j66 = [
-	[ 0.266377, -0.218171],
-	[-0.170919, -0.429368],
-	[ 0.047356, -0.387135],
-	[-0.430063,  0.363413],
-	[-0.221638, -0.313768],
-	[ 0.124758, -0.197109],
-	[-0.400021,  0.482195],
-	[ 0.247882,  0.152010],
-	[-0.286709, -0.470214],
-	[-0.426790,  0.004977],
-	[-0.361249, -0.104549],
-	[-0.040643,  0.123453],
-	[-0.189296,  0.438963],
-	[-0.453521, -0.299889],
-	[ 0.408216, -0.457699],
-	[ 0.328973, -0.101914],
-	[-0.055540, -0.477952],
-	[ 0.194421,  0.453510],
-	[ 0.404051,  0.224974],
-	[ 0.310136,  0.419700],
-	[-0.021743,  0.403898],
-	[-0.466210,  0.248839],
-	[ 0.341369,  0.081490],
-	[ 0.124156, -0.016859],
-	[-0.461321, -0.176661],
-	[ 0.013210,  0.234401],
-	[ 0.174258, -0.311854],
-	[ 0.294061,  0.263364],
-	[-0.114836,  0.328189],
-	[ 0.041206, -0.106205],
-	[ 0.079227,  0.345021],
-	[-0.109319, -0.242380],
-	[ 0.425005, -0.332397],
-	[ 0.009146,  0.015098],
-	[-0.339084, -0.355707],
-	[-0.224596, -0.189548],
-	[ 0.083475,  0.117028],
-	[ 0.295962, -0.334699],
-	[ 0.452998,  0.025397],
-	[ 0.206511, -0.104668],
-	[ 0.447544, -0.096004],
-	[-0.108006, -0.002471],
-	[-0.380810,  0.130036],
-	[-0.242440,  0.186934],
-	[-0.200363,  0.070863],
-	[-0.344844, -0.230814],
-	[ 0.408660,  0.345826],
-	[-0.233016,  0.305203],
-	[ 0.158475, -0.430762],
-	[ 0.486972,  0.139163],
-	[-0.301610,  0.009319],
-	[ 0.282245, -0.458671],
-	[ 0.482046,  0.443890],
-	[-0.121527,  0.210223],
-	[-0.477606, -0.424878],
-	[-0.083941, -0.121440],
-	[-0.345773,  0.253779],
-	[ 0.234646,  0.034549],
-	[ 0.394102, -0.210901],
-	[-0.312571,  0.397656],
-	[ 0.200906,  0.333293],
-	[ 0.018703, -0.261792],
-	[-0.209349, -0.065383],
-	[ 0.076248,  0.478538],
-	[-0.073036, -0.355064],
-	[ 0.145087,  0.221726]
+  [ 0.266377, -0.218171],
+  [-0.170919, -0.429368],
+  [ 0.047356, -0.387135],
+  [-0.430063,  0.363413],
+  [-0.221638, -0.313768],
+  [ 0.124758, -0.197109],
+  [-0.400021,  0.482195],
+  [ 0.247882,  0.152010],
+  [-0.286709, -0.470214],
+  [-0.426790,  0.004977],
+  [-0.361249, -0.104549],
+  [-0.040643,  0.123453],
+  [-0.189296,  0.438963],
+  [-0.453521, -0.299889],
+  [ 0.408216, -0.457699],
+  [ 0.328973, -0.101914],
+  [-0.055540, -0.477952],
+  [ 0.194421,  0.453510],
+  [ 0.404051,  0.224974],
+  [ 0.310136,  0.419700],
+  [-0.021743,  0.403898],
+  [-0.466210,  0.248839],
+  [ 0.341369,  0.081490],
+  [ 0.124156, -0.016859],
+  [-0.461321, -0.176661],
+  [ 0.013210,  0.234401],
+  [ 0.174258, -0.311854],
+  [ 0.294061,  0.263364],
+  [-0.114836,  0.328189],
+  [ 0.041206, -0.106205],
+  [ 0.079227,  0.345021],
+  [-0.109319, -0.242380],
+  [ 0.425005, -0.332397],
+  [ 0.009146,  0.015098],
+  [-0.339084, -0.355707],
+  [-0.224596, -0.189548],
+  [ 0.083475,  0.117028],
+  [ 0.295962, -0.334699],
+  [ 0.452998,  0.025397],
+  [ 0.206511, -0.104668],
+  [ 0.447544, -0.096004],
+  [-0.108006, -0.002471],
+  [-0.380810,  0.130036],
+  [-0.242440,  0.186934],
+  [-0.200363,  0.070863],
+  [-0.344844, -0.230814],
+  [ 0.408660,  0.345826],
+  [-0.233016,  0.305203],
+  [ 0.158475, -0.430762],
+  [ 0.486972,  0.139163],
+  [-0.301610,  0.009319],
+  [ 0.282245, -0.458671],
+  [ 0.482046,  0.443890],
+  [-0.121527,  0.210223],
+  [-0.477606, -0.424878],
+  [-0.083941, -0.121440],
+  [-0.345773,  0.253779],
+  [ 0.234646,  0.034549],
+  [ 0.394102, -0.210901],
+  [-0.312571,  0.397656],
+  [ 0.200906,  0.333293],
+  [ 0.018703, -0.261792],
+  [-0.209349, -0.065383],
+  [ 0.076248,  0.478538],
+  [-0.073036, -0.355064],
+  [ 0.145087,  0.221726]
 ]