opengl 0.7.0.pre1-x86-mingw32

data/examples/misc/anisotropic.rb

@@ -0,0 +1,194 @@
+#
+# 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

@@ -0,0 +1,356 @@
+# 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)
+