ruby-opengl 0.40.1 → 0.50.0

data/examples/legacy/varray.rb

@@ -1,167 +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.
-# */
-#
-#/*
-# *  varray.c
-# *  This program demonstrates vertex arrays.
-# */
-
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-
-POINTER=1
-INTERLEAVED=2
-
-DRAWARRAY=1
-ARRAYELEMENT=2
-DRAWELEMENTS=3
-
-$setupMethod = POINTER;
-$derefMethod = DRAWARRAY;
-
-def setupPointers
-   $vertices = [25, 25,
-                       100, 325,
-                       175, 25,
-                       175, 325,
-                       250, 25,
-                       325, 325].pack("i*");
-   $colors = [1.0, 0.2, 0.2,
-                       0.2, 0.2, 1.0,
-                       0.8, 1.0, 0.2,
-                       0.75, 0.75, 0.75,
-                       0.35, 0.35, 0.35,
-                       0.5, 0.5, 0.5].pack("f*");
-
-   GL.EnableClientState(GL::VERTEX_ARRAY);
-   GL.EnableClientState(GL::COLOR_ARRAY);
-
-   GL.VertexPointer(2, GL::INT, 0, $vertices);
-   GL.ColorPointer(3, GL::FLOAT, 0, $colors);
-end
-
-def  setupInterleave
-   $intertwined =
-      [1.0, 0.2, 1.0, 100.0, 100.0, 0.0,
-       1.0, 0.2, 0.2, 0.0, 200.0, 0.0,
-       1.0, 1.0, 0.2, 100.0, 300.0, 0.0,
-       0.2, 1.0, 0.2, 200.0, 300.0, 0.0,
-       0.2, 1.0, 1.0, 300.0, 200.0, 0.0,
-       0.2, 0.2, 1.0, 200.0, 100.0, 0.0].pack("f*");
-   
-   GL.InterleavedArrays(GL::C3F_V3F, 0, $intertwined);
-end
-
-def init
-   GL.ClearColor(0.0, 0.0, 0.0, 0.0);
-   GL.ShadeModel(GL::SMOOTH);
-   setupPointers();
-end
-
-display = proc {
-   GL.Clear(GL::COLOR_BUFFER_BIT);
-
-   if ($derefMethod == DRAWARRAY) 
-      GL.DrawArrays(GL::TRIANGLES, 0, 6);
-   elsif ($derefMethod == ARRAYELEMENT)
-      GL.Begin(GL::TRIANGLES);
-      GL.ArrayElement(2);
-      GL.ArrayElement(3);
-      GL.ArrayElement(5);
-      GL.End();
-   elsif ($derefMethod == DRAWELEMENTS)
-      $indices = [0, 1, 3, 4].pack("I*")
-      GL.DrawElements(GL::POLYGON, 4, GL::UNSIGNED_INT, $indices);
-   end
-   GL.Flush();
-}
-
-reshape = proc {|w, h|
-   GL.Viewport(0, 0, w, h);
-   GL.MatrixMode(GL::PROJECTION);
-   GL.LoadIdentity();
-   GLU.Ortho2D(0.0, w, 0.0, h);
-}
-
-#/* ARGSUSED2 */
-mouse = proc {|button, state, x, y|
-   case (button)
-      when GLUT::LEFT_BUTTON
-         if (state == GLUT::DOWN)
-            if ($setupMethod == POINTER)
-               $setupMethod = INTERLEAVED;
-               setupInterleave();
-            elsif ($setupMethod == INTERLEAVED)
-               $setupMethod = POINTER;
-               setupPointers();
-            end
-            GLUT.PostRedisplay();
-         end
-      when GLUT::MIDDLE_BUTTON,GLUT::RIGHT_BUTTON
-         if (state == GLUT::DOWN)
-            if ($derefMethod == DRAWARRAY) 
-               $derefMethod = ARRAYELEMENT;
-            elsif ($derefMethod == ARRAYELEMENT) 
-               $derefMethod = DRAWELEMENTS;
-            elsif ($derefMethod == DRAWELEMENTS) 
-               $derefMethod = DRAWARRAY;
-            end
-            GLUT.PostRedisplay();
-         end
-   end
-}
-
-#/* ARGSUSED1 */
-keyboard = proc {|key, x, y|
-   case (key)
-      when 27
-         exit(0);
-   end
-}
-
-   GLUT.Init();
-   GLUT.InitDisplayMode(GLUT::SINGLE | GLUT::RGB);
-   GLUT.InitWindowSize(350, 350);
-   GLUT.InitWindowPosition(100, 100);
-   GLUT.CreateWindow()
-   init();
-   GLUT.DisplayFunc(display); 
-   GLUT.ReshapeFunc(reshape);
-   GLUT.MouseFunc(mouse);
-   GLUT.KeyboardFunc(keyboard);
-   GLUT.MainLoop();

data/examples/legacy/wrap.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.
-# */
-#
-#/*  wrap.c
-# *  This program texture maps a checkerboard image onto
-# *  two rectangles.  This program demonstrates the wrapping
-# *  modes, if the texture coordinates fall outside 0.0 and 1.0.
-# *  Interaction: Pressing the 's' and 'S' keys switch the
-# *  wrapping between clamping and repeating for the s parameter.
-# *  The 't' and 'T' keys control the wrapping for the t parameter.
-# *
-# *  If running this program on OpenGL 1.0, texture objects are
-# *  not used.
-# */
-
-require "gl_prev"
-require "glu_prev"
-require "glut_prev"
-require "mathn"
-
-#/*	Create checkerboard texture	*/
-CheckImageWidth=64
-CheckImageHeight=64
-$checkImage = []
-
-$texName = 0;
-
-def makeCheckImage
-   for i in 0..CheckImageHeight-1
-      for j in 0..CheckImageWidth-1
-         c = if (((i&0x8)==0)!=((j&0x8)==0)) then 255; else 0; end;
-         $checkImage[(i*CheckImageWidth+j)*4+0] = c;
-         $checkImage[(i*CheckImageWidth+j)*4+1] = c;
-         $checkImage[(i*CheckImageWidth+j)*4+2] = c;
-         $checkImage[(i*CheckImageWidth+j)*4+3] = 255;
-      end
-   end
-end
-
-def init
-   GL.ClearColor(0.0, 0.0, 0.0, 0.0);
-   GL.ShadeModel(GL::FLAT);
-   GL.Enable(GL::DEPTH_TEST);
-
-   makeCheckImage();
-   GL.PixelStore(GL::UNPACK_ALIGNMENT, 1);
-
-   $texName = GL.GenTextures(1);
-   GL.BindTexture(GL::TEXTURE_2D, $texName[0]);
-
-   GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_WRAP_S, GL::REPEAT);
-   GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_WRAP_T, GL::REPEAT);
-   GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_MAG_FILTER, GL::NEAREST);
-   GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_MIN_FILTER, GL::NEAREST);
-   GL.TexImage2D(GL::TEXTURE_2D, 0, GL::RGBA, CheckImageWidth,
-		CheckImageHeight, 
-                0, GL::RGBA, GL::UNSIGNED_BYTE, $checkImage.pack("C*"));
-end
-
-display = Proc.new {
-   GL.Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT);
-   GL.Enable(GL::TEXTURE_2D);
-   GL.TexEnvf(GL::TEXTURE_ENV, GL::TEXTURE_ENV_MODE, GL::DECAL);
-   GL.BindTexture(GL::TEXTURE_2D, $texName[0]);
-
-   GL.Begin(GL::QUADS);
-   GL.TexCoord(0.0, 0.0); GL.Vertex(-2.0, -1.0, 0.0);
-   GL.TexCoord(0.0, 3.0); GL.Vertex(-2.0, 1.0, 0.0);
-   GL.TexCoord(3.0, 3.0); GL.Vertex(0.0, 1.0, 0.0);
-   GL.TexCoord(3.0, 0.0); GL.Vertex(0.0, -1.0, 0.0);
-
-   GL.TexCoord(0.0, 0.0); GL.Vertex(1.0, -1.0, 0.0);
-   GL.TexCoord(0.0, 3.0); GL.Vertex(1.0, 1.0, 0.0);
-   GL.TexCoord(3.0, 3.0); GL.Vertex(2.41421, 1.0, -1.41421);
-   GL.TexCoord(3.0, 0.0); GL.Vertex(2.41421, -1.0, -1.41421);
-   GL.End();
-   GL.Flush();
-   GL.Disable(GL::TEXTURE_2D);
-}
-
-reshape = Proc.new {|w, h|
-   GL.Viewport(0, 0,  w,  h);
-   GL.MatrixMode(GL::PROJECTION);
-   GL.LoadIdentity();
-   GLU.Perspective(60.0,  w/h, 1.0, 30.0);
-   GL.MatrixMode(GL::MODELVIEW);
-   GL.LoadIdentity();
-   GL.Translate(0.0, 0.0, -3.6);
-}
-
-#/* ARGSUSED1 */
-keyboard = Proc.new {|key, x, y|
-   case (key)
-      when 's'[0]
-         GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_WRAP_S, GL::CLAMP);
-         GLUT.PostRedisplay();
-      when 'S'[0]
-         GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_WRAP_S, GL::REPEAT);
-         GLUT.PostRedisplay();
-      when 't'[0]
-         GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_WRAP_T, GL::CLAMP);
-         GLUT.PostRedisplay();
-      when 'T'[0]
-         GL.TexParameter(GL::TEXTURE_2D, GL::TEXTURE_WRAP_T, GL::REPEAT);
-         GLUT.PostRedisplay();
-      when 27
-         exit(0);
-   end
-}
-
-#int main(int argc, char** argv)
-#{
-   GLUT.Init
-   GLUT.InitDisplayMode(GLUT::SINGLE | GLUT::RGB | GLUT::DEPTH);
-   GLUT.InitWindowSize(250, 250);
-   GLUT.InitWindowPosition(100, 100);
-   GLUT.CreateWindow($0);
-   init();
-   GLUT.DisplayFunc(display);
-   GLUT.ReshapeFunc(reshape);
-   GLUT.KeyboardFunc(keyboard);
-   GLUT.MainLoop();
-#   return 0;
-#}

data/lib/gl_prev.rb

@@ -1,46 +0,0 @@
-# Copyright (C) 2006 Peter McLain <peter.mclain@gmail.com>
-#
-# This program is distributed under the terms of the MIT license.
-# See the included MIT-LICENSE file for the terms of this license.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
-# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-
-# This module provides access to the GL methods and constants
-# in the way that they were available in previous versions of ruby-opengl.
-#
-# Thanks to Ilmari Heikkinen for a previous "reversed" version of this code,
-# and to Bill Kelly for a version before that one.
-
-require 'gl'
-
-module GL
-    extend self
-    include Gl
-
-    Gl.constants.each do |cn|
-        n = cn.to_s.sub(/^GL_/,'')
-	next if n =~ /^[0-9]/
-        begin
-            const_set( n, Gl.const_get( cn ) )
-        rescue
-            puts "=== #{__FILE__} FAILED on Constant: #{cn} --> #{n}"
-        end
-    end
-
-    Gl.methods( false ).each do |mn|
-        n = mn.to_s.sub(/^gl/,'')
-        begin
-            alias_method( n, mn )
-            public( n )
-        rescue
-            puts "=== #{__FILE__} FAILED on Method: #{mn} --> #{n}"
-        end
-    end
-end

data/lib/glu_prev.rb

@@ -1,46 +0,0 @@
-# Copyright (C) 2006 Peter McLain <peter.mclain@gmail.com>
-#
-# This program is distributed under the terms of the MIT license.
-# See the included MIT-LICENSE file for the terms of this license.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
-# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-
-# This module provides access to the GLU methods and constants
-# in the way that they were available in previous versions of ruby-opengl.
-#
-# Thanks to Ilmari Heikkinen for a previous "reversed" version of this code,
-# and to Bill Kelly for a version before that one.
-
-require 'gl'
-require 'glu'
-
-module GLU
-    extend self
-    include Glu
-
-    Glu.constants.each do |cn|
-        n = cn.to_s.sub(/^GLU_/,'')
-        begin
-            const_set( n, Glu.const_get( cn ) )
-        rescue
-            puts "=== #{__FILE__} FAILED on Constant: #{cn} --> #{n}"
-        end
-    end
-
-    Glu.methods( false ).each do |mn|
-        n = mn.to_s.sub(/^glu/,'')
-        begin
-            alias_method( n, mn )
-            public( n )
-        rescue
-            puts "=== #{__FILE__} FAILED on Method: #{mn} --> #{n}"
-        end
-    end
-end

data/lib/glut_prev.rb

@@ -1,45 +0,0 @@
-# Copyright (C) 2006 Peter McLain <peter.mclain@gmail.com>
-#
-# This program is distributed under the terms of the MIT license.
-# See the included MIT-LICENSE file for the terms of this license.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
-# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-
-# This module provides access to the GLUT methods and constants
-# in the way that they were available in previous versions of ruby-opengl.
-#
-# Thanks to Ilmari Heikkinen for a previous "reversed" version of this code,
-# and to Bill Kelly for a version before that one.
-
-require 'glut'
-
-module GLUT
-    extend self
-    include Glut
-
-    Glut.constants.each do |cn|
-        n = cn.to_s.sub(/^GLUT_/,'')
-        begin
-            const_set( n, Glut.const_get( cn ) )
-        rescue
-            puts "=== #{__FILE__} FAILED on Constant: #{cn} --> #{n}"
-        end
-    end
-
-    Glut.methods( false ).each do |mn|
-        n = mn.to_s.sub(/^glut/,'')
-        begin
-            alias_method( n, mn )
-            public( n )
-        rescue
-            puts "=== #{__FILE__} FAILED on Method: #{mn} --> #{n}"
-        end
-    end
-end