ruby-opengl 0.40.1 → 0.50.0

data/examples/legacy/smooth.rb

@@ -1,41 +0,0 @@
-#!/usr/bin/env ruby -rubygems
-require "gl_prev"
-require "glut_prev"
-
-STDOUT.sync=TRUE
-disp = Proc.new {
-  GL.Clear(GL::COLOR_BUFFER_BIT)
-  GL.Begin(GL::TRIANGLES)
-    GL.Color(0.0, 0.0, 1.0)
-    GL.Vertex(0, 0)
-    GL.Color(0.0, 1.0, 0.0)
-    GL.Vertex(200, 200)
-    GL.Color(1.0, 0.0, 0.0)
-    GL.Vertex(20, 200)
-  GL.End
-  GL.Flush
-}
-
-reshape = Proc.new {|w, h|
-  GL.Viewport(0, 0, w, h)
-  GL.MatrixMode(GL::PROJECTION)
-  GL.LoadIdentity
-  GL.Ortho(0, w, 0, h, -1, 1)
-  GL.Scale(1, -1, 1)
-  GL.Translate(0, -h, 0)
-}
-
-# Keyboard handler to exit when ESC is typed
-keyboard = lambda do |key, x, y|
-    case(key)
-    when 27
-        exit(0)
-    end
-end
-
-GLUT.Init
-a =  GLUT.CreateWindow("single triangle");
-GLUT.DisplayFunc(disp);
-GLUT.ReshapeFunc(reshape);
-GLUT.KeyboardFunc( keyboard )
-GLUT.MainLoop;

data/examples/legacy/stencil.rb

@@ -1,154 +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.
-#/
-#  stencil.c
-#  This program draws two rotated tori in a window.  
-#  A diamond in the center of the window masks out part 
-#  of the scene.  Within this mask, a different model 
-#  (a sphere) is drawn in a different color.
-#/
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "rational"
-
-YELLOWMAT=1
-BLUEMAT=2
-
-def myinit
-    yellow_diffuse = [ 0.7, 0.7, 0.0, 1.0 ];
-    yellow_specular = [ 1.0, 1.0, 1.0, 1.0 ];
-
-    blue_diffuse = [ 0.1, 0.1, 0.7, 1.0 ];
-    blue_specular = [ 0.1, 1.0, 1.0, 1.0 ];
-
-    position_one = [ 1.0, 1.0, 1.0, 0.0 ];
-
-    GL.NewList(YELLOWMAT, GL::COMPILE);
-    GL.Material(GL::FRONT, GL::DIFFUSE, yellow_diffuse);
-    GL.Material(GL::FRONT, GL::SPECULAR, yellow_specular);
-    GL.Material(GL::FRONT, GL::SHININESS, 64.0);
-    GL.EndList();
-
-    GL.NewList(BLUEMAT, GL::COMPILE);
-    GL.Material(GL::FRONT, GL::DIFFUSE, blue_diffuse);
-    GL.Material(GL::FRONT, GL::SPECULAR, blue_specular);
-    GL.Material(GL::FRONT, GL::SHININESS, 45.0);
-    GL.EndList();
-
-    GL.Light(GL::LIGHT0, GL::POSITION, position_one);
-
-    GL.Enable(GL::LIGHT0);
-    GL.Enable(GL::LIGHTING);
-    GL.DepthFunc(GL::LESS);
-    GL.Enable(GL::DEPTH_TEST);
-
-    GL.ClearStencil(0x0);
-    GL.Enable(GL::STENCIL_TEST);
-end
-
-#  Draw a sphere in a diamond-shaped section in the
-#  middle of a window with 2 tori.
-#/
-display = Proc.new {
-    GL.Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-
-# draw blue sphere where the stencil is 1 */
-    GL.StencilFunc(GL::EQUAL, 0x1, 0x1);
-    GL.CallList(BLUEMAT);
-    GLUT.SolidSphere(0.5, 15, 15);
-
-# draw the tori where the stencil is not 1 */
-    GL.StencilFunc(GL::NOTEQUAL, 0x1, 0x1);
-    GL.StencilOp(GL::KEEP, GL::KEEP, GL::KEEP);
-    GL.PushMatrix();
-	GL.Rotate(45.0, 0.0, 0.0, 1.0);
-	GL.Rotate(45.0, 0.0, 1.0, 0.0);
-	GL.CallList(YELLOWMAT);
-	GLUT.SolidTorus(0.275, 0.85, 15, 15);
-	GL.PushMatrix();
-	    GL.Rotate(90.0, 1.0, 0.0, 0.0);
-	    GLUT.SolidTorus(0.275, 0.85, 15, 15);
-	GL.PopMatrix();
-    GL.PopMatrix();
-}
-
-#  Whenever the window is reshaped, redefine the 
-#  coordinate system and redraw the stencil area.
-#/
-myReshape = Proc.new {|w, h|
-    GL.Viewport(0, 0, w, h);
-
-    GL.Clear(GL::STENCIL_BUFFER_BIT);
-# create a diamond shaped stencil area */
-    GL.MatrixMode(GL::PROJECTION);
-    GL.LoadIdentity();
-    GL.Ortho(-3.0, 3.0, -3.0, 3.0, -1.0, 1.0);
-    GL.MatrixMode(GL::MODELVIEW);
-    GL.LoadIdentity();
-
-    GL.StencilFunc(GL::ALWAYS, 0x1, 0x1);
-    GL.StencilOp(GL::REPLACE, GL::REPLACE, GL::REPLACE);
-    GL.Begin(GL::QUADS);
-	GL.Vertex(-1.0, 0.0, 0.0);
-	GL.Vertex(0.0, 1.0, 0.0);
-	GL.Vertex(1.0, 0.0, 0.0);
-	GL.Vertex(0.0, -1.0, 0.0);
-    GL.End();
-
-    GL.MatrixMode(GL::PROJECTION);
-    GL.LoadIdentity();
-    GLU.Perspective(45.0,  w.to_f/h.to_f, 3.0, 7.0);
-    GL.MatrixMode(GL::MODELVIEW);
-    GL.LoadIdentity();
-    GL.Translate(0.0, 0.0, -5.0);
-}
-
-#  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::STENCIL);
-    GLUT.InitWindowSize(400, 400);
-    GLUT.CreateWindow($0);
-    myinit
-    GLUT.ReshapeFunc(myReshape);
-    GLUT.DisplayFunc(display);
-    GLUT.MainLoop();

data/examples/legacy/stroke.rb

@@ -1,170 +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.
-# */
-#/*
-# *  stroke.c 
-# *  This program demonstrates some characters of a 
-# *  stroke (vector) font.  The characters are represented
-# *  by display lists, which are given numbers which 
-# *  correspond to the ASCII values of the characters.
-# *  Use of glCallLists() is demonstrated.
-# */
-
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "mathn"
-
-PT=1
-STROKE=2
-END_=3
-
-Adata = [
-    [[0, 0], PT], [[0, 9], PT], [[1, 10], PT], [[4, 10], PT], 
-    [[5, 9], PT], [[5, 0], STROKE], [[0, 5], PT], [[5, 5], END_]
-];
-
-Edata = [
-    [[5, 0], PT], [[0, 0], PT], [[0, 10], PT], [[5, 10], STROKE],
-    [[0, 5], PT], [[4, 5], END_]
-];
-
-Pdata = [
-    [[0, 0], PT], [[0, 10], PT],  [[4, 10], PT], [[5, 9], PT], [[5, 6], PT], 
-    [[4, 5], PT], [[0, 5], END_]
-];
-
-Rdata = [
-    [[0, 0], PT], [[0, 10], PT],  [[4, 10], PT], [[5, 9], PT], [[5, 6], PT], 
-    [[4, 5], PT], [[0, 5], STROKE], [[3, 5], PT], [[5, 0], END_]
-];
-
-Sdata = [
-    [[0, 1], PT], [[1, 0], PT], [[4, 0], PT], [[5, 1], PT], [[5, 4], PT], 
-    [[4, 5], PT], [[1, 5], PT], [[0, 6], PT], [[0, 9], PT], [[1, 10], PT], 
-    [[4, 10], PT], [[5, 9], END_]
-];
-
-#/*  drawLetter() interprets the instructions from the array
-# *  for that letter and renders the letter with line segments.
-# */
-def drawLetter(l)
-    i = 0
-    GL.Begin(GL::LINE_STRIP);
-    while (1) 
-	case (l[i][1])
-	    when PT
-		GL.Vertex(l[i][0]);
-	    when STROKE
-		GL.Vertex(l[i][0]);
-		GL.End();
-		GL.Begin(GL::LINE_STRIP);
-	    when END_
-		GL.Vertex(l[i][0]);
-		GL.End();
-		GL.Translate(8.0, 0.0, 0.0);
-		return
-	end
-	i = i + 1
-    end
-end
-
-# /*  Create a display list for each of 6 characters	*/
-def myinit
-    GL.ShadeModel (GL::FLAT);
-
-    base = GL.GenLists(128);
-    GL.ListBase(base);
-    GL.NewList(base+'A'[0], GL::COMPILE); drawLetter(Adata); GL.EndList();
-    GL.NewList(base+'E'[0], GL::COMPILE); drawLetter(Edata); GL.EndList();
-    GL.NewList(base+'P'[0], GL::COMPILE); drawLetter(Pdata); GL.EndList();
-    GL.NewList(base+'R'[0], GL::COMPILE); drawLetter(Rdata); GL.EndList();
-    GL.NewList(base+'S'[0], GL::COMPILE); drawLetter(Sdata); GL.EndList();
-    GL.NewList(base+' '[0], GL::COMPILE); GL.Translate(8.0, 0.0, 0.0); GL.EndList();
-end
-
-$test1 = "A SPARE SERAPE APPEARS AS";
-$test2 = "APES PREPARE RARE PEPPERS";
-
-def printStrokedString(s)
-#    GL.CallLists(s.size, GL::BYTE, s);
-    GL.CallLists( s);
-end
-
-display = Proc.new {
-    GL.Clear(GL::COLOR_BUFFER_BIT);
-    GL.Color(1.0, 1.0, 1.0);
-    GL.PushMatrix();
-    GL.Scale(2.0, 2.0, 2.0);
-    GL.Translate(10.0, 30.0, 0.0);
-    printStrokedString($test1);
-    GL.PopMatrix();
-    GL.PushMatrix();
-    GL.Scale(2.0, 2.0, 2.0);
-    GL.Translate(10.0, 13.0, 0.0);
-    printStrokedString($test2);
-    GL.PopMatrix();
-    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);
-    GL.LoadIdentity();
-}
-
-#/*  Main Loop
-# *  Open window with initial window size, title bar, 
-# *  RGBA display mode, and handle input events.
-# */
-#int main(int argc, char** argv)
-#{
-    GLUT.Init
-    GLUT.InitDisplayMode(GLUT::SINGLE | GLUT::RGB);
-    GLUT.InitWindowSize(440, 120);
-    GLUT.CreateWindow($0);
-    myinit();
-    GLUT.DisplayFunc(display);
-    GLUT.ReshapeFunc(reshape);
-    GLUT.MainLoop();
-#    return 0;             /* ANSI C requires main to return int. */
-#}

data/examples/legacy/surface.rb

@@ -1,170 +0,0 @@
-#/* aux2glut conversion Copyright (c) Mark J. Kilgard, 1994, 1995 */
-#
-#/**
-# * (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.
-# */
-#/**
-# *  surface.c
-# *  This program draws a NURBS surface in the shape of a 
-# *  symmetrical hill.
-# */
-
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "mathn"
-
-$ctlpoints = [];
-$showPoints = 0;
-
-$theNurb = nil;
-
-#/*
-# *  Initializes the control points of the surface to a small hill.
-# *  The control points range from -3 to +3 in x, y, and z
-# */
-def init_surface
-    for u in 0..3
-	for v in 0..3
-	    $ctlpoints[u*4*3+v*3+0] = 2.0*(u - 1.5);
-	    $ctlpoints[u*4*3+v*3+1] = 2.0*(v - 1.5);
-
-	    if ( (u == 1 || u == 2) && (v == 1 || v == 2))
-		$ctlpoints[u*4*3+v*3+2] = 7.0;
-	    else
-		$ctlpoints[u*4*3+v*3+2] = -3.0;
-	    end
-	end
-    end
-end			
-			
-#/*  Initialize material property and depth buffer.
-# */
-def myinit
-    mat_diffuse = [ 0.7, 0.7, 0.7, 1.0 ];
-    mat_specular = [ 1.0, 1.0, 1.0, 1.0 ];
-    mat_shininess = [ 100.0 ];
-
-    GL.ClearColor(0.0, 0.0, 0.0, 1.0);
-    GL.Material(GL::FRONT, GL::DIFFUSE, mat_diffuse);
-    GL.Material(GL::FRONT, GL::SPECULAR, mat_specular);
-    GL.Material(GL::FRONT, GL::SHININESS, mat_shininess);
-
-    GL.Enable(GL::LIGHTING);
-    GL.Enable(GL::LIGHT0);
-    GL.DepthFunc(GL::LESS);
-    GL.Enable(GL::DEPTH_TEST);
-    GL.Enable(GL::AUTO_NORMAL);
-    GL.Enable(GL::NORMALIZE);
-
-    init_surface();
-
-    $theNurb = GLU.NewNurbsRenderer();
-    GLU.NurbsProperty($theNurb, GLU::SAMPLING_TOLERANCE, 25.0);
-    GLU.NurbsProperty($theNurb, GLU::DISPLAY_MODE, GLU::FILL);
-end
-
-display = Proc.new {
-    knots = [0.0, 0.0, 0.0, 0.0, 1.0, 1.0, 1.0, 1.0];
-
-    GL.Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-
-    GL.PushMatrix();
-    GL.Rotate(330.0, 1.0,0.0,0.0);
-    GL.Scale(0.25, 0.25, 0.25);
-
-    GLU.BeginSurface($theNurb);
-    GLU.NurbsSurface($theNurb, 
-	    8, knots,
-	    8, knots,
-	    4 * 3,
-	    3,
-	    $ctlpoints, 
-	    4, 4,
-	    GL::MAP2_VERTEX_3);
-    GLU.EndSurface($theNurb);
-
-    if($showPoints==1)
-    GL.PointSize(5.0);
-    GL.Disable(GL::LIGHTING);
-    GL.Color(1.0, 1.0, 0.0);
-    GL.Begin(GL::POINTS);
-    for i in 0..3
-      for j in 0..3
-	GL.Vertex($ctlpoints[i*4*3+j*3+0], $ctlpoints[i*4*3+j*3+1], $ctlpoints[i*4*3+j*3+2]);
-      end
-    end
-    GL.End();
-    GL.Enable(GL::LIGHTING);
-    end
-        
-    GL.PopMatrix();
-    GL.Flush();
-}
-
-reshape = Proc.new {|w, h|
-    GL.Viewport(0, 0, w, h);
-    GL.MatrixMode(GL::PROJECTION);
-    GL.LoadIdentity();
-    GLU.Perspective(45.0, w/h, 3.0, 8.0);
-
-    GL.MatrixMode(GL::MODELVIEW);
-    GL.LoadIdentity();
-    GL.Translate(0.0, 0.0, -5.0);
-}
-
-menu = Proc.new {|value|
-    $showPoints = value;
-    GLUT.PostRedisplay();
-}
-
-#/* Main Loop */
-#int
-#main(int argc, char** argv)
-#{
-    GLUT.Init
-    GLUT.InitDisplayMode(GLUT::SINGLE | GLUT::RGB);
-    GLUT.CreateWindow($0);
-    myinit();
-    GLUT.ReshapeFunc(reshape);
-    GLUT.DisplayFunc(display);
-    GLUT.CreateMenu(menu);
-    GLUT.AddMenuEntry("Show control points", 1);
-    GLUT.AddMenuEntry("Hide control points", 0);
-    GLUT.AttachMenu(GLUT::RIGHT_BUTTON);
-    GLUT.MainLoop();
-#    return 0;             /* ANSI C requires main to return int. */
-#}