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

data/examples/RedBook/robot.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
@@ -40,6 +40,8 @@
 # Interaction:  pressing the s and e keys (shoulder and elbow)
 # alters the rotation of the robot arm.
 require 'opengl'
+require 'glu'
+require 'glut'
 require 'mathn'
 include Gl,Glu,Glut
 
@@ -47,69 +49,69 @@ $shoulder = 0
 $elbow = 0
 
 def init
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glShadeModel(GL_FLAT)
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+  glShadeModel(GL_FLAT)
 end
 
 display = Proc.new do
-	glClear(GL_COLOR_BUFFER_BIT)
-	glPushMatrix()
-	glTranslate(-1.0, 0.0, 0.0)
-	glRotate($shoulder, 0.0, 0.0, 1.0)
-	glTranslate(1.0, 0.0, 0.0)
-	glPushMatrix()
-	glScale(2.0, 0.4, 1.0)
-	glutWireCube(1.0)
-	glPopMatrix()
-	
-	glTranslate(1.0, 0.0, 0.0)
-	glRotate($elbow, 0.0, 0.0, 1.0)
-	glTranslate(1.0, 0.0, 0.0)
-	glPushMatrix()
-	glScale(2.0, 0.4, 1.0)
-	glutWireCube(1.0)
-	glPopMatrix()
-	
-	glPopMatrix()
-	glutSwapBuffers()
+  glClear(GL_COLOR_BUFFER_BIT)
+  glPushMatrix()
+  glTranslate(-1.0, 0.0, 0.0)
+  glRotate($shoulder, 0.0, 0.0, 1.0)
+  glTranslate(1.0, 0.0, 0.0)
+  glPushMatrix()
+  glScale(2.0, 0.4, 1.0)
+  glutWireCube(1.0)
+  glPopMatrix()
+
+  glTranslate(1.0, 0.0, 0.0)
+  glRotate($elbow, 0.0, 0.0, 1.0)
+  glTranslate(1.0, 0.0, 0.0)
+  glPushMatrix()
+  glScale(2.0, 0.4, 1.0)
+  glutWireCube(1.0)
+  glPopMatrix()
+
+  glPopMatrix()
+  glutSwapBuffers()
 end
 
 reshape  = Proc.new do |w, h|
-	glViewport(0, 0,  w,  h) 
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	gluPerspective(65.0,  w/ h, 1.0, 20.0)
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-	glTranslate(0.0, 0.0, -5.0)
+  glViewport(0, 0,  w,  h)
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  gluPerspective(65.0,  w/ h, 1.0, 20.0)
+  glMatrixMode(GL_MODELVIEW)
+  glLoadIdentity()
+  glTranslate(0.0, 0.0, -5.0)
 end
 
 keyboard = Proc.new do|key, x, y|
-	case  (key)
-		when ?s
-			$shoulder = ($shoulder + 5) % 360
-			glutPostRedisplay()
-		when ?S
-			$shoulder = ($shoulder - 5) % 360
-			glutPostRedisplay()
-		when ?e
-			$elbow = ($elbow + 5) % 360
-			glutPostRedisplay()
-		when ?E
-			$elbow = ($elbow - 5) % 360
-			glutPostRedisplay()
-		when ?\e
-			exit(0)
-	end
+  case  (key)
+    when ?s
+      $shoulder = ($shoulder + 5) % 360
+      glutPostRedisplay()
+    when ?S
+      $shoulder = ($shoulder - 5) % 360
+      glutPostRedisplay()
+    when ?e
+      $elbow = ($elbow + 5) % 360
+      glutPostRedisplay()
+    when ?E
+      $elbow = ($elbow - 5) % 360
+      glutPostRedisplay()
+    when ?\e
+      exit(0)
+  end
 end
 
 glutInit
 glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB)
-glutInitWindowSize(500, 500) 
+glutInitWindowSize(500, 500)
 glutInitWindowPosition(100, 100)
 glutCreateWindow($0)
 init()
-glutDisplayFunc(display) 
+glutDisplayFunc(display)
 glutReshapeFunc(reshape)
 glutKeyboardFunc(keyboard)
 glutMainLoop()

data/examples/RedBook/select.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,151 +36,153 @@
 #
 #
 # select.c
-# This is an illustration of the selection mode and 
-# name stack, which detects whether objects which collide 
-# with a viewing volume.  First, four triangles and a 
-# rectangular box representing a viewing volume are drawn 
-# (drawScene routine).  The green triangle and yellow 
-# triangles appear to lie within the viewing volume, but 
-# the red triangle appears to lie outside it.  Then the 
-# selection mode is entered (selectObjects routine).  
-# Drawing to the screen ceases.  To see if any collisions 
-# occur, the four triangles are called.  In this example, 
-# the green triangle causes one hit with the name 1, and 
+# This is an illustration of the selection mode and
+# name stack, which detects whether objects which collide
+# with a viewing volume.  First, four triangles and a
+# rectangular box representing a viewing volume are drawn
+# (drawScene routine).  The green triangle and yellow
+# triangles appear to lie within the viewing volume, but
+# the red triangle appears to lie outside it.  Then the
+# selection mode is entered (selectObjects routine).
+# Drawing to the screen ceases.  To see if any collisions
+# occur, the four triangles are called.  In this example,
+# the green triangle causes one hit with the name 1, and
 # the yellow triangles cause one hit with the name 3.
 require 'opengl'
+require 'glu'
+require 'glut'
 include Gl,Glu,Glut
 
-# draw a triangle with vertices at (x1, y1), (x2, y2) 
+# draw a triangle with vertices at (x1, y1), (x2, y2)
 # and (x3, y3) at z units away from the origin.
 def drawTriangle(x1, y1, x2, y2, x3, y3, z)
-	glBegin(GL_TRIANGLES)
-	glVertex(x1, y1, z)
-	glVertex(x2, y2, z)
-	glVertex(x3, y3, z)
-	glEnd()
+  glBegin(GL_TRIANGLES)
+  glVertex(x1, y1, z)
+  glVertex(x2, y2, z)
+  glVertex(x3, y3, z)
+  glEnd()
 end
 
 # draw a rectangular box with these outer x, y, and z values
 def drawViewVolume(x1, x2, y1, y2, z1, z2)
-	glColor(1.0, 1.0, 1.0)
-	glBegin(GL_LINE_LOOP)
-	glVertex(x1, y1, -z1)
-	glVertex(x2, y1, -z1)
-	glVertex(x2, y2, -z1)
-	glVertex(x1, y2, -z1)
-	glEnd()
-	
-	glBegin(GL_LINE_LOOP)
-	glVertex(x1, y1, -z2)
-	glVertex(x2, y1, -z2)
-	glVertex(x2, y2, -z2)
-	glVertex(x1, y2, -z2)
-	glEnd()
-	
-	glBegin(GL_LINES)# 4 lines
-	glVertex(x1, y1, -z1)
-	glVertex(x1, y1, -z2)
-	glVertex(x1, y2, -z1)
-	glVertex(x1, y2, -z2)
-	glVertex(x2, y1, -z1)
-	glVertex(x2, y1, -z2)
-	glVertex(x2, y2, -z1)
-	glVertex(x2, y2, -z2)
-	glEnd()
+  glColor(1.0, 1.0, 1.0)
+  glBegin(GL_LINE_LOOP)
+  glVertex(x1, y1, -z1)
+  glVertex(x2, y1, -z1)
+  glVertex(x2, y2, -z1)
+  glVertex(x1, y2, -z1)
+  glEnd()
+
+  glBegin(GL_LINE_LOOP)
+  glVertex(x1, y1, -z2)
+  glVertex(x2, y1, -z2)
+  glVertex(x2, y2, -z2)
+  glVertex(x1, y2, -z2)
+  glEnd()
+
+  glBegin(GL_LINES)# 4 lines
+  glVertex(x1, y1, -z1)
+  glVertex(x1, y1, -z2)
+  glVertex(x1, y2, -z1)
+  glVertex(x1, y2, -z2)
+  glVertex(x2, y1, -z1)
+  glVertex(x2, y1, -z2)
+  glVertex(x2, y2, -z1)
+  glVertex(x2, y2, -z2)
+  glEnd()
 end
 
 # drawScene draws 4 triangles and a wire frame
 # which represents the viewing volume.
 def drawScene()
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	gluPerspective(40.0, 4.0/3.0, 1.0, 100.0)
-	
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-	gluLookAt(7.5, 7.5, 12.5, 2.5, 2.5, -5.0, 0.0, 1.0, 0.0)
-	glColor(0.0, 1.0, 0.0)# green triangle
-	drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, -5.0)
-	glColor(1.0, 0.0, 0.0)# red triangle
-	drawTriangle(2.0, 7.0, 3.0, 7.0, 2.5, 8.0, -5.0)
-	glColor(1.0, 1.0, 0.0)# yellow triangles
-	drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, 0.0)
-	drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, -10.0)
-	drawViewVolume(0.0, 5.0, 0.0, 5.0, 0.0, 10.0)
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  gluPerspective(40.0, 4.0/3.0, 1.0, 100.0)
+
+  glMatrixMode(GL_MODELVIEW)
+  glLoadIdentity()
+  gluLookAt(7.5, 7.5, 12.5, 2.5, 2.5, -5.0, 0.0, 1.0, 0.0)
+  glColor(0.0, 1.0, 0.0)# green triangle
+  drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, -5.0)
+  glColor(1.0, 0.0, 0.0)# red triangle
+  drawTriangle(2.0, 7.0, 3.0, 7.0, 2.5, 8.0, -5.0)
+  glColor(1.0, 1.0, 0.0)# yellow triangles
+  drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, 0.0)
+  drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, -10.0)
+  drawViewVolume(0.0, 5.0, 0.0, 5.0, 0.0, 10.0)
 end
 
 # processHits prints out the contents of the selection array
 def processHits(hits, buffer)
-	printf("hits = %d\n", hits)
-	ptr = buffer.unpack("I*")
-	p = 0
-	for i in 0...hits 	# for each hit
-		names = ptr[p]
-		printf(" number of names for hit = %d\n", names); p+=1
-		printf("  z1 is %g",  ptr[p].to_f/0xffffffff); p+=1
-		printf(" z2 is %g\n",  ptr[p].to_f/0xffffffff); p+=1
-		printf("   the name is ")
-		for j in 0...names  # for each name
-			printf("%d ", ptr[p]); p+=1
-		end
-		printf("\n")
-	end
+  printf("hits = %d\n", hits)
+  ptr = buffer.unpack("I*")
+  p = 0
+  for i in 0...hits   # for each hit
+    names = ptr[p]
+    printf(" number of names for hit = %d\n", names); p+=1
+    printf("  z1 is %g",  ptr[p].to_f/0xffffffff); p+=1
+    printf(" z2 is %g\n",  ptr[p].to_f/0xffffffff); p+=1
+    printf("   the name is ")
+    for j in 0...names  # for each name
+      printf("%d ", ptr[p]); p+=1
+    end
+    printf("\n")
+  end
 end
 
-# selectObjects "draws" the triangles in selection mode, 
+# selectObjects "draws" the triangles in selection mode,
 # assigning names for the triangles.  Note that the third
-# and fourth triangles share one name, so that if either 
-# or both triangles intersects the viewing/clipping volume, 
+# and fourth triangles share one name, so that if either
+# or both triangles intersects the viewing/clipping volume,
 # only one hit will be registered.
 
 BUFSIZE=512
 
 def selectObjects
-	selectBuf = glSelectBuffer(BUFSIZE)
-	glRenderMode(GL_SELECT)
-	
-	glInitNames()
-	glPushName(0)
-	
-	glPushMatrix()
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	glOrtho(0.0, 5.0, 0.0, 5.0, 0.0, 10.0)
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-	glLoadName(1)
-	drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, -5.0)
-	glLoadName(2)
-	drawTriangle(2.0, 7.0, 3.0, 7.0, 2.5, 8.0, -5.0)
-	glLoadName(3)
-	drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, 0.0)
-	drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, -10.0)
-	glPopMatrix()
-	glFlush()
-	
-	hits = glRenderMode(GL_RENDER)
-	processHits(hits, selectBuf)
-end 
+  selectBuf = glSelectBuffer(BUFSIZE)
+  glRenderMode(GL_SELECT)
+
+  glInitNames()
+  glPushName(0)
+
+  glPushMatrix()
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  glOrtho(0.0, 5.0, 0.0, 5.0, 0.0, 10.0)
+  glMatrixMode(GL_MODELVIEW)
+  glLoadIdentity()
+  glLoadName(1)
+  drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, -5.0)
+  glLoadName(2)
+  drawTriangle(2.0, 7.0, 3.0, 7.0, 2.5, 8.0, -5.0)
+  glLoadName(3)
+  drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, 0.0)
+  drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, -10.0)
+  glPopMatrix()
+  glFlush()
+
+  hits = glRenderMode(GL_RENDER)
+  processHits(hits, selectBuf)
+end
 
 def init
-	glEnable(GL_DEPTH_TEST)
-	glShadeModel(GL_FLAT)
+  glEnable(GL_DEPTH_TEST)
+  glShadeModel(GL_FLAT)
 end
 
 display = proc do
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-	drawScene()
-	selectObjects()
-	glFlush()
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
+  drawScene()
+  selectObjects()
+  glFlush()
 end
 
 keyboard = proc do |key, x, y|
-	case (key)
-		when ?\e
-			exit(0)
-	end
+  case (key)
+    when ?\e
+      exit(0)
+  end
 end
 
 # Main Loop

data/examples/RedBook/smooth.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
@@ -39,48 +39,50 @@
 # A smooth shaded polygon is drawn in a 2-D projection.
 
 require 'opengl'
+require 'glu'
+require 'glut'
 include Gl,Glu,Glut
 
 def init
-	glClearColor(0,0,0,0)
-	glShadeModel(GL_SMOOTH)
+  glClearColor(0,0,0,0)
+  glShadeModel(GL_SMOOTH)
 end
 
 def triangle
-	glBegin(GL_TRIANGLES)
-	glColor3f(1.0, 0.0, 0.0)
-	glVertex2f(5, 5)
-	glColor3f(0.0, 1.0, 0.0)
-	glVertex2f(25, 5)
-	glColor3f(0.0, 0.0, 1.0)
-	glVertex2f(5, 25)
-	glEnd()
+  glBegin(GL_TRIANGLES)
+  glColor3f(1.0, 0.0, 0.0)
+  glVertex2f(5, 5)
+  glColor3f(0.0, 1.0, 0.0)
+  glVertex2f(25, 5)
+  glColor3f(0.0, 0.0, 1.0)
+  glVertex2f(5, 25)
+  glEnd()
 end
 
 
-display = Proc.new do 
-	glClear(GL_COLOR_BUFFER_BIT)
-	triangle
-	glutSwapBuffers()
+display = Proc.new do
+  glClear(GL_COLOR_BUFFER_BIT)
+  triangle
+  glutSwapBuffers()
 end
 
 reshape = Proc.new do |w, h|
-	glViewport(0, 0, w, h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity
-	if w<=h
-		gluOrtho2D(0,30,0, 30 * h/w)
-	else
-		gluOrtho2D(0,30 * w/h, 0,30)
-	end
-	glMatrixMode(GL_MODELVIEW)
+  glViewport(0, 0, w, h)
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity
+  if w<=h
+    gluOrtho2D(0,30,0, 30 * h/w)
+  else
+    gluOrtho2D(0,30 * w/h, 0,30)
+  end
+  glMatrixMode(GL_MODELVIEW)
 end
 
 keyboard = lambda do |key, x, y|
-	case(key)
-	when ?\e
-		exit(0)
-	end
+  case(key)
+  when ?\e
+    exit(0)
+  end
 end
 
 glutInit()