ruby-opengl 0.60.1 → 0.61.0

data/examples/misc/anisotropic.rb

@@ -1,194 +0,0 @@
-#
-# Copyright (C) 2007 Jan Dvorak <jan.dvorak@kraxnet.cz>
-#
-# 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.
-#
-
-#
-# Showcase for anisotropic texture filtering
-#
-
-require 'opengl'
-include Gl,Glu,Glut
-
-# extend Array class with new function
-class Array
-	def rotate!
-		self << self.shift
-	end
-end
-
-class App
-	@@filters = [[GL_NEAREST,"None"],[GL_LINEAR_MIPMAP_NEAREST,"Bilinear"],[GL_LINEAR_MIPMAP_LINEAR,"Trilinear"]]
-	@@anisotropy = [1,2,4,8,16,32]
-	@@color_tint = ["Off","On"]
-
-	def checker_texture(size,divide,color_a,color_b)
-		strip_a = color_a * (size/divide)
-		strip_b = color_b * (size/divide)
-		line_strip_a = (strip_a + strip_b) * (size/2)
-		line_strip_b = (strip_b + strip_a) * (size/2)
-		(line_strip_a + line_strip_b) * (divide/2)
-	end
-
-	def printGlutBitmapFont(string, font, x,y, r,g,b)
-		glDisable(GL_TEXTURE_2D)
-		glColor3f(r, g, b)
-		glRasterPos2i(x, y)
-		string.each_byte do |x|
-			glutBitmapCharacter(font, x)
-		end
-	end
-
-	def ortho(w,h)
-		glMatrixMode(GL_PROJECTION)
-		glLoadIdentity()
-		gluOrtho2D(0,w,0,h)
-		glScalef(1,-1,1)
-		glTranslatef(0,-h,0)
-	
-		glMatrixMode(GL_MODELVIEW)
-		glLoadIdentity()
-	end
-
-	def persp(w,h)
-		glMatrixMode(GL_PROJECTION)
-		glLoadIdentity
-		gluPerspective(90,w.to_f/h.to_f,1,100)
-
-		glMatrixMode(GL_MODELVIEW)
-		glLoadIdentity
-	end
-
-	def reshape(w,h)
-		@@w,@@h = w,h
-		glViewport(0, 0, w, h)
-		persp(w,h)
-	end
-
-	def initialize
-		if (not Gl.is_available?("GL_EXT_texture_filter_anisotropic"))
-			puts "This program needs GL_EXT_texture_filter_anisotropic extension"
-			exit
-		end
-		@@w,@@h = glutGet(GLUT_WINDOW_WIDTH),glutGet(GLUT_WINDOW_HEIGHT)
-
-		@t = glGenTextures(2)
-
-		# default checkerboard texture
-		glBindTexture(GL_TEXTURE_2D,@t[0])
-		data = checker_texture(64,4,[1,1,1],[0,0,0])
-		gluBuild2DMipmaps(GL_TEXTURE_2D,GL_RGBA,64,64,GL_RGB,GL_FLOAT,data.pack("f*"))
-
-		# second texture with color tinted mipmaps
-		glBindTexture(GL_TEXTURE_2D,@t[1])
-		data = checker_texture(64,4,[1,1,1],[0,0,0])
-		glTexImage2D(GL_TEXTURE_2D,0,GL_RGBA,64,64,0,GL_RGB,GL_FLOAT,data.pack("f*"))
-		data = checker_texture(32,4,[1,0,0],[0,0,0])
-		glTexImage2D(GL_TEXTURE_2D,1,GL_RGBA,32,32,0,GL_RGB,GL_FLOAT,data.pack("f*"))
-		data = checker_texture(16,4,[0,1,0],[0,0,0])
-		glTexImage2D(GL_TEXTURE_2D,2,GL_RGBA,16,16,0,GL_RGB,GL_FLOAT,data.pack("f*"))
-		data = checker_texture(8,4,[0,0,1],[0,0,0])
-		glTexImage2D(GL_TEXTURE_2D,3,GL_RGBA,8,8,0,GL_RGB,GL_FLOAT,data.pack("f*"))
-		data = checker_texture(4,4,[1,1,0],[0,0,0])
-		glTexImage2D(GL_TEXTURE_2D,4,GL_RGBA,4,4,0,GL_RGB,GL_FLOAT,data.pack("f*"))
-		data = checker_texture(2,2,[1,0,1],[0,0,0])
-		glTexImage2D(GL_TEXTURE_2D,5,GL_RGBA,2,2,0,GL_RGB,GL_FLOAT,data.pack("f*"))
-		data = [0.5,0.5,0.5] # single pixel texture, just average it
-		glTexImage2D(GL_TEXTURE_2D,6,GL_RGBA,1,1,0,GL_RGB,GL_FLOAT,data.pack("f*"))
-	end
-
-	def display_text
-		ortho(@@w,@@h)
-		printGlutBitmapFont("Texture Filtering ('f'): #{@@filters[0][1]}", GLUT_BITMAP_9_BY_15, 20, 20, 1.0, 1.0, 1.0)
-		printGlutBitmapFont("Anisotropy factor ('a'): #{@@anisotropy[0]}x", GLUT_BITMAP_9_BY_15, 20, 40, 1.0, 1.0, 1.0)
-		printGlutBitmapFont("Colored Mipmaps ('c'): #{@@color_tint[0]}", GLUT_BITMAP_9_BY_15, 20, 60, 1.0, 1.0, 1.0)
-		persp(@@w,@@h)
-	end
-
-	def display_plane()
-		glEnable(GL_TEXTURE_2D)
-		t_repeat = 16
-		# x,y,z,u,v
-		quad = [[-4,-1,1,  0,t_repeat],[4,-1,1,  t_repeat,t_repeat],[4,1,-8,  t_repeat,0],[-4,1,-8,  0,0]]
-		glBegin(GL_QUADS)
-		quad.each do |v|
-			glTexCoord2f(v[3],v[4])
-			glVertex3f(v[0],v[1],v[2])
-		end
-		glEnd()
-		glDisable(GL_TEXTURE_2D)
-	end
-
-	def display
-		glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-
-		persp(@@w,@@h)
-
-		# move back from scene
-		glTranslatef(0,0,-2)
-
-		# set anisotropy
-		glTexParameterf(GL_TEXTURE_2D,GL_TEXTURE_MAX_ANISOTROPY_EXT,@@anisotropy[0])
-
-		# set color tint
-		if (@@color_tint[0] == "On")
-			glBindTexture(GL_TEXTURE_2D,@t[1])
-		else			
-			glBindTexture(GL_TEXTURE_2D,@t[0])
-		end
-
-		# set filters
-		f = @@filters[0][0]
-		glTexParameterf(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,f)
-
-		# draw scene	
-		display_plane()
-		display_text()
-
-		sleep(0.001) # microsleep to avoid consuming all CPU time
-		glutSwapBuffers()
-	end
-
-	def idle
-		glutPostRedisplay()
-	end
-
-	def keyboard(key,x,y)
-		case (key)
-		when ?f
-			@@filters.rotate!
-		when ?a
-			max_anisotropy = glGetIntegerv(GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT)
-			begin	@@anisotropy.rotate! end until @@anisotropy[0]<=max_anisotropy
-		when ?c
-			@@color_tint.rotate!
-		when ?\e # Escape
-			exit(0)
-		end
-		glutPostRedisplay()
-	end
-end
-
-# main
-glutInit()
-glutInitDisplayMode(GLUT_RGBA | GLUT_DEPTH | GLUT_DOUBLE )
-glutInitWindowPosition(150,50)
-glutInitWindowSize(500,500)
-glutCreateWindow($0)
-
-app = App.new
-glutReshapeFunc(app.method(:reshape).to_proc)
-glutDisplayFunc(app.method(:display).to_proc)
-glutIdleFunc(app.method(:idle).to_proc)
-glutKeyboardFunc(app.method(:keyboard).to_proc)
-glutMainLoop()

data/examples/misc/fbo_test.rb

@@ -1,356 +0,0 @@
-# ogl_bench v1.0 - Copyright 2007 - Graphcomp
-# Bob Free bfree@graphcomp.com
-# http://graphcomp.com/opengl
-
-# This program is freely distributable without licensing fees 
-# and is provided without guarantee or warrantee expressed or 
-# implied. This program is -not- in the public domain.
-#
-# Conversion to ruby by Jan Dvorak <jan.dvorak@kraxnet.cz>
-
-# Set up standard libs
-require 'opengl'
-include Gl,Glut
-
-# Set up constants
-PROGRAM = "OpenGL Benchmark - Ruby Bindings"
-CYCLES = 1000
-
-# Setup OpenGL Extensions
-# (Not needed)
-
-# Set up types
-class Bench
-	attr_accessor :start,:secs
-	def initialize
-		@start = 0
-		@secs = 0
-	end
-end
-
-# Set up globals
-$appBench = Bench.new
-$frameBench = Bench.new
-$textureBench = Bench.new
-$teapotBench = Bench.new
-$now = 0
-$frames = 0
-
-$idWindow = 0
-
-$windowWidth = 512
-$windowHeight = 512
-
-$textureWidth = 128
-$textureHeight = 128
-
-$rotTeapotX = 0
-$rotTeapotY = 0
-
-$idTexture = 0
-$idFrameBuffer = 0
-$idRenderBuffer = 0
-$idVertexProg = 0
-$idFragProg = 0
-
-$incY = 0.5
-$rotY = 0.0
-
-# Start benchmark
-def startBench(pBench)
-	pBench.start = Time.now
-#	pBench.secs = 0.0
-end
-
-# Accumulate benchmark
-def endBench(pBench)
-	$now = Time.now
-	pBench.secs += $now - pBench.start
-end
-
-# Print benchmark
-def printBench
-  if ($frames==0 || $appBench.secs==0 || $frameBench.secs==0 ||
-    $textureBench.secs==0 || $teapotBench.secs==0)
-    puts "No measurable time has elapsed"
-    return
-  end
-  
-  puts "FBO Texture Rendering FPS: #{$frames / $textureBench.secs}"
-  puts "Teapot Shader FPS: #{$frames / $teapotBench.secs}"
-
-  overhead = $frameBench.secs - ($textureBench.secs + $teapotBench.secs)
-  puts "Frame overhead secs/frame: #{overhead / $frames}"
-
-  overhead = $appBench.secs - $frameBench.secs
-  puts "OS/GLUT overhead secs/frame: #{overhead / $frames}"
-
-  puts "Overall FPS: #{$frames / $appBench.secs}"
-	puts ""
-end
-
-# Error handling
-def error(errTitle, errMsg)
-  puts "#{errTitle}: #{errMsg}"
-  exit(0)
-end
-
-# Check OpenGL Version
-def checkVersion
-  version = glGetString(GL_VERSION)
-  vendor = glGetString(GL_VENDOR)
-  renderer = glGetString(GL_RENDERER)
-  exts = glGetString(GL_EXTENSIONS)
-
-	puts PROGRAM
-	puts ""
-	puts "OpenGL: #{version}"
-	puts "Vendor: #{vendor}"
-	puts "Renderer: #{renderer}"
-	puts ""
-
-	if Gl.is_available?("GL_EXT_framebuffer_object") == false
-    error("Extension not available","EXT_framebuffer_object")
-	end
-end
-
-# Load Extension Procs
-def initExtensions
-	# (Not needed)
-end
-
-# Initialize Vertex/Fragment Programs
-def initProgs
-  # NOP Vertex shader
-	$vertexProg = <<-END_OF_PROGRAM
-!!ARBvp1.0
-TEMP vertexClip;
-DP4 vertexClip.x, state.matrix.mvp.row[0], vertex.position;
-DP4 vertexClip.y, state.matrix.mvp.row[1], vertex.position;
-DP4 vertexClip.z, state.matrix.mvp.row[2], vertex.position;
-DP4 vertexClip.w, state.matrix.mvp.row[3], vertex.position;
-MOV result.position, vertexClip;
-MOV result.color, vertex.color;
-MOV result.texcoord[0], vertex.texcoord;
-MOV result.texcoord[1], vertex.normal;
-END
-	END_OF_PROGRAM
-
-  # Black Light Fragment shader
-	$fragProg = <<-END_OF_PROGRAM
-!!ARBfp1.0
-TEMP decal,color;
-TEX decal, fragment.texcoord[0], texture[0], 2D;
-MUL result.color, decal, fragment.texcoord[1];
-END
-	END_OF_PROGRAM
-
-  $idVertexProg,$idFragProg = glGenProgramsARB(2)
-
-  glBindProgramARB(GL_VERTEX_PROGRAM_ARB, $idVertexProg)
-  glProgramStringARB(GL_VERTEX_PROGRAM_ARB, GL_PROGRAM_FORMAT_ASCII_ARB, $vertexProg)
-
-  glBindProgramARB(GL_FRAGMENT_PROGRAM_ARB, $idFragProg)
-  glProgramStringARB(GL_FRAGMENT_PROGRAM_ARB, GL_PROGRAM_FORMAT_ASCII_ARB, $fragProg)
-end
-
-# Terminate Vertex/Fragment Programs
-def termProgs
-  glBindProgramARB(GL_VERTEX_PROGRAM_ARB, 0)
-  glBindProgramARB(GL_FRAGMENT_PROGRAM_ARB, 0)
-
-  glDeleteProgramsARB([$idVertexProg,$idFragProg])
-end
-
-# FBO Status handler
-def statusFBO
-  stat = glCheckFramebufferStatusEXT(GL_FRAMEBUFFER_EXT)
-  return if (stat==0 || stat == GL_FRAMEBUFFER_COMPLETE_EXT)
-  printf("FBO status: %04X\n", stat)
-  exit(0)
-end
-
-# Initialize Framebuffers
-def initFBO
-  $idTexture = glGenTextures(1)[0]
-  $idFrameBuffer = glGenFramebuffersEXT(1)[0]
-  $idRenderBuffer = glGenRenderbuffersEXT(1)[0]
-
-  glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, $idFrameBuffer)
-  glBindTexture(GL_TEXTURE_2D, $idTexture)
-
-  glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA8, $textureWidth, $textureHeight,
-		0, GL_RGBA, GL_UNSIGNED_BYTE, nil)
-
-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)
-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR)
-
-  glFramebufferTexture2DEXT(GL_FRAMEBUFFER_EXT, GL_COLOR_ATTACHMENT0_EXT,
-    GL_TEXTURE_2D, $idTexture, 0)
-
-  glBindRenderbufferEXT(GL_RENDERBUFFER_EXT, $idRenderBuffer)
-
-  glRenderbufferStorageEXT(GL_RENDERBUFFER_EXT, GL_DEPTH_COMPONENT24,
-		$textureWidth, $textureHeight)
-
-  glFramebufferRenderbufferEXT(GL_FRAMEBUFFER_EXT, GL_DEPTH_ATTACHMENT_EXT,
-      GL_RENDERBUFFER_EXT, $idRenderBuffer)
-
-  statusFBO()
-end
-
-# FBO texture renderer
-def renderFBO
-  glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, $idFrameBuffer)
-
-  glLoadIdentity()
-  glTranslated(-0.75, -0.85, -2.5)
-
-  glRotated($rotTeapotX, 1.0, 0.0, 0.0)
-  $rotTeapotX += 0.5
-
-  glRotated($rotTeapotY, 0.0, 1.0, 0.0)
-  $rotTeapotY += 1.0
-
-  glClearColor(0, 0, 0, 0)
-  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-  glColor3d(1.0, 1.0, 1.0)
- 
-  glutWireTeapot(0.125)
-
-  glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, 0)
-end
-
-# Terminate FBO objects
-def termFBO
-  glBindRenderbufferEXT(GL_RENDERBUFFER_EXT, 0)
-  glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, 0)
-  glBindTexture(GL_TEXTURE_2D, 0)
-
-  glDeleteRenderbuffersEXT($idRenderBuffer)
-  glDeleteFramebuffersEXT($idFrameBuffer)
-  glDeleteTextures($idTexture)
-end
-
-# Resize Window
-def resizeScene(width,height)
-  if (height==0)
-		height = 1
-  end
-  
-  glViewport(0, 0, width, height)
-
-  glMatrixMode(GL_PROJECTION)
-  glLoadIdentity()
-  gluPerspective(45.0,width.to_f/height.to_f,0.1,100.0)
-
-  glMatrixMode(GL_MODELVIEW)
-
-  $windowWidth  = width
-  $windowHeight = height
-end
-
-# Initialize OpenGL Environment
-def init
-  checkVersion
-  initExtensions
-
-  resizeScene($windowWidth, $windowHeight)
-
-  initFBO
-  initProgs
-end
-
-# Terminate OpenGL Environment
-def term
-  # Display benchmark
-  endBench($appBench)
-  printBench()
-
-  # Disable app
-  glutHideWindow()
-  glutKeyboardFunc(nil)
-  glutSpecialFunc(nil)
-  glutIdleFunc(nil)
-  glutReshapeFunc(nil)
-
-  # Release Framebuffers
-  termProgs()
-  termFBO()
-
-  # Now we can destroy window
-  glutDestroyWindow($idWindow)
-  exit(0)
-end
-
-# Frame handler
-display = lambda do
-  # Run benchmark CYCLES times
-	$frames += 1
-  term() if ($frames > CYCLES)
-  startBench($frameBench)
-
-  # Render animated texture
-  startBench($textureBench)
-  renderFBO()
-  endBench($textureBench)
-  
-  # Set up ModelView
-  glMatrixMode(GL_MODELVIEW)
-  glLoadIdentity()
-  glTranslatef(0.0,0.0,-5.0)
-  glRotated(0.0,1.0,0.0,0.0)
-  glRotated($rotY,0.0,1.0,0.0)
-  $rotY += $incY
-
-  # Set attributes
-  glEnable(GL_TEXTURE_2D)
-  glEnable(GL_DEPTH_TEST)
-  glTexEnvi(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE,GL_DECAL)
-
-  # Clear render buffer and set teapot color
-  glClearColor(0.2, 0.2, 0.2, 1.0)
-  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
-  glColor3d(0.9, 0.45, 0.0)
-
-  # Render the teapot using our shader
-  startBench($teapotBench)
-  glEnable(GL_VERTEX_PROGRAM_ARB)
-  glEnable(GL_FRAGMENT_PROGRAM_ARB)
- 
-  glutSolidTeapot(1.0)
-
-  glDisable(GL_FRAGMENT_PROGRAM_ARB)
-  glDisable(GL_VERTEX_PROGRAM_ARB)
-  endBench($teapotBench)
-
-  # Double-buffer and done
-  glutSwapBuffers()
-  endBench($frameBench)
-end
-
-# Keyboard handler
-keyPressed = lambda do |key,x,y|
-  term()
-end
-
-
-
-# Main app
-
-glutInit()
-glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGBA | GLUT_DEPTH | GLUT_ALPHA)
-glutInitWindowSize($windowWidth,$windowHeight)
-
-$idWindow = glutCreateWindow(PROGRAM)
-
-glutDisplayFunc(display)
-glutIdleFunc(display)
-#glutReshapeFunc(resizeScene)
-glutKeyboardFunc(keyPressed)
-
-init()
-startBench($appBench)
-glutMainLoop()
-exit(0)
-