ruby-opengl 0.60.1 → 0.61.0

data/examples/RedBook/mipmap.rb

@@ -1,156 +0,0 @@
-#
-# 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 
-# 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 
-# the name of Silicon Graphics, Inc. not be used in advertising
-# or publicity pertaining to distribution of the software without specific,
-# 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,
-# INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
-# FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
-# GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
-# SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
-# KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
-# LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
-# THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
-# 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 
-# 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
-# clause at DFARS 252.227-7013 and/or in similar or successor
-# clauses in the FAR or the DOD or NASA FAR Supplement.
-# Unpublished-- rights reserved under the copyright laws of the
-# United States.  Contractor/manufacturer is Silicon Graphics,
-# Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
-#
-# OpenGL(TM) is a trademark of Silicon Graphics, Inc.
-#
-# mipmap.c
-# This program demonstrates using mipmaps for texture maps.
-# To overtly show the effect of mipmaps, each mipmap reduction
-# level has a solidly colored, contrasting texture image.
-# Thus, the quadrilateral which is drawn is drawn with several
-# different colors.
-require 'opengl'
-require 'mathn'
-include Gl,Glu,Glut
-
-$mipmapImage32 = []
-$mipmapImage16 = []
-$mipmapImage8 = []
-$mipmapImage4 = []
-$mipmapImage2 = []
-$mipmapImage1 = []
-
-def makeImages
-	for i in 0..31
-		for j in 0..31
-			$mipmapImage32[(j*32+i)*3+0] = 255
-			$mipmapImage32[(j*32+i)*3+1] = 255
-			$mipmapImage32[(j*32+i)*3+2] = 0
-		end
-	end
-	for i in 0..15
-		for j in 0..15
-			$mipmapImage16[(j*16+i)*3+0] = 255
-			$mipmapImage16[(j*16+i)*3+1] = 0
-			$mipmapImage16[(j*16+i)*3+2] = 255
-		end
-	end
-	for i in 0..7
-		for j in 0..7
-			$mipmapImage8[(j*8+i)*3+0] = 255
-			$mipmapImage8[(j*8+i)*3+1] = 0
-			$mipmapImage8[(j*8+i)*3+2] = 0
-		end
-	end
-	for i in 0..3
-		for j in 0..3
-			$mipmapImage4[(j*4+i)*3+0] = 0
-			$mipmapImage4[(j*4+i)*3+1] = 255
-			$mipmapImage4[(j*4+i)*3+2] = 0
-		end
-	end
-	for i in 0..1
-		for j in 0..1
-			$mipmapImage2[(j*2+i)*3+0] = 0
-			$mipmapImage2[(j*2+i)*3+1] = 0
-			$mipmapImage2[(j*2+i)*3+2] = 255
-		end
-	end
-	$mipmapImage1[0] = 255
-	$mipmapImage1[1] = 255
-	$mipmapImage1[2] = 255
-end
-
-def myinit
-	glEnable(GL_DEPTH_TEST)
-	glDepthFunc(GL_LESS)
-	glShadeModel(GL_FLAT)
-	
-	glTranslate(0.0, 0.0, -3.6)
-	makeImages()
-	glPixelStore(GL_UNPACK_ALIGNMENT, 1)
-	glTexImage2D(GL_TEXTURE_2D, 0, 3, 32, 32, 0, GL_RGB, GL_UNSIGNED_BYTE, $mipmapImage32.pack("C*"))
-	glTexImage2D(GL_TEXTURE_2D, 1, 3, 16, 16, 0, GL_RGB, GL_UNSIGNED_BYTE, $mipmapImage16.pack("C*"))
-	glTexImage2D(GL_TEXTURE_2D, 2, 3, 8, 8, 0, GL_RGB, GL_UNSIGNED_BYTE, $mipmapImage8.pack("C*"))
-	glTexImage2D(GL_TEXTURE_2D, 3, 3, 4, 4, 0, GL_RGB, GL_UNSIGNED_BYTE, $mipmapImage4.pack("C*"))
-	glTexImage2D(GL_TEXTURE_2D, 4, 3, 2, 2, 0, GL_RGB, GL_UNSIGNED_BYTE, $mipmapImage2.pack("C*"))
-	glTexImage2D(GL_TEXTURE_2D, 5, 3, 1, 1, 0, GL_RGB, GL_UNSIGNED_BYTE, $mipmapImage1.pack("C*"))
-	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_MIPMAP_NEAREST)
-	glTexEnv(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL)
-	glEnable(GL_TEXTURE_2D)
-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, 8.0); glVertex(-2.0, 1.0, 0.0)
-	glTexCoord(8.0, 8.0); glVertex(2000.0, 1.0, -6000.0)
-	glTexCoord(8.0, 0.0); glVertex(2000.0, -1.0, -6000.0)
-	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, 30000.0)
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-end
-
-keyboard = Proc.new do |key, x, y|
-	case (key)
-		when ?\e
-		exit(0);
-	end
-end
-
-glutInit
-glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH)
-glutInitWindowSize(500, 500)
-glutInitWindowPosition(100, 100)
-glutCreateWindow($0)
-myinit()
-glutReshapeFunc(myReshape)
-glutDisplayFunc(display)
-glutKeyboardFunc(keyboard)
-glutMainLoop()

data/examples/RedBook/model.rb

@@ -1,113 +0,0 @@
-#
-# Copyright (c) 1993-1997, Silicon Graphics, Inc.
-# 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 
-# the name of Silicon Graphics, Inc. not be used in advertising
-# or publicity pertaining to distribution of the software without specific,
-# 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,
-# INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
-# FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
-# GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
-# SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
-# KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
-# LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
-# THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
-# 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 
-# 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
-# clause at DFARS 252.227-7013 and/or in similar or successor
-# clauses in the FAR or the DOD or NASA FAR Supplement.
-# Unpublished-- rights reserved under the copyright laws of the
-# United States.  Contractor/manufacturer is Silicon Graphics,
-# Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
-#
-# OpenGL(R) is a registered trademark of Silicon Graphics, Inc.
-#
-#  model.c
-#  This program demonstrates modeling transformations
-require 'opengl'
-require 'mathn'
-include Gl,Glu,Glut
-
-def init
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glShadeModel(GL_FLAT)
-end
-
-def draw_triangle
-	glBegin(GL_LINE_LOOP)
-	glVertex(0.0, 25.0)
-	glVertex(25.0, -25.0)
-	glVertex(-25.0, -25.0)
-	glEnd()
-end
-
-display = Proc.new do
-	glClear(GL_COLOR_BUFFER_BIT)
-	glColor(1.0, 1.0, 1.0)
-	
-	glLoadIdentity()
-	glColor(1.0, 1.0, 1.0)
-	draw_triangle()
-	
-	glEnable(GL_LINE_STIPPLE)
-	glLineStipple(1, 0xF0F0)
-	glLoadIdentity()
-	glTranslate(-20.0, 0.0, 0.0)
-	draw_triangle()
-	
-	glLineStipple(1, 0xF00F)
-	glLoadIdentity()
-	glScale(1.5, 0.5, 1.0)
-	draw_triangle()
-	
-	glLineStipple(1, 0x8888)
-	glLoadIdentity()
-	glRotate(90.0, 0.0, 0.0, 1.0)
-	draw_triangle()
-	glDisable(GL_LINE_STIPPLE)
-	
-	glutSwapBuffers()
-end
-
-reshape = Proc.new do |w, h|
-	glViewport(0, 0,  w,  h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	if (w <= h)
-		glOrtho(-50.0, 50.0, -50.0*h/w,	50.0*h/w, -1.0, 1.0)
-	else
-		glOrtho(-50.0*w/h,50.0*w/h, -50.0, 50.0, -1.0, 1.0)
-	end
-	glMatrixMode(GL_MODELVIEW)
-end
-
-keyboard = Proc.new do |key, x, y|
-	case key
-		when ?\e
-			exit(0)
-	end
-end
-
-# main
-glutInit()
-glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB)
-glutInitWindowSize(500, 500) 
-glutInitWindowPosition(100, 100)
-glutCreateWindow($0)
-init()
-glutDisplayFunc(display) 
-glutReshapeFunc(reshape)
-glutKeyboardFunc(keyboard)
-glutMainLoop()

data/examples/RedBook/movelight.rb

@@ -1,132 +0,0 @@
-#
-# Copyright (c) 1993-1997, Silicon Graphics, Inc.
-# 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 
-# the name of Silicon Graphics, Inc. not be used in advertising
-# or publicity pertaining to distribution of the software without specific,
-# 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,
-# INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
-# FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
-# GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
-# SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
-# KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
-# LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
-# THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
-# 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 
-# 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
-# clause at DFARS 252.227-7013 and/or in similar or successor
-# clauses in the FAR or the DOD or NASA FAR Supplement.
-# Unpublished-- rights reserved under the copyright laws of the
-# United States.  Contractor/manufacturer is Silicon Graphics,
-# Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
-#
-# OpenGL(R) is a registered trademark of Silicon Graphics, Inc.
-#
-#  movelight.c
-#  This program demonstrates when to issue lighting and
-#  transformation commands to render a model with a light
-#  which is moved by a modeling transformation (rotate or
-#  translate).  The light position is reset after the modeling
-#  transformation is called.  The eye position does not change.
-#
-#  A sphere is drawn using a grey material characteristic.
-#  A single light source illuminates the object.
-#
-#  Interaction:  pressing the left mouse button alters
-#  the modeling transformation (x rotation) by 30 degrees.
-#  The scene is then redrawn with the light in a new position.
-
-require 'opengl'
-require 'rational'
-require 'mathn'
-include Gl,Glu,Glut
-
-$spin = 0
-
-#  Initialize material property, light source, lighting model,
-#  and depth buffer.
-def init
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glShadeModel(GL_SMOOTH)
-	glEnable(GL_LIGHTING)
-	glEnable(GL_LIGHT0)
-	glEnable(GL_DEPTH_TEST)
-end
-
-#  Here is where the light position is reset after the modeling
-#  transformation (glRotated) is called.  This places the
-#  light at a new position in world coordinates.  The cube
-#  represents the position of the light.
-display = Proc.new do
-	position = [ 0.0, 0.0, 1.5, 1.0 ]
-	
-	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-	glPushMatrix()
-	GLU.LookAt(0.0, 0.0, 5.0, 0.0, 0.0, 0.0, 0.0, 1.0, 0.0)
-	
-	glPushMatrix()
-	glRotate($spin, 1.0, 0.0, 0.0)
-	glLight(GL_LIGHT0, GL_POSITION, position)
-	
-	glTranslate(0.0, 0.0, 1.5)
-	glDisable(GL_LIGHTING)
-	glColor(0.0, 1.0, 1.0)
-	glutWireCube(0.1)
-	glEnable(GL_LIGHTING)
-	glPopMatrix()
-	
-	glutSolidTorus(0.275, 0.85, 8, 15)
-	glPopMatrix()
-	glutSwapBuffers()
-end
-
-reshape = Proc.new do |w, h|
-	glViewport(0, 0,  w,  h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	gluPerspective(40.0,  w/h, 1.0, 20.0)
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-end
-
-mouse = Proc.new do |button, state, x, y|
-	case button
-		when GLUT_LEFT_BUTTON
-			if (state == GLUT_DOWN)
-				$spin = ($spin + 30) % 360
-				glutPostRedisplay()
-			end
-	end
-end
-
-keyboard = Proc.new do |key, x, y|
-	case key
-		when ?\e
-			exit(0)
-	end
-end
-
-# main
-glutInit
-glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH)
-glutInitWindowSize(500, 500) 
-glutInitWindowPosition(100, 100)
-glutCreateWindow($0)
-init()
-glutDisplayFunc(display) 
-glutReshapeFunc(reshape)
-glutMouseFunc(mouse)
-glutKeyboardFunc(keyboard)
-glutMainLoop()

data/examples/RedBook/pickdepth.rb

@@ -1,179 +0,0 @@
-#
-# 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 
-# 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 
-# the name of Silicon Graphics, Inc. not be used in advertising
-# or publicity pertaining to distribution of the software without specific,
-# 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,
-# INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
-# FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
-# GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
-# SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
-# KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
-# LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
-# THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
-# 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 
-# 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
-# clause at DFARS 252.227-7013 and/or in similar or successor
-# clauses in the FAR or the DOD or NASA FAR Supplement.
-# Unpublished-- rights reserved under the copyright laws of the
-# United States.  Contractor/manufacturer is Silicon Graphics,
-# Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
-#
-# OpenGL(TM) is a trademark of Silicon Graphics, Inc.
-#
-#  pickdepth.c
-#  Picking is demonstrated in this program.  In 
-#  rendering mode, three overlapping rectangles are 
-#  drawn.  When the left mouse button is pressed, 
-#  selection mode is entered with the picking matrix.  
-#  Rectangles which are drawn under the cursor position
-#  are "picked."  Pay special attention to the depth 
-#  value range, which is returned.
-require 'opengl'
-include Gl,Glu,Glut
-
-def myinit
-	glClearColor(0.0, 0.0, 0.0, 0.0)
-	glDepthFunc(GL_LESS)
-	glEnable(GL_DEPTH_TEST)
-	glShadeModel(GL_FLAT)
-	glDepthRange(0.0, 1.0)  #/* The default z mapping */
-end
-
-# The three rectangles are drawn.  In selection mode, 
-# each rectangle is given the same name.  Note that 
-# each rectangle is drawn with a different z value.
-def drawRects(mode)
-	if (mode == GL_SELECT)
-		glLoadName(1)
-	end
-	glBegin(GL_QUADS)
-	glColor(1.0, 1.0, 0.0)
-	glVertex(2, 0, 0)
-	glVertex(2, 6, 0)
-	glVertex(6, 6, 0)
-	glVertex(6, 0, 0)
-	glEnd()
-	if (mode == GL_SELECT)
-		glLoadName(2)
-	end
-	glBegin(GL_QUADS)
-	glColor(0.0, 1.0, 1.0)
-	glVertex(3, 2, -1)
-	glVertex(3, 8, -1)
-	glVertex(8, 8, -1)
-	glVertex(8, 2, -1)
-	glEnd()
-	if (mode == GL_SELECT)
-		glLoadName(3)
-	end
-	glBegin(GL_QUADS)
-	glColor(1.0, 0.0, 1.0)
-	glVertex(0, 2, -2)
-	glVertex(0, 7, -2)
-	glVertex(5, 7, -2)
-	glVertex(5, 2, -2)
-	glEnd()
-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
-end
-
-# pickRects() sets up selection mode, name stack, 
-# and projection matrix for picking.  Then the objects 
-# are drawn.
-BUFSIZE=512
-
-pickRects = proc do |button, state, x, y|
-	if (button == GLUT_LEFT_BUTTON && state == GLUT_DOWN)
-		viewport = glGetDoublev(GL_VIEWPORT)
-		
-		selectBuf = glSelectBuffer(BUFSIZE)
-		glRenderMode(GL_SELECT)
-		
-		glInitNames()
-		glPushName(~0)
-		
-		glMatrixMode(GL_PROJECTION)
-		glPushMatrix()
-		glLoadIdentity()
-		# create 5x5 pixel picking region near cursor location
-		gluPickMatrix( x, viewport[3] - y, 5.0, 5.0, viewport)
-		glOrtho(0.0, 8.0, 0.0, 8.0, -0.5, 2.5)
-		drawRects(GL_SELECT)
-		glPopMatrix()
-		glFlush()
-		
-		hits = glRenderMode(GL_RENDER)
-		processHits(hits, selectBuf)
-	end
-end
-
-display = proc do
-	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-	drawRects(GL_RENDER)
-	glutSwapBuffers()
-end
-
-myReshape = proc do |w, h|
-	glViewport(0, 0, w, h)
-	glMatrixMode(GL_PROJECTION)
-	glLoadIdentity()
-	glOrtho(0.0, 8.0, 0.0, 8.0, -0.5, 2.5)
-	glMatrixMode(GL_MODELVIEW)
-	glLoadIdentity()
-end
-
-keyboard = Proc.new do |key, x, y|
-	case (key)
-		when ?\e
-		exit(0)
-	end
-end
-
-# Main Loop
-# Open window with initial window size, title bar, 
-# RGBA display mode, depth buffer, and handle input events.
-glutInitWindowSize(500, 500)
-glutInitWindowPosition(100, 100)
-glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH)
-glutInit()
-glutCreateWindow()
-myinit()
-glutMouseFunc(pickRects)
-glutReshapeFunc(myReshape)
-glutDisplayFunc(display)
-glutKeyboardFunc(keyboard)
-glutMainLoop()