opengl 0.9.0-x64-mingw32

data/examples/NeHe/nehe_lesson09.rb

@@ -0,0 +1,203 @@
+#!/usr/bin/env ruby
+
+require 'opengl'
+require 'glu'
+require 'glut'
+require 'chunky_png'
+
+class Lesson09
+  include Gl
+  include Glu
+  include Glut
+
+  Star = Struct.new :r, :g, :b, :distance, :angle
+
+  def initialize
+    @textures = nil
+    @filter = 0
+    @twinkle = false
+    @zoom = -15.0
+    @tilt = 90.0
+    @spin = 0.0
+    @fullscreen = false
+    @last_draw = Time.now
+
+    @star_count = 50
+    @stars = (0...@star_count).map do |i|
+      distance = i.to_f / @star_count * 5.0
+      angle = 0.0
+
+      Star.new rand(256), rand(256), rand(256), distance, angle
+    end
+
+    glutInit
+
+    glutInitDisplayMode GLUT_RGB | GLUT_DOUBLE | GLUT_ALPHA | GLUT_DEPTH
+    glutInitWindowSize 640, 480
+    glutInitWindowPosition 0, 0
+
+    @window = glutCreateWindow "NeHe Lesson 09 - ruby-opengl version"
+
+    glutDisplayFunc :draw_gl_scene
+    glutReshapeFunc :reshape
+    glutIdleFunc :idle
+    glutKeyboardFunc :keyboard
+
+    reshape 640, 480
+    load_texture
+    init_gl
+
+    glutMainLoop
+  end
+
+  def init_gl
+    glEnable GL_TEXTURE_2D
+    glShadeModel GL_SMOOTH
+    glClearColor 0.0, 0.0, 0.0, 0.5
+    glClearDepth 1.0
+    glHint GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST
+    glBlendFunc GL_SRC_ALPHA, GL_ONE
+    glEnable GL_BLEND
+
+    true
+  end
+
+  def reshape width, height
+    width   = width.to_f
+    height = height.to_f
+    height = 1.0 if height.zero?
+
+    glViewport 0, 0, width, height
+
+    glMatrixMode GL_PROJECTION
+    glLoadIdentity
+
+    gluPerspective 45.0, width / height, 0.1, 100.0
+
+    glMatrixMode GL_MODELVIEW
+    glLoadIdentity
+
+    true
+  end
+
+  def draw_gl_scene
+    return if 0.01 > Time.now - @last_draw
+    @last_draw = Time.now
+
+    glClear GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT
+    glBindTexture GL_TEXTURE_2D, @textures[@filter]
+
+    @stars.each_with_index do |star, i|
+      glLoadIdentity
+      glTranslatef 0.0, 0.0, @zoom
+      glRotatef @tilt, 1.0, 0.0, 0.0
+      glRotatef star.angle, 0.0, 1.0, 0.0
+
+      glTranslatef star.distance, 0.0, 0.0
+
+      glRotatef star.angle, 0.0, -1.0, 0.0
+      glRotatef @tilt, -1.0, 0.0, 0.0
+
+      if @twinkle then
+        prev = @stars[i - 1]
+        glColor4ub prev.r, prev.g, prev.b, 255
+
+        glBegin GL_QUADS do
+          glTexCoord2f 0.0, 0.0; glVertex3f -1.0, -1.0,  0.0
+          glTexCoord2f 1.0, 0.0; glVertex3f  1.0, -1.0,  0.0
+          glTexCoord2f 1.0, 1.0; glVertex3f  1.0,  1.0,  0.0
+          glTexCoord2f 0.0, 1.0; glVertex3f -1.0,  1.0,  0.0
+        end
+      end
+
+      glRotatef @spin, 0.0, 0.0, 1.0
+      glColor4ub star.r, star.g, star.b, 255
+
+      glBegin GL_QUADS do
+        glTexCoord2f 0.0, 0.0; glVertex3f -1.0, -1.0,  0.0
+        glTexCoord2f 1.0, 0.0; glVertex3f  1.0, -1.0,  0.0
+        glTexCoord2f 1.0, 1.0; glVertex3f  1.0,  1.0,  0.0
+        glTexCoord2f 0.0, 1.0; glVertex3f -1.0,  1.0,  0.0
+      end
+
+      @spin += 0.01
+      star.angle += i.to_f / @star_count
+      star.distance -= 0.01
+
+      if star.distance < 0 then
+        star.distance += 5.0
+        star.r = rand 256
+        star.g = rand 256
+        star.b = rand 256
+      end
+    end
+
+    glutSwapBuffers
+  end
+
+  def idle
+    glutPostRedisplay
+  end
+
+  def keyboard key, x, y
+    case key
+    when ?\e then
+      glutDestroyWindow @window
+      exit 0
+    when 'F' then
+      @fullscreen = !@fullscreen
+
+      if @fullscreen then
+        glutFullScreen
+      else
+        glutPositionWindow 0, 0
+      end
+    when 'f' then
+      @filter += 1
+      @filter %= 3
+
+      puts "texture #{@filter}"
+    when 'W' then
+      @twinkle = !@twinkle
+
+      puts "twinkle #{@twinkle ? 'on' : 'off'}"
+    when 'T' then @tilt += 0.5
+    when 't' then @tilt -= 0.5
+    when 'Z' then @zoom += 0.2
+    when 'z' then @zoom -= 0.2
+    else
+      puts key
+    end
+
+    glutPostRedisplay
+  end
+
+  def load_texture
+
+    png = ChunkyPNG::Image.from_file(File.expand_path('../star.png', __FILE__))
+
+    height = png.height
+    width = png.width
+
+    image = png.to_rgba_stream
+
+    @textures = glGenTextures 3
+    glBindTexture GL_TEXTURE_2D, @textures[0]
+    glTexParameteri GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST
+    glTexParameteri GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST
+    glTexImage2D GL_TEXTURE_2D, 0, GL_RGBA, width, height, 0, GL_RGBA, GL_UNSIGNED_BYTE, image
+
+    glBindTexture GL_TEXTURE_2D, @textures[1]
+    glTexParameteri GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR
+    glTexParameteri GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR
+    glTexImage2D GL_TEXTURE_2D, 0, GL_RGBA, width, height, 0, GL_RGBA, GL_UNSIGNED_BYTE, image
+
+    glBindTexture GL_TEXTURE_2D, @textures[2]
+    glTexParameteri GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR
+    glTexParameteri GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_NEAREST
+    gluBuild2DMipmaps GL_TEXTURE_2D, GL_RGBA, width, height, GL_RGBA, GL_UNSIGNED_BYTE, image
+  end
+
+end
+
+Lesson09.new

data/examples/NeHe/nehe_lesson11.rb

@@ -0,0 +1,176 @@
+#!/usr/bin/env ruby
+
+require 'opengl'
+require 'glu'
+require 'glut'
+require 'chunky_png'
+
+class Lesson11
+  include Gl
+  include Glu
+  include Glut
+
+  def initialize
+    @textures = nil
+    @xrot = 0.0
+    @yrot = 0.0
+    @zrot = 0.0
+
+    factor = 10.0 / 9 * Math::PI
+    @points = Array.new 45 do |x|
+      Array.new 45 do |y|
+        [x / 5.0 - 4.5, y / 5.0 - 4.5,
+         Math.sin(x / factor)]
+      end
+    end
+
+    @wiggle_count = 0
+
+    glutInit
+
+    glutInitDisplayMode GLUT_RGB | GLUT_DOUBLE | GLUT_ALPHA | GLUT_DEPTH
+    glutInitWindowSize 640, 480
+    glutInitWindowPosition 0, 0
+
+    @window = glutCreateWindow "NeHe Lesson 11 - ruby-opengl version"
+
+    glutDisplayFunc :draw_gl_scene
+    glutReshapeFunc :reshape
+    glutIdleFunc :idle
+    glutKeyboardFunc :keyboard
+
+    reshape 640, 480
+    load_texture
+    init_gl
+
+    glutMainLoop
+  end
+
+  def init_gl
+    glEnable GL_TEXTURE_2D
+    glShadeModel GL_SMOOTH
+    glClearColor 0.0, 0.0, 0.0, 0.5
+    glClearDepth 1.0
+    glEnable GL_DEPTH_TEST
+    glDepthFunc GL_LEQUAL
+    glHint GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST
+
+    glPolygonMode GL_BACK, GL_FILL
+    glPolygonMode GL_FRONT, GL_LINE
+
+    true
+  end
+
+  def reshape width, height
+    width   = width.to_f
+    height = height.to_f
+    height = 1.0 if height.zero?
+
+    glViewport 0, 0, width, height
+
+    glMatrixMode GL_PROJECTION
+    glLoadIdentity
+
+    gluPerspective 45.0, width / height, 0.1, 100.0
+
+    glMatrixMode GL_MODELVIEW
+    glLoadIdentity
+
+    true
+  end
+
+  def draw_gl_scene
+    glClear GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT
+    glLoadIdentity
+
+    glTranslatef 0.0, 0.0, -12.0
+    glRotatef @xrot, 1.0, 0.0, 0.0
+    glRotatef @yrot, 0.0, 1.0, 0.0
+    glRotatef @zrot, 0.0, 0.0, 1.0
+
+    glBindTexture GL_TEXTURE_2D, @textures[0]
+
+    glBegin GL_QUADS do
+      (0...44).each do |x|
+        (0...44).each do |y|
+          tex_x = x / 44.0
+          tex_y = y / 44.0
+          tex_xb = (x + 1) / 44.0
+          tex_yb = (y + 1) / 44.0
+
+          glTexCoord2f tex_x, tex_y
+          glVertex3f @points[x][y][0], @points[x][y][1], @points[x][y][2]
+
+          glTexCoord2f tex_x, tex_yb
+          glVertex3f @points[x][y+1][0], @points[x][y+1][1], @points[x][y+1][2]
+
+          glTexCoord2f tex_xb, tex_yb
+          glVertex3f @points[x+1][y+1][0], @points[x+1][y+1][1], @points[x+1][y+1][2]
+
+          glTexCoord2f tex_xb, tex_y
+          glVertex3f @points[x+1][y][0], @points[x+1][y][1], @points[x+1][y][2]
+        end
+      end
+    end
+
+    if @wiggle_count == 4 then
+      (0...45).each do |y|
+        tmp = @points[0][y][2]
+        (0...44).each do |x|
+          @points[x][y][2] = @points[x+1][y][2]
+        end
+        @points[44][y][2] = tmp
+      end
+
+      @wiggle_count = 0
+    end
+
+    @wiggle_count += 1
+
+    @xrot += 0.03
+    @yrot += 0.02
+    @zrot += 0.04
+
+    glutSwapBuffers
+  end
+
+  def idle
+    glutPostRedisplay
+  end
+
+  def keyboard key, x, y
+    case key
+    when ?\e
+      glutDestroyWindow @window
+      exit 0
+    when 'F' then
+      @fullscreen = !@fullscreen
+
+      if @fullscreen then
+        glutFullScreen
+      else
+        glutPositionWindow 0, 0
+      end
+    end
+
+    glutPostRedisplay
+  end
+
+  def load_texture
+    png = ChunkyPNG::Image.from_file(File.expand_path('../tim.png', __FILE__))
+
+    height = png.height
+    width = png.width
+
+    image = png.to_rgba_stream.each_byte.to_a
+
+    @textures = glGenTextures 1
+    glBindTexture GL_TEXTURE_2D, @textures[0]
+    glTexImage2D GL_TEXTURE_2D, 0, GL_RGBA, width, height, 0, GL_RGBA, GL_UNSIGNED_BYTE, image
+    glTexParameteri GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR
+    glTexParameteri GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR
+  end
+
+end
+
+Lesson11.new

data/examples/NeHe/nehe_lesson12.rb

@@ -0,0 +1,203 @@
+#!/usr/bin/env ruby
+
+require 'opengl'
+require 'glu'
+require 'glut'
+require 'chunky_png'
+
+class Lesson12
+  include Gl
+  include Glu
+  include Glut
+
+  def initialize
+    @textures = nil
+    @box = nil
+    @top = nil
+    @xrot = 0
+    @yrot = 0
+
+    @box_color = [
+      [1.0, 0.0, 0.0],
+      [1.0, 0.5, 0.0],
+      [1.0, 1.0, 0.0],
+      [0.0, 1.0, 0.0],
+      [0.0, 1.0, 1.0],
+    ]
+
+    @top_color = [
+      [0.5, 0.0, 0.0],
+      [0.5, 0.25, 0.0],
+      [0.5, 0.5, 0.0],
+      [0.0, 0.5, 0.0],
+      [0.0, 0.5, 0.5],
+    ]
+
+    glutInit
+
+    glutInitDisplayMode GLUT_RGB | GLUT_DOUBLE | GLUT_ALPHA | GLUT_DEPTH
+    glutInitWindowSize 640, 480
+    glutInitWindowPosition 0, 0
+
+    @window = glutCreateWindow "NeHe Lesson 12 - ruby-opengl version"
+
+    glutDisplayFunc :draw_gl_scene
+    glutReshapeFunc :reshape
+    glutIdleFunc :idle
+    glutKeyboardFunc :keyboard
+
+    reshape 640, 480
+    load_texture
+    init_gl
+
+    glutMainLoop
+  end
+
+  def init_gl
+    build_lists
+
+    glEnable GL_TEXTURE_2D
+    glShadeModel GL_SMOOTH
+    glClearColor 0.0, 0.0, 0.0, 0.5
+    glClearDepth 1.0
+    glEnable GL_DEPTH_TEST
+    glDepthFunc GL_LEQUAL
+
+    glEnable GL_LIGHT0
+    glEnable GL_LIGHTING
+    glEnable GL_COLOR_MATERIAL
+
+    glHint GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST
+  end
+
+  def reshape width, height
+    width   = width.to_f
+    height = height.to_f
+    height = 1.0 if height.zero?
+
+    glViewport 0, 0, width, height
+
+    glMatrixMode GL_PROJECTION
+    glLoadIdentity
+
+    gluPerspective 45.0, width / height, 0.1, 100.0
+
+    glMatrixMode GL_MODELVIEW
+    glLoadIdentity
+
+    true
+  end
+
+  def build_lists
+    @box = glGenLists 2
+    @top = @box + 1
+
+    glNewList @box, GL_COMPILE do
+      glBegin GL_QUADS do
+        # Bottom Face
+        glTexCoord2f(1, 1); glVertex3f(-1, -1, -1)
+        glTexCoord2f(0, 1); glVertex3f( 1, -1, -1)
+        glTexCoord2f(0, 0); glVertex3f( 1, -1,  1)
+        glTexCoord2f(1, 0); glVertex3f(-1, -1,  1)
+        # Front Face
+        glTexCoord2f(0, 0); glVertex3f(-1, -1,  1)
+        glTexCoord2f(1, 0); glVertex3f( 1, -1,  1)
+        glTexCoord2f(1, 1); glVertex3f( 1,  1,  1)
+        glTexCoord2f(0, 1); glVertex3f(-1,  1,  1)
+        # Back Face
+        glTexCoord2f(1, 0); glVertex3f(-1, -1, -1)
+        glTexCoord2f(1, 1); glVertex3f(-1,  1, -1)
+        glTexCoord2f(0, 1); glVertex3f( 1,  1, -1)
+        glTexCoord2f(0, 0); glVertex3f( 1, -1, -1)
+        # Right face
+        glTexCoord2f(1, 0); glVertex3f( 1, -1, -1)
+        glTexCoord2f(1, 1); glVertex3f( 1,  1, -1)
+        glTexCoord2f(0, 1); glVertex3f( 1,  1,  1)
+        glTexCoord2f(0, 0); glVertex3f( 1, -1,  1)
+        # Left Face
+        glTexCoord2f(0, 0); glVertex3f(-1, -1, -1)
+        glTexCoord2f(1, 0); glVertex3f(-1, -1,  1)
+        glTexCoord2f(1, 1); glVertex3f(-1,  1,  1)
+        glTexCoord2f(0, 1); glVertex3f(-1,  1, -1)
+      end
+    end
+
+    glNewList @top, GL_COMPILE do
+      glBegin GL_QUADS do
+        # Top Face
+        glTexCoord2f(0, 1); glVertex3f(-1,  1, -1)
+        glTexCoord2f(0, 0); glVertex3f(-1,  1,  1)
+        glTexCoord2f(1, 0); glVertex3f( 1,  1,  1)
+        glTexCoord2f(1, 1); glVertex3f( 1,  1, -1)
+      end
+    end
+  end
+
+  def draw_gl_scene
+    glClear GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT
+
+    glBindTexture GL_TEXTURE_2D, @textures[0]
+
+    (1..5).each do |y|
+      (0..y).each do |x|
+        glLoadIdentity
+        glTranslate 1.4 + x * 2.8 - y * 1.4, (6 - y) * 2.4 - 7, -20
+
+        glRotatef (45 - 2.0 * y) + @xrot, 1, 0, 0
+        glRotatef 45 + @yrot,             0, 1, 0
+
+        glColor3fv @box_color[y - 1]
+        glCallList @box
+
+        glColor3fv @top_color[y - 1]
+        glCallList @top
+      end
+    end
+
+    glutSwapBuffers
+  end
+
+  def idle
+    glutPostRedisplay
+  end
+
+  def keyboard key, x, y
+    case key
+    when ?\e
+      glutDestroyWindow @window
+      exit 0
+    when 'F' then
+      @fullscreen = !@fullscreen
+
+      if @fullscreen then
+        glutFullScreen
+      else
+        glutPositionWindow 0, 0
+      end
+    when 'X' then @xrot += 0.5
+    when 'x' then @xrot -= 0.5
+    when 'Y' then @yrot += 0.5
+    when 'y' then @yrot -= 0.5
+    end
+
+    glutPostRedisplay
+  end
+
+  def load_texture
+    png = ChunkyPNG::Image.from_file(File.expand_path('../crate.png', __FILE__))
+
+    height = png.height
+    width = png.width
+
+    image = png.to_rgba_stream.each_byte.to_a
+
+    @textures = glGenTextures 1
+    glBindTexture GL_TEXTURE_2D, @textures[0]
+    glTexImage2D GL_TEXTURE_2D, 0, GL_RGBA, width, height, 0, GL_RGBA, GL_UNSIGNED_BYTE, image
+    glTexParameteri GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR
+    glTexParameteri GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR
+  end
+
+end
+
+Lesson12.new