ruby-glfw 0.9

data/examples/gears.rb

@@ -0,0 +1,327 @@
+# 3-D gear wheels.  This program is in the public domain.
+#
+# Command line options:
+#    -info      print GL implementation information
+#    -exit      automatically exit after 30 seconds
+#
+#
+# Brian Paul
+#
+#
+# Marcus Geelnard:
+#   - Conversion to GLFW
+#   - Time based rendering (frame rate independent)
+#   - Slightly modified camera that should work better for stereo viewing
+#
+# Converted to ruby from GLFW example gears.c
+
+require 'opengl'
+require 'glfw'
+include Gl,Glu,Glfw,Math
+
+$running = true
+$t0 = 0.0
+$t = 0.0
+$dt = 0.0
+
+$frames = 0
+$autoexit = 0
+
+#
+#  Draw a gear wheel.  You'll probably want to call this function when
+#  building a display list since we do a lot of trig here.
+#
+#  Input:  inner_radius - radius of hole at center
+#          outer_radius - radius at center of teeth
+#          width - width of gear
+#          teeth - number of teeth
+#          tooth_depth - depth of tooth
+#
+def gear(inner_radius,outer_radius,width,teeth,tooth_depth)
+	r0 = inner_radius
+	r1 = outer_radius - tooth_depth / 2.0
+	r2 = outer_radius + tooth_depth / 2.0
+	
+	da = 2.0 * PI / teeth / 4.0
+
+	glShadeModel(GL_FLAT)
+	
+	glNormal3f(0.0, 0.0, 1.0)
+	
+	# draw front face
+	glBegin(GL_QUAD_STRIP)
+	0.upto(teeth) do |i|
+		angle = i * 2.0 * PI / teeth
+		glVertex3f(r0 * cos(angle), r0 * sin(angle), width * 0.5)
+		glVertex3f(r1 * cos(angle), r1 * sin(angle), width * 0.5)
+		if (i < teeth)
+			glVertex3f(r0 * cos(angle), r0 * sin(angle), width * 0.5)
+			glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), width * 0.5)
+		end
+	end
+	glEnd()
+
+	# draw front sides of teeth
+	glBegin(GL_QUADS)
+	da = 2.0 * PI / teeth / 4.0
+	teeth.times do |i|
+		angle = i * 2.0 * PI / teeth
+		
+		glVertex3f(r1 * cos(angle), r1 * sin(angle), width * 0.5)
+		glVertex3f(r2 * cos(angle + da), r2 * sin(angle + da), width * 0.5)
+		glVertex3f(r2 * cos(angle + 2 * da), r2 * sin(angle + 2 * da), width * 0.5)
+		glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), width * 0.5)
+	end
+	glEnd()
+
+	glNormal3f(0.0, 0.0, -1.0)
+
+	# draw back face
+	glBegin(GL_QUAD_STRIP)
+	0.upto(teeth) do |i|
+		angle = i * 2.0 * PI / teeth
+		glVertex3f(r1 * cos(angle), r1 * sin(angle), -width * 0.5)
+		glVertex3f(r0 * cos(angle), r0 * sin(angle), -width * 0.5)
+		if (i < teeth)
+			glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), -width * 0.5)
+			glVertex3f(r0 * cos(angle), r0 * sin(angle), -width * 0.5)
+		end
+	end
+	glEnd()
+
+	# draw back sides of teeth */
+	glBegin(GL_QUADS)
+	da = 2.0 * PI / teeth / 4.0
+	teeth.times do |i|
+		angle = i * 2.0 * PI / teeth
+	
+		glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), -width * 0.5)
+		glVertex3f(r2 * cos(angle + 2 * da), r2 * sin(angle + 2 * da), -width * 0.5)
+		glVertex3f(r2 * cos(angle + da), r2 * sin(angle + da), -width * 0.5)
+		glVertex3f(r1 * cos(angle), r1 * sin(angle), -width * 0.5)
+	end
+	glEnd()
+
+	# draw outward faces of teeth
+	glBegin(GL_QUAD_STRIP)
+	teeth.times do |i|
+		angle = i * 2.0 * PI / teeth
+	
+		glVertex3f(r1 * cos(angle), r1 * sin(angle), width * 0.5)
+		glVertex3f(r1 * cos(angle), r1 * sin(angle), -width * 0.5)
+		u = r2 * cos(angle + da) - r1 * cos(angle)
+		v = r2 * sin(angle + da) - r1 * sin(angle)
+		len = sqrt(u * u + v * v)
+		u /= len
+		v /= len
+		glNormal3f(v, -u, 0.0)
+		glVertex3f(r2 * cos(angle + da), r2 * sin(angle + da), width * 0.5)
+		glVertex3f(r2 * cos(angle + da), r2 * sin(angle + da), -width * 0.5)
+		glNormal3f(cos(angle), sin(angle), 0.0)
+		glVertex3f(r2 * cos(angle + 2 * da), r2 * sin(angle + 2 * da), width * 0.5)
+		glVertex3f(r2 * cos(angle + 2 * da), r2 * sin(angle + 2 * da), -width * 0.5)
+		u = r1 * cos(angle + 3 * da) - r2 * cos(angle + 2 * da)
+		v = r1 * sin(angle + 3 * da) - r2 * sin(angle + 2 * da)
+		glNormal3f(v, -u, 0.0)
+		glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), width * 0.5)
+		glVertex3f(r1 * cos(angle + 3 * da), r1 * sin(angle + 3 * da), -width * 0.5)
+		glNormal3f(cos(angle), sin(angle), 0.0)
+	end
+	
+	glVertex3f(r1 * cos(0), r1 * sin(0), width * 0.5)
+	glVertex3f(r1 * cos(0), r1 * sin(0), -width * 0.5)
+	
+	glEnd()
+	
+	glShadeModel(GL_SMOOTH)
+
+	# draw inside radius cylinder
+	glBegin(GL_QUAD_STRIP);
+	0.upto(teeth) do |i|
+		angle = i * 2.0 * PI / teeth
+		glNormal3f(-cos(angle), -sin(angle), 0.0)
+		glVertex3f(r0 * cos(angle), r0 * sin(angle), -width * 0.5)
+		glVertex3f(r0 * cos(angle), r0 * sin(angle), width * 0.5)
+	end
+	glEnd()
+end
+
+$view_rotx = 20.0
+$view_roty = 30.0
+$view_rotz = 0.0
+$gear1 = 0
+$gear2 = 0
+$gear3 = 0
+$angle = 0.0
+
+# OpenGL draw function & timing
+def draw
+	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
+	
+	glPushMatrix()
+		glRotatef($view_rotx, 1.0, 0.0, 0.0)
+		glRotatef($view_roty, 0.0, 1.0, 0.0)
+		glRotatef($view_rotz, 0.0, 0.0, 1.0)
+		
+		glPushMatrix()
+			glTranslatef(-3.0, -2.0, 0.0)
+			glRotatef($angle, 0.0, 0.0, 1.0)
+			glCallList($gear1)
+		glPopMatrix()
+		
+		glPushMatrix()
+			glTranslatef(3.1, -2.0, 0.0)
+			glRotatef(-2.0 * $angle - 9.0, 0.0, 0.0, 1.0)
+			glCallList($gear2)
+		glPopMatrix()
+		
+		glPushMatrix()
+			glTranslatef(-3.1, 4.2, 0.0)
+			glRotatef(-2.0 * $angle - 25.0, 0.0, 0.0, 1.0)
+			glCallList($gear3)
+		glPopMatrix()
+	
+	glPopMatrix()
+	
+	$frames+=1
+
+	t_new = glfwGetTime()
+	$dt = t_new - $t
+	$t = t_new
+	
+	if ($t - $t0 >= 5.0)
+		seconds = $t - $t0
+		fps = $frames / seconds.to_f
+		printf("%d frames in %6.3f seconds = %6.3f FPS\n", $frames, seconds, fps)
+		$stdout.flush
+		$t0 = $t
+		$frames = 0
+		if (($t >= 0.999 * $autoexit) && ($autoexit!=0))
+			$running = false
+		end
+	end
+end
+
+# update animation parameters
+def animate	
+  $angle += 100.0*$dt
+end
+
+key = lambda do |k,action|
+	if (action != GLFW_PRESS)
+		next
+	end
+
+	case k
+	when ?Z
+    if( glfwGetKey( GLFW_KEY_LSHIFT ) == GLFW_PRESS)
+      $view_rotz -= 5.0;
+    else
+      $view_rotz += 5.0;
+    end
+	when GLFW_KEY_ESC: $running = false
+	when GLFW_KEY_UP: $view_rotx += 5.0
+	when GLFW_KEY_DOWN: $view_rotx -= 5.0
+  when GLFW_KEY_LEFT: $view_roty += 5.0
+  when GLFW_KEY_RIGHT: $view_roty -= 5.0
+	end
+end
+
+# new window size
+reshape = lambda do |width,height|
+	h = height.to_f / width.to_f
+	
+	znear = 5.0
+	zfar  = 30.0
+	xmax  = znear * 0.5
+	
+	glViewport( 0, 0, width, height )
+	glMatrixMode( GL_PROJECTION )
+	glLoadIdentity()
+	glFrustum( -xmax, xmax, -xmax*h, xmax*h, znear, zfar )
+	glMatrixMode( GL_MODELVIEW )
+	glLoadIdentity()
+	glTranslatef( 0.0, 0.0, -20.0 )
+end
+
+def init
+	pos = [5.0, 5.0, 10.0, 0.0]
+	red = [0.8, 0.1, 0.0, 1.0]
+	green = [0.0, 0.8, 0.2, 1.0]
+	blue = [0.2, 0.2, 1.0, 1.0]
+	
+	glLightfv(GL_LIGHT0, GL_POSITION, pos)
+	glEnable(GL_CULL_FACE)
+	glEnable(GL_LIGHTING)
+	glEnable(GL_LIGHT0)
+	glEnable(GL_DEPTH_TEST)
+	
+	# make the gears
+	$gear1 = glGenLists(1)
+	glNewList($gear1, GL_COMPILE)
+	glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, red)
+	gear(1.0, 4.0, 1.0, 20, 0.7)
+	glEndList()
+	
+	$gear2 = glGenLists(1)
+	glNewList($gear2, GL_COMPILE)
+	glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, green)
+	gear(0.5, 2.0, 2.0, 10, 0.7)
+	glEndList()
+	
+	$gear3 = glGenLists(1)
+	glNewList($gear3, GL_COMPILE)
+	glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, blue)
+	gear(1.3, 2.0, 0.5, 10, 0.7)
+	glEndList()
+	
+	glEnable(GL_NORMALIZE)
+
+	ARGV.each do |arg|
+		case arg
+		when "-info"
+			puts "GL_RENDERER   = #{glGetString(GL_RENDERER)}"
+			puts "GL_VERSION    = #{glGetString(GL_VERSION)}"
+			puts "GL_VENDOR     = #{glGetString(GL_VENDOR)}"
+			puts "GL_EXTENSIONS = #{glGetString(GL_EXTENSIONS)}"
+		when "-exit"
+			$autoexit = 30
+			puts "Auto Exit after #{$autoexit} seconds."
+		end
+	end
+end
+
+
+# program entry
+
+# Init GLFW and open window
+if( glfwOpenWindow( 300,300, 0,0,0,0, 16,0, GLFW_WINDOW ) == false)
+	exit
+end
+
+glfwSetWindowTitle( "Gears" )
+glfwEnable( GLFW_KEY_REPEAT )
+glfwSwapInterval( 0 )
+
+init()
+# Set callback functions
+glfwSetWindowSizeCallback( reshape )
+glfwSetKeyCallback( key )
+
+# Main loop
+while $running
+	# Draw gears
+	draw()
+
+	# Update animation
+	animate()
+
+  # Swap buffers
+  glfwSwapBuffers()
+
+	# Was the window closed?
+	if( glfwGetWindowParam( GLFW_OPENED ) == false)
+		$running = false
+	end
+end
+

data/examples/keytest.rb

@@ -0,0 +1,117 @@
+#========================================================================
+# This is a small test application for GLFW.
+# Keyboard input test.
+#========================================================================
+# Converted to ruby from GLFW example keytest.c
+
+require 'opengl'
+require 'glfw'
+include Gl,Glu,Glfw
+
+$running = true
+$keyrepeat = false
+$systemkeys = true
+
+keyfun = lambda do |key,action|
+	if action != GLFW_PRESS
+		next
+	end
+
+	case key
+	when GLFW_KEY_ESC
+		puts "ESC => quit program"
+		$running = false
+	when GLFW_KEY_F1..GLFW_KEY_F25
+		puts "F#{1 + key - GLFW_KEY_F1}"
+  when GLFW_KEY_UP: puts "UP"
+  when GLFW_KEY_DOWN: puts "DOWN"
+  when GLFW_KEY_LEFT: puts "LEFT"
+  when GLFW_KEY_RIGHT: puts "RIGHT"
+  when GLFW_KEY_LSHIFT: puts "LSHIFT"
+  when GLFW_KEY_RSHIFT: puts "RSHIFT"
+  when GLFW_KEY_LCTRL: puts "LCTRL"
+  when GLFW_KEY_RCTRL: puts "RCTRL"
+  when GLFW_KEY_LALT: puts "LALT"
+  when GLFW_KEY_RALT: puts "RALT"
+  when GLFW_KEY_TAB: puts "TAB"
+  when GLFW_KEY_ENTER: puts "ENTER"
+  when GLFW_KEY_BACKSPACE: puts "BACKSPACE"
+  when GLFW_KEY_INSERT: puts "INSERT"
+  when GLFW_KEY_DEL: puts "DEL"
+  when GLFW_KEY_PAGEUP: puts "PAGEUP"
+  when GLFW_KEY_PAGEDOWN: puts "PAGEDOWN"
+  when GLFW_KEY_HOME: puts "HOME"
+  when GLFW_KEY_END: puts "END"
+	when GLFW_KEY_KP_0..GLFW_KEY_KP_9
+		puts "KEYPAD #{key - GLFW_KEY_KP_0}"
+	when GLFW_KEY_KP_DIVIDE: puts "KEYPAD DIVIDE"
+	when GLFW_KEY_KP_MULTIPLY: puts "KEYPAD MULTIPLY"
+	when GLFW_KEY_KP_SUBTRACT: puts "KEYPAD SUBTRACT"
+	when GLFW_KEY_KP_ADD: puts "KEYPAD ADD"
+	when GLFW_KEY_KP_DECIMAL: puts "KEYPAD DECIMAL"
+	when GLFW_KEY_KP_EQUAL: puts "KEYPAD ="
+	when GLFW_KEY_KP_ENTER: puts "KEYPAD ENTER"
+	when GLFW_KEY_SPACE: puts "SPACE"
+	when ?R
+		if ($keyrepeat==false)
+			glfwEnable(GLFW_KEY_REPEAT)
+		else
+			glfwDisable(GLFW_KEY_REPEAT)
+		end
+		$keyrepeat = !$keyrepeat
+		puts "R => Key repeat: #{$keyrepeat ? 'ON' : 'OFF'}"
+	when ?S
+		if ($systemkeys==false)
+			glfwEnable(GLFW_SYSTEM_KEYS)
+		else
+			glfwDisable(GLFW_SYSTEM_KEYS)
+		end
+		$systemkeys = !$systemkeys
+		puts "S => System keys: #{$systemkeys ? 'ON' : 'OFF'}"
+	else
+		if (key>0 && key<256)
+			puts key.chr
+		else
+			puts "???"
+		end
+	end
+	$stdout.flush
+end
+
+
+# main
+
+# Open OpenGL window
+if (glfwOpenWindow( 250,100, 0,0,0,0, 0,0, GLFW_WINDOW ) == false)
+	exit
+end
+
+# Set key callback function
+glfwSetKeyCallback( keyfun )
+
+# Set tile
+glfwSetWindowTitle( "Press some keys!" )
+
+# Main loop
+$running = true
+while $running
+	# Get time and mouse position
+	t = glfwGetTime()
+
+	# Get window size (may be different than the requested size)
+	width,height = glfwGetWindowSize()
+	height = height > 0 ? height : 1
+
+	# Set viewport
+	glViewport( 0, 0, width, height )
+
+	# Clear color buffer
+	glClearColor( 0.5+0.5*Math.sin(3.0*t), 0.0, 0.0, 0.0)
+	glClear( GL_COLOR_BUFFER_BIT )
+
+	# Swap buffers
+	glfwSwapBuffers()
+	
+	# Check if the window was closed
+	$running = ($running && glfwGetWindowParam( GLFW_OPENED ) == true)
+end

data/examples/listmodes.rb

@@ -0,0 +1,20 @@
+#========================================================================
+# This is a small test application for GLFW.
+# The program lists all available fullscreen video modes.
+#========================================================================
+# Converted to ruby from GLFW example listmodes.c
+
+require 'opengl'
+require 'glfw'
+include Gl,Glu,Glfw
+
+dtmode = glfwGetDesktopMode()
+puts "Desktop mode: #{dtmode.Width} x #{dtmode.Height} x #{dtmode.RedBits+dtmode.GreenBits+dtmode.BlueBits}\n\n"
+
+modes = glfwGetVideoModes()
+puts "Available modes:"
+(modes.size).times do |i|
+  printf( "%3d: %d x %d x %d\n", i,
+				 modes[i].Width, modes[i].Height,
+				 modes[i].RedBits+modes[i].GreenBits+modes[i].BlueBits)
+end