ruby-opengl 0.33.0 → 0.40.0

data/examples/legacy/accpersp.rb

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

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

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