ruby-opengl 0.40.1 → 0.50.0

data/examples/legacy/accpersp.rb

@@ -1,216 +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.
-# */
-#
-#/*  accpersp.c
-# *  Use the accumulation buffer to do full-scene antialiasing
-# *  on a scene with perspective projection, using the special
-# *  routines accFrustum() and accPerspective().
-# */
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-
-$LOAD_PATH.push(File.dirname($0))  # Find jitter in script directory
-
-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
-
-#/*  Initialize lighting and other values.
-# */
-def init
-   mat_ambient = [ 1.0, 1.0, 1.0, 1.0 ];
-   mat_specular = [ 1.0, 1.0, 1.0, 1.0 ];
-   light_position = [ 0.0, 0.0, 10.0, 1.0 ];
-   lm_ambient = [ 0.2, 0.2, 0.2, 1.0 ];
-
-   GL::Material(GL::FRONT, GL::AMBIENT, mat_ambient);
-   GL::Material(GL::FRONT, GL::SPECULAR, mat_specular);
-   GL::Material(GL::FRONT, GL::SHININESS, 50.0);
-   GL::Light(GL::LIGHT0, GL::POSITION, light_position);
-   GL::LightModel(GL::LIGHT_MODEL_AMBIENT, lm_ambient);
-    
-   GL::Enable(GL::LIGHTING);
-   GL::Enable(GL::LIGHT0);
-   GL::Enable(GL::DEPTH_TEST);
-   GL::ShadeModel(GL::FLAT);
-
-   GL::ClearColor(0.0, 0.0, 0.0, 0.0);
-   GL::ClearAccum(0.0, 0.0, 0.0, 0.0);
-end
-
-def displayObjects
-   torus_diffuse = [ 0.7, 0.7, 0.0, 1.0 ];
-   cube_diffuse = [ 0.0, 0.7, 0.7, 1.0 ];
-   sphere_diffuse = [ 0.7, 0.0, 0.7, 1.0 ];
-   octa_diffuse = [ 0.7, 0.4, 0.4, 1.0 ];
-    
-   GL::PushMatrix();
-   GL::Translate(0.0, 0.0, -5.0); 
-   GL::Rotate(30.0, 1.0, 0.0, 0.0);
-
-   GL::PushMatrix();
-   GL::Translate(-0.80, 0.35, 0.0); 
-   GL::Rotate(100.0, 1.0, 0.0, 0.0);
-   GL::Material(GL::FRONT, GL::DIFFUSE, torus_diffuse);
-   GLUT::SolidTorus(0.275, 0.85, 16, 16);
-   GL::PopMatrix();
-
-   GL::PushMatrix();
-   GL::Translate(-0.75, -0.50, 0.0); 
-   GL::Rotate(45.0, 0.0, 0.0, 1.0);
-   GL::Rotate(45.0, 1.0, 0.0, 0.0);
-   GL::Material(GL::FRONT, GL::DIFFUSE, cube_diffuse);
-   GLUT::SolidCube(1.5);
-   GL::PopMatrix();
-
-   GL::PushMatrix();
-   GL::Translate(0.75, 0.60, 0.0); 
-   GL::Rotate(30.0, 1.0, 0.0, 0.0);
-   GL::Material(GL::FRONT, GL::DIFFUSE, sphere_diffuse);
-   GLUT::SolidSphere(1.0, 16, 16);
-   GL::PopMatrix();
-
-   GL::PushMatrix();
-   GL::Translate(0.70, -0.90, 0.25); 
-   GL::Material(GL::FRONT, GL::DIFFUSE, octa_diffuse);
-   GLUT::SolidOctahedron();
-   GL::PopMatrix();
-
-   GL::PopMatrix();
-end
-
-ACSIZE=8
-
-display = proc {
-   viewport = GL::GetDoublev(GL::VIEWPORT);
-
-   GL::Clear(GL::ACCUM_BUFFER_BIT);
-   for jitter in 0...ACSIZE
-      GL::Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-      accPerspective(50.0, viewport[2]/ viewport[3],
-         1.0, 15.0, $j8[jitter][0], $j8[jitter][1], 0.0, 0.0, 1.0);
-      displayObjects();
-      GL::Accum(GL::ACCUM, 1.0/ACSIZE);
-   end
-   GL::Accum(GL::RETURN, 1.0);
-   GL::Flush();
-}
-
-reshape = proc {|w, h|
-   GL::Viewport(0, 0,  w,  h);
-}
-
-# /* ARGSUSED1 */
-keyboard = proc {|key, x, y|
-   case (key)
-   when 27
-     exit(0);
-   end
-}
-
-#/*  Main Loop
-# *  Be certain you request an accumulation buffer.
-# */
-   GLUT.Init
-   GLUT::InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::ACCUM | GLUT::DEPTH);
-   GLUT::InitWindowSize(250, 250);
-   GLUT::InitWindowPosition(100, 100);
-   GLUT::CreateWindow($0)
-   init();
-   GLUT::ReshapeFunc(reshape);
-   GLUT::DisplayFunc(display);
-   GLUT::KeyboardFunc(keyboard);
-   GLUT::MainLoop();

data/examples/legacy/alpha.rb

@@ -1,133 +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.
-# */
-#
-#/*
-# *  alpha.c
-# *  This program draws several overlapping filled polygons
-# *  to demonstrate the effect order has on alpha blending results.
-# *  Use the 't' key to toggle the order of drawing polygons.
-# */
-
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "mathn"
-
-$leftFirst = GL::TRUE;
-
-#/*  Initialize alpha blending function.
-# */
-def init
-   GL.Enable(GL::BLEND);
-   GL.BlendFunc(GL::SRC_ALPHA, GL::ONE_MINUS_SRC_ALPHA);
-   GL.ShadeModel(GL::FLAT);
-   GL.ClearColor(0.0, 0.0, 0.0, 0.0);
-end
-
-def drawLeftTriangle
-   #/* draw yellow triangle on LHS of screen */
-
-   GL.Begin(GL::TRIANGLES);
-      GL.Color(1.0, 1.0, 0.0, 0.75);
-      GL.Vertex(0.1, 0.9, 0.0); 
-      GL.Vertex(0.1, 0.1, 0.0); 
-      GL.Vertex(0.7, 0.5, 0.0); 
-   GL.End();
-end
-
-def drawRightTriangle
-   #/* draw cyan triangle on RHS of screen */
-
-   GL.Begin(GL::TRIANGLES);
-      GL.Color(0.0, 1.0, 1.0, 0.75);
-      GL.Vertex(0.9, 0.9, 0.0); 
-      GL.Vertex(0.3, 0.5, 0.0); 
-      GL.Vertex(0.9, 0.1, 0.0); 
-   GL.End();
-end
-
-display = Proc.new {
-   GL.Clear(GL::COLOR_BUFFER_BIT);
-
-   if ($leftFirst)
-      drawLeftTriangle();
-      drawRightTriangle();
-   else
-      drawRightTriangle();
-      drawLeftTriangle();
-   end
-
-   GL.Flush();
-}
-
-reshape = Proc.new {|w, h|
-   GL.Viewport(0, 0,  w, h);
-   GL.MatrixMode(GL::PROJECTION);
-   GL.LoadIdentity();
-   if (w <= h) 
-      GLU.Ortho2D(0.0, 1.0, 0.0, 1.0*h/w);
-   else 
-      GLU.Ortho2D(0.0, 1.0*w/h, 0.0, 1.0);
-   end
-}
-
-# /* ARGSUSED1 */
-keyboard = Proc.new {|key, x, y|
-   case (key)
-      when 't'[0],'T'[0]
-         $leftFirst = !$leftFirst;
-         GLUT.PostRedisplay();	
-      when 27  #  /*  Escape key  */
-         exit(0);
-   end
-}
-
-#/*  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(200, 200);
-   GLUT.CreateWindow($0);
-   init();
-   GLUT.ReshapeFunc(reshape);
-   GLUT.KeyboardFunc(keyboard);
-   GLUT.DisplayFunc(display);
-   GLUT.MainLoop();

data/examples/legacy/alpha3D.rb

@@ -1,165 +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.
-# */
-#
-#/*
-# *  alpha3D.c
-# *  This program demonstrates how to intermix opaque and
-# *  alpha blended polygons in the same scene, by using 
-# *  glDepthMask.  Press the 'a' key to animate moving the 
-# *  transparent object through the opaque object.  Press 
-# *  the 'r' key to reset the scene.
-# */
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-
-MAXZ=8.0
-MINZ=-8.0
-ZINC=0.4
-
-$solidZ = MAXZ;
-$transparentZ = MINZ;
-$sphereList=nil
-$cubeList=nil
-
-def init
-   mat_specular = [ 1.0, 1.0, 1.0, 0.15 ];
-   mat_shininess = [ 100.0 ];
-   position = [ 0.5, 0.5, 1.0, 0.0 ];
-
-   GL::Material(GL::FRONT, GL::SPECULAR, mat_specular);
-   GL::Material(GL::FRONT, GL::SHININESS, mat_shininess);
-   GL::Light(GL::LIGHT0, GL::POSITION, position);
-
-   GL::Enable(GL::LIGHTING);
-   GL::Enable(GL::LIGHT0);
-   GL::Enable(GL::DEPTH_TEST);
-
-   $sphereList = GL::GenLists(1);
-   GL::NewList($sphereList, GL::COMPILE);
-      GLUT::SolidSphere(0.4, 16, 16);
-   GL::EndList();
-
-   $cubeList = GL::GenLists(1);
-   GL::NewList($cubeList, GL::COMPILE);
-      GLUT::SolidCube(0.6);
-   GL::EndList();
-end
-
-display = proc {
-   mat_solid = [ 0.75, 0.75, 0.0, 1.0 ];
-   mat_zero = [ 0.0, 0.0, 0.0, 1.0 ];
-   mat_transparent = [ 0.0, 0.8, 0.8, 0.6 ];
-   mat_emission = [ 0.0, 0.3, 0.3, 0.6 ];
-
-   GL::Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-
-   GL::PushMatrix();
-      GL::Translate(-0.15, -0.15, $solidZ);
-      GL::Material(GL::FRONT, GL::EMISSION, mat_zero);
-      GL::Material(GL::FRONT, GL::DIFFUSE, mat_solid);
-      GL::CallList($sphereList);
-   GL::PopMatrix();
-
-   GL::PushMatrix();
-      GL::Translate(0.15, 0.15, $transparentZ);
-      GL::Rotate(15.0, 1.0, 1.0, 0.0);
-      GL::Rotate(30.0, 0.0, 1.0, 0.0);
-      GL::Material(GL::FRONT, GL::EMISSION, mat_emission);
-      GL::Material(GL::FRONT, GL::DIFFUSE, mat_transparent);
-      GL::Enable(GL::BLEND);
-      GL::DepthMask(GL::FALSE);
-      GL::BlendFunc(GL::SRC_ALPHA, GL::ONE);
-      GL::CallList($cubeList);
-      GL::DepthMask(GL::TRUE);
-      GL::Disable(GL::BLEND);
-   GL::PopMatrix();
-
-   GL::Flush();
-}
-
-reshape = proc {|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.to_f/w,
-               1.5*h.to_f/w, -10.0, 10.0);
-   else
-      GL::Ortho(-1.5*w.to_f/h,
-               1.5*w.to_f/h, -1.5, 1.5, -10.0, 10.0);
-   end
-   GL::MatrixMode(GL::MODELVIEW);
-   GL::LoadIdentity();
-}
-
-animate = proc {
-   if ($solidZ <= MINZ || $transparentZ >= MAXZ)
-      GLUT::IdleFunc(nil);
-   else
-      $solidZ -= ZINC;
-      $transparentZ += ZINC;
-      GLUT::PostRedisplay();
-   end
-}
-
-# /* ARGSUSED1 */
-keyboard = proc {|key, x, y|
-   case (key)
-      when ?a,?A
-         $solidZ = MAXZ;
-         $transparentZ = MINZ;
-         GLUT::IdleFunc(animate);
-      when ?r, ?R
-         $solidZ = MAXZ;
-         $transparentZ = MINZ;
-         GLUT::PostRedisplay();
-      when 27
-        exit(0);
-    end
-}
-
-   GLUT::Init()
-   GLUT::InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::DEPTH);
-   GLUT::InitWindowSize(500, 500);
-   GLUT::CreateWindow($0)
-   init();
-   GLUT::ReshapeFunc(reshape);
-   GLUT::KeyboardFunc(keyboard);
-   GLUT::DisplayFunc(display);
-   GLUT::MainLoop();