danabr75-opengl 0.10.0

data/examples/OrangeBook/particle.vert

@@ -0,0 +1,38 @@
+//
+// Vertex shader for rendering a "confetti cannon"
+// via a partcle system
+//
+// Author: Randi Rost
+//
+// Copyright (c) 2003-2004: 3Dlabs, Inc.
+//
+// See 3Dlabs-License.txt for license information
+//
+
+uniform float Time;            // updated each frame by the application
+uniform vec4  Background;      // constant color equal to background
+ 
+attribute vec3  Velocity;      // initial velocity
+attribute float StartTime;     // time at which particle is activated
+
+varying vec4 Color;
+ 
+void main(void)
+{
+    vec4  vert;
+    float t = Time - StartTime;
+
+    if (t >= 0.0)
+    {
+        vert    = gl_Vertex + vec4 (Velocity * t, 0.0);
+        vert.y -= 4.9 * t * t;
+        Color   = gl_Color;
+    }
+    else
+    {
+        vert  = gl_Vertex;      // Initial position
+        Color = Background;     // "pre-birth" color
+    }
+ 
+    gl_Position  = gl_ModelViewProjectionMatrix * vert;
+}

data/examples/README

@@ -0,0 +1,16 @@
+Examples
+========
+
+This directory contains OpenGL examples converted to ruby from various sources.
+As such, they are distributed under various terms - see each file for licensing info.
+
+RedBook/
+	Examples from OpenGL Red Book and SGI's example code in general, licensed under
+	SGI open-source license.
+OrangeBook/
+	Examples from OpenGL Orange Book (GLSL), distributed under BSD license
+NeHe/
+  NeHe's opengl tutorials (http://nehe.gamedev.net), licensed under free license.
+Misc/
+	Other examples. If license is not given, MIT is assumed.
+	

data/examples/RedBook/aapoly.rb

@@ -0,0 +1,143 @@
+#
+# 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.
+#
+# aapoly.c
+# This program draws filled polygons with antialiased
+# edges.  The special GL_SRC_ALPHA_SATURATE blending
+# function is used.
+# Pressing the 't' key turns the antialiasing on and off.
+require 'opengl'
+require 'glu'
+require 'glut'
+include Gl,Glu,Glut
+
+$polySmooth = true
+
+def init
+  glCullFace(GL_BACK)
+  glEnable(GL_CULL_FACE)
+  glBlendFunc(GL_SRC_ALPHA_SATURATE, GL_ONE)
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+end
+
+NFACE=6
+NVERT=8
+$indices = [
+  [4, 5, 6, 7], [2, 3, 7, 6], [0, 4, 7, 3],
+  [0, 1, 5, 4], [1, 5, 6, 2], [0, 3, 2, 1]
+]
+
+def drawCube(x0, x1, y0, y1, z0, z1)
+  v = [[],[],[],[],[],[],[],[]]
+  c = [
+    [0.0, 0.0, 0.0, 1.0], [1.0, 0.0, 0.0, 1.0],
+    [0.0, 1.0, 0.0, 1.0], [1.0, 1.0, 0.0, 1.0],
+    [0.0, 0.0, 1.0, 1.0], [1.0, 0.0, 1.0, 1.0],
+    [0.0, 1.0, 1.0, 1.0], [1.0, 1.0, 1.0, 1.0]
+  ]
+
+  # indices of front, top, left, bottom, right, back faces
+
+  v[0][0] = v[3][0] = v[4][0] = v[7][0] = x0
+  v[1][0] = v[2][0] = v[5][0] = v[6][0] = x1
+  v[0][1] = v[1][1] = v[4][1] = v[5][1] = y0
+  v[2][1] = v[3][1] = v[6][1] = v[7][1] = y1
+  v[0][2] = v[1][2] = v[2][2] = v[3][2] = z0
+  v[4][2] = v[5][2] = v[6][2] = v[7][2] = z1
+
+  glEnableClientState(GL_VERTEX_ARRAY)
+  glEnableClientState(GL_COLOR_ARRAY)
+  glVertexPointer(3, GL_FLOAT, 0, v.flatten!.pack("f*"))
+  glColorPointer(4, GL_FLOAT, 0, c.flatten!.pack("f*"))
+  glDrawElements(GL_QUADS, NFACE*4, GL_UNSIGNED_BYTE, $indices.flatten.pack("C*"))
+  glDisableClientState(GL_VERTEX_ARRAY)
+  glDisableClientState(GL_COLOR_ARRAY)
+end
+
+# Note:  polygons must be drawn from front to back
+# for proper blending.
+display = proc do
+  if ($polySmooth)
+    glClear(GL_COLOR_BUFFER_BIT)
+    glEnable(GL_BLEND)
+    glEnable(GL_POLYGON_SMOOTH)
+    glDisable(GL_DEPTH_TEST)
+  else
+    glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
+    glDisable(GL_BLEND)
+    glDisable(GL_POLYGON_SMOOTH)
+    glEnable(GL_DEPTH_TEST)
+  end
+
+  glPushMatrix()
+  glTranslate(0.0, 0.0, -8.0)
+  glRotate(30.0, 1.0, 0.0, 0.0)
+  glRotate(60.0, 0.0, 1.0, 0.0)
+  drawCube(-0.5, 0.5, -0.5, 0.5, -0.5, 0.5)
+  glPopMatrix()
+  glutSwapBuffers()
+end
+
+reshape = proc do |w, h|
+  glViewport(0, 0, w, h)
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  gluPerspective(30.0,  w.to_f/ h.to_f, 1.0, 20.0)
+  glMatrixMode(GL_MODELVIEW)
+  glLoadIdentity()
+end
+
+keyboard = proc do |key, x, y|
+  case (key)
+    when ?t ,?T
+      $polySmooth = !$polySmooth
+      glutPostRedisplay()
+    when ?\e
+      exit(0)  # Escape key
+  end
+end
+
+# Main Loop
+glutInit
+glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB | GLUT_ALPHA | GLUT_DEPTH)
+glutInitWindowSize(500, 500)
+glutInitWindowPosition(100, 100)
+glutCreateWindow($0)
+init()
+glutReshapeFunc(reshape)
+glutKeyboardFunc(keyboard)
+glutDisplayFunc(display)
+glutMainLoop()

data/examples/RedBook/aargb.rb

@@ -0,0 +1,121 @@
+#
+# 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.
+#
+# aargb.c
+# This program draws shows how to draw anti-aliased lines. It draws
+# two diagonal lines to form an X when 'r' is typed in the window,
+# the lines are rotated in opposite directions.
+require 'opengl'
+require 'glu'
+require 'glut'
+require 'mathn'
+include Gl,Glu,Glut
+
+$rotAngle = 0.0
+
+# Initialize antialiasing for RGBA mode, including alpha
+# blending, hint, and line width.  Print out implementation
+# specific info on line width granularity and width.
+def init
+  glEnable(GL_LINE_SMOOTH)
+  glEnable(GL_BLEND)
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)
+  glHint(GL_LINE_SMOOTH_HINT, GL_DONT_CARE)
+  glLineWidth(1.5)
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+end
+
+# Draw 2 diagonal lines to form an X
+display = Proc.new do
+  glClear(GL_COLOR_BUFFER_BIT)
+
+  glColor(0.0, 1.0, 0.0)
+  glPushMatrix()
+  glRotate(-$rotAngle, 0.0, 0.0, 0.1)
+  glBegin(GL_LINES)
+  glVertex(-0.5, 0.5)
+  glVertex(0.5, -0.5)
+  glEnd()
+  glPopMatrix()
+
+  glColor(0.0, 0.0, 1.0)
+  glPushMatrix()
+  glRotate($rotAngle, 0.0, 0.0, 0.1)
+  glBegin(GL_LINES)
+  glVertex(0.5, 0.5)
+  glVertex(-0.5, -0.5)
+  glEnd()
+  glPopMatrix()
+  glutSwapBuffers()
+end
+
+reshape = Proc.new do |w, h|
+  glViewport(0, 0, w, h)
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  if (w <= h)
+    gluOrtho2D(-1.0, 1.0, -1.0*h/w, 1.0*h/w)
+  else
+    gluOrtho2D(-1.0*w/h, 1.0*w/h, -1.0, 1.0)
+  end
+  glMatrixMode(GL_MODELVIEW)
+  glLoadIdentity()
+end
+
+keyboard = Proc.new do |key, x, y|
+  case (key)
+    when ?r,?R
+      $rotAngle = $rotAngle + 20.0
+      $rotAngle = 0.0 if ($rotAngle >= 360.0)
+      glutPostRedisplay()
+    when ?\e  # Escape Key
+      exit(0)
+  end
+end
+
+# Main Loop
+# Open window with initial window size, title bar,
+# RGBA display mode, and handle input events.
+glutInit
+glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB)
+glutInitWindowSize(500, 500)
+glutInitWindowPosition(100, 100)
+glutCreateWindow($0)
+init()
+glutReshapeFunc(reshape)
+glutKeyboardFunc(keyboard)
+glutDisplayFunc(display)
+glutMainLoop()

data/examples/RedBook/accanti.rb

@@ -0,0 +1,164 @@
+#
+# 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.
+#
+# accanti.c
+
+require 'opengl'
+require 'glu'
+require 'glut'
+require_relative 'jitter'
+include Gl,Glu,Glut
+
+#  Initialize lighting and other values.
+def myinit
+  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 ]
+
+  glMaterial(GL_FRONT, GL_AMBIENT, mat_ambient)
+  glMaterial(GL_FRONT, GL_SPECULAR, mat_specular)
+  glMaterial(GL_FRONT, GL_SHININESS, 50.0)
+  glLight(GL_LIGHT0, GL_POSITION, light_position)
+  glLightModel(GL_LIGHT_MODEL_AMBIENT, lm_ambient)
+
+  glEnable(GL_LIGHTING)
+  glEnable(GL_LIGHT0)
+  glDepthFunc(GL_LESS)
+  glEnable(GL_DEPTH_TEST)
+  glShadeModel(GL_FLAT)
+
+  glClearColor(0.0, 0.0, 0.0, 0.0)
+  glClearAccum(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 ]
+
+  glPushMatrix()
+  glRotate(30.0, 1.0, 0.0, 0.0)
+
+  glPushMatrix()
+  glTranslate(-0.80, 0.35, 0.0)
+  glRotate(100.0, 1.0, 0.0, 0.0)
+  glMaterial(GL_FRONT, GL_DIFFUSE, torus_diffuse)
+  glutSolidTorus(0.275, 0.85, 16, 16)
+  glPopMatrix()
+
+  glPushMatrix()
+  glTranslate(-0.75, -0.50, 0.0)
+  glRotate(45.0, 0.0, 0.0, 1.0)
+  glRotate(45.0, 1.0, 0.0, 0.0)
+  glMaterial(GL_FRONT, GL_DIFFUSE, cube_diffuse)
+  glutSolidCube(1.5)
+  glPopMatrix()
+
+  glPushMatrix()
+  glTranslate(0.75, 0.60, 0.0)
+  glRotate(30.0, 1.0, 0.0, 0.0)
+  glMaterial(GL_FRONT, GL_DIFFUSE, sphere_diffuse)
+  glutSolidSphere(1.0, 16, 16)
+  glPopMatrix()
+
+  glPushMatrix()
+  glTranslate(0.70, -0.90, 0.25)
+  glMaterial(GL_FRONT, GL_DIFFUSE, octa_diffuse)
+  glutSolidOctahedron()
+  glPopMatrix()
+
+  glPopMatrix()
+end
+
+ACSIZE=8
+
+myDisplay = proc do
+  viewport = glGetDoublev(GL_VIEWPORT)
+
+  glClear(GL_ACCUM_BUFFER_BIT)
+  for jitter in 0...ACSIZE
+    glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
+    glPushMatrix()
+    #  Note that 4.5 is the distance in world space between
+    #  left and right and bottom and top.
+    #  This formula converts fractional pixel movement to
+    #  world coordinates.
+    glTranslate($j8[jitter][0]*4.5/viewport[2], $j8[jitter][1]*4.5/viewport[3], 0.0)
+    displayObjects()
+    glPopMatrix()
+    glAccum(GL_ACCUM, 1.0/ACSIZE)
+  end
+  glAccum(GL_RETURN, 1.0)
+  glutSwapBuffers()
+end
+
+myReshape = proc do |w, h|
+  glViewport(0, 0, w, h)
+  glMatrixMode(GL_PROJECTION)
+  glLoadIdentity()
+  if (w <= h)
+    glOrtho(-2.25, 2.25, -2.25*h/w, 2.25*h/w, -10.0, 10.0)
+  else
+    glOrtho(-2.25*w/h, 2.25*w/h, -2.25, 2.25, -10.0, 10.0)
+  end
+  glMatrixMode(GL_MODELVIEW)
+end
+
+keyboard = Proc.new do |key, x, y|
+  case (key)
+    when ?\e
+    exit(0);
+  end
+end
+
+# Main Loop
+# Open window with initial window size, title bar,
+# RGBA display mode, and handle input events.
+#
+glutInit()
+glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB | GLUT_ACCUM | GLUT_DEPTH)
+glutInitWindowSize(500, 500)
+glutInitWindowPosition(100, 100)
+glutCreateWindow($0)
+myinit()
+glutReshapeFunc(myReshape)
+glutDisplayFunc(myDisplay)
+glutKeyboardFunc(keyboard)
+glutMainLoop()