opengl 0.9.0-x64-mingw32

data/examples/misc/anisotropic.rb

@@ -0,0 +1,196 @@
+#
+# 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'
+require 'glu'
+require 'glut'
+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,357 @@
+# 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'
+require 'glu'
+require 'glut'
+include Gl,Glu,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)