ruby-opengl 0.33.0 → 0.40.0

data/examples/legacy/colormat.rb

@@ -0,0 +1,145 @@
+#/*
+# * 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

@@ -0,0 +1,73 @@
+#!/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

@@ -0,0 +1,101 @@
+#
+#/* 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

@@ -0,0 +1,212 @@
+#
+#/* 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();
+