allegro4r 0.0.1

data/examples/exmem.rb

@@ -0,0 +1,50 @@
+#
+# Example program (C Version) for the Allegro library, by Shawn Hargreaves.
+#   (Ruby port by Jason Frey)
+#
+# This program demonstrates the use of memory bitmaps. It creates
+# a small temporary bitmap in memory, draws some circles onto it,
+# and then blits lots of copies of it onto the screen.
+#
+
+require 'rubygems'
+require 'allegro4r'
+include Allegro4r::API
+
+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
+    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)
+
+# make a memory bitmap sized 20x20
+memory_bitmap = create_bitmap(20, 20)
+
+# draw some circles onto it
+clear_bitmap(memory_bitmap)
+(0..15).each do |x|
+  circle(memory_bitmap, 10, 10, x, palette_color[x])
+end
+
+# blit lots of copies of it onto the screen
+acquire_screen
+
+(0...SCREEN_H()).step(20) do |y|
+  (0...SCREEN_W()).step(20) do |x|
+    blit(memory_bitmap, screen, 0, 0, x, y, 20, 20)
+  end
+end
+
+release_screen
+
+# free the memory bitmap
+destroy_bitmap(memory_bitmap)
+
+readkey

data/examples/exmidi.rb

@@ -0,0 +1,97 @@
+#
+# Example program (C Version) for the Allegro library, by Shawn Hargreaves.
+#   (Ruby port by Jason Frey)
+#
+# This program demonstrates how to play MIDI files.
+#
+
+require 'rubygems'
+require 'allegro4r'
+include Allegro4r::API
+
+paused = false
+done = false
+
+exit 1 if allegro_init != 0
+
+if ARGV.length != 1
+  allegro_message("Usage: 'ruby exmidi.rb filename.mid'\n")
+  exit 1
+end
+
+install_keyboard
+install_timer
+
+# install a MIDI sound driver
+if install_sound(DIGI_AUTODETECT, MIDI_AUTODETECT, nil) != 0
+  allegro_message("Error initialising sound system\n%s\n" % allegro_error)
+  exit 1
+end
+
+# read in the MIDI file
+the_music = load_midi(ARGV[0])
+if the_music.nil?
+  allegro_message("Error reading MIDI file '%s'\n" % ARGV[0])
+  exit 1
+end
+length = get_midi_length(the_music)
+beats = -midi_pos # get_midi_length updates midi_pos to the negative
+                  # number of beats (quarter notes) in the midi.
+
+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
+
+# try to continue in the background
+if set_display_switch_mode(SWITCH_BACKGROUND)
+  set_display_switch_mode(SWITCH_BACKAMNESIA)
+end
+
+set_palette(desktop_palette)
+background_color = makecol(255, 255, 255)
+text_color = makecol(0, 0, 0)
+clear_to_color(screen, background_color)
+th = text_height(font)
+x = SCREEN_W() / 2
+
+textprintf_centre_ex(screen, font, x, SCREEN_H() / 3, text_color, -1, "Driver: %s" % midi_driver.name)
+textprintf_centre_ex(screen, font, x, SCREEN_H() / 2, text_color, -1, "Playing %s" % get_filename(ARGV[0]))
+
+# start up the MIDI file
+play_midi(the_music, true)
+
+y = 2 * SCREEN_H() / 3
+tw = text_length(font, "0000:00 / 0000:00")
+# wait for a key press
+while !done
+  # P key pauses/resumes, any other key exits.
+  while keypressed
+    k = readkey & 255
+    if k == ?p
+      paused = !paused
+      if paused
+        midi_pause
+        textprintf_centre_ex(screen, font, x, y + th * 3, text_color, -1, "P A U S E D")
+      else
+        midi_resume
+        rectfill(screen, x - tw / 2, y + th * 3, x + tw / 2, y + th * 4, background_color)
+      end
+    else
+      done = true
+    end
+  end
+  pos = midi_time
+  beat = midi_pos
+  rectfill(screen, x - tw / 2, y, x + tw / 2, y + th * 2, background_color)
+  textprintf_centre_ex(screen, font, x, y, text_color, -1, "%d:%02d / %d:%02d" % [pos / 60, pos % 60, length / 60, length % 60])
+  textprintf_centre_ex(screen, font, x, y + th, text_color, -1, "beat %d / %d" % [beat, beats])
+  # We have nothing else to do.
+  rest(100)
+end
+
+# destroy the MIDI file
+destroy_midi(the_music)

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)