ruby-opengl 0.40.1 → 0.50.0

data/examples/legacy/quadric.rb

@@ -1,180 +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.
-# */
-#
-#/*
-# *  quadric.c
-# *  This program demonstrates the use of some of the gluQuadric*
-# *  routines. Quadric objects are created with some quadric
-# *  properties and the callback routine to handle errors.
-# *  Note that the cylinder has no top or bottom and the circle
-# *  has a hole in it.
-# */
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "mathn"
-
-$startList = nil;
-
-#void CALLBACK errorCallback(GLenum errorCode)
-#{
-#   const GLubyte *estring;
-#
-#   estring = gluErrorString(errorCode);
-#   fprintf(stderr, "Quadric Error: %s\n", estring);
-#   exit(0);
-#}
-
-def init
-   mat_ambient = [ 0.5, 0.5, 0.5, 1.0 ];
-   mat_specular = [ 1.0, 1.0, 1.0, 1.0 ];
-   mat_shininess = [ 50.0 ];
-   light_position = [ 1.0, 1.0, 1.0, 0.0 ];
-   model_ambient = [ 0.5, 0.5, 0.5, 1.0 ];
-
-   GL.ClearColor(0.0, 0.0, 0.0, 0.0);
-
-   GL.Material(GL::FRONT, GL::AMBIENT, mat_ambient);
-   GL.Material(GL::FRONT, GL::SPECULAR, mat_specular);
-   GL.Material(GL::FRONT, GL::SHININESS, mat_shininess);
-   GL.Light(GL::LIGHT0, GL::POSITION, light_position);
-   GL.LightModel(GL::LIGHT_MODEL_AMBIENT, model_ambient);
-
-   GL.Enable(GL::LIGHTING);
-   GL.Enable(GL::LIGHT0);
-   GL.Enable(GL::DEPTH_TEST);
-
-#/*  Create 4 display lists, each with a different quadric object.
-# *  Different drawing styles and surface normal specifications
-# *  are demonstrated.
-# */
-   $startList = GL.GenLists(4);
-   qobj = GLU.NewQuadric();
-#   gluQuadricCallback(qobj, GLU_ERROR, 
-#                      (GLvoid (CALLBACK*) ()) errorCallback);
-
-   GLU.QuadricDrawStyle(qobj, GLU::FILL); #/* smooth shaded */
-   GLU.QuadricNormals(qobj, GLU::SMOOTH);
-   GL.NewList($startList, GL::COMPILE);
-      GLU.Sphere(qobj, 0.75, 15, 10);
-   GL.EndList();
-
-   GLU.QuadricDrawStyle(qobj, GLU::FILL); #/* flat shaded */
-   GLU.QuadricNormals(qobj, GLU::FLAT);
-   GL.NewList($startList+1, GL::COMPILE);
-      GLU.Cylinder(qobj, 0.5, 0.3, 1.0, 15, 5);
-   GL.EndList();
-
-   GLU.QuadricDrawStyle(qobj, GLU::LINE); #/* all polygons wireframe */
-   GLU.QuadricNormals(qobj, GLU::NONE);
-   GL.NewList($startList+2, GL::COMPILE);
-      GLU.Disk(qobj, 0.25, 1.0, 20, 4);
-   GL.EndList();
-
-   GLU.QuadricDrawStyle(qobj, GLU::SILHOUETTE); #/* boundary only  */
-   GLU.QuadricNormals(qobj, GLU::NONE);
-   GL.NewList($startList+3, GL::COMPILE);
-      GLU.PartialDisk(qobj, 0.0, 1.0, 20, 4, 0.0, 225.0);
-   GL.EndList();
-end
-
-display = Proc.new {
-   GL.Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-   GL.PushMatrix();
-
-   GL.Enable(GL::LIGHTING);
-   GL.ShadeModel(GL::SMOOTH);
-   GL.Translate(-1.0, -1.0, 0.0);
-   GL.CallList($startList);
-
-   GL.ShadeModel(GL::FLAT);
-   GL.Translate(0.0, 2.0, 0.0);
-   GL.PushMatrix();
-   GL.Rotate(300.0, 1.0, 0.0, 0.0);
-   GL.CallList($startList+1);
-   GL.PopMatrix();
-
-   GL.Disable(GL::LIGHTING);
-   GL.Color(0.0, 1.0, 1.0);
-   GL.Translate(2.0, -2.0, 0.0);
-   GL.CallList($startList+2);
-
-   GL.Color(1.0, 1.0, 0.0);
-   GL.Translate(0.0, 2.0, 0.0);
-   GL.CallList($startList+3);
-
-   GL.PopMatrix();
-   GL.Flush();
-}
-
-reshape = Proc.new {|w, h|
-   GL.Viewport(0, 0,  w,  h);
-   GL.MatrixMode(GL::PROJECTION);
-   GL.LoadIdentity();
-   if (w <= h)
-      GL.Ortho(-2.5, 2.5, -2.5*h/w,
-         2.5*h/w, -10.0, 10.0);
-   else
-      GL.Ortho(-2.5*w/h,
-         2.5*w/h, -2.5, 2.5, -10.0, 10.0);
-   end
-   GL.MatrixMode(GL::MODELVIEW);
-   GL.LoadIdentity();
-}
-
-#/* ARGSUSED1 */
-keyboard = Proc.new {|key, x, y|
-   case (key)
-      when 27
-         exit(0);
-   end
-}
-
-#int main(int argc, char** argv)
-#{
-   GLUT.Init
-   GLUT.InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::DEPTH);
-   GLUT.InitWindowSize(500, 500); 
-   GLUT.InitWindowPosition(100, 100);
-   GLUT.CreateWindow($0);
-   init();
-   GLUT.DisplayFunc(display); 
-   GLUT.ReshapeFunc(reshape);
-   GLUT.KeyboardFunc(keyboard);
-   GLUT.MainLoop();
-#   return 0;
-#}

data/examples/legacy/readpixel.rb

@@ -1,59 +0,0 @@
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-begin
-require "RMagick"
-rescue Exception
-    print "This sample needs RMagick Module.\n"
-    exit
-end
-
-WIDTH = 200
-HEIGHT = 200
-
-display = Proc.new {
-   GL.Clear(GL::COLOR_BUFFER_BIT);
-
-   GL.Begin(GL::LINES);
-      GL.Vertex(0.5, 0.5);
-      GL.Vertex(-0.5, -0.5);
-   GL.End
-
-   GL.Flush();
-
-   pixel_str = GL.ReadPixels(0, 0, WIDTH, HEIGHT, GL::RGBA, GL::SHORT)
-   pixels = pixel_str.unpack("s*")
-    
-   image = Magick::Image.new(WIDTH, HEIGHT)
-   image.import_pixels(0, 0, WIDTH, HEIGHT, "RGBA", pixels)
-   image.flip!
-#   image.write("opengl_window.gif")
-}
-
-reshape = Proc.new {|w, h|
-   GL.Viewport(0, 0,  w,  h);
-   GL.MatrixMode(GL::PROJECTION);
-   GL.LoadIdentity();
-   if (w <= h) 
-      GLU.Ortho2D(-1.0, 1.0, -h.to_f/w.to_f, h.to_f/w.to_f);
-   else 
-      GLU.Ortho2D(w.to_f/h.to_f, w.to_f/h.to_f, -1.0, 1.0);
-   end
-   GL.MatrixMode(GL::MODELVIEW);
-   GL.LoadIdentity();
-}
-
-
-#  Main Loop
-#  Open window with initial window size, title bar, 
-#  color index display mode, and handle input events.
-#
-   GLUT.Init
-   GLUT.InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::ALPHA);
-   GLUT.InitWindowSize(WIDTH, HEIGHT);
-   GLUT.CreateWindow($0);
-   GLUT.ReshapeFunc(reshape);
-   GLUT.DisplayFunc(display);
-   GLUT.MainLoop
-

data/examples/legacy/robot.rb

@@ -1,120 +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.
-# */
-#
-#/*
-# * robot.c
-# * This program shows how to composite modeling transformations
-# * to draw translated and rotated hierarchical models.
-# * Interaction:  pressing the s and e keys (shoulder and elbow)
-# * alters the rotation of the robot arm.
-# */
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "mathn"
-
-$shoulder = 0;
-$elbow = 0;
-
-def init
-  GL.ClearColor(0.0, 0.0, 0.0, 0.0);
-  GL.ShadeModel(GL::FLAT);
-end
-
-display = Proc.new {
-   GL.Clear(GL::COLOR_BUFFER_BIT);
-   GL.PushMatrix();
-   GL.Translate(-1.0, 0.0, 0.0);
-   GL.Rotate($shoulder, 0.0, 0.0, 1.0);
-   GL.Translate(1.0, 0.0, 0.0);
-   GL.PushMatrix();
-   GL.Scale(2.0, 0.4, 1.0);
-   GLUT.WireCube (1.0);
-   GL.PopMatrix();
-
-   GL.Translate(1.0, 0.0, 0.0);
-   GL.Rotate($elbow, 0.0, 0.0, 1.0);
-   GL.Translate(1.0, 0.0, 0.0);
-   GL.PushMatrix();
-   GL.Scale(2.0, 0.4, 1.0);
-   GLUT.WireCube(1.0);
-   GL.PopMatrix();
-
-   GL.PopMatrix();
-   GLUT.SwapBuffers();
-}
-
-reshape  = Proc.new {|w, h|
-   GL.Viewport(0, 0,  w,  h); 
-   GL.MatrixMode(GL::PROJECTION);
-   GL.LoadIdentity();
-   GLU.Perspective(65.0,  w/ h, 1.0, 20.0);
-   GL.MatrixMode(GL::MODELVIEW);
-   GL.LoadIdentity();
-   GL.Translate(0.0, 0.0, -5.0);
-}
-
-#/* ARGSUSED1 */
-keyboard = Proc.new {|key, x, y|
-   case  (key)
-      when 's'[0]
-         $shoulder = ($shoulder + 5) % 360;
-         GLUT.PostRedisplay();
-      when 'S'[0]
-         $shoulder = ($shoulder - 5) % 360;
-         GLUT.PostRedisplay();
-      when 'e'[0]
-         $elbow = ($elbow + 5) % 360;
-         GLUT.PostRedisplay();
-      when 'E'[0]
-         $elbow = ($elbow - 5) % 360;
-         GLUT.PostRedisplay();
-      when 27
-         exit(0);
-   end
-}
-
-   GLUT.Init
-   GLUT.InitDisplayMode(GLUT::DOUBLE | GLUT::RGB);
-   GLUT.InitWindowSize(500, 500); 
-   GLUT.InitWindowPosition(100, 100);
-   GLUT.CreateWindow($0);
-   init();
-   GLUT.DisplayFunc(display); 
-   GLUT.ReshapeFunc(reshape);
-   GLUT.KeyboardFunc(keyboard);
-   GLUT.MainLoop();

data/examples/legacy/select.rb

@@ -1,207 +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.
-# */
-#
-#/*
-# * 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 
-# * the yellow triangles cause one hit with the name 3.
-# */
-
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-
-#/* 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)
-   GL::Begin(GL::TRIANGLES);
-   GL::Vertex(x1, y1, z);
-   GL::Vertex(x2, y2, z);
-   GL::Vertex(x3, y3, z);
-   GL::End();
-end
-
-#/* draw a rectangular box with these outer x, y, and z values */
-def drawViewVolume(x1, x2, y1, y2, z1, z2)
-   GL::Color(1.0, 1.0, 1.0);
-   GL::Begin(GL::LINE_LOOP);
-   GL::Vertex(x1, y1, -z1);
-   GL::Vertex(x2, y1, -z1);
-   GL::Vertex(x2, y2, -z1);
-   GL::Vertex(x1, y2, -z1);
-   GL::End();
-
-   GL::Begin(GL::LINE_LOOP);
-   GL::Vertex(x1, y1, -z2);
-   GL::Vertex(x2, y1, -z2);
-   GL::Vertex(x2, y2, -z2);
-   GL::Vertex(x1, y2, -z2);
-   GL::End();
-
-   GL::Begin(GL::LINES);#	/*  4 lines	*/
-   GL::Vertex(x1, y1, -z1);
-   GL::Vertex(x1, y1, -z2);
-   GL::Vertex(x1, y2, -z1);
-   GL::Vertex(x1, y2, -z2);
-   GL::Vertex(x2, y1, -z1);
-   GL::Vertex(x2, y1, -z2);
-   GL::Vertex(x2, y2, -z1);
-   GL::Vertex(x2, y2, -z2);
-   GL::End();
-end
-
-#/* drawScene draws 4 triangles and a wire frame
-# * which represents the viewing volume.
-# */
-def drawScene()
-   GL::MatrixMode(GL::PROJECTION);
-   GL::LoadIdentity();
-   GLU::Perspective(40.0, 4.0/3.0, 1.0, 100.0);
-
-   GL::MatrixMode(GL::MODELVIEW);
-   GL::LoadIdentity();
-   GLU::LookAt(7.5, 7.5, 12.5, 2.5, 2.5, -5.0, 0.0, 1.0, 0.0);
-   GL::Color(0.0, 1.0, 0.0);#	/*  green triangle	*/
-   drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, -5.0);
-   GL::Color(1.0, 0.0, 0.0);#	/*  red triangle	*/
-   drawTriangle(2.0, 7.0, 3.0, 7.0, 2.5, 8.0, -5.0);
-   GL::Color(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
-end
-
-#/* 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, 
-# * only one hit will be registered.
-# */
-
-BUFSIZE=512
-
-def selectObjects
-
-   selectBuf = GL::SelectBuffer(BUFSIZE);
-   GL::RenderMode(GL::SELECT);
-
-   GL::InitNames();
-   GL::PushName(0);
-
-   GL::PushMatrix();
-   GL::MatrixMode(GL::PROJECTION);
-   GL::LoadIdentity();
-   GL::Ortho(0.0, 5.0, 0.0, 5.0, 0.0, 10.0);
-   GL::MatrixMode(GL::MODELVIEW);
-   GL::LoadIdentity();
-   GL::LoadName(1);
-   drawTriangle(2.0, 2.0, 3.0, 2.0, 2.5, 3.0, -5.0);
-   GL::LoadName(2);
-   drawTriangle(2.0, 7.0, 3.0, 7.0, 2.5, 8.0, -5.0);
-   GL::LoadName(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);
-   GL::PopMatrix();
-   GL::Flush();
-
-   hits = GL::RenderMode(GL::RENDER);
-   processHits(hits, selectBuf);
-end 
-
-def init
-   GL::Enable(GL::DEPTH_TEST);
-   GL::ShadeModel(GL::FLAT);
-end
-
-display = proc {
-   GL::ClearColor(0.0, 0.0, 0.0, 0.0);
-   GL::Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-   drawScene();
-   selectObjects();
-   GL::Flush();
-}
-
-#/* ARGSUSED1 */
-keyboard = proc {|key, x, y|
-   case (key)
-   when 27
-      exit(0);
-   end
-}
-
-#/*  Main Loop  */
-
-   GLUT.Init
-   GLUT::InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::DEPTH);
-   GLUT::InitWindowSize(200, 200);
-   GLUT::InitWindowPosition(100, 100);
-   GLUT::CreateWindow $0
-   init();
-   GLUT::DisplayFunc(display);
-   GLUT::KeyboardFunc(keyboard);
-   GLUT::MainLoop();