allegro4r 0.0.1-x86-mswin32-60

data/examples/exmouse.rb

@@ -0,0 +1,149 @@
+#
+# Example program (C Version) for the Allegro library, by Shawn Hargreaves.
+#   (Ruby port by Jason Frey)
+#
+# This program demonstrates how to get mouse input. The
+# first part of the test retrieves the raw mouse input data
+# and displays it on the screen without using any mouse
+# cursor. When you press a key the standard arrow-like mouse
+# cursor appears.  You are not restricted to this shape,
+# and a second key press modifies the cursor to be several
+# concentric colored circles. They are not joined together,
+# so you can still see bits of what's behind when you move the
+# cursor over the printed text message.
+#
+
+require 'rubygems'
+require 'allegro4r'
+include Allegro4r::API
+
+def print_all_buttons
+  fc = makecol(0, 0, 0)
+  bc = makecol(255, 255, 255)
+  textprintf_right_ex(screen, font, 320, 50, fc, bc, "buttons")
+  (0...8).each do |i|
+    x = 320
+    y = 60 + i * 10
+    if (mouse_b & (1 << i)) != 0
+      textprintf_right_ex(screen, font, x, y, fc, bc, "%2d" % (1 + i))
+    else
+      textprintf_right_ex(screen, font, x, y, fc, bc, "  ")
+    end
+  end
+end
+
+mickeyx = 0
+mickeyy = 0
+c = 0
+
+exit 1 if allegro_init != 0
+install_keyboard
+install_timer
+
+if set_gfx_mode(GFX_AUTODETECT, 320, 200, 0, 0) != 0
+  if set_gfx_mode(GFX_SAFE, 320, 200, 0, 0) != 0
+    set_gfx_mode(GFX_TEXT, 0, 0, 0, 0)
+    allegro_message("Unable to set any graphic mode\n%s\n" % allegro_error)
+    exit 1
+  end
+end
+
+set_palette(desktop_palette)
+clear_to_color(screen, makecol(255, 255, 255))
+
+# Detect mouse presence
+if install_mouse < 0
+  textout_centre_ex(screen, font, "No mouse detected, but you need one!", SCREEN_W()/2, SCREEN_H()/2, makecol(0, 0, 0), makecol(255, 255, 255))
+  readkey
+  exit 0
+end
+
+textprintf_centre_ex(screen, font, SCREEN_W()/2, 8, makecol(0, 0, 0), makecol(255, 255, 255), "Driver: %s" % mouse_driver.name)
+
+loop do
+  # On most platforms (eg. DOS) things will still work correctly
+  # without this call, but it is a good idea to include it in any
+  # programs that you want to be portable, because on some platforms
+  # you may not be able to get any mouse input without it.
+  poll_mouse
+
+  acquire_screen
+
+  # the mouse position is stored in the variables mouse_x and mouse_y
+  textprintf_ex(screen, font, 16, 48, makecol(0, 0, 0), makecol(255, 255, 255), "mouse_x = %-5d" % mouse_x)
+  textprintf_ex(screen, font, 16, 64, makecol(0, 0, 0), makecol(255, 255, 255), "mouse_y = %-5d" % mouse_y)
+
+  # or you can use this function to measure the speed of movement.
+  # Note that we only call it every fourth time round the loop:
+  # there's no need for that other than to slow the numbers down
+  # a bit so that you will have time to read them...
+  c += 1
+  mickeyx, mickeyy = get_mouse_mickeys if (c & 3) == 0
+
+  textprintf_ex(screen, font, 16,  88, makecol(0, 0, 0), makecol(255, 255, 255), "mickey_x = %-7d" % mickeyx)
+  textprintf_ex(screen, font, 16, 104, makecol(0, 0, 0), makecol(255, 255, 255), "mickey_y = %-7d" % mickeyy)
+
+  # the mouse button state is stored in the variable mouse_b
+  if (mouse_b & 1) != 0
+    textout_ex(screen, font, "left button is pressed ", 16, 128, makecol(0, 0, 0), makecol(255, 255, 255))
+  else
+    textout_ex(screen, font, "left button not pressed", 16, 128, makecol(0, 0, 0), makecol(255, 255, 255))
+  end
+
+  if (mouse_b & 2) != 0
+    textout_ex(screen, font, "right button is pressed ", 16, 144, makecol(0, 0, 0), makecol(255, 255, 255))
+  else
+    textout_ex(screen, font, "right button not pressed", 16, 144, makecol(0, 0, 0), makecol(255, 255, 255))
+  end
+
+  if (mouse_b & 4) != 0
+    textout_ex(screen, font, "middle button is pressed ", 16, 160, makecol(0, 0, 0), makecol(255, 255, 255))
+  else
+    textout_ex(screen, font, "middle button not pressed", 16, 160, makecol(0, 0, 0), makecol(255, 255, 255))
+  end
+
+  # the wheel position is stored in the variable mouse_z
+  textprintf_ex(screen, font, 16, 184, makecol(0, 0, 0), makecol(255, 255, 255), "mouse_z = %-5d mouse_w = %-5d" % [mouse_z, mouse_w])
+
+  print_all_buttons
+    
+  release_screen
+    
+  vsync
+    
+  break if keypressed
+end
+
+clear_keybuf
+  
+# To display a mouse pointer, call show_mouse(). There are several
+# things you should be aware of before you do this, though. For one,
+# it won't work unless you call install_timer() first. For another,
+# you must never draw anything onto the screen while the mouse
+# pointer is visible. So before you draw anything, be sure to turn
+# the mouse off with show_mouse(NULL), and turn it back on again when
+# you are done.
+clear_to_color(screen, makecol(255, 255, 255))
+textout_centre_ex(screen, font, "Press a key to change cursor", SCREEN_W()/2, SCREEN_H()/2, makecol(0, 0, 0), makecol(255, 255, 255))
+show_mouse(screen)
+readkey
+show_mouse(nil)
+
+# create a custom mouse cursor bitmap...
+custom_cursor = create_bitmap(32, 32)
+clear_to_color(custom_cursor, bitmap_mask_color(screen))
+(0...8).each do |c|
+  circle(custom_cursor, 16, 16, c * 2, palette_color[c])
+end
+
+# select the custom cursor and set the focus point to the middle of it
+set_mouse_sprite(custom_cursor)
+set_mouse_sprite_focus(16, 16)
+
+clear_to_color(screen, makecol(255, 255, 255))
+textout_centre_ex(screen, font, "Press a key to quit", SCREEN_W()/2, SCREEN_H()/2, makecol(0, 0, 0), makecol(255, 255, 255))
+show_mouse(screen)
+readkey
+show_mouse(nil)
+
+destroy_bitmap(custom_cursor)

data/examples/expal.rb

@@ -0,0 +1,70 @@
+#
+# Example program (C Version) for the Allegro library, by Shawn Hargreaves.
+#   (Ruby port by Jason Frey)
+#
+# This program demonstrates how to manipulate the palette. It draws
+# a set of concentric circles onto the screen and animates them by
+# cycling the palette.
+#
+
+require 'rubygems'
+require 'allegro4r'
+include Allegro4r::API
+
+palette = PALETTE.new
+
+exit 1 if allegro_init != 0
+install_keyboard
+if set_gfx_mode(GFX_AUTODETECT, 320, 200, 0, 0) != 0
+  if set_gfx_mode(GFX_AUTODETECT, 640, 480, 0, 0) != 0
+    allegro_message("Error setting graphics mode\n%s\n" % allegro_error)
+    exit 1
+  end
+end
+
+# first set the palette to black to hide what we are doing
+set_palette(black_palette)
+
+# draw some circles onto the screen
+acquire_screen
+
+255.downto(1) do |c|
+  circlefill(screen, SCREEN_W()/2, SCREEN_H()/2, c, c)
+end
+
+release_screen
+
+install_mouse
+show_mouse(screen)
+
+# fill our palette with a gradually altering sequence of colors
+(0...64).each do |c|
+  palette[c].r = c;
+  palette[c].g = 0;
+  palette[c].b = 0;
+end
+(64...128).each do |c|
+  palette[c].r = 127 - c;
+  palette[c].g = c - 64;
+  palette[c].b = 0;
+end
+(128...192).each do |c|
+  palette[c].r = 0;
+  palette[c].g = 191 - c;
+  palette[c].b = c - 128;
+end
+(192...256).each do |c|
+  palette[c].r = 0;
+  palette[c].g = 0;
+  palette[c].b = 255 - c;
+end
+
+# animate the image by rotating the palette
+while !keypressed do
+  temp = palette[255].dup
+  255.downto(1) do |c|
+    palette[c] = palette[c - 1]
+  end
+  palette[0] = temp
+  set_palette(palette)
+end

data/examples/expat.rb

@@ -0,0 +1,62 @@
+#
+# Example program (C Version) for the Allegro library, by Shawn Hargreaves.
+#   (Ruby port by Jason Frey)
+#
+# This program demonstrates the use of patterned drawing and sub-bitmaps.
+#
+
+require 'rubygems'
+require 'allegro4r'
+include Allegro4r::API
+
+def draw_pattern(bitmap, message, color)
+  acquire_bitmap(bitmap)
+
+  # create a pattern bitmap
+  pattern = create_bitmap(text_length(font, message), text_height(font))
+  clear_to_color(pattern, bitmap_mask_color(pattern))
+  textout_ex(pattern, font, message, 0, 0, palette_color[255], bitmap_mask_color(screen))
+
+  # cover the bitmap with the pattern
+  drawing_mode(DRAW_MODE_MASKED_PATTERN, pattern, 0, 0)
+  rectfill(bitmap, 0, 0, bitmap.w, bitmap.h, palette_color[color])
+  solid_mode
+
+  # destroy the pattern bitmap
+  destroy_bitmap(pattern)
+
+  release_bitmap(bitmap)
+end
+
+exit 1 if allegro_init != 0
+install_keyboard
+
+if set_gfx_mode(GFX_AUTODETECT, 320, 200, 0, 0) != 0
+  if set_gfx_mode(GFX_SAFE, 320, 200, 0, 0) != 0
+    allegro_message("Unable to set any graphic mode\n%s\n" % allegro_error)
+    exit 1
+  end
+end
+
+set_palette(desktop_palette)
+clear_to_color(screen, makecol(255, 255, 255))
+
+# first cover the whole screen with a pattern
+draw_pattern(screen, "<screen>", 255)
+
+# draw the pattern onto a memory bitmap and then blit it to the screen
+bitmap = create_bitmap(128, 32)
+clear_to_color(bitmap, makecol(255, 255, 255))
+draw_pattern(bitmap, "<memory>", 1)
+masked_blit(bitmap, screen, 0, 0, 32, 32, 128, 32)
+destroy_bitmap(bitmap)
+
+# or we could use a sub-bitmap. These share video memory with their
+# parent, so the drawing will be visible without us having to blit it
+# across onto the screen.
+bitmap = create_sub_bitmap(screen, 224, 64, 64, 128)
+rectfill(screen, 224, 64, 286, 192, makecol(255, 255, 255))
+draw_pattern(bitmap, "<subbmp>", 4)
+destroy_bitmap(bitmap)
+
+readkey

data/examples/exsample.rb

@@ -0,0 +1,89 @@
+#
+# Example program (C Version) for the Allegro library, by Shawn Hargreaves.
+#   (Ruby port by Jason Frey)
+#
+# This program demonstrates how to play samples. You have to
+# use this example from the command line to specify as first
+# parameter a WAV or VOC sound file to play. If the file is
+# loaded successfully, the sound will be played in an infinite
+# loop. While it is being played, you can use the left and right
+# arrow keys to modify the panning of the sound. You can also
+# use the up and down arrow keys to modify the pitch.
+#
+
+require 'rubygems'
+require 'allegro4r'
+include Allegro4r::API
+
+pan = 128
+pitch = 1000
+
+exit 1 if allegro_init != 0
+
+if ARGV.length != 1
+  allegro_message("Usage: 'ruby exsample.rb filename.[wav|voc]'\n")
+  exit 1
+end
+
+install_keyboard
+install_timer
+
+# install a digital sound driver
+if install_sound(DIGI_AUTODETECT, MIDI_NONE, nil) != 0
+  allegro_message("Error initialising sound system\n%s\n" % allegro_error)
+  exit 1
+end
+
+# read in the WAV file
+the_sample = load_sample(ARGV[0])
+if the_sample.nil?
+  allegro_message("Error reading WAV file '%s'\n" % ARGV[0])
+  exit 1
+end
+
+if set_gfx_mode(GFX_AUTODETECT, 320, 200, 0, 0) != 0
+  if set_gfx_mode(GFX_SAFE, 320, 200, 0, 0) != 0
+    set_gfx_mode(GFX_TEXT, 0, 0, 0, 0)
+    allegro_message("Unable to set any graphic mode\n%s\n" % allegro_error)
+    exit 1
+  end
+end
+
+set_palette(desktop_palette)
+clear_to_color(screen, makecol(255,255,255))
+
+textprintf_centre_ex(screen, font, SCREEN_W()/2, SCREEN_H()/3, makecol(0, 0, 0), -1, "Driver: %s" % digi_driver.name)
+textprintf_centre_ex(screen, font, SCREEN_W()/2, SCREEN_H()/2, makecol(0, 0, 0), -1, "Playing %s" % ARGV[0])
+textprintf_centre_ex(screen, font, SCREEN_W()/2, SCREEN_H()*2/3, makecol(0, 0, 0), -1, "Use the arrow keys to adjust it")
+
+# start up the sample
+play_sample(the_sample, 255, pan, pitch, true)
+
+loop do
+  poll_keyboard
+
+  # alter the pan position?
+  if key[KEY_LEFT] && pan > 0
+    pan -= 1
+  elsif key[KEY_RIGHT] && pan < 255
+    pan += 1
+  end
+
+  # alter the pitch?
+  if key[KEY_UP] && pitch < 16384
+    pitch = ((pitch * 513) / 512) + 1
+  elsif key[KEY_DOWN] && pitch > 64
+    pitch = ((pitch * 511) / 512) - 1
+  end
+
+  # adjust the sample
+  adjust_sample(the_sample, 255, pan, pitch, true)
+
+  # delay a bit
+  rest(2)
+
+  break unless !key[KEY_ESC] && !key[KEY_SPACE]
+end
+
+# destroy the sample
+destroy_sample(the_sample)

data/examples/extimer.rb

@@ -0,0 +1,84 @@
+#
+# Example program (C Version) for the Allegro library, by Shawn Hargreaves.
+#   (Ruby port by Jason Frey)
+#
+# This program demonstrates how to use the timer routines.
+# These can be a bit of a pain, because you have to be sure
+# you lock all the memory that is used inside your interrupt
+# handlers.  The first part of the example shows a basic use of
+# timing using the blocking function rest(). The second part
+# shows how to use three timers with different frequencies in
+# a non blocking way.
+#
+# JF - Counters based on timer interrupts cannot be done directly though Ruby,
+# so instead, we can use predefined timer counters. They can be installed by
+# name with install_int or install_int_ex. The values can be retrieved through
+# timer_counter_get.
+#
+
+require 'rubygems'
+require 'allegro4r'
+include Allegro4r::API
+
+exit 1 if allegro_init != 0
+install_keyboard
+install_timer
+
+if set_gfx_mode(GFX_AUTODETECT, 320, 200, 0, 0) != 0
+  if set_gfx_mode(GFX_SAFE, 320, 200, 0, 0) != 0
+    set_gfx_mode(GFX_TEXT, 0, 0, 0, 0)
+    allegro_message("Unable to set any graphic mode\n%s\n" % allegro_error)
+    exit 1
+  end
+end
+
+set_palette(desktop_palette)
+clear_to_color(screen, makecol(255, 255, 255))
+
+textprintf_centre_ex(screen, font, SCREEN_W()/2, 8, makecol(0, 0, 0), makecol(255, 255, 255), "Driver: %s" % timer_driver.name)
+
+# use rest to delay for a specified number of milliseconds
+textprintf_centre_ex(screen, font, SCREEN_W()/2, 48, makecol(0, 0, 0), makecol(255, 255, 255), "Timing five seconds:")
+
+(1..5).each do |c|
+  textprintf_centre_ex(screen, font, SCREEN_W()/2, 62 + c * 10, makecol(0, 0, 0), makecol(255, 255, 255), "%d" % c)
+  rest(1000)
+end
+
+textprintf_centre_ex(screen, font, SCREEN_W()/2, 142, makecol(0, 0, 0), makecol(255, 255, 255), "Press a key to set up interrupts")
+readkey
+
+# JF - Since we are using predefined timer routines, LOCK_VARIABLE and
+# LOCK_FUNCTION do nothing, and are here simply for API consistency. They will
+# raise warnings if the Ruby script is run with -w.
+
+# all variables and code used inside interrupt handlers must be locked
+LOCK_VARIABLE(:x)
+LOCK_VARIABLE(:y)
+LOCK_VARIABLE(:z)
+LOCK_FUNCTION(:inc_x)
+LOCK_FUNCTION(:inc_y)
+LOCK_FUNCTION(:inc_z)
+
+# JF - install_int and install_int_ex take a name as their first parameter
+# which can then be used to subsequent calls to timer_counter_get.
+
+# the speed can be specified in milliseconds (this is once a second)
+install_int(:inc_x, 1000)
+
+# or in beats per second (this is 10 ticks a second)
+install_int_ex(:inc_y, BPS_TO_TIMER(10))
+
+# or in seconds (this is 10 seconds a tick)
+install_int_ex(:inc_z, SECS_TO_TIMER(10))
+
+# the interrupts are now active...
+while !keypressed
+  # JF - Get the values from the timer interrupt counters with
+  # timer_counter_get
+  x = timer_counter_get(:inc_x)
+  y = timer_counter_get(:inc_y)
+  z = timer_counter_get(:inc_z)
+
+  textprintf_centre_ex(screen, font, SCREEN_W()/2, 176, makecol(0, 0, 0), makecol(255, 255, 255), "x=%d, y=%d, z=%d" % [x, y, z])
+end

data/ext/a4r_API_BITMAP.c

@@ -0,0 +1,27 @@
+#include "allegro4r.h"
+
+/*
+ * call-seq:
+ *   bmp.h -> int
+ *
+ * Returns the height of the BITMAP in pixels.
+ */
+VALUE a4r_API_BITMAP_h_get(VALUE self)
+{
+  BITMAP *bitmap;
+  Data_Get_Struct(self, BITMAP, bitmap);
+  return INT2FIX(bitmap->h);
+}
+
+/*
+ * call-seq:
+ *   bmp.w -> int
+ *
+ * Returns the width of the BITMAP in pixels.
+ */
+VALUE a4r_API_BITMAP_w_get(VALUE self)
+{
+  BITMAP *bitmap;
+  Data_Get_Struct(self, BITMAP, bitmap);
+  return INT2FIX(bitmap->w);
+}

data/ext/a4r_API_DIGI_DRIVER.c

@@ -0,0 +1,14 @@
+#include "allegro4r.h"
+
+/*
+ * call-seq:
+ *   driver.name -> str
+ *
+ * Driver name
+ */
+VALUE a4r_API_DIGI_DRIVER_name_get(VALUE self)
+{
+  DIGI_DRIVER *driver;
+  Data_Get_Struct(self, DIGI_DRIVER, driver);
+  return rb_str_new2(driver->name);
+}

data/ext/a4r_API_GFX_DRIVER.c

@@ -0,0 +1,14 @@
+#include "allegro4r.h"
+
+/*
+ * call-seq:
+ *   driver.name -> str
+ *
+ * Returns the name of the graphics driver.
+ */
+VALUE a4r_API_GFX_DRIVER_name_get(VALUE self)
+{
+  GFX_DRIVER *driver;
+  Data_Get_Struct(self, GFX_DRIVER, driver);
+  return rb_str_new2(driver->name);
+}

data/ext/a4r_API_JOYSTICK_AXIS_INFO.c

@@ -0,0 +1,53 @@
+#include "allegro4r.h"
+
+/*
+ * call-seq:
+ *   jai.pos -> int
+ *
+ * Analogue axis position
+ */
+VALUE a4r_API_JOYSTICK_AXIS_INFO_pos(VALUE self)
+{
+  JOYSTICK_AXIS_INFO *jai;
+  Data_Get_Struct(self, JOYSTICK_AXIS_INFO, jai);
+  return INT2FIX(jai->pos);
+}
+
+/*
+ * call-seq:
+ *   jai.d1 -> true or false
+ *
+ * Digital axis position
+ */
+VALUE a4r_API_JOYSTICK_AXIS_INFO_d1(VALUE self)
+{
+  JOYSTICK_AXIS_INFO *jai;
+  Data_Get_Struct(self, JOYSTICK_AXIS_INFO, jai);
+  return jai->d1 ? Qtrue : Qfalse;
+}
+
+/*
+ * call-seq:
+ *   jai.d2 -> true or false
+ *
+ * Digital axis position
+ */
+VALUE a4r_API_JOYSTICK_AXIS_INFO_d2(VALUE self)
+{
+  JOYSTICK_AXIS_INFO *jai;
+  Data_Get_Struct(self, JOYSTICK_AXIS_INFO, jai);
+  return jai->d2 ? Qtrue : Qfalse;
+}
+
+/*
+ * call-seq:
+ *   jai.name -> int
+ *
+ * Description of this axis
+ */
+VALUE a4r_API_JOYSTICK_AXIS_INFO_name(VALUE self)
+{
+  JOYSTICK_AXIS_INFO *jai;
+  Data_Get_Struct(self, JOYSTICK_AXIS_INFO, jai);
+  return rb_str_new2(jai->name);
+}

data/ext/a4r_API_JOYSTICK_BUTTON_INFO.c

@@ -0,0 +1,27 @@
+#include "allegro4r.h"
+
+/*
+ * call-seq:
+ *   jbi.b -> true or false
+ *
+ * Boolean on/off flag
+ */
+VALUE a4r_API_JOYSTICK_BUTTON_INFO_b(VALUE self)
+{
+  JOYSTICK_BUTTON_INFO *jbi;
+  Data_Get_Struct(self, JOYSTICK_BUTTON_INFO, jbi);
+  return jbi->b ? Qtrue : Qfalse;
+}
+
+/*
+ * call-seq:
+ *   jbi.name -> str
+ *
+ * Description of this button
+ */
+VALUE a4r_API_JOYSTICK_BUTTON_INFO_name(VALUE self)
+{
+  JOYSTICK_BUTTON_INFO *jbi;
+  Data_Get_Struct(self, JOYSTICK_BUTTON_INFO, jbi);
+  return rb_str_new2(jbi->name);
+}

data/ext/a4r_API_JOYSTICK_DRIVER.c

@@ -0,0 +1,14 @@
+#include "allegro4r.h"
+
+/*
+ * call-seq:
+ *   driver.name -> str
+ *
+ * Returns the name of the joystick driver.
+ */
+VALUE a4r_API_JOYSTICK_DRIVER_name_get(VALUE self)
+{
+  JOYSTICK_DRIVER *driver;
+  Data_Get_Struct(self, JOYSTICK_DRIVER, driver);
+  return rb_str_new2(driver->name);
+}

data/ext/a4r_API_JOYSTICK_INFO.c

@@ -0,0 +1,84 @@
+#include "allegro4r.h"
+
+/*
+ * call-seq:
+ *   ji.flags -> int
+ *
+ * Status flags for this joystick
+ */
+VALUE a4r_API_JOYSTICK_INFO_flags(VALUE self)
+{
+  JOYSTICK_INFO *ji;
+  Data_Get_Struct(self, JOYSTICK_INFO, ji);
+  return INT2NUM(ji->flags);
+}
+
+/*
+ * call-seq:
+ *   ji.num_sticks -> int
+ *
+ * How many stick inputs?
+ */
+VALUE a4r_API_JOYSTICK_INFO_num_sticks(VALUE self)
+{
+  JOYSTICK_INFO *ji;
+  Data_Get_Struct(self, JOYSTICK_INFO, ji);
+  return INT2FIX(ji->num_sticks);
+}
+
+/*
+ * call-seq:
+ *   ji.num_buttons -> int
+ *
+ * How many buttons?
+ */
+VALUE a4r_API_JOYSTICK_INFO_num_buttons(VALUE self)
+{
+  JOYSTICK_INFO *ji;
+  Data_Get_Struct(self, JOYSTICK_INFO, ji);
+  return INT2FIX(ji->num_buttons);
+}
+
+/*
+ * call-seq:
+ *   ji.stick -> ary
+ *
+ * Stick state information
+ */
+VALUE a4r_API_JOYSTICK_INFO_stick(VALUE self)
+{
+  JOYSTICK_INFO *ji;
+  Data_Get_Struct(self, JOYSTICK_INFO, ji);
+
+  VALUE ret = rb_ary_new2(ji->num_sticks);
+  long x;
+  for (x = 0; x < ji->num_sticks; x++)
+  {
+    VALUE obj = Data_Wrap_Struct(cAPI_JOYSTICK_STICK_INFO, 0, 0, &(ji->stick[x]));
+    rb_ary_store(ret, x, obj);
+  }
+
+  return ret;
+}
+
+/*
+ * call-seq:
+ *   ji.button -> ary
+ *
+ * Button state information
+ */
+VALUE a4r_API_JOYSTICK_INFO_button(VALUE self)
+{
+  JOYSTICK_INFO *ji;
+  Data_Get_Struct(self, JOYSTICK_INFO, ji);
+
+  VALUE ret = rb_ary_new2(ji->num_buttons);
+  long x;
+  for (x = 0; x < ji->num_buttons; x++)
+  {
+    VALUE obj = Data_Wrap_Struct(cAPI_JOYSTICK_BUTTON_INFO, 0, 0, &(ji->button[x]));
+    rb_ary_store(ret, x, obj);
+  }
+
+  return ret;
+}