ruby-opengl 0.40.1 → 0.50.0

data/examples/legacy/colormat.rb

@@ -1,145 +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.
-# */
-#
-#/*
-# *  colormat.c
-# *  After initialization, the program will be in
-# *  ColorMaterial mode.  Interaction:  pressing the 
-# *  mouse buttons will change the diffuse reflection values.
-# */
-
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "mathn"
-
-$diffuseMaterial = [0.5,0.5,0.5,1.0];
-
-#/*  Initialize material property, light source, lighting model,
-# *  and depth buffer.
-# */
-def init
-   mat_specular = [ 1.0, 1.0, 1.0, 1.0 ];
-   light_position = [ 1.0, 1.0, 1.0, 0.0 ];
-
-   GL.ClearColor(0.0, 0.0, 0.0, 0.0);
-   GL.ShadeModel(GL::SMOOTH);
-   GL.Enable(GL::DEPTH_TEST);
-   GL.Material(GL::FRONT, GL::DIFFUSE, $diffuseMaterial);
-   GL.Material(GL::FRONT, GL::SPECULAR, mat_specular);
-   GL.Material(GL::FRONT, GL::SHININESS, 25.0);
-   GL.Light(GL::LIGHT0, GL::POSITION, light_position);
-   GL.Enable(GL::LIGHTING);
-   GL.Enable(GL::LIGHT0);
-
-   GL.ColorMaterial(GL::FRONT, GL::DIFFUSE);
-   GL.Enable(GL::COLOR_MATERIAL);
-end
-
-display = Proc.new {
-   GL.Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-   GLUT.SolidSphere(1.0, 20, 16);
-   GL.Flush();
-}
-
-reshape = Proc.new {|w, h|
-   GL.Viewport(0, 0,  w,  h);
-   GL.MatrixMode (GL::PROJECTION);
-   GL.LoadIdentity();
-   if (w <= h)
-      GL.Ortho(-1.5, 1.5, -1.5*h/w, 1.5*h/w, -10.0, 10.0);
-   else
-      GL.Ortho(-1.5*w/h, 1.5*w/h, -1.5, 1.5, -10.0, 10.0);
-   end
-   GL.MatrixMode(GL::MODELVIEW);
-   GL.LoadIdentity();
-}
-
-# /* ARGSUSED2 */
-mouse = Proc.new {|button, state, x, y|
-   case (button)
-      when GLUT::LEFT_BUTTON
-         if (state == GLUT::DOWN)
-            $diffuseMaterial[0] = $diffuseMaterial[0] + 0.1;
-            if ($diffuseMaterial[0] > 1.0)
-               $diffuseMaterial[0] = 0.0;
-	    end
-            GL.Color($diffuseMaterial);
-            GLUT.PostRedisplay();
-         end
-      when GLUT::MIDDLE_BUTTON
-         if (state == GLUT::DOWN)
-            $diffuseMaterial[1] = $diffuseMaterial[1] + 0.1;
-            if ($diffuseMaterial[1] > 1.0)
-               $diffuseMaterial[1] = 0.0;
-	    end
-            GL.Color($diffuseMaterial);
-            GLUT.PostRedisplay();
-         end
-      when GLUT::RIGHT_BUTTON
-         if (state == GLUT::DOWN)
-            $diffuseMaterial[2] = $diffuseMaterial[2] + 0.1;
-            if ($diffuseMaterial[2] > 1.0)
-               $diffuseMaterial[2] = 0.0;
-	    end
-            GL.Color($diffuseMaterial);
-            GLUT.PostRedisplay();
-         end
-   end
-}
-
-# /* 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.MouseFunc(mouse);
-   GLUT.KeyboardFunc(keyboard);
-   GLUT.MainLoop();

data/examples/legacy/cube.rb

@@ -1,73 +0,0 @@
-#!/usr/bin/env ruby -rubygems
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-
-$light_diffuse = [1.0, 0.0, 0.0, 1.0]
-$light_position = [1.0, 1.0, 1.0, 0.0]
-$n = [ 
-  [-1.0, 0.0, 0.0], [0.0, 1.0, 0.0], [1.0, 0.0, 0.0],
-  [0.0, -1.0, 0.0], [0.0, 0.0, 1.0], [0.0, 0.0, -1.0] ]
-$faces = [
-  [0, 1, 2, 3], [3, 2, 6, 7], [7, 6, 5, 4],
-  [4, 5, 1, 0], [5, 6, 2, 1], [7, 4, 0, 3] ]
-$v = 0
-
-def drawBox
-  for i in (0..5)
-    GL.Begin(GL::QUADS);
-    GL.Normal(*($n[i]));
-#    tmp = $v.to_array
-#    GL.Vertex3f(*$v[$faces[i][0]]);
-#    GL.Vertex3f(*$v[$faces[i][1]]);
-#    GL.Vertex3f(*$v[$faces[i][2]]);
-#    GL.Vertex3f(*$v[$faces[i][3]]);
-    GL.Vertex($v[$faces[i][0]]);
-    GL.Vertex($v[$faces[i][1]]);
-    GL.Vertex($v[$faces[i][2]]);
-    GL.Vertex($v[$faces[i][3]]);
-    GL.End()
-  end
-end
-
-display = Proc.new {
-  GL.Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-  drawBox
-  GLUT.SwapBuffers
-}
-
-def myinit
-#  $v[0,0] = $v[1,0] = $v[2,0] = $v[3,0] = -1; 
-#  $v[4,0] = $v[5,0] = $v[6,0] = $v[7,0] = 1;
-#  $v[0,1] = $v[1,1] = $v[4,1] = $v[5,1] = -1; 
-#  $v[2,1] = $v[3,1] = $v[6,1] = $v[7,1] = 1;
-#  $v[0,2] = $v[3,2] = $v[4,2] = $v[7,2] = 1; 
-#  $v[1,2] = $v[2,2] = $v[5,2] = $v[6,2] = -1;
-
-$v = [[-1, -1,1],[-1, -1,-1], [-1,1,-1], [-1,1,1], [1, -1,1],
-      [1, -1,-1], [1, 1,-1], [1,1,1]]
-
-  GL.Light(GL::LIGHT0, GL::DIFFUSE, $light_diffuse);
-  GL.Light(GL::LIGHT0, GL::POSITION, $light_position);
-  GL.Enable(GL::LIGHT0);
-  GL.Enable(GL::LIGHTING);
-
-  GL.Enable(GL::DEPTH_TEST);
-
-  GL.MatrixMode(GL::PROJECTION);
-  GLU.Perspective(40.0, 1.0, 1.0,  10.0);
-  GL.MatrixMode(GL::MODELVIEW);
-  GLU.LookAt(0.0, 0.0, 5.0, 0.0, 0.0, 0.0, 0.0, 1.0, 0.0)
-
-  GL.Translate(0.0, 0.0, -1.0);
-  GL.Rotate(60, 1.0, 0.0, 0.0);
-  GL.Rotate(-20, 0.0, 0.0, 1.0);
-end
-
-GLUT.Init
-GLUT.InitDisplayMode(GLUT::DOUBLE | GLUT::RGB | GLUT::DEPTH);
-GLUT.CreateWindow("red 3D lighted cube");
-GLUT.DisplayFunc(display);
-myinit
-GLUT.MainLoop();

data/examples/legacy/depthcue.rb

@@ -1,101 +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.
-# */
-#/*
-# *  depthcue.c
-# *  This program draws a wireframe model, which uses 
-# *  intensity (brightness) to give clues to distance.
-# *  Fog is used to achieve this effect.
-# */
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "mathn"
-
-#/*  Initialize linear fog for depth cueing.
-# */
-def myinit
-    fogColor = [0.0, 0.0, 0.0, 1.0];
-
-    GL.Enable(GL::FOG);
-    GL.Fog(GL::FOG_MODE, GL::LINEAR);
-    GL.Hint(GL::FOG_HINT, GL::NICEST);  #/*  per pixel   */
-    GL.Fog(GL::FOG_START, 3.0);
-    GL.Fog(GL::FOG_END, 5.0);
-    GL.Fog(GL::FOG_COLOR, fogColor);
-    GL.ClearColor(0.0, 0.0, 0.0, 1.0);
-
-    GL.DepthFunc(GL::LESS);
-    GL.Enable(GL::DEPTH_TEST);
-    GL.ShadeModel(GL::FLAT);
-end
-
-#/*  display() draws an icosahedron.
-# */
-display = Proc.new {
-    GL.Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-    GL.Color(1.0, 1.0, 1.0);
-    GLUT.WireIcosahedron();
-    GL.Flush();
-}
-
-myReshape = Proc.new {|w, h|
-    GL.Viewport(0, 0, w, h);
-    GL.MatrixMode(GL::PROJECTION);
-    GL.LoadIdentity();
-    GLU.Perspective(45.0,  w/h, 3.0, 5.0);
-    GL.MatrixMode(GL::MODELVIEW);
-    GL.LoadIdentity();
-    GL.Translate(0.0, 0.0, -4.0);  #/*  move object into view   */
-}
-
-#/*  Main Loop
-# */
-#int main(int argc, char** argv)
-#{
-    GLUT.Init
-    GLUT.InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::DEPTH);
-    GLUT.CreateWindow($0);
-    myinit();
-    GLUT.ReshapeFunc(myReshape);
-    GLUT.DisplayFunc(display);
-    GLUT.MainLoop();
-#    return 0;             /* ANSI C requires main to return int. */
-#}
-

data/examples/legacy/dof.rb

@@ -1,212 +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.
-# */
-#/*
-# *  dof.c
-# *  This program demonstrates use of the accumulation buffer to
-# *  create an out-of-focus depth-of-field effect.  The teapots
-# *  are drawn several times into the accumulation buffer.  The
-# *  viewing volume is jittered, except at the focal point, where
-# *  the viewing volume is at the same position, each time.  In
-# *  this case, the gold teapot remains in focus.
-# */
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "jitter"
-
-PI_=3.14159265358979323846
-
-#/* accFrustum()
-# * The first 6 arguments are identical to the glFrustum() call.
-# *  
-# * pixdx and pixdy are anti-alias jitter in pixels. 
-# * Set both equal to 0.0 for no anti-alias jitter.
-# * eyedx and eyedy are depth-of field jitter in pixels. 
-# * Set both equal to 0.0 for no depth of field effects.
-# *
-# * focus is distance from eye to plane in focus. 
-# * focus must be greater than, but not equal to 0.0.
-# *
-# * Note that accFrustum() calls glTranslatef().  You will 
-# * probably want to insure that your ModelView matrix has been 
-# * initialized to identity before calling accFrustum().
-# */
-def accFrustum(left, right, bottom, top, nnear, ffar, pixdx, pixdy, eyedx, eyedy, focus)
-
-   viewport = GL::GetDoublev(GL::VIEWPORT);
-	
-   xwsize = right - left;
-   ywsize = top - bottom;
-	
-   dx = -(pixdx*xwsize/viewport[2] + eyedx*nnear/focus);
-   dy = -(pixdy*ywsize/viewport[3] + eyedy*nnear/focus);
-	
-   GL::MatrixMode(GL::PROJECTION);
-   GL::LoadIdentity();
-   GL::Frustum(left + dx, right + dx, bottom + dy, top + dy, nnear, ffar);
-   GL::MatrixMode(GL::MODELVIEW);
-   GL::LoadIdentity();
-   GL::Translate(-eyedx, -eyedy, 0.0);
-end
-
-#/* accPerspective()
-# * 
-# * The first 4 arguments are identical to the gluPerspective() call.
-# * pixdx and pixdy are anti-alias jitter in pixels. 
-# * Set both equal to 0.0 for no anti-alias jitter.
-# * eyedx and eyedy are depth-of field jitter in pixels. 
-# * Set both equal to 0.0 for no depth of field effects.
-# *
-# * focus is distance from eye to plane in focus. 
-# * focus must be greater than, but not equal to 0.0.
-# *
-# * Note that accPerspective() calls accFrustum().
-# */
-def  accPerspective(fovy, aspect, nnear, ffar, pixdx, pixdy, eyedx, eyedy, focus)
-   fov2 = ((fovy*PI_) / 180.0) / 2.0;
-
-   top = nnear / (Math::cos(fov2) / Math::sin(fov2));
-   bottom = -top;
-
-   right = top * aspect;
-   left = -right;
-
-   accFrustum(left, right, bottom, top, nnear, ffar,
-               pixdx, pixdy, eyedx, eyedy, focus);
-end
-
-
-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, 3.0, 0.0 ];
-    
-    lmodel_ambient = [ 0.2, 0.2, 0.2, 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::FrontFace(GL::CW);
-    GL::Enable(GL::LIGHTING);
-    GL::Enable(GL::LIGHT0);
-    GL::Enable(GL::AUTO_NORMAL);
-    GL::Enable(GL::NORMALIZE);
-
-    GL::MatrixMode(GL::MODELVIEW);
-    GL::LoadIdentity();
-
-    GL::ClearColor(0.0, 0.0, 0.0, 0.0);
-    GL::ClearAccum(0.0, 0.0, 0.0, 0.0);
-end
-
-def renderTeapot (x, y, z, ambr, ambg, ambb, difr, difg, difb, specr, specg, specb, shine)
-    GL::PushMatrix();
-    GL::Translate(x, y, z);
-    mat = []
-    mat[0] = ambr; mat[1] = ambg; mat[2] = ambb; mat[3] = 1.0;	
-    GL::Material(GL::FRONT, GL::AMBIENT, mat);
-    mat[0] = difr; mat[1] = difg; mat[2] = difb;	
-    GL::Material(GL::FRONT, GL::DIFFUSE, mat);
-    mat[0] = specr; mat[1] = specg; mat[2] = specb;
-    GL::Material(GL::FRONT, GL::SPECULAR, mat);
-    GL::Material(GL::FRONT, GL::SHININESS, shine*128.0);
-    GLUT::SolidTeapot(0.5);
-    GL::PopMatrix();
-end
-
-#/*  display() draws 5 teapots into the accumulation buffer 
-# *  several times; each time with a jittered perspective.
-# *  The focal point is at z = 5.0, so the gold teapot will 
-# *  stay in focus.  The amount of jitter is adjusted by the
-# *  magnitude of the accPerspective() jitter; in this example, 0.33.
-# *  In this example, the teapots are drawn 8 times.  See jitter.h
-# */
-display = proc {
-    viewport = GL::GetDoublev(GL::VIEWPORT);
-    GL::Clear(GL::ACCUM_BUFFER_BIT);
-
-    for jitter in 0...8
-	GL::Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-	accPerspective(45.0, 
-		 viewport[2]/ viewport[3], 
-		1.0, 15.0, 0.0, 0.0,
-		0.33*$j8[jitter][0], 0.33*$j8[jitter][1], 5.0);
-#/*	ruby, gold, silver, emerald, and cyan teapots	*/
-	renderTeapot(-1.1, -0.5, -4.5, 0.1745, 0.01175, 0.01175,
-	    0.61424, 0.04136, 0.04136, 0.727811, 0.626959, 0.626959, 0.6);
-	renderTeapot(-0.5, -0.5, -5.0, 0.24725, 0.1995, 0.0745,
-	    0.75164, 0.60648, 0.22648, 0.628281, 0.555802, 0.366065, 0.4);
-	renderTeapot(0.2, -0.5, -5.5, 0.19225, 0.19225, 0.19225,
-	    0.50754, 0.50754, 0.50754, 0.508273, 0.508273, 0.508273, 0.4);
-	renderTeapot(1.0, -0.5, -6.0, 0.0215, 0.1745, 0.0215, 
-	    0.07568, 0.61424, 0.07568, 0.633, 0.727811, 0.633, 0.6);
-	renderTeapot(1.8, -0.5, -6.5, 0.0, 0.1, 0.06, 0.0, 0.50980392, 
-	    0.50980392, 0.50196078, 0.50196078, 0.50196078, 0.25);
-	GL::Accum(GL::ACCUM, 0.125);
-    end
-
-    GL::Accum(GL::RETURN, 1.0);
-    GL::Flush();
-}
-
-myReshape = proc {|w, h|
-    GL::Viewport(0, 0, w, h);
-}
-
-#/*  Main Loop
-# *  Open window with initial window size, title bar, 
-# *  RGBA display mode, depth buffer, and handle input events.
-# */
-    GLUT::Init();
-    GLUT::InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::ACCUM | GLUT::DEPTH);
-    GLUT::CreateWindow()
-    myinit();
-    GLUT::ReshapeFunc(myReshape);
-    GLUT::DisplayFunc(display);
-    GLUT::MainLoop();
-