ruby-opengl 0.40.1 → 0.50.0

data/examples/legacy/material.rb

@@ -1,290 +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.
-# */
-#/*
-# * material.c
-# * This program demonstrates the use of the GL lighting model.
-# * Several objects are drawn using different material characteristics.
-# * A single light source illuminates the objects.
-# */
-
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-
-#/*  Initialize z-buffer, projection matrix, light source, 
-# *  and lighting model.  Do not specify a material property here.
-# */
-def myinit
-    ambient = [ 0.0, 0.0, 0.0, 1.0 ];
-    diffuse = [ 1.0, 1.0, 1.0, 1.0 ];
-    position = [ 0.0, 3.0, 2.0, 0.0 ];
-    lmodel_ambient = [ 0.4, 0.4, 0.4, 1.0 ];
-    local_view = [ 0.0 ];
-
-    GL::Enable(GL::DEPTH_TEST);
-    GL::DepthFunc(GL::LESS);
-
-    GL::Light(GL::LIGHT0, GL::AMBIENT, ambient);
-    GL::Light(GL::LIGHT0, GL::DIFFUSE, diffuse);
-    GL::Light(GL::LIGHT0, GL::POSITION, position);
-    GL::LightModel(GL::LIGHT_MODEL_AMBIENT, lmodel_ambient);
-    GL::LightModel(GL::LIGHT_MODEL_LOCAL_VIEWER, local_view);
-
-    GL::Enable(GL::LIGHTING);
-    GL::Enable(GL::LIGHT0);
-
-    GL::ClearColor(0.0, 0.1, 0.1, 0.0);
-end
-
-#/*  Draw twelve spheres in 3 rows with 4 columns.  
-# *  The spheres in the first row have materials with no ambient reflection.
-# *  The second row has materials with significant ambient reflection.
-# *  The third row has materials with colored ambient reflection.
-# *
-# *  The first column has materials with blue, diffuse reflection only.
-# *  The second column has blue diffuse reflection, as well as specular
-# *  reflection with a low shininess exponent.
-# *  The third column has blue diffuse reflection, as well as specular
-# *  reflection with a high shininess exponent (a more concentrated highlight).
-# *  The fourth column has materials which also include an emissive component.
-# *
-# *  GL::Translatef() is used to move spheres to their appropriate locations.
-# */
-#
-display = proc {
-    no_mat = [ 0.0, 0.0, 0.0, 1.0 ];
-    mat_ambient = [ 0.7, 0.7, 0.7, 1.0 ];
-    mat_ambient_color = [ 0.8, 0.8, 0.2, 1.0 ];
-    mat_diffuse = [ 0.1, 0.5, 0.8, 1.0 ];
-    mat_specular = [ 1.0, 1.0, 1.0, 1.0 ];
-    no_shininess = [ 0.0 ];
-    low_shininess = [ 5.0 ];
-    high_shininess = [ 100.0 ];
-    mat_emission = [0.3, 0.2, 0.2, 0.0];
-
-    GL::Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-
-#/*  draw sphere in first row, first column
-# *  diffuse reflection only; no ambient or specular  
-# */
-    GL::PushMatrix();
-    GL::Translate(-3.75, 3.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, no_mat);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, no_mat);
-    GL::Material(GL::FRONT, GL::SHININESS, no_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, no_mat);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in first row, second column
-# *  diffuse and specular reflection; low shininess; no ambient
-# */
-    GL::PushMatrix();
-    GL::Translate(-1.25, 3.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, no_mat);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, mat_specular);
-    GL::Material(GL::FRONT, GL::SHININESS, low_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, no_mat);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in first row, third column
-# *  diffuse and specular reflection; high shininess; no ambient
-# */
-    GL::PushMatrix();
-    GL::Translate(1.25, 3.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, no_mat);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, mat_specular);
-    GL::Material(GL::FRONT, GL::SHININESS, high_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, no_mat);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in first row, fourth column
-# *  diffuse reflection; emission; no ambient or specular reflection
-# */
-    GL::PushMatrix();
-    GL::Translate(3.75, 3.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, no_mat);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, no_mat);
-    GL::Material(GL::FRONT, GL::SHININESS, no_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, mat_emission);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in second row, first column
-# *  ambient and diffuse reflection; no specular  
-# */
-    GL::PushMatrix();
-    GL::Translate(-3.75, 0.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, mat_ambient);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, no_mat);
-    GL::Material(GL::FRONT, GL::SHININESS, no_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, no_mat);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in second row, second column
-# *  ambient, diffuse and specular reflection; low shininess
-# */
-    GL::PushMatrix();
-    GL::Translate(-1.25, 0.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, mat_ambient);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, mat_specular);
-    GL::Material(GL::FRONT, GL::SHININESS, low_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, no_mat);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in second row, third column
-# *  ambient, diffuse and specular reflection; high shininess
-# */
-    GL::PushMatrix();
-    GL::Translate(1.25, 0.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, mat_ambient);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, mat_specular);
-    GL::Material(GL::FRONT, GL::SHININESS, high_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, no_mat);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in second row, fourth column
-# *  ambient and diffuse reflection; emission; no specular
-# */
-    GL::PushMatrix();
-    GL::Translate(3.75, 0.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, mat_ambient);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, no_mat);
-    GL::Material(GL::FRONT, GL::SHININESS, no_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, mat_emission);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in third row, first column
-# *  colored ambient and diffuse reflection; no specular  
-# */
-    GL::PushMatrix();
-    GL::Translate(-3.75, -3.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, mat_ambient_color);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, no_mat);
-    GL::Material(GL::FRONT, GL::SHININESS, no_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, no_mat);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in third row, second column
-# *  colored ambient, diffuse and specular reflection; low shininess
-# */
-    GL::PushMatrix();
-    GL::Translate(-1.25, -3.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, mat_ambient_color);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, mat_specular);
-    GL::Material(GL::FRONT, GL::SHININESS, low_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, no_mat);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in third row, third column
-# *  colored ambient, diffuse and specular reflection; high shininess
-# */
-    GL::PushMatrix();
-    GL::Translate(1.25, -3.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, mat_ambient_color);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, mat_specular);
-    GL::Material(GL::FRONT, GL::SHININESS, high_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, no_mat);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-#/*  draw sphere in third row, fourth column
-# *  colored ambient and diffuse reflection; emission; no specular
-# */
-    GL::PushMatrix();
-    GL::Translate(3.75, -3.0, 0.0);
-    GL::Material(GL::FRONT, GL::AMBIENT, mat_ambient_color);
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL::Material(GL::FRONT, GL::SPECULAR, no_mat);
-    GL::Material(GL::FRONT, GL::SHININESS, no_shininess);
-    GL::Material(GL::FRONT, GL::EMISSION, mat_emission);
-    GLUT::SolidSphere(1.0, 16, 16);
-    GL::PopMatrix();
-
-    GL::Flush();
-}
-
-myReshape = proc {|w, h|
-    GL::Viewport(0, 0, w, h);
-    GL::MatrixMode(GL::PROJECTION);
-    GL::LoadIdentity();
-    if (w <= (h * 2))
-	GL::Ortho(-6.0, 6.0, -3.0*(h.to_f*2)/w,
-	    3.0*(h.to_f*2)/w, -10.0, 10.0);
-    else
-	GL::Ortho(-6.0*w.to_f/(h*2),
-	    6.0*w.to_f/(h*2), -3.0, 3.0, -10.0, 10.0);
-    end
-    GL::MatrixMode(GL::MODELVIEW);
-}
-
-#/*  Main Loop
-# *  Open window with initial window size, title bar, 
-# *  RGBA display mode, and handle input events.
-# */
-    GLUT::Init();
-    GLUT::InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::DEPTH);
-    GLUT::InitWindowSize(600, 450);
-    GLUT::CreateWindow();
-    myinit();
-    GLUT::ReshapeFunc(myReshape);
-    GLUT::DisplayFunc(display);
-    GLUT::MainLoop();
-

data/examples/legacy/mipmap.rb

@@ -1,159 +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 "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "mathn"
-
-$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
-    GL.Enable(GL::DEPTH_TEST);
-    GL.DepthFunc(GL::LESS);
-    GL.ShadeModel(GL::FLAT);
-
-    GL.Translate(0.0, 0.0, -3.6);
-    makeImages();
-    GL.PixelStore(GL::UNPACK_ALIGNMENT, 1);
-    GL.TexImage2D(GL::TEXTURE_2D, 0, 3, 32, 32, 0,
-		 GL::RGB, GL::UNSIGNED_BYTE, $mipmapImage32.pack("C*"));
-    GL.TexImage2D(GL::TEXTURE_2D, 1, 3, 16, 16, 0,
-		 GL::RGB, GL::UNSIGNED_BYTE, $mipmapImage16.pack("C*"));
-    GL.TexImage2D(GL::TEXTURE_2D, 2, 3, 8, 8, 0,
-		 GL::RGB, GL::UNSIGNED_BYTE, $mipmapImage8.pack("C*"));
-    GL.TexImage2D(GL::TEXTURE_2D, 3, 3, 4, 4, 0,
-		 GL::RGB, GL::UNSIGNED_BYTE, $mipmapImage4.pack("C*"));
-    GL.TexImage2D(GL::TEXTURE_2D, 4, 3, 2, 2, 0,
-		 GL::RGB, GL::UNSIGNED_BYTE, $mipmapImage2.pack("C*"));
-    GL.TexImage2D(GL::TEXTURE_2D, 5, 3, 1, 1, 0,
-		 GL::RGB, GL::UNSIGNED_BYTE, $mipmapImage1.pack("C*"));
-    GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_WRAP_S, GL::REPEAT);
-    GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_WRAP_T, GL::REPEAT);
-    GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_MAG_FILTER, GL::NEAREST);
-    GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_MIN_FILTER, 
-	GL::NEAREST_MIPMAP_NEAREST);
-    GL.TexEnv(GL::TEXTURE_ENV, GL::TEXTURE_ENV_MODE, GL::DECAL);
-    GL.Enable(GL::TEXTURE_2D);
-end
-
-display = Proc.new {
-    GL.Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-    GL.Begin(GL::QUADS);
-    GL.TexCoord(0.0, 0.0); GL.Vertex(-2.0, -1.0, 0.0);
-    GL.TexCoord(0.0, 8.0); GL.Vertex(-2.0, 1.0, 0.0);
-    GL.TexCoord(8.0, 8.0); GL.Vertex(2000.0, 1.0, -6000.0);
-    GL.TexCoord(8.0, 0.0); GL.Vertex(2000.0, -1.0, -6000.0);
-    GL.End();
-    GL.Flush();
-}
-
-myReshape = Proc.new {|w, h|
-    GL.Viewport(0, 0, w, h);
-    GL.MatrixMode(GL::PROJECTION);
-    GL.LoadIdentity();
-    GLU.Perspective(60.0, 1.0*w/h, 1.0, 30000.0);
-    GL.MatrixMode(GL::MODELVIEW);
-    GL.LoadIdentity();
-}
-
-#int main(int argc, char** argv)
-#{
-    GLUT.Init
-    GLUT.InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::DEPTH);
-    GLUT.InitWindowSize(500, 500);
-    GLUT.CreateWindow($0);
-    myinit();
-    GLUT.ReshapeFunc(myReshape);
-    GLUT.DisplayFunc(display);
-    GLUT.MainLoop();

data/examples/legacy/pickdepth.rb

@@ -1,180 +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 "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-
-def myinit
-  GL::ClearColor(0.0, 0.0, 0.0, 0.0);
-  GL::DepthFunc(GL::LESS);
-  GL::Enable(GL::DEPTH_TEST);
-  GL::ShadeModel(GL::FLAT);
-  GL::DepthRange(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)
-    GL::LoadName(1);
-  end
-  GL::Begin(GL::QUADS);
-  GL::Color(1.0, 1.0, 0.0);
-  GL::Vertex(2, 0, 0);
-  GL::Vertex(2, 6, 0);
-  GL::Vertex(6, 6, 0);
-  GL::Vertex(6, 0, 0);
-  GL::End();
-  if (mode == GL::SELECT)
-    GL::LoadName(2);
-  end
-  GL::Begin(GL::QUADS);
-  GL::Color(0.0, 1.0, 1.0);
-  GL::Vertex(3, 2, -1);
-  GL::Vertex(3, 8, -1);
-  GL::Vertex(8, 8, -1);
-  GL::Vertex(8, 2, -1);
-  GL::End();
-  if (mode == GL::SELECT)
-    GL::LoadName(3);
-  end
-  GL::Begin(GL::QUADS);
-  GL::Color(1.0, 0.0, 1.0);
-  GL::Vertex(0, 2, -2);
-  GL::Vertex(0, 7, -2);
-  GL::Vertex(5, 7, -2);
-  GL::Vertex(5, 2, -2);
-  GL::End();
-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 {|button, state, x, y|
-
-  if (button == GLUT::LEFT_BUTTON && state == GLUT::DOWN)
-  viewport = GL::GetDoublev(GL::VIEWPORT);
-
-  selectBuf = GL::SelectBuffer(BUFSIZE);
-  GL::RenderMode(GL::SELECT);
-
-  GL::InitNames();
-  GL::PushName(~0);
-
-  GL::MatrixMode(GL::PROJECTION);
-  GL::PushMatrix();
-  GL::LoadIdentity();
-#/*  create 5x5 pixel picking region near cursor location */
-  GLU::PickMatrix( x, viewport[3] - y, 5.0, 5.0, viewport);
-  GL::Ortho(0.0, 8.0, 0.0, 8.0, -0.5, 2.5);
-  drawRects(GL::SELECT);
-  GL::PopMatrix();
-  GL::Flush();
-
-  hits = GL::RenderMode(GL::RENDER);
-  processHits(hits, selectBuf);
-  end
-}
-
-display = proc {
-  GL::Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-  drawRects(GL::RENDER);
-  GLUT::SwapBuffers();
-}
-
-myReshape = proc {|w, h|
-  GL::Viewport(0, 0, w, h);
-  GL::MatrixMode(GL::PROJECTION);
-  GL::LoadIdentity();
-  GL::Ortho(0.0, 8.0, 0.0, 8.0, -0.5, 2.5);
-  GL::MatrixMode(GL::MODELVIEW);
-  GL::LoadIdentity();
-}
-
-#/*  Main Loop
-# *  Open window with initial window size, title bar, 
-# *  RGBA display mode, depth buffer, and handle input events.
-# */
-  GLUT::InitWindowSize(200, 200);
-  GLUT::InitDisplayMode(GLUT::DOUBLE | GLUT::RGB | GLUT::DEPTH);
-  GLUT::Init();
-  GLUT::CreateWindow();
-  myinit();
-  GLUT::MouseFunc(pickRects);
-  GLUT::ReshapeFunc(myReshape);
-  GLUT::DisplayFunc(display);
-  GLUT::MainLoop();