ruby-opengl2 0.60.2

data/examples/RedBook/fog.rb

@@ -0,0 +1,167 @@
+#
+# 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.
+#
+# fog.c
+# This program draws 5 red teapots, each at a different 
+# z distance from the eye, in different types of fog.  
+# Pressing the left mouse button chooses between 3 types of 
+# fog:  exponential, exponential squared, and linear.  
+# In this program, there is a fixed density value, as well 
+# as fixed start and end values for the linear fog.
+require 'opengl'
+require 'mathn'
+include Gl,Glu,Glut
+
+$fogMode = 0
+
+selectFog = Proc.new do |mode|
+	if (mode == GL_LINEAR)
+		glFog(GL_FOG_START, 1.0)
+		glFog(GL_FOG_END, 5.0)
+		# falls through
+		glFog(GL_FOG_MODE, mode)
+		glutPostRedisplay()
+	end
+	if (mode == GL_EXP2 || mode == GL_EXP)
+		glFog(GL_FOG_MODE, mode)
+		glutPostRedisplay()
+	end
+	exit(0) if (mode == 0)
+end
+
+# Initialize z-buffer, projection matrix, light source, 
+# and lighting model.  Do not specify a material property here.
+def myinit
+	position = [0.0, 3.0, 3.0, 0.0]
+	local_view = [0.0]
+	
+	glEnable(GL_DEPTH_TEST)
+	glDepthFunc(GL_LESS)
+	
+	glLight(GL_LIGHT0, GL_POSITION, position)
+	glLightModel(GL_LIGHT_MODEL_LOCAL_VIEWER, local_view)
+	
+	glFrontFace(GL_CW)
+	glEnable(GL_LIGHTING)
+	glEnable(GL_LIGHT0)
+	glEnable(GL_AUTO_NORMAL)
+	glEnable(GL_NORMALIZE)
+	glEnable(GL_FOG)
+	fogColor = [0.5, 0.5, 0.5, 1.0]
+	
+	fogMode = GL_EXP
+	glFog(GL_FOG_MODE, fogMode)
+	glFog(GL_FOG_COLOR, fogColor)
+	glFog(GL_FOG_DENSITY, 0.35)
+	glHint(GL_FOG_HINT, GL_DONT_CARE)
+	glClearColor(0.5, 0.5, 0.5, 1.0)
+end
+
+def renderRedTeapot(x, y, z)
+	mat = []
+	glPushMatrix()
+	glTranslate(x, y, z)
+	mat[0] = 0.1745
+	mat[1] = 0.01175
+	mat[2] = 0.01175
+	mat[3] = 1.0
+	glMaterial(GL_FRONT, GL_AMBIENT, mat)
+	mat[0] = 0.61424
+	mat[1] = 0.04136
+	mat[2] = 0.04136
+	glMaterial(GL_FRONT, GL_DIFFUSE, mat)
+	mat[0] = 0.727811
+	mat[1] = 0.626959
+	mat[2] = 0.626959
+	glMaterial(GL_FRONT, GL_SPECULAR, mat)
+	glMaterial(GL_FRONT, GL_SHININESS, 0.6 * 128.0)
+	glutSolidTeapot(1.0)
+	glPopMatrix()
+end
+
+# display() draws 5 teapots at different z positions.
+display = Proc.new do
+	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
+	renderRedTeapot(-4.0, -0.5, -1.0)
+	renderRedTeapot(-2.0, -0.5, -2.0)
+	renderRedTeapot(0.0, -0.5, -3.0)
+	renderRedTeapot(2.0, -0.5, -4.0)
+	renderRedTeapot(4.0, -0.5, -5.0)
+	glFlush()
+end
+
+myReshape = Proc.new do |w, h|
+	glViewport(0, 0, w, h)
+	glMatrixMode(GL_PROJECTION)
+	glLoadIdentity()
+	if (w <= (h * 3))
+		glOrtho(-6.0, 6.0, -2.0 * h * 3 / w, 2.0 * h * 3 / w, 0.0, 10.0)
+	elsif
+		glOrtho(-6.0 * w / h * 3, 6.0 * w / h * 3, -2.0, 2.0, 0.0, 10.0)
+	end
+	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.
+glutInit
+glutInitDisplayMode(GLUT_SINGLE | GLUT_RGB | GLUT_DEPTH)
+glutInitWindowSize(800, 300)
+glutInitWindowPosition(100, 100)
+glutCreateWindow($0)
+myinit()
+glutReshapeFunc(myReshape)
+glutDisplayFunc(display)
+glutKeyboardFunc(keyboard)
+glutCreateMenu(selectFog)
+glutAddMenuEntry("Fog EXP", GL_EXP)
+glutAddMenuEntry("Fog EXP2", GL_EXP2)
+glutAddMenuEntry("Fog LINEAR", GL_LINEAR)
+glutAddMenuEntry("Quit", 0)
+glutAttachMenu(GLUT_RIGHT_BUTTON)
+glutMainLoop()
+    

data/examples/RedBook/font.rb

@@ -0,0 +1,151 @@
+#
+# 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.
+#
+# font.c
+#
+# Draws some text in a bitmapped font.  Uses glBitmap() 
+# and other pixel routines.  Also demonstrates use of 
+# display lists.
+require 'opengl'
+include Gl,Glu,Glut
+
+$space = [0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00]
+
+$letters = [
+[0x00, 0x00, 0xc3, 0xc3, 0xc3, 0xc3, 0xff, 0xc3, 0xc3, 0xc3, 0x66, 0x3c, 0x18], 
+[0x00, 0x00, 0xfe, 0xc7, 0xc3, 0xc3, 0xc7, 0xfe, 0xc7, 0xc3, 0xc3, 0xc7, 0xfe], 
+[0x00, 0x00, 0x7e, 0xe7, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xe7, 0x7e], 
+[0x00, 0x00, 0xfc, 0xce, 0xc7, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xc7, 0xce, 0xfc], 
+[0x00, 0x00, 0xff, 0xc0, 0xc0, 0xc0, 0xc0, 0xfc, 0xc0, 0xc0, 0xc0, 0xc0, 0xff], 
+[0x00, 0x00, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xfc, 0xc0, 0xc0, 0xc0, 0xff], 
+[0x00, 0x00, 0x7e, 0xe7, 0xc3, 0xc3, 0xcf, 0xc0, 0xc0, 0xc0, 0xc0, 0xe7, 0x7e], 
+[0x00, 0x00, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xff, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3], 
+[0x00, 0x00, 0x7e, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x7e], 
+[0x00, 0x00, 0x7c, 0xee, 0xc6, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x06], 
+[0x00, 0x00, 0xc3, 0xc6, 0xcc, 0xd8, 0xf0, 0xe0, 0xf0, 0xd8, 0xcc, 0xc6, 0xc3], 
+[0x00, 0x00, 0xff, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0], 
+[0x00, 0x00, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xdb, 0xff, 0xff, 0xe7, 0xc3], 
+[0x00, 0x00, 0xc7, 0xc7, 0xcf, 0xcf, 0xdf, 0xdb, 0xfb, 0xf3, 0xf3, 0xe3, 0xe3], 
+[0x00, 0x00, 0x7e, 0xe7, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xe7, 0x7e], 
+[0x00, 0x00, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xfe, 0xc7, 0xc3, 0xc3, 0xc7, 0xfe], 
+[0x00, 0x00, 0x3f, 0x6e, 0xdf, 0xdb, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0x66, 0x3c], 
+[0x00, 0x00, 0xc3, 0xc6, 0xcc, 0xd8, 0xf0, 0xfe, 0xc7, 0xc3, 0xc3, 0xc7, 0xfe], 
+[0x00, 0x00, 0x7e, 0xe7, 0x03, 0x03, 0x07, 0x7e, 0xe0, 0xc0, 0xc0, 0xe7, 0x7e], 
+[0x00, 0x00, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0xff], 
+[0x00, 0x00, 0x7e, 0xe7, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3], 
+[0x00, 0x00, 0x18, 0x3c, 0x3c, 0x66, 0x66, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3], 
+[0x00, 0x00, 0xc3, 0xe7, 0xff, 0xff, 0xdb, 0xdb, 0xc3, 0xc3, 0xc3, 0xc3, 0xc3], 
+[0x00, 0x00, 0xc3, 0x66, 0x66, 0x3c, 0x3c, 0x18, 0x3c, 0x3c, 0x66, 0x66, 0xc3], 
+[0x00, 0x00, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x3c, 0x3c, 0x66, 0x66, 0xc3], 
+[0x00, 0x00, 0xff, 0xc0, 0xc0, 0x60, 0x30, 0x7e, 0x0c, 0x06, 0x03, 0x03, 0xff]
+]
+
+$fontOffset = 0
+
+def makeRasterFont
+	glPixelStorei(GL_UNPACK_ALIGNMENT, 1)
+	
+	$fontOffset = glGenLists(128)
+	i = 0
+	j = ?A
+	for i in 0...26
+		glNewList($fontOffset + j, GL_COMPILE)
+		glBitmap(8, 13, 0.0, 2.0, 10.0, 0.0, $letters[i].pack("C*"))
+		glEndList()
+		j+=1
+	end
+	glNewList($fontOffset + ' '[0], GL_COMPILE)
+	glBitmap(8, 13, 0.0, 2.0, 10.0, 0.0, $space.pack("C*"))
+	glEndList()
+end
+
+def init
+	glShadeModel(GL_FLAT)
+	makeRasterFont()
+end
+
+def printString(s)
+	glPushAttrib(GL_LIST_BIT)
+	glListBase($fontOffset)
+	glCallLists(GL_BYTE,s)
+	glPopAttrib()
+end
+
+# Everything above this line could be in a library 
+# that defines a font.  To make it work, you've got 
+# to call makeRasterFont() before you start making 
+# calls to printString().
+display = proc do
+	white = [ 1.0, 1.0, 1.0 ]
+	
+	glClear(GL_COLOR_BUFFER_BIT)
+	glColor(white)
+	
+	glRasterPos(20, 60)
+	printString("THE QUICK BROWN FOX JUMPS")
+	glRasterPos(20, 40)
+	printString("OVER A LAZY DOG")
+	glutSwapBuffers()
+end
+
+reshape = proc do |w, h|
+	glViewport(0, 0,  w,  h)
+	glMatrixMode(GL_PROJECTION)
+	glLoadIdentity()
+	glOrtho(0.0, w, 0.0, h, -1.0, 1.0)
+	glMatrixMode(GL_MODELVIEW)
+end
+
+keyboard = proc 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, and handle input events.
+glutInit()
+glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB)
+glutInitWindowSize(400, 100)
+glutInitWindowPosition(100, 100)
+glutCreateWindow()
+init()
+glutReshapeFunc(reshape)
+glutKeyboardFunc(keyboard)
+glutDisplayFunc(display)
+glutMainLoop()

data/examples/RedBook/hello.rb

@@ -0,0 +1,79 @@
+#
+# 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.
+#
+# hello.c
+# This is a simple, introductory OpenGL program.
+require 'opengl'
+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()
+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)
+end
+
+keyboard = Proc.new do |key, x, y|
+	case (key)
+		when ?\e
+		exit(0);
+	end
+end
+
+glutInit
+glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB)
+glutInitWindowSize(500, 500) 
+glutInitWindowPosition(100, 100)
+glutCreateWindow("hello")
+init()
+glutDisplayFunc(display) 
+glutKeyboardFunc(keyboard)
+glutMainLoop()

data/examples/RedBook/image.rb

@@ -0,0 +1,137 @@
+#
+# 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.
+#
+# image.c
+# This program demonstrates drawing pixels and shows the effect
+# of glDrawPixels(), glCopyPixels(), and glPixelZoom().
+# Interaction: moving the mouse while pressing the mouse button
+# will copy the image in the lower-left corner of the window
+# to the mouse position, using the current pixel zoom factors.
+# There is no attempt to prevent you from drawing over the original
+# image.  If you press the 'r' key, the original image and zoom
+# factors are reset.  If you press the 'z' or 'Z' keys, you change
+# the zoom factors.
+require 'opengl'
+require 'mathn'
+include Gl,Glu,Glut
+
+# Create checkerboard image
+CheckImageWidth=64
+CheckImageHeight=64
+$checkImage=[]
+
+$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
+end
+
+def init
+	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()
+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()
+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()
+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
+end
+
+glutInit
+glutInitDisplayMode(GLUT_SINGLE | GLUT_RGB)
+glutInitWindowSize(250, 250)
+glutInitWindowPosition(100, 100)
+glutCreateWindow($0)
+init()
+glutDisplayFunc(display)
+glutReshapeFunc(reshape)
+glutKeyboardFunc(keyboard)
+glutMotionFunc(motion)
+glutMainLoop()