ruby-opengl 0.40.1 → 0.50.0

data/examples/legacy/feedback.rb

@@ -1,152 +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.
-# */
-#
-#/*
-# * feedback.c
-# * This program demonstrates use of OpenGL feedback.  First,
-# * a lighting environment is set up and a few lines are drawn.
-# * Then feedback mode is entered, and the same lines are 
-# * drawn.  The results in the feedback buffer are printed.
-# */
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-
-#/*  Initialize lighting.
-# */
-def init
-   GL::Enable(GL::LIGHTING);
-   GL::Enable(GL::LIGHT0);
-end
-
-#/* Draw a few lines and two points, one of which will 
-# * be clipped.  If in feedback mode, a passthrough token 
-# * is issued between the each primitive.
-# */
-def drawGeometry(mode)
-   GL::Begin(GL::LINE_STRIP);
-   GL::Normal(0.0, 0.0, 1.0);
-   GL::Vertex(30.0, 30.0, 0.0);
-   GL::Vertex(50.0, 60.0, 0.0);
-   GL::Vertex(70.0, 40.0, 0.0);
-   GL::End();
-   if (mode == GL::FEEDBACK)
-      GL::PassThrough(1.0);
-   end
-   GL::Begin(GL::POINTS);
-   GL::Vertex(-100.0, -100.0, -100.0);  # /*  will be clipped  */
-   GL::End();
-   if (mode == GL::FEEDBACK)
-      GL::PassThrough(2.0);
-   end
-   GL::Begin(GL::POINTS);
-   GL::Normal(0.0, 0.0, 1.0);
-   GL::Vertex(50.0, 50.0, 0.0);
-   GL::End();
-end
-
-# /* Write contents of one vertex to stdout.	*/
-def print3DcolorVertex(size, count, buffer)
-   printf("  ");
-   for i in 0...7
-      printf("%4.2f ", buffer[size-count]);
-      count = count - 1;
-   end
-   printf("\n");
-   return count
-end
-
-#/*  Write contents of entire buffer.  (Parse tokens!)	*/
-def  printBuffer(size, buffer)
-
-   count = size;
-   while (count!=0)
-      token = buffer[size-count]; count-=1;
-      if (token == GL::PASS_THROUGH_TOKEN)
-         printf("GL::PASS_THROUGH_TOKEN\n");
-         printf("  %4.2f\n", buffer[size-count]);
-         count-=1;
-      elsif (token == GL::POINT_TOKEN)
-         printf("GL::POINT_TOKEN\n");
-         count = print3DcolorVertex(size, count, buffer);
-      elsif (token == GL::LINE_TOKEN)
-         printf("GL::LINE_TOKEN\n");
-         count = print3DcolorVertex(size, count, buffer);
-         count = print3DcolorVertex(size, count, buffer);
-      elsif (token == GL::LINE_RESET_TOKEN)
-         printf("GL::LINE_RESET_TOKEN\n");
-         count = print3DcolorVertex(size, count, buffer);
-         count = print3DcolorVertex(size, count, buffer);
-      end
-   end
-end
-
-display = proc {
-   GL::MatrixMode(GL::PROJECTION);
-   GL::LoadIdentity();
-   GL::Ortho(0.0, 100.0, 0.0, 100.0, 0.0, 1.0);
-
-   GL::ClearColor(0.0, 0.0, 0.0, 0.0);
-   GL::Clear(GL::COLOR_BUFFER_BIT);
-   drawGeometry(GL::RENDER);
-
-   feedBuffer = GL::FeedbackBuffer(1024, GL::GL_3D_COLOR);
-   GL::RenderMode(GL::FEEDBACK);
-   drawGeometry(GL::FEEDBACK);
-
-   size = GL::RenderMode(GL::RENDER);
-   printBuffer(size, feedBuffer.unpack("f#{size}"));
-}
-
-#/* ARGSUSED1 */
-keyboard = proc {|key, x, y|
-   case (key)
-   when 27
-     exit(0);
-   end
-}
-
-   GLUT::Init()
-   GLUT::InitDisplayMode(GLUT::SINGLE | GLUT::RGB);
-   GLUT::InitWindowSize(100, 100);
-   GLUT::InitWindowPosition(100, 100);
-   GLUT::CreateWindow()
-   init();
-   GLUT::DisplayFunc(display);
-   GLUT::KeyboardFunc(keyboard);
-   GLUT::MainLoop();

data/examples/legacy/fog.rb

@@ -1,172 +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.
-# */
-#/*
-# *  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 "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "mathn"
-
-$fogMode = 0;
-
-selectFog = Proc.new {|mode|
-    if (mode == GL::LINEAR)
-        GL.Fog(GL::FOG_START, 1.0);
-        GL.Fog(GL::FOG_END, 5.0);
-	#/* falls through */
-        GL.Fog(GL::FOG_MODE, mode);
-	GLUT.PostRedisplay();
-    end
-    if (mode == GL::EXP2 || mode == GL::EXP)
-        GL.Fog(GL::FOG_MODE, mode);
-	GLUT.PostRedisplay();
-    end
-    exit(0) if (mode == 0)
-}
-
-#/*  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];
-
-    GL.Enable(GL::DEPTH_TEST);
-    GL.DepthFunc(GL::LESS);
-
-    GL.Light(GL::LIGHT0, GL::POSITION, position);
-    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.Enable(GL::FOG);
-        fogColor = [0.5, 0.5, 0.5, 1.0];
-
-        fogMode = GL::EXP;
-        GL.Fog(GL::FOG_MODE, fogMode);
-        GL.Fog(GL::FOG_COLOR, fogColor);
-        GL.Fog(GL::FOG_DENSITY, 0.35);
-        GL.Hint(GL::FOG_HINT, GL::DONT_CARE);
-        GL.ClearColor(0.5, 0.5, 0.5, 1.0);
-end
-
-def renderRedTeapot(x, y, z)
-    mat = []
-    GL.PushMatrix();
-    GL.Translate(x, y, z);
-    mat[0] = 0.1745;
-    mat[1] = 0.01175;
-    mat[2] = 0.01175;
-    mat[3] = 1.0;
-    GL.Material(GL::FRONT, GL::AMBIENT, mat);
-    mat[0] = 0.61424;
-    mat[1] = 0.04136;
-    mat[2] = 0.04136;
-    GL.Material(GL::FRONT, GL::DIFFUSE, mat);
-    mat[0] = 0.727811;
-    mat[1] = 0.626959;
-    mat[2] = 0.626959;
-    GL.Material(GL::FRONT, GL::SPECULAR, mat);
-    GL.Material(GL::FRONT, GL::SHININESS, 0.6 * 128.0);
-    GLUT.SolidTeapot(1.0);
-    GL.PopMatrix();
-end
-
-#/*  display() draws 5 teapots at different z positions.
-# */
-display = Proc.new {
-    GL.Clear(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);
-    GL.Flush();
-}
-
-myReshape = Proc.new {|w, h|
-    GL.Viewport(0, 0, w, h);
-    GL.MatrixMode(GL::PROJECTION);
-    GL.LoadIdentity();
-    if (w <= (h * 3))
-        GL.Ortho(-6.0, 6.0, -2.0 * h * 3 / w,
-            2.0 * h * 3 / w, 0.0, 10.0);
-    elsif
-        GL.Ortho(-6.0 * w / h * 3,
-            6.0 * w / h * 3, -2.0, 2.0, 0.0, 10.0);
-    end
-    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.
-# */
-#int 
-#main(int argc, char **argv)
-#{
-    GLUT.Init
-    GLUT.InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::DEPTH);
-    GLUT.InitWindowSize(450, 150);
-    GLUT.CreateWindow($0);
-    myinit();
-    GLUT.ReshapeFunc(myReshape);
-    GLUT.DisplayFunc(display);
-    GLUT.CreateMenu(selectFog);
-    GLUT.AddMenuEntry("Fog EXP", GL::EXP);
-    GLUT.AddMenuEntry("Fog EXP2", GL::EXP2);
-    GLUT.AddMenuEntry("Fog LINEAR", GL::LINEAR);
-    GLUT.AddMenuEntry("Quit", 0);
-    GLUT.AttachMenu(GLUT::RIGHT_BUTTON);
-    GLUT.MainLoop();
-#    return 0;             /* ANSI C requires main to return int. */
-#}

data/examples/legacy/font-glut.rb

@@ -1,41 +0,0 @@
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-
-display = Proc.new {
-   GL::Clear(GL::COLOR_BUFFER_BIT);
-   GL.LoadIdentity
-
-   GL::RasterPos2d(20,20)
-   "Hello Bitmap".each_byte { |x| GLUT.BitmapCharacter(GLUT::BITMAP_9_BY_15, x) }
-
-   GL.Translate(0, 50, 0)
-   GL.Scale(0.25, 0.25, 1)
-   "Hello Stroke".each_byte { |x| GLUT.StrokeCharacter(GLUT::STROKE_ROMAN, x) }
-
-   GL.Flush();
-}
-
-reshape = Proc.new {|w, h|
-   GL::Viewport(0, 0,  w,  h);
-   GL::MatrixMode(GL::PROJECTION);
-   GL::LoadIdentity();
-   GL::Ortho(0.0, w, 0.0, h, -1.0, 1.0);
-   GL::MatrixMode(GL::MODELVIEW);
-}
-
-
-#  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.InitWindowSize(200, 200);
-   GLUT.CreateWindow($0);
-
-   GLUT.ReshapeFunc(reshape);
-   GLUT.DisplayFunc(display);
-   GLUT.MainLoop
-

data/examples/legacy/font.rb

@@ -1,158 +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.
-# */
-#
-#/*
-# *  font.c
-# *
-# *  Draws some text in a bitmapped font.  Uses glBitmap() 
-# *  and other pixel routines.  Also demonstrates use of 
-# *  display lists.
-# */
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-
-$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
-   GL::PixelStorei(GL::UNPACK_ALIGNMENT, 1);
-
-   $fontOffset = GL::GenLists(128);
-   i = 0; j = ?A;
-   for i in 0...26
-      GL::NewList($fontOffset + j, GL::COMPILE);
-      GL::Bitmap(8, 13, 0.0, 2.0, 10.0, 0.0, $letters[i].pack("C*"));
-      GL::EndList();
-      j+=1
-   end
-   GL::NewList($fontOffset + ' '[0], GL::COMPILE);
-   GL::Bitmap(8, 13, 0.0, 2.0, 10.0, 0.0, $space.pack("C*"));
-   GL::EndList();
-end
-
-def init
-   GL::ShadeModel(GL::FLAT);
-   makeRasterFont();
-end
-
-def printString(s)
-   GL::PushAttrib(GL::LIST_BIT);
-   GL::ListBase($fontOffset);
-   GL::CallLists(s);
-   GL::PopAttrib();
-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 {
-   white = [ 1.0, 1.0, 1.0 ];
-
-   GL::Clear(GL::COLOR_BUFFER_BIT);
-   GL::Color(white);
-
-   GL::RasterPos(20, 60);
-   printString("THE QUICK BROWN FOX JUMPS");
-   GL::RasterPos(20, 40);
-   printString("OVER A LAZY DOG");
-   GL::Flush();
-}
-
-reshape = proc {|w, h|
-   GL::Viewport(0, 0,  w,  h);
-   GL::MatrixMode(GL::PROJECTION);
-   GL::LoadIdentity();
-   GL::Ortho(0.0, w, 0.0, h, -1.0, 1.0);
-   GL::MatrixMode(GL::MODELVIEW);
-}
-
-# /* ARGSUSED1 */
-keyboard = proc {|key, x, y|
-   case (key)
-      when 27
-         exit(0);
-   end
-}
-
-#/*  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::InitWindowSize(300, 100);
-   GLUT::InitWindowPosition(100, 100);
-   GLUT::CreateWindow();
-   init();
-   GLUT::ReshapeFunc(reshape);
-   GLUT::KeyboardFunc(keyboard);
-   GLUT::DisplayFunc(display);
-   GLUT::MainLoop();